?{"Nome do arquivo INI", "DIMESC.INI"}
?{"Descrição completa do arquivo magnético","Declaração do ICMS e do Movimento Econômico."}
?{"A quem se destina","Aos contribuintes que informarem a Secretaria da Fazenda o resumo mensal das suas operações e prestações registradas no Livro de Apuração do ICMS."}
?{"Objetivo","As empresas que prestam informações registradas em Livro de Apuração do ICMS deverão também entregar em meio-magnético a DIME."}
?{"Prazo de entrega","Até o dia 10 do mês subsequente a ocorrência do fato gerador."}
?{"Aplicativo disponibilizado pelo fisco","DIME"}
?{"Versão do aplicativo contemplado pela Microsiga","SAT"}
?{"Comentários","Este meio-magnético trata do regime de apuração Normal conforme o RICMS do estado de Santa Catarina."}
[XXX Inicializacao]
(PRE) _aTotal[009] := 0
(PRE) _aTotal[010] := 0
(PRE) _aTotal[011] := 0
(PRE) _aTotal[012] := 0
(PRE) _aTotal[013] := 0
(PRE) _aTotal[014] := 0
(PRE) _aTotal[015] := 0
(PRE) _aTotal[016] := 0
(PRE) _aTotal[017] := 0
(PRE) _aTotal[018] := 0
(PRE) _aTotal[036] := {}
(PRE) _aTotal[047] := 0
(PRE) _aTotal[073] := 0
(PRE) _aTotal[074] := 0 
(PRE) _aTotal[075] := 0 
(PRE) _aTotal[076] := 0 
(PRE) _aTotal[077] := 0
(PRE) _atotal[078] := 0 
(PRE) _atotal[079] := 0   
(PRE) _aTotal[045] := {}
(PRE) _aTotal[045] := DIMESC()
(PRE) lAbtMt950	:=	Len (_aTotal[045])==0
(PRE) _aTotal[044] := SF3->(FieldPos("F3_TRFICM"))>0
(PRE) _aTotal[046] := Iif(GetNewPar("MV_SIMPLSC",.F.) .And.(("ME (Microempresa)"$_aTotal[045][2][4]) .Or. ("EPP (Empresa Peq. Porte)"$_aTotal[045][2][4])) ,.T.,.F.)

[XXX ****************************** REGISTRO TIPO 20 - Dados do Contabilista/Responsavel **********************************]
[XXX Registro Tipo 20 - Dados do Contabilista/Responsavel.]
(PRE) _aTotal[047]++
(PREREG) Len (_aTotal[045])>0
(PREREG) DIME20 (_aTotal[045])

[XXX ****************************** REGISTRO TIPO 21 - Inicio declaracao **********************************]
[XXX Registro Tipo 21 - Inicio da Declaracao.]
(PRE) _aTotal[047]++
(PREREG) Len (_aTotal[045])>0
(PREREG) DIME21 (_aTotal[045])

[XXX ****************************** REGISTRO TIPO 22 - Valores Fiscais Entrada **********************************]
[CFO Registro Tipo 22 - Valores Fiscais Entrada - Quadro 01]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"CFOP",},{"VLCONT","Vlr Contabil"},{"BSCALC","Base Calculo"},{"IMPCRED","Imp. Creditado"},{"ISENTNTRIB","Isenta/N.Trib."},{"OUTRAS","Outras"},{"BSCALCRET","Base Calc Imp Ret"},{"ICMSRET","Imp. Retido"},{"DIFALIQ","Dif. Aliquota"}}
(LEG)""
(PRE) CFO->(DbGoTop ())
(PREREG) SubStr (AllTrim (CFO->CFOP), 1)<"5"
(PREREG) (_atotal[009] += CFO->VALCONT, .T.)
(PREREG) (_atotal[010] += CFO->BASEICM, .T.)
(PREREG) (_atotal[011] += CFO->VALICM+Iif (_aTotal[044], CFO->TRFICM, 0), .T.)
(PREREG) (_atotal[012] += CFO->ISENICM, .T.)
(PREREG) (_atotal[013] += CFO->OUTRICM, .T.)
(PREREG) (_atotal[074] += CFO->BASERET, .T.)
(PREREG) (_atotal[075] += CFO->ICMSRET, .T.)
(PREREG) (_atotal[078] += CFO->ICMSCOM, .T.)
(PREREG) (_atotal[073] += Iif (AllTrim (CFO->CFOP)$&(GetNewPar("MV_GIASC01","{'',''}"))[1], -1*CFO->VALCONT, 0), .T.)
(PREREG) CFO->VALCONT+CFO->BASEICM+CFO->VALICM+CFO->TRFICM+CFO->ISENICM+CFO->OUTRICM>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "22"
QUADRO     C 002 0 "01"
CFOP       N 005 0 Val (CFO->CFOP)
VLCONT     N 017 2 CFO->VALCONT
BSCALC     N 017 2 CFO->BASEICM
IMPCRED    N 017 2 CFO->VALICM+Iif (_aTotal[044], CFO->TRFICM, 0)
ISENTNTRIB N 017 2 CFO->ISENICM
OUTRAS     N 017 2 CFO->OUTRICM
BSCALCRET  N 017 2 CFO->BASERET
ICMSRET    N 017 2 CFO->ICMSRET
DIFALIQ    N 017 2 CFO->ICMSCOM

