Exemplo do Ponto de Entrada OM200QRY.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"
/*--------------------------------------------------------------------------------------*
| P.E.: OM200QRY |
| Desc: P.E. executado antes de abrir a tela de carga |
| Link: http://tdn.totvs.com/display/public/mp/OM200QRY+-+Filtro+dos+Pedidos+--+16484 |
*--------------------------------------------------------------------------------------*/
User Function OM200QRY()
Local aArea := GetArea()
Local cQry := ParamIXB[1]
If MsgYesNo("Deseja filtrar os pedidos de Hojeç", "Atenção")
cQry += " AND SC5.C5_EMISSAO = '"+dToS(Date())+"' "
EndIf
RestArea(aArea)
Return cQry
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;