Histórico da Página

/*/------------------------------------------------------------------------------------------------------------------------------------
MODELO DE IMPLEMENTAÇÃOPE utlizado na geração da DCTF através do Módulo Livros Fiscais, para tratamento das filiais da empresa corrente.
|Ponto de Entrada para tratamento das filiais da empresa  
|DCTF - Declaracao de Debitos e Creditos Tributarios Federais
/*/
//--------------------------------------------------------------------------------------------------------------------------------------

User Function A978CAD()
Local aFilial	:=	{}
Local cEmpresa	:=	ParamIxb[1]	//Empresa corrente
Local cFilDe	:=	ParamIxb[2]	//Filial De  
Local cFilAte	:=	ParamIxb[3]	//Filial Ate
Local cFilDes	:=	"02/03"		//Filiais a desconsiderar no processamento

//Tabela SM0 ja se encontra posicionada na empresa corrente
While !SM0->(Eof()) .And. (SM0->M0_CODIGO==cEmpresa) .And. (SM0->M0_CODFIL<=cFilAte)	
	If !(SM0->M0_CODFIL $ cFilDes)	    
		AADD(aFilial,{SM0->M0_CGC,SM0->M0_CODIGO,SM0->M0_CODFIL})		
	Endif	
	SM0->(dbSkip())
EndDo
Return(aFilial)