[XXX ****************************** REGISTRO TIPO 23 - Valores Fiscais Saida **********************************]
[CFO Registro Tipo 23 - Valores Fiscais Saida - Quadro 02]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"CFOP",},{"VLCONT","Vlr Contabil"},{"BSCALC","Base Calculo"},{"IMPDEB","Imp. Debitado"},{"ISENTNTRIB","Isenta/N.Trib."},{"OUTRAS","Outras"},{"BSCALCRET","Base Calc Imp Ret"},{"ICMSRET","Imp. Retido"}}
(LEG)""
(PRE) CFO->(DbGoTop ())
(PREREG) SubStr (AllTrim (CFO->CFOP), 1)>="5"
(PREREG) (_atotal[014] += CFO->VALCONT, .T.)
(PREREG) (_atotal[015] += CFO->BASEICM, .T.)
(PREREG) (_atotal[016] += CFO->VALICM+Iif (_aTotal[044], CFO->TRFICM, 0), .T.)
(PREREG) (_atotal[017] += CFO->ISENICM, .T.)
(PREREG) (_atotal[018] += CFO->OUTRICM, .T.)
(PREREG) (_atotal[076] += CFO->BASERET, .T.)
(PREREG) (_atotal[077] += CFO->ICMSRET, .T.)
(PREREG) (_atotal[079] += 1, .T.)
(PREREG) (_atotal[073] += Iif (AllTrim (CFO->CFOP)$&(GetNewPar("MV_GIASC01",{"",""}))[1], CFO->VALCONT, 0), .T.)
(PREREG) CFO->VALCONT+CFO->BASEICM+CFO->VALICM+CFO->TRFICM+CFO->ISENICM+CFO->OUTRICM>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "23"
QUADRO     C 002 0 "02"
CFOP       N 005 0 Val (CFO->CFOP)
VLCONT     N 017 2 CFO->VALCONT
BSCALC     N 017 2 CFO->BASEICM
IMPDEB     N 017 2 CFO->VALICM+Iif (_aTotal[044], CFO->TRFICM, 0)
ISENTNTRIB N 017 2 CFO->ISENICM
OUTRAS     N 017 2 CFO->OUTRICM
BSCALCRET  N 017 2 CFO->BASERET
ICMSRET    N 017 2 CFO->ICMSRET
BRANCO     N 017 0 Val("00000000000000000")

[XXX ************************************* REGISTRO TIPO 24 *********************************************]
[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Quadro 03]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PREREG) _aTotal[009]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "010"
VALOR      N 017 2 _aTotal[009]
                    
[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Base Calculo (020)]
(PREREG) _aTotal[010]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "020"
VALOR      N 017 2 _aTotal[010]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Imposto creditado (030)]
(PREREG) _aTotal[011]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "030"
VALOR      N 017 2 _aTotal[011]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Operacoes isentas/nao tributadas (040)]
(PREREG) _aTotal[012]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24" 
QUADRO     C 002 0 "03"
ITEM       C 003 0 "040"
VALOR      N 017 2 _aTotal[012]
            
[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Outras operacoes sem credito de imposto (050)]
(PREREG) _aTotal[013]>0  
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "050"
VALOR      N 017 2 _aTotal[013] 

[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Base de Calculo Imposto Retido (053)]
(PREREG) _atotal[074]>0  
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "053"
VALOR      N 017 2 _atotal[074] 

