Page History

Utlizado na geração da DCTF através do Módulo Livros Fiscais, para tratamento das filiais da empresa corrente.

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)