Exemplo do Ponto de Entrada MT120QRY.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | #Include "Protheus.ch"/*--------------------------------------------------------------------------------------------------------------* | P.E.: MT120QRY | | Desc: Filtro na tela do pedido de compra (mostrar apenas um item do pedido no mbrowse) | | Link: http://tdn.totvs.com/pages/releaseview.actionçpageId=6787737 | *--------------------------------------------------------------------------------------------------------------*/User Function MT120QRY() Local cRet := "" Local cQry := "" //Selecionando os dados cQry := " SELECT " cQry += " SC7.R_E_C_N_O_ " cQry += " FROM " cQry += " "+RetSQLName('SC7')+" SC7 " cQry += " INNER JOIN ( " cQry += " SELECT DISTINCT " cQry += " SC7_PRIN.C7_NUM AS PEDIDO, " cQry += " ( " cQry += " SELECT TOP 1 " cQry += " SC7_ITE.C7_ITEM " cQry += " FROM " cQry += " "+RetSQLName('SC7')+" SC7_ITE " cQry += " WHERE " cQry += " SC7_ITE.C7_FILIAL = SC7_PRIN.C7_FILIAL " cQry += " AND SC7_ITE.C7_NUM = SC7_PRIN.C7_NUM " cQry += " AND SC7_ITE.D_E_L_E_T_ = ' ' " cQry += " ORDER BY " cQry += " SC7_ITE.C7_ITEM DESC " cQry += " ) AS ULT_ITEM " cQry += " FROM " cQry += " "+RetSQLName('SC7')+" SC7_PRIN " cQry += " WHERE " cQry += " SC7_PRIN.C7_FILIAL = '"+FWxFilial('SC7')+"' " cQry += " AND SC7_PRIN.D_E_L_E_T_ = ' ' " cQry += " ) TAB_AUX ON ( " cQry += " SC7.C7_NUM = TAB_AUX.PEDIDO " cQry += " AND SC7.C7_ITEM = TAB_AUX.ULT_ITEM " cQry += " ) " cQry += " WHERE " cQry += " SC7.C7_FILIAL = '"+FWxFilial('SC7')+"' " cQry += " AND SC7.D_E_L_E_T_ = ' ' " //Montando retorno do ponto de entrada cRet := " R_E_C_N_O_ IN ("+cQry+") "Return cRet |
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;