Exemplo do Ponto de Entrada F200CNAB.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*---------------------------------------------------------------------------------*
| P.E.: F200CNAB |
| Desc: Ponto de entrada antes do retorno, para filtrar apenas a Filial atual |
*--------------------------------------------------------------------------------*/
User Function F200CNAB()
Local aArea := GetArea()
Local lRet := .T.
//Filtrando apenas a filial corrente
dbSelectArea('SE1')
SE1->(DbSetOrder(13)) //E1_FILIAL+E1_ORDPAGO
SE1->(DbSetFilter({|| SE1->E1_FILIAL = FWxFilial('SE1')}, "E1_FILIAL = '"+FWxFilial('SE1')+"'"))
RestArea(aArea)
Return lRet
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;