[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Imposto Retido (054)]
(PREREG) _atotal[075]>0  
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "054"
VALOR      N 017 2 _atotal[075]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de entrada - Imposto Diferencial Aliquota (057)]
(PREREG) _atotal[078]>0  
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "057"
VALOR      N 017 2 _atotal[078]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Valor contabil (060)]
(PREREG) _aTotal[014]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "060"
VALOR      N 017 2 _aTotal[014]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Base de calculo (070)]
(PREREG) _aTotal[015]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "070"
VALOR      N 017 2 _aTotal[015]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Imposto debitado (080)]
(PREREG) _aTotal[016]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "080"
VALOR      N 017 2 _aTotal[016]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Operacoes isentas/nao tributadas (090)]
(PREREG) _aTotal[017]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "090"
VALOR      N 017 2 _aTotal[017]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Outras operacoes sem debito do imposto (100)]
(PREREG) _aTotal[018]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "100"
VALOR      N 017 2 _aTotal[018]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Base de Calculo Imposto Retido (103)]
(PREREG) _atotal[076]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "103"
VALOR      N 017 2 _atotal[076] 

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Imposto Retido (104)]
(PREREG) _atotal[077]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "104"
VALOR      N 017 2 _atotal[077]

[XXX Registro Tipo 24 - Resumo dos valores fiscais de saida - Branco (199)]
(PREREG) (dDatabase < CTOD("01/09/13"))
(PREREG) _atotal[079]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "24"
QUADRO     C 002 0 "03"
ITEM       C 003 0 "199"
VALOR      N 017 2 _atotal[079]

[XXX ****************************** REGISTRO TIPO 25 - Somente Regime de apuracao Normal **********************************]
[TRB Registro Tipo 25 - Resumo das apuracoes dos Debitos - Quadro 04]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("25"))
(PREREG) "25"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "25"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************* REGISTRO TIPO 26 - Somente para Regime de apuracao Normal *************************************]
[TRB Registro Tipo 26 - Resumo das apuracoes dos Creditos - Quadro 05]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("26"))
(PREREG) "26"$TRB->TRB_REGIST
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "26"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************************* REGISTRO TIPO 27 *********************************************]
[XXX Registro Tipo 27 - Apuração para empresas no regime Simples - Quadro 06]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PREREG) Len (_aTotal[045])>0
(PREREG) _aTotal[046]
(PREREG) _aTotal[073]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "27"
QUADRO     C 002 0 "06"
ITEM       C 003 0 "010"
VALOR      N 017 2 _aTotal[073]

[XXX item 030]
(PREREG) Len (_aTotal[045])>0
(PREREG) _aTotal[046]
(PREREG) _aTotal[073]>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "27"
QUADRO     C 002 0 "06"
ITEM       C 003 0 "030"
VALOR      N 017 2 _aTotal[073]

[TRB item 040]
(PRE) TRB->(DbSeek ("27"))
(PREREG) "27"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "27"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************************* REGISTRO TIPO 28 ******************************************]
[TRB Registro Tipo 28 - Apuracao especial para Bares, restaurantes e Similares - Quadro 07]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("28"))
(PREREG) "28"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "28"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************************* REGISTRO TIPO 29 ******************************************]
[TRB Registro Tipo 29 - Apuracao do regime de estimativa fiscal - Quadro 08]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("29"))
(PREREG) "29"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "29"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************************* REGISTRO TIPO 30 *********************************************]
[TRB Registro Tipo 30 - Calculo Imposto a pagar ou saldo credor - Quadro 09]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("30")) 	
(PREREG) "30"$TRB->TRB_REGIST
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "30"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 IIf(TRB->TRB_VALOR >0, TRB->TRB_VALOR, 0)

