Ponto de Entrada – F200CNAB

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;

Links:

– Pesquisa no TDN