Exemplo do Ponto de Entrada M460QRY.
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 | //Bibliotecas#Include 'Protheus.ch'#Include 'RwMake.ch'#Include 'TopConn.ch'//Constantes#Define STR_PULA Chr(13)+Chr(10)/*------------------------------------------------------------------------------------------------------* | P.E.: M460QRY | | Desc: Filtra a tela de markbrowse para não mostrar pedidos em situação X | | Links: http://tdn.totvs.com/pages/releaseview.actionçpageId=6784189 | *------------------------------------------------------------------------------------------------------*/User Function M460QRY() Local aArea := GetArea() Local cQuery := ParamIXB[1] cQuery += " AND (SELECT " cQuery += " COUNT(C5_NUM) AS C5_COUNT " cQuery += " FROM " cQuery += " "+RetSqlName("SC5")+" SC5 " cQuery += " WHERE " cQuery += " SC5.C5_FILIAL = SC9.C9_FILIAL " cQuery += " AND SC5.C5_NUM = SC9.C9_PEDIDO " cQuery += " AND SC5.C5_X_CAMPX != '' " cQuery += " AND SC5.D_E_L_E_T_ = ' ') <= 0 "Return(cQuery) |
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;