[XXX ************************************* REGISTRO TIPO 31 *********************************************]
[TRB Registro Tipo 31 - Debitos especificos - Quadro 10]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("31"))
(PREREG) "31"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "31"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX REGISTRO TIPO 32 - Informacoes sobre Substituicao Tributaria - Processado somente quando nas perguntas estiver solecionado Substituto Solidario.]
[TRB Registro Tipo 32 - Informacoes sobre Substituicao Tributaria - Quadro 11]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("32"))
(PREREG) "32"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0 .Or. TRB->TRB_ITEM $ "999/170"
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "32"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************* Registro Tipo 33 - Discriminacao dos pagamentos do Imposto e dos debitos especificos***************************]
[GNR Registro Tipo 33 - Discriminacao dos pagamentos do Imposto e dos debitos especificos - Quadro 12]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ORIGEMREC","O"},{"CODRECEITA","CRec"},{"DATAVENC","Dt.Venc"},{"VALOR","Valor"},{"CLASSE","Class"},{"ACORDO","Num. Acordo"}}
(LEG)"O=Origem do Recolhimento(1=ICMS Normal, 2=ICMS ST e 3=Débitos Específicos), CRec=Código Receita, Class=Classe do vencimento"
(PRE) GNR->( DbGoTop() )
(PREREG) GNR->GNR_VALOR>0
(PREREG) _aTotal[047]++ 
TPREGISTRO C 002 0 "33"
QUADRO     C 002 0 GNR->GNR_QUADRO
ORIGEMREC  C 001 0 GNR->GNR_ORIGEM
CODRECEITA C 004 0 GNR->GNR_RECEIT
DATAVENC   C 008 0 GNR->GNR_DATA
VALOR      N 017 2 GNR->GNR_VALOR
CLASSE     C 005 0 GNR->GNR_CLVEN
ACORDO     C 015 0 Iif (Empty (GNR->GNR_ACORDO),"000000000000000",GNR->GNR_ACORDO)

[TRB Registro Tipo 34 - Informações sobre Diferença de Alíquota de Operação Interestadual à Consumidor(DIFAL) - Quadro 13]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("34"))
(PREREG) "34"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "34"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[TRB Registro tipo 35 - Demonstrativo da Apuração do Imposto Devido pela Apropriação de Crédito Presumido em Substituição aos Créditos pelas Entradas (DAICP) - Quadro 14]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("35"))
(PREREG) "35"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0 .OR. TRB->TRB_ITEM $ "199/040"  
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "35"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************************ Registro Tipo 41 - Demonstrativo de creditos acumulados*****************************************]
[TRB Registro tipo 41 - Demonstrativo de creditos acumulados - Quadro 41]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("41"))
(PREREG) "41"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "41"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro Tipo 42 *************************************************]
[TRB Registro tipo 42 - Creditos recebidos por transferencias - Quadro 42]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("42"))
(PREREG) "42"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "42"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro Tipo 43 *************************************************]
[TRB Registro tipo 43 - Creditos recebidos por transferencias - Quadro 43]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("43"))
(PREREG) "43"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "43"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro Tipo 44 *************************************************]
[TRB Registro Tipo 44 - Creditos presumidos - Quadro 44]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("44"))
(PREREG) "44"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "44"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro Tipo 45 *************************************************]
[TRB Registro Tipo 45 - Creditos por incentivos fiscais - Quadro 45]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("45"))
(PREREG) "45"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "45"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro Tipo 46 *************************************************]
[TRB Registro Tipo 46 - Creditos por regime especial - Quadro 46]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"DESCRICAO","Descrição"},{"VALOR","Valor"},{"ORIGEM","Or"}}
(LEG)"Or=Origem"
(PRE) TRB->(DbSeek ("46"))
(PREREG) "46"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "46"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
DESCRICAO  C 015 0 TRB->TRB_DESCRI
VALOR      N 017 2 TRB->TRB_VALOR
ORIGEM     N 002 0 TRB->TRB_ORIGEM

[XXX ********************************************* Registro Tipo 47 *************************************************]
[T4X Registro Tipo 47 - Compras de Extratores, Produtores Agropecuarios e Pescadores - Quadro 47]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"MUNICIPIO", "Munic"},{"VALOR","Vlr Compra"}}
(LEG)"Munic=Municipio"
(PRE)  T4X->( DbGoTop() )
(PRE) T4X->(DbSeek ("47"))
(PREREG) "47"$T4X->T4X_REGIST
(PREREG) T4X->T4X_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "47"
QUADRO     C 002 0 T4X->T4X_QUADRO
MUNICIPIO  C 005 0 T4X->T4X_MUNIC
VALOR      N 017 2 T4X->T4X_VALOR

