Page History

A978CAD - Geração de DCTF

MODELO DE IMPLEMENTAÇÃOPE utlizado na geração da DCTF através do Módulo Livros Fiscais, para tratamento das filiais da empresa corrente./*/-------------------------------------------------------------------------      |Programa  |A978CAD   |Autor  |Microsiga           | Data |             |-------------------------------------------------------------------------|Descricao |Ponto de Entrada para tratamento das filiais da empresa     ||          |corrente.                                                   |-------------------------------------------------------------------------   |Uso       |DCTF - Declaracao de Debitos e Creditos Tributarios Federais|-------------------------------------------------------------------------   /*/User Function A978CAD()Local aFilial	:=	{}Local cEmpresa	:=	ParamIxb[1]	//Empresa correnteLocal cFilDe	:=	ParamIxb[2]	//Filial De  Local cFilAte	:=	ParamIxb[3]	//Filial AteLocal cFilDes	:=	"02/03"		//Filiais a desconsiderar no processamento//Tabela SM0 ja se encontra posicionada na empresa correnteWhile !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())EndDoReturn(aFilial)