Page History

Exemplo:-------------------------------------------------------------------------      |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)