[XXX ********************************************* Registro Tipo 48 *************************************************]
[R48 Registro Tipo 48 - Receita de prestacao de servico e fornecimento e energia eletrica - Quadro 48]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"MUNICIPIO", "Munic"},{"VALOR","Vlr Compra"}, {"TIPO","Tipo"}}
(LEG)"Munic=Municipio"
(PRE) R48->( DbGoTop() )
(PRE) R48->(DbSeek ("48"))
(PREREG) "48"$R48->R48_REGIST
(PREREG) R48->R48_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "48"
QUADRO     C 002 0 R48->R48_QUADRO
MUNICIPIO  C 005 0 R48->R48_MUNIC
VALOR      N 017 2 Round(R48->R48_VALOR,2)
TIPO       C 003 0 R48->R48_TIPO 		

[XXX ********************************************* Registro Tipo 49 *************************************************]
[TUF Registro Tipo 49 - Entradas por Unidade de Federacao - Quadro 49]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"UF",},{"VLRCONT","Vlr Contabil"},{"BSCALC","Base Calculo"},{"OUTRAS","Vlr Outras"},{"PETRENERG","Vlr Petr/Energ"},{"OUTRASST","Vlr Outras/ST"}}
(LEG)""
(PRE) TUF->(DbSeek ("49"))
(PREREG) "49"$TUF->TUF_REGIST
(PREREG) TUF->TUF_VLRCONT+TUF->TUF_BSCALC+TUF->TUF_OUTRAS+TUF->TUF_PETROL+TUF->TUF_OUTRST>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "49"
QUADRO     C 002 0 TUF->TUF_QUADRO
UF         C 002 0 TUF->TUF_UF
VLRCONT    N 017 2 TUF->TUF_VLRCONT
BSCALC     N 017 2 TUF->TUF_BSCALC
OUTRAS     N 017 2 TUF->TUF_OUTRAS
PETRENERG  N 017 2 TUF->TUF_PETROL
OUTRASST   N 017 2 TUF->TUF_OUTRST

[XXX ********************************************* Registro Tipo 50 *************************************************]
[TUF Registro Tipo 50 - Saidas por Unidade de Federacao - Quadro 50]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"UF",},{"VLNCONT","Vlr Cont NContr"},{"VLRCONT","Vlr Cont Contr"},{"BSNCAL","Bs Calc NContr"},{"BSCALC","Bs Calc Contr"},{"OUTRAS","Vlr Outras"},{"ICMSST","Vlr ICMS ST"}}
(LEG)""
(PRE) TUF->(DbSeek ("50"))
(PREREG) "50"$TUF->TUF_REGIST
(PREREG) TUF->TUF_VLNCONT+TUF->TUF_VLRCONT+TUF->TUF_BSNCAL+TUF->TUF_BSCALC+TUF->TUF_OUTRAS+TUF->TUF_ICMSST>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "50"
QUADRO     C 002 0 TUF->TUF_QUADRO
UF         C 002 0 TUF->TUF_UF
VLNCONT    N 017 2 TUF->TUF_VLNCONT
VLRCONT    N 017 2 TUF->TUF_VLRCONT
BSNCAL     N 017 2 TUF->TUF_BSNCAL
BSCALC     N 017 2 TUF->TUF_BSCALC
OUTRAS     N 017 2 TUF->TUF_OUTRAS
ICMSST     N 017 2 TUF->TUF_ICMSST

