?{"Nome do arquivo INI","DAPIMG.INI"}
?{"Descrição Completa do Arquivo Magnético","Declaração de Apuração e Informação do ICMS do Estado de Minas Gerais"}
?{"A Quem se Destina","Aos contribuintes do ICMS do estado de Minas Gerais."}
?{"Objetivo","Agilizar a entrega da Declaração de Apuração e Informação do ICMS."}
?{"Prazo de Entrega","Mensal"}
?{"Aplicativo Disponibilizado pelo Fisco","DAPISEF"}
?{"Versão do Aplicativo Contemplado pelo Protheus","9.00.00"}
?{"Comentários",""}
[XXX Identificacao da DAPIMG]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"MODELO","MD"},{"DAPI_SUBST","S"},{"CAE","CAE"},{"DESMENCAE","DC"},{"TIPOREGIME","TP"},{"REGIMEESPE","E"},{"DATALIMITE","Dt Limit"},{"OPTANTEFUN","O"},{"DAPICOMMOV","M"},{"MOVIMENCAF","C"},{"CAEF","CAEF"},{"DESMENCAEF","DE"},{"DESC_PONTU","A"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., MD=Modelo DAPI, S=DAPI Subst., DC=Desmemb. CAE, TP=Tipo Regime, E=Reg. Esp. Fisc., O=Optante FUNDESE, M=DAPI c/ Movim., C=Movimenta CAF,"+chr(13)+chr(10)+space(9)+"DE=Desmemb. CAEF., A=Aceite desc.Pontualidade."
(PRE) _aTotal[01]	:=""
(PRE) _aTotal[02]	:=""
(PRE) _aTotal[03]	:=""
(PRE) _aTotal[04]	:=""
(PRE) _aTotal[05]	:=""
(PRE) _aTotal[06]	:=""
(PRE) _aTotal[99]	:=0
(PRE) _aTotal[01]	:=STRZERO(YEAR(mv_par02),4)
(PRE) _aTotal[02]	:=STRZERO(MONTH(mv_par02),2)
(PRE) _aTotal[03]	:=STRZERO(DAY(mv_par01),2)
(PRE) _aTotal[04]	:=STRZERO(DAY(mv_par02),2)
(PRE) _aTotal[05]	:=mv_par01
(PRE) _aTotal[06]	:=mv_par02
(PRE) _aTotal[07]	:= {}
(PRE) _aTotal[08]	:= MV_PAR06 == 1
(PRE) _aTotal[99]	:=1
(POS)
(PRE) SX1DAPIMG()
(PRE) pergunte("DAPIMG",.T.)
(PRE) Iif( MV_PAR10 == 1 .And. _aTotal[08],  lExitPFil := .T. , .T. )
(PRE) Iif( MV_PAR10 == 1 , Iif( !_aTotal[08], _aTotal[07] := MatFilCalc( .T. ), _aTotal[07] := aFilsCalc ), .T. )

TIPO       C 002 0 "00"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
MODELO     C 002 0 IIF(mv_par01==1,"D1",IIF(mv_par01==2,"D2","D3"))
DAPI_SUBST C 001 0 IIF(mv_par03==1,"S","N")
CAE        C 007 0 "0000000"
DESMENCAE  C 002 0 "00"
TIPOREGIME C 002 0 STRZERO(mv_par05,2)
REGIMEESPE C 001 0 IIF(mv_par06==1,"S","N")
DATALIMITE C 008 0 IIF(mv_par06==1,Right(Dtos(MV_PAR15),2)+SubStr(Dtos(MV_PAR15),5,2)+Left(Dtos(MV_PAR15),4),"00000000")
OPTANTEFUN C 001 0 IIF(mv_par07==1,"S","N")
DAPICOMMOV C 001 0 IIF(mv_par02==1,"S","N")
MOVIMENCAF C 001 0 IIF(mv_par08==1,"N","N")
CAEF       C 007 0 SM0->M0_CNAE
DESMENCAEF C 002 0 STRZERO(mv_par04,2)
DESC_PONTU C 001 0 IIF(mv_par16==1,"S","N")
(CONT) _aTotal[99]+=1

[XXX Alimentando os arquivos de trabalho]
(PRE) DadosDAPI(_aTotal[05],_aTotal[06], _aTotal[07] )
(PRE) R10->(DBGOTOP())

[R10 Registro Tipo 10]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"LINHA","LIN"},{"COLUNA","CO"},{"VALOR","Valor"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., LIN=Linha, CO=Coluna."
TIPO       C 002 0 "10"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
LINHA      C 003 0 R10->LINHA
COLUNA     C 002 0 R10->COLUNA
VALOR      N 015 2 IIF(R10->VALOR < 0,0,R10->VALOR)
(CONT) _aTotal[99]+=1
(POS)

[R20 Registro Tipo 20]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"LINHA","LIN"},{"COLUNA","CO"},{"VALOR","Valor"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., LIN=Linha, CO=Coluna."
(PRE) R20->(DBGOTOP())
(PREREG) R10->(MsSeek("10"+"066"+"0"))
(PREREG) R10->LINHA=="066"
TIPO       C 002 0 "20"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
PRODRUR    C 001 0 "N"
UF         C 002 0 R20->UF
INSC       C 015 0 R20->INSC
NF         C 009 0 R20->NF
SERIE      C 003 0 R20->SDOC
DTNF       C 008 0 StrZero(Day(R20->DTNF),2) + StrZero(Month(R20->DTNF),2) + StrZero(Year(R20->DTNF),4)
DTVISTO    C 008 0 StrZero(Day(R20->DTNF),2) + StrZero(Month(R20->DTNF),2) + StrZero(Year(R20->DTNF),4)
VALOR      N 015 2 R20->VALOR
MOTIVO     C 002 0 "00"
(CONT) _aTotal[99]+=1
(POS)

[R21 Registro Tipo 21]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"LINHA","LIN"},{"COLUNA","CO"},{"VALOR","Valor"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., LIN=Linha, CO=Coluna."
(PRE) R21->(DBGOTOP())
(PREREG) R10->(MsSeek("10"+"073"+"0"))
(PREREG) R10->LINHA=="073"
TIPO       C 002 0 "21"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
PRODRUR    C 001 0 "N"
UF         C 002 0 R21->UF
INSC       C 015 0 R21->INSC
NF         C 009 0 R21->NF
SERIE      C 003 0 R21->SDOC
DTNF       C 008 0 StrZero(Day(R21->DTNF),2) + StrZero(Month(R21->DTNF),2) + StrZero(Year(R21->DTNF),4)
DTVISTO    C 008 0 StrZero(Day(R21->DTNF),2) + StrZero(Month(R21->DTNF),2) + StrZero(Year(R21->DTNF),4)
VALOR      N 015 2 R21->VALOR
MOTIVO     C 002 0 "00"
(CONT) _aTotal[99]+=1
(POS)

[R22 Registro Tipo 22]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"LINHA","LIN"},{"COLUNA","CO"},{"VALOR","Valor"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., LIN=Linha, CO=Coluna."
(PRE) R22->(DBGOTOP())
(PREREG) R10->(MsSeek("10"+"090"+"0"))
(PREREG) R10->LINHA=="090"
TIPO       C 002 0 "22"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
NF         C 009 0 R22->NF
SERIE      C 003 0 R22->SDOC
DTNF       C 008 0 StrZero(Day(R22->DTNF),2) + StrZero(Month(R22->DTNF),2) + StrZero(Year(R22->DTNF),4)
VALOR      N 015 2 R22->VALOR
JUST       C 060 0 R22->JUST 
MOTIVO     C 001 0 R22->MOTIVO
(CONT) _aTotal[99]+=1
(POS)

[R23 Registro Tipo 23]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"SDOCUL","CP01"},{"INCCUL","CP02"},{"DEDCULPER","CP03"},{"LIMDEDCULP","CP04"},{"SDOCRECULS","CP05"},{"COMCREEMPP","CP06"},{"TOTDEDPER","CP07"},{"ULTCRERECT","CP08"},{"ALQDEDINCP","CP09"},{"VLRESTCUL","CP10"},{"SDOESPANT","CP11"},{"INCESPPER","CP12"},{"DEDESPPER","CP13"},{"LIMDEDESPP","CP14"},{"SDOCREESPS","CP15"},{"ALQDEDESPP","CP16"},{"VLRESTESP","CP17"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., CP??=Campos do Registro"
(PRE) R23->(DBGOTOP())
TIPO       C 002 0 "23"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
SDOCUL     N 015 2 R23->SDOCUL
INCCUL     N 015 2 R23->INCCUL
DEDCULPER  N 015 2 R23->DEDCULPER
LIMDEDCULP N 015 2 R23->LIMDEDCULP
SDOCRECULS N 015 2 R23->SDOCRECULS
COMCREEMPP N 015 2 R23->COMCREEMPP
TOTDEDPER  N 015 2 R23->TOTDEDPER
ULTCRERECT N 015 2 R23->ULTCRERECT
ALQDEDINCP N 015 2 R23->ALQDEDINCP
VLRESTCUL  N 015 2 R23->VLRESTCUL
SDOESPANT  N 015 2 R23->SDOESPANT
INCESPPER  N 015 2 R23->INCESPPER
DEDESPPER  N 015 2 R23->DEDESPPER
LIMDEDESPP N 015 2 R23->LIMDEDESPP
SDOCREESPS N 015 2 R23->SDOCREESPS
ALQDEDESPP N 015 2 R23->ALQDEDESPP
VLRESTESP  N 015 2 R23->VLRESTESP
(CONT) _aTotal[99]+=1
(POS)

[R24 Registro Tipo 24]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"INSC","Inscr. Estad."},{"NF","Nota Fiscal"},{"SERIE","Ser"},{"DTNF","Dt.Emissão"},{"DTVISTO","Dt.Visto"},{"VALOR","Valor"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref."
(PRE) R24->(DBGOTOP())
TIPO       C 002 0 "24"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
INSC       C 015 0 R24->INSC
NF         C 009 0 R24->NF
SERIE      C 003 0 R24->SDOC
DTNF       C 008 0 StrZero(Day(R24->DTNF),2) + StrZero(Month(R24->DTNF),2) + StrZero(Year(R24->DTNF),4)
DTVISTO    C 008 0 StrZero(Day(R24->DTNF),2) + StrZero(Month(R24->DTNF),2) + StrZero(Year(R24->DTNF),4)
VALOR      N 015 2 R24->VALOR
(CONT) _aTotal[99]+=1
(POS)

[R29 Registro Tipo 29]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"MOTIVO","CD"},{"VALOR","Valor"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref., CD=Código"
(PRE) R29->(DBGOTOP())
TIPO       C 002 0 "29"
INSC       C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
MOTIVO     C 002 0 R29->MOTIVO
AUTO       C 013 0 R29->AUTO
VALOR      N 015 2 R29->VALOR
NF         C 009 0 R29->NF
SERIE      C 003 0 R29->SDOC
DTNF       C 008 0 IIF(R29->MOTIVO =="05", StrZero(Day(R29->DTNF),2) + StrZero(Month(R29->DTNF),2) + StrZero(Year(R29->DTNF),4), Space(8))
(CONT) _aTotal[99]+=1
(POS)

[XXX Final do Arquivo]
(IMP) {.T., 1, 2, "TIPO"}
(CMP) {{"INSCRICAO","Inscr. Estad."},{"ANOREF","AR"},{"MESREF","MR"},{"DIAFINAL","DF"},{"DIAINICIAL","DI"},{"QUANTIDADE","Qtde"}}
(LEG) "AR=Ano Ref., MR= Mes Ref., DF=Dia Final Ref., DI=Dia Inic. Ref."
TIPO       C 002 0 "99"
INSCRICAO  C 013 0 SM0->M0_INSC
ANOREF     C 004 0 _aTotal[01]
MESREF     C 002 0 _aTotal[02]
DIAFINAL   C 002 0 _aTotal[04]
DIAINICIAL C 002 0 _aTotal[03]
QUANTIDADE C 004 0 STRZERO(_aTotal[99],4)