Linha Microsiga Protheus

Árvore de páginas

Conteúdo


01. VISÃO GERAL

Ponto de entrada utilizado na geração da DCTF através do Modelo Livros Fiscais, para tratamento das filiais

02. EXEMPLO DE UTILIZAÇÃO

A978CAD
/*/------------------------------------------------------------------------------------------------------------------------------------
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)