[XXX ********************************************* Registro Tipo 51 *************************************************]
[TRB Registro Tipo 51 - Exclusões do valor adicionado - Quadro 51]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("51"))
(PREREG) "51"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "51"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************ Registros 80, 81, 82, 83 e 84 - Quando nao for declaracao de encerramento ************************************]
[XXX ********************************************* Registro 80 ************************************]
[TRB Registro tipo 80 - Resumo do Livro Registro de Inventario e Receita Bruta(COMPLEMENTAR ANUAL) - Quadro 80]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("80"))
(PREREG) "80"$TRB->TRB_REGIST
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "80"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************* Registro 81, 82, 83 Quando estiver preenchido e tiver escrita contabil ***************************]
[XXX ********************************************* Registro 81 **********************************************]
[TRB Registro tipo 81 - Ativo(COMPLEMENTAR ANUAL) - Quadro 81]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("81"))
(PREREG) "81"$TRB->TRB_REGIST
(PREREG) (TRB->TRB_VALOR>0 .Or. (TRB->TRB_VALOR==0 .And. TRB->TRB_ITEM=="199"))
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "81"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro 82 **********************************************]
[TRB Registro tipo 82 - Passivo(COMPLEMENTAR ANUAL) - Quadro 82]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("82"))
(PREREG) "82"$TRB->TRB_REGIST
(PREREG) (TRB->TRB_VALOR>0 .Or. (TRB->TRB_VALOR==0 .And. TRB->TRB_ITEM=="299"))
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "82"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro 83 **********************************************]
[TRB Registro tipo 83 - Demonstracao de resultado(COMPLEMENTAR ANUAL) - Quadro 83]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("83"))
(PREREG) "83"$TRB->TRB_REGIST
(PREREG) (TRB->TRB_VALOR>0 .Or. (TRB->TRB_VALOR==0 .And. TRB->TRB_ITEM=="399"))
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "83"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************ Registro 84 - Para todos os contribuintes independente da escrita contabil, quando o cfp estiver preenchido *******************************]
[TRB Registro tipo 84 - Detalhamento das despesas(COMPLEMENTAR ANUAL) - Quadro 84]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("84"))
(PREREG) "84"$TRB->TRB_REGIST
(PREREG) (TRB->TRB_VALOR>0 .Or. (TRB->TRB_VALOR==0 .And. TRB->TRB_ITEM=="499"))
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "84"
QUADRO     C 002 0 TRB->TRB_QUADRO
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************************ Registros 90, 91, 92, 93 e 94 - Quando for declaracao de encerramento ************************************]
[XXX ********************************************* Registro 90 ************************************]
[TRB Registro tipo 90 - Resumo do Livro Registro de Inventário e Receita Bruta(ENCERRAMENTO) - Quadro 90]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("90"))
(PREREG) Len (_aTotal[045])>0
(PREREG) ("Encerramento"$_aTotal[045][2][2])
(PREREG) "90"$TRB->TRB_REGIST
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "90"
QUADRO     C 002 0 "90"
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************* Registro 91, 92, 93 Quando estiver preenchido e tiver escrita contabil ***************************]
[XXX ********************************************* Registro 91 **********************************************]
[TRB Registro tipo 91 - Ativo(ENCERRAMENTO) - Quadro 91]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("91"))
(PREREG) Len (_aTotal[045])>0
(PREREG) ("Encerramento"$_aTotal[045][2][2])
(PREREG) "91"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "91"
QUADRO     C 002 0 "91"
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro 92 **********************************************]
[TRB Registro tipo 92 - Passivo(ENCERRAMENTO) - Quadro 92]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("92"))
(PREREG) Len (_aTotal[045])>0
(PREREG) ("Encerramento"$_aTotal[045][2][2])
(PREREG) "92"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "92"
QUADRO     C 002 0 "92"
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ********************************************* Registro 93 **********************************************]
[TRB Registro tipo 93 - Demonstracao de resultado(ENCERRAMENTO) - Quadro 93]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("93"))
(PREREG) Len (_aTotal[045])>0
(PREREG) ("Encerramento"$_aTotal[045][2][2])
(PREREG) "93"$TRB->TRB_REGIST
(PREREG) TRB->TRB_VALOR>0
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "93"
QUADRO     C 002 0 "93"
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX ************ Registro 94 - Para todos os contribuintes independente da escrita contabil, quando o cfp estiver preenchido *******************************]
[TRB Registro tipo 94 - Detalhamento das despesas(ENCERRAMENTO) - Quadro 94]
(IMP){.T., 1, 2, "TPREGISTRO"}
(CMP){{"ITEM","It"},{"VALOR","Valor"}}
(LEG)""
(PRE) TRB->(DbSeek ("94"))
(PREREG) Len (_aTotal[045])>0
(PREREG) ("Encerramento"$_aTotal[045][2][2])
(PREREG) "94"$TRB->TRB_REGIST
(PREREG) (TRB->TRB_VALOR>0 .Or. (TRB->TRB_VALOR==0 .And. "Sem"$_aTotal[045][2][9]))
(PREREG) _aTotal[047]++
TPREGISTRO C 002 0 "94"
QUADRO     C 002 0 "94"
ITEM       C 003 0 TRB->TRB_ITEM
VALOR      N 017 2 TRB->TRB_VALOR

[XXX Registro tipo 98 - Encerramento Declaracao.]
TPREGISTRO N 002 0 98
QUADRO     C 002 0 Space (02)
QTDREGISTR N 005 0 _aTotal[047]

[XXX Registro tipo 99 - Fechamento do arquivo.]
TPREGISTRO N 002 0 99
QUADRO     C 002 0 Space (02)
QTDREGISTR N 005 0 _aTotal[047]+2
QTDDECL    N 005 0 1