?{"Nome do Arquivo INI","DMA.INI" } ?{"Descicao Completa do Arquivo Magnetico","Declaracao e Apuracao Mensal do ICMS"} ?{"A Quem se Destina","Contribuintes inscritos no cadastro estadual na condicao de contribuintes normais, inclusive os que optarem pelo pagamento do imposto pelo regime de apuracao em funcao da receita bruta, exceto os estabelecimentos inscritos sob o codigo de atividade 6312-6/03 (deposito de mercadorias proprias)."} ?{"Objetivo","Gerar arquivo pre-formatado para importacao da Declaracao e Apuracao Mensal do ICMS."} ?{"Prazo de Entrega","Mensal, ate o dia 07, relativa as operacoes do mes anterior."} ?{"Aplicativo Disponibilizado pelo Fisco","DMA"} ?{"Versao do Aplicativo Contemplada pela Microsiga","5.12W"} ?{"Comentarios",""} [XXX Inicializacao] (PRE) lExitPFil := IIf(lAglFil, .T., .F.) (PRE) _aTotal[9] := Pergunte("DMABA1",.T.) (PRE) _aTotal[99] := DadosDma() (PRE) _aTotal[98] := ArqDMA(mv_par02,mv_par01) (PRE) _aTotal[96] := ArqMunDMA(mv_par02,mv_par01) (PRE) lAbtMt950 := Len (_aTotal[98])==0 [SM0 Registro Tipo 00 - Transmissor Responsavel ] (PRE) _aTotal[7] :="Para a perfeita integridade dos dados apurados, será necessário realizar uma " (PRE) _aTotal[7] +="apuração do período correspondente do ICMS e do COFINS, caso sejam informados períodos " (PRE) _aTotal[7] +="distintos os valores poderão apresentar diferenças em suas apurações."+CHR(13)+CHR(10)+CHR(13)+CHR(10) (PRE) _aTotal[7] +="Preencha os dados adicionais corretamente para que o arquivo magnético contenha " (PRE) _aTotal[7] +="todos os dados necessários." (PRE) _aTotal[8] :="DMA - Declaração e Apuração Mensal do ICMS (BA)." (PRE) _aTotal[95] :="Quadros 19 e 20 não gerados. Verifique inconsistências na configuração da tabela F2P." (PRE) MsgInfo(_aTotal[7],_aTotal[8]) (PRE) Iif(!_aTotal[98][68],MsgInfo(_aTotal[95],_aTotal[8]),.T.) (PREREG) FWGrpCompany()==cEmpAnt .And. FWCodFil()==cFilAnt .And. _aTotal[9] SEQ01 C 002 0 "00" SEQ02 C 005 0 "DMA " SEQ03 C 001 0 "O" SEQ04 C 011 0 RetChar(Substr(ALLTRIM(_aTotal[99][2]),1,11),.T.,.F.,.F.,.T.,.F.,11,.T.) SEQ05 C 035 0 RetChar(Substr(ALLTRIM(_aTotal[99][1]),1,35),.T.,.T.,.T.,.F.,.T.,35,.T.) SEQ06 C 004 0 "2010" SEQ07 C 016 0 " 512w" (POSREG) (POS) [SM0 Registro Tipo 01 - Transmissor Responsavel ] (PRE) _aTotal[97] := RetChar(Substr(ALLTRIM(SM0->M0_INSC),1,9),.T.,.F.,.F.,.T.,.F.,9,.T.) (PREREG) FWGrpCompany()==cEmpAnt .And. FWCodFil()==cFilAnt .And. _aTotal[9] SEQ01 C 002 0 "01" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 Iif(mv_par03 = 1,"S","N") SEQ06 C 001 0 Iif(mv_par04 = 1,"S","N") SEQ07 C 001 0 Iif(mv_par05 = 1,"S","N") SEQ08 C 001 0 Iif(mv_par06 = 1,"S","N") SEQ09 C 008 0 mv_par07 SEQ10 C 050 0 RetChar(Substr(ALLTRIM(SM0->M0_NOMECOM),1,50),.T.,.T.,.T.,.F.,.T.,50,.T.) SEQ11 C 005 0 Retchar(Substr(IIf(ALLTRIM(mv_par10)<>"",mv_par10,SM0->M0_CODMUN),3,5),.T.,.F.,.T.,.F.,.F.,5,.T.) SEQ12 C 007 0 Substr(SM0->M0_CNAE,1,7) SEQ13 C 002 0 "00" SEQ14 C 001 0 Iif(mv_par08 = 1,"S","N") (POSREG) [TUF Registro Tipo 08 - Entradas SINIEF da DMA ] (PRE) _aTotal[1] := 0 (PRE) _aTotal[2] := 0 (PRE) _aTotal[3] := 0 (PRE) _aTotal[4] := 0 (PRE) _aTotal[5] := 0 (PRE) TUF->(dbGotop()) (PREREG) TUF->TIPOREG == "08" SEQ01 C 002 0 "08" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 002 0 TUF->UF SEQ06 N 012 0 (TUF->VALCONT) * 100 SEQ07 N 012 0 (TUF->VALBASE) * 100 SEQ08 N 012 0 (TUF->VALOUTR) * 100 SEQ09 N 012 0 (TUF->VALSUBP) * 100 SEQ10 N 012 0 (TUF->VALSUBT) * 100 (POSREG) _aTotal[1] += noRound(TUF->VALCONT) (POSREG) _aTotal[2] += noRound(TUF->VALBASE) (POSREG) _aTotal[3] += noRound(TUF->VALOUTR) (POSREG) _aTotal[4] += noRound(TUF->VALSUBP) (POSREG) _aTotal[5] += noRound(TUF->VALSUBT) (POS) [TEP Registro Tipo 08 - Entradas SINIEF da DMA ] (PREREG) SEQ01 C 002 0 "08" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 002 0 "ZZ" SEQ06 N 012 0 (_aTotal[1]) * 100 SEQ07 N 012 0 (_aTotal[2]) * 100 SEQ08 N 012 0 (_aTotal[3]) * 100 SEQ09 N 012 0 (_aTotal[4]) * 100 SEQ10 N 012 0 (_aTotal[5]) * 100 (POSREG) (POS) [TUF Registro Tipo 09 - Saidas SINIEF da DMA ] (PRE) _aTotal[1] := 0 (PRE) _aTotal[2] := 0 (PRE) _aTotal[3] := 0 (PRE) _aTotal[4] := 0 (PRE) _aTotal[5] := 0 (PRE) _aTotal[6] := 0 (PRE) TUF->(dbGotop()) (PREREG) TUF->TIPOREG == "09" SEQ01 C 002 0 "09" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 002 0 TUF->UF SEQ06 N 012 0 (TUF->VALNCONT) * 100 SEQ07 N 012 0 (TUF->VALCONT) * 100 SEQ08 N 012 0 (TUF->VALNBASE) * 100 SEQ09 N 012 0 (TUF->VALBASE) * 100 SEQ10 N 012 0 (TUF->VALOUTR) * 100 SEQ11 N 012 0 (TUF->VALSUBT) * 100 (POSREG) _aTotal[1] += noRound(TUF->VALNCONT) (POSREG) _aTotal[2] += noRound(TUF->VALCONT) (POSREG) _aTotal[3] += noRound(TUF->VALNBASE) (POSREG) _aTotal[4] += noRound(TUF->VALBASE) (POSREG) _aTotal[5] += noRound(TUF->VALOUTR) (POSREG) _aTotal[6] += noRound(TUF->VALSUBT) (POS) [TEP Registro Tipo 09 - Entradas SINIEF da DMA ] (PREREG) SEQ01 C 002 0 "09" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 002 0 "ZZ" SEQ06 N 012 0 (_aTotal[1]) * 100 SEQ07 N 012 0 (_aTotal[2]) * 100 SEQ08 N 012 0 (_aTotal[3]) * 100 SEQ09 N 012 0 (_aTotal[4]) * 100 SEQ10 N 012 0 (_aTotal[5]) * 100 SEQ11 N 012 0 (_aTotal[6]) * 100 (POSREG) (POS) [OPE Registro Tipo 10 - Entradas da DMA] (PRE) _aTotal[1] := 0 (PRE) _aTotal[2] := 0 (PRE) _aTotal[3] := 0 (PRE) _aTotal[4] := 0 (PRE) OPE->(dbGotop()) (PREREG) OPE->ENTSAI == "E" SEQ01 C 002 0 "10" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 OPE->ENTSAI SEQ06 C 001 0 OPE->NUMDET SEQ07 C 002 0 OPE->TIPODET SEQ08 N 012 0 (OPE->VALCONT) * 100 SEQ09 N 012 0 (OPE->VALBASE) * 100 SEQ10 N 012 0 (OPE->ISENICM) * 100 SEQ11 N 012 0 (OPE->VALOUTR) * 100 (POSREG) _aTotal[1] += noRound(OPE->VALCONT) (POSREG) _aTotal[2] += noRound(OPE->VALBASE) (POSREG) _aTotal[3] += noRound(OPE->ISENICM) (POSREG) _aTotal[4] += noRound(OPE->VALOUTR) (POS) [TEP Registro Tipo 10 - Totalizador de Entradas da DMA] SEQ01 C 002 0 "10" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "E" SEQ06 C 001 0 "9" SEQ07 C 002 0 "99" SEQ08 N 012 0 (_aTotal[1]) * 100 SEQ09 N 012 0 (_aTotal[2]) * 100 SEQ10 N 012 0 (_aTotal[3]) * 100 SEQ11 N 012 0 (_aTotal[4]) * 100 (POSREG) (POS) [OPE Registro Tipo 11 - Saidas da DMA] (PRE) _aTotal[1] := 0 (PRE) _aTotal[2] := 0 (PRE) _aTotal[3] := 0 (PRE) _aTotal[4] := 0 (PRE) OPE->(dbGotop()) (PREREG) OPE->ENTSAI == "S" SEQ01 C 002 0 "11" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 OPE->ENTSAI SEQ06 C 001 0 OPE->NUMDET SEQ07 C 002 0 OPE->TIPODET SEQ08 N 012 0 (OPE->VALCONT) * 100 SEQ09 N 012 0 (OPE->VALBASE) * 100 SEQ10 N 012 0 (OPE->ISENICM) * 100 SEQ11 N 012 0 (OPE->VALOUTR) * 100 (POSREG) _aTotal[1] += noRound(OPE->VALCONT) (POSREG) _aTotal[2] += noRound(OPE->VALBASE) (POSREG) _aTotal[3] += noRound(OPE->ISENICM) (POSREG) _aTotal[4] += noRound(OPE->VALOUTR) (POS) [TEP Registro Tipo 11 - Totalizador de Saidas da DMA] (PREREG) SEQ01 C 002 0 "11" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "S" SEQ06 C 001 0 "9" SEQ07 C 002 0 "99" SEQ08 N 012 0 (_aTotal[1]) * 100 SEQ09 N 012 0 (_aTotal[2]) * 100 SEQ10 N 012 0 (_aTotal[3]) * 100 SEQ11 N 012 0 (_aTotal[4]) * 100 (POSREG) (POS) [INV Registro Tipo 12 - DEMONSTRATIVO DO ESTOQUE Inicial] (PREREG) SEQ01 C 002 0 "12" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "I" SEQ06 C 002 0 INV->NATUREZA SEQ07 N 012 0 (INV->I_VALTRIB) * 100 SEQ08 N 012 0 (INV->I_ISENICM) * 100 SEQ09 N 012 0 (INV->I_OUTRICM) * 100 SEQ10 N 012 0 (INV->I_VALTOTAL)* 100 (POS) [INVF Registro Tipo 12 - DEMONSTRATIVO DO ESTOQUE Inicial] (PREREG) SEQ01 C 002 0 "12" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "F" SEQ06 C 002 0 INVF->NATUREZA SEQ11 N 012 0 (INVF->F_VALTRIB) * 100 SEQ12 N 012 0 (INVF->F_ISENICM) * 100 SEQ13 N 012 0 (INVF->F_OUTRICM) * 100 SEQ14 N 012 0 (INVF->F_VALTOTAL) * 100 (POS) [TEP Registro Tipo 13 - Valores Dedutíveis da DMA] (PREREG) SEQ01 C 002 0 "13" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "E" SEQ06 N 012 0 _aTotal[98][1] SEQ07 N 012 0 _aTotal[98][2] SEQ08 N 012 0 _aTotal[98][3] SEQ09 N 012 0 _aTotal[98][27] SEQ10 N 012 0 _aTotal[98][9] SEQ11 N 012 0 _aTotal[98][4] SEQ12 N 012 0 _aTotal[98][7] (POSREG) (POS) [TEP Registro Tipo 13 - Valores Dedutíveis da DMA] (PREREG) SEQ01 C 002 0 "13" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "S" SEQ06 N 012 0 0 SEQ07 N 012 0 0 SEQ08 N 012 0 0 SEQ09 N 012 0 0 SEQ10 N 012 0 _aTotal[98][42] SEQ11 N 012 0 _aTotal[98][6] SEQ12 N 012 0 _aTotal[98][8] (POSREG) (POS) [TEP Registro Tipo 14 - Apuração da DMA] (PREREG) SEQ01 C 002 0 "14" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 N 012 0 (Round(_aTotal[98][11],2)) * 100 SEQ06 N 012 0 (Round(_aTotal[98][12],2)) * 100 SEQ07 N 012 0 (Round(_aTotal[98][13],2)) * 100 SEQ08 N 012 0 (Round(_aTotal[98][14],2)) * 100 SEQ09 N 012 0 (Round(_aTotal[98][15],2)) * 100 SEQ10 N 012 0 (Round(_aTotal[98][16],2)) * 100 SEQ11 N 012 0 (Round(_aTotal[98][17],2)) * 100 (POSREG) (POS) [TEP Registro Tipo 15 - Apuração da DMA(cont. do tipo 14)] (PREREG) SEQ01 C 002 0 "15" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 N 012 0 (Round(_aTotal[98][18],2)) * 100 SEQ06 N 012 0 (Round(_aTotal[98][19],2)) * 100 SEQ07 N 012 0 (Round(_aTotal[98][20],2)) * 100 SEQ08 N 012 0 (Round(_aTotal[98][21],2)) * 100 SEQ09 N 012 0 (Round(_aTotal[98][22],2)) * 100 SEQ10 N 012 0 (Round(_aTotal[98][23],2)) * 100 SEQ11 N 012 0 (Round(_aTotal[98][43],2)) * 100 (POSREG) (POS) [TEP Registro Tipo 16 - Valores Diversos da DMA] (PREREG) SEQ01 C 002 0 "16" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 N 012 0 _aTotal[98][25] SEQ06 N 012 0 _aTotal[98][24] SEQ07 C 012 0 RetChar(str(_aTotal[98][26],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ08 N 012 0 0 SEQ09 N 012 0 0 SEQ10 N 012 0 0 (POSREG) (POS) [TEP Registro Tipo 17 - Valores Diversos da DMA] (PREREG) SEQ01 C 002 0 "17" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 N 006 0 Val(_aTotal[99][16]) SEQ06 N 007 0 Val(_aTotal[99][17]) SEQ07 C 011 0 RetChar(str(_aTotal[98][34],9,2),.T.,.F.,.F.,.T.,.F.,11,.F.) SEQ08 C 012 0 RetChar(str(_aTotal[98][29],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ09 C 012 0 RetChar(str(_aTotal[98][30],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ10 C 012 0 RetChar(str(_aTotal[98][31],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ11 C 012 0 RetChar(str(_aTotal[98][32],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ12 C 012 0 RetChar(str(_aTotal[98][33],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) (POSREG) (POS) [TEP Registro Tipo 18 - Valores Diversos da DMA] (PREREG) SEQ01 C 002 0 "18" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 N 012 0 SEQ06 C 012 0 RetChar(str(_aTotal[98][49],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ07 C 012 0 RetChar(str(_aTotal[98][51],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ08 C 012 0 RetChar(str(_aTotal[98][52],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ09 C 012 0 RetChar(str(_aTotal[98][57],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ10 C 012 0 RetChar(str(_aTotal[98][58],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ11 C 012 0 RetChar(str(_aTotal[98][62],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) (POSREG) (POS) [TEP Registro Tipo 19 - Valores Diversos da DMA] (PREREG) SEQ01 C 002 0 "19" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 012 0 RetChar(str(_aTotal[98][59],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ06 C 012 0 RetChar(str(_aTotal[98][60],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ07 C 012 0 RetChar(str(_aTotal[98][61],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ08 C 012 0 RetChar(str(_aTotal[98][50],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ09 C 012 0 RetChar(str(_aTotal[98][53],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ10 C 012 0 RetChar(str(_aTotal[98][54],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ11 C 012 0 RetChar(str(_aTotal[98][55],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) (POSREG) (POS) [TEP Registro Tipo 20 - Valores Diversos da DMA] (PREREG) SEQ01 C 002 0 "20" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 012 0 RetChar(str(_aTotal[98][56],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ06 C 012 0 RetChar(str(_aTotal[98][63],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ07 C 012 0 RetChar(str(_aTotal[98][64],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ08 C 012 0 RetChar(str(_aTotal[98][65],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ09 C 012 0 RetChar(str(_aTotal[98][66],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) SEQ10 C 012 0 RetChar(str(_aTotal[98][67],10,2),.T.,.F.,.F.,.T.,.F.,12,.F.) (POSREG) (POS) [TEP Registro Tipo 21 - Registro de contabilista da DMA] (PREREG) SEQ01 C 002 0 "21" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 007 0 RetChar(Substr(Alltrim(Str(val(_aTotal[99][4]))),1,7),.T.,.F.,.T.,.F.,.F.,7,.T.) SEQ06 C 002 0 _aTotal[99][5] SEQ07 C 035 0 _aTotal[99][3] SEQ08 C 003 0 substr(_aTotal[99][6],1,3) SEQ09 C 030 0 _aTotal[99][7] SEQ10 C 002 0 _aTotal[99][8] (POSREG) (POS) [TEP Registro Tipo 22 - Registro de contabilista da DMA(continuação do tipo 21)] (PREREG) SEQ01 C 002 0 "22" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 016 0 RetChar(Substr(Alltrim(_aTotal[99][9]),1,16),.F.,.T.,.F.,.F.,.F.,16,.T.) SEQ06 C 009 0 RetChar(Substr(Alltrim(_aTotal[99][10]),1,9),.T.,.F.,.T.,.F.,.F.,9,.T.) SEQ07 C 016 0 Substr(Alltrim(_aTotal[99][13]),1,16) SEQ08 C 008 0 Substr(Alltrim(_aTotal[99][11]),1,8) SEQ09 C 005 0 RetChar(Substr(ALLTRIM(_aTotal[99][12]),1,5),.T.,.F.,.T.,.F.,.F.,5,.T.) SEQ10 C 030 0 RetChar(Substr(Alltrim(_aTotal[99][14]),1,30),.F.,.T.,.F.,.F.,.F.,30,.T.) (POSREG) (POS) [TCM Registro Tipo 30 - CS-DMA - Entradas] (PRE) TCM->(dbGotop()) (PREREG) TCM->TIPOREG == "30" .And. mv_par09 == 1 SEQ01 C 002 0 "30" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "E" SEQ06 C 005 0 TCM->CODMUN SEQ07 N 012 0 (TCM->VALBASE) * 100 SEQ08 N 012 0 (TCM->VALISEN) * 100 SEQ09 N 012 0 (TCM->VALOUTR) * 100 (POSREG) (POS) [TCM Registro Tipo 31 - CS-DMA - Saídas] (PRE) TCM->(dbGotop()) (PREREG) TCM->TIPOREG == "31" .And. mv_par09 == 1 SEQ01 C 002 0 "31" SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ05 C 001 0 "S" SEQ06 C 005 0 TCM->CODMUN SEQ07 N 012 0 (TCM->VALBASE) * 100 SEQ08 N 012 0 (TCM->VALISEN) * 100 SEQ09 N 012 0 (TCM->VALOUTR) * 100 (POSREG) (POS) [TAW Registros 40 a 92] (PRE) TAW->(dbGotop()) (PREREG) TAW->VALBASE > 0 .OR. TAW->ISENICM > 0 .OR. TAW->VALOUTR > 0 SEQ01 C 002 0 TAW->TPREG SEQ02 N 004 0 mv_par01 SEQ03 C 002 0 RetChar(str(mv_par02),.T.,.F.,.F.,.T.,.F.,2,.T.) SEQ04 C 009 0 _aTotal[97] SEQ07 N 012 2 TAW->VALBASE SEQ08 N 012 2 TAW->ISENICM SEQ09 N 012 2 TAW->VALOUTR [TEP Registro Tipo 99 - Finalizacao do Arquivo] (PRE) (PREREG) SEQ01 C 002 0 "99" SEQ02 N 005 0 1 (POSREG) (POS) [XXX Encerramento] (PRE) dbSelectArea("TUF") (PRE) dbCloseArea() (PRE) Ferase(_aTotal[98][44]+GetDBExtension()) (PRE) Ferase(_aTotal[98][44]+OrdBagExt()) (PRE) dbSelectArea("OPE") (PRE) dbCloseArea() (PRE) Ferase(_aTotal[98][45]+GetDBExtension()) (PRE) Ferase(_aTotal[98][45]+OrdBagExt()) (PRE) dbSelectArea("TEP") (PRE) dbCloseArea() (PRE) Ferase(_aTotal[98][46]+GetDBExtension()) (PRE) Ferase(_aTotal[98][46]+OrdBagExt()) (PRE) dbSelectArea("SA1") (PRE) dbSelectArea("INV") (PRE) dbCloseArea() (PRE) Ferase(_aTotal[98][47]+GetDBExtension()) (PRE) Ferase(_aTotal[98][47]+OrdBagExt()) (PRE) dbSelectArea("INVF") (PRE) dbCloseArea() (PRE) Ferase(_aTotal[98][48]+GetDBExtension()) (PRE) Ferase(_aTotal[98][48]+OrdBagExt())