Ponto de Entrada – OM200QRY

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;

Links:

– Pesquisa no TDN