Exemplo do Ponto de Entrada M460QRY.
Exemplo do Ponto de Entrada:
//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;