?{"Nome do arquivo INI","DGI.INI"}
?{"Descrição Completa do Arquivo Magnético","Declaração Informativa"}
?{"Comentários","Disponível para Uruguay"}

[XXX Montagem do CFP Utilizado pela rotina - PRINCIPAL]
(PRE) _aTotal[04] := {}
(PRE) _aTotal[05] := {}
(PRE) _aTotal[06] := .F.
(PRE) _aTotal[07] := {}
(PRE) _aTotal[08] := ""
(PRE) _aTotal[09] := ""

(PRE) _aTotal[20] := Chr(9)
(PRE) aAdd (_aTotal[04],"Declaração Informativa")
(PRE) aAdd (_aTotal[04],"")
(PRE) aAdd (_aTotal[04],"Preencha corretamente as informações solicitadas.")
(PRE) aAdd (_aTotal[04],"Informações necessárias para preenchimento automático da Declaração Informativa")

[XXX Painel 1 - Configurações gerais]
(PRE) aAdd(_aTotal[05],{})
(PRE) aAdd(_aTotal[05][1],"Declaração Informativa")
(PRE) aAdd(_aTotal[05][1],"Preencha corretamente as informações solicitadas.")
(PRE) aAdd(_aTotal[05][1],{})
(PRE) aAdd(_aTotal[05][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{1,"Formulario",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{1,"Tipo Documento Responsable Fiscal",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{3,,,1,,{"01-146","01-246","02-181","02-183","02-176"},,})
(PRE) aAdd(_aTotal[05][1][3],{2,,"@E 99",2,0,,,2})
(PRE) aAdd(_aTotal[05][1][3],{1,"País do Responsáble",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{1,"Documento do Repnsáble",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{2,,"@!",1,,,,2})
(PRE) aAdd(_aTotal[05][1][3],{2,,"@E 999999999999",2,0,,,12})
(PRE) aAdd(_aTotal[05][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[05][1][3],{0,"",,,,,,})

[XXX Chamada Wizard]
(PRE) _aTotal[06] := xMagWizard(_aTotal[04],_aTotal[05],"DGI")
(PRE) Iif(_aTotal[06],xMagLeWiz("DGI",@_aTotal[07],.T.),Nil)
(PRE) lAbtMT950	:= !_aTotal[06]

[XXX Montando nome do arquivo]
(PRE) MV_PAR04 := ("DGI_"+SubSTR(_aTotal[07][1][1],1,2)+SubSTR(_aTotal[07][1][1],4,4)+".txt")
(PRE) _aTotal[08] := MV_PAR04

[XXX Criação do arquivo de trabalho DGI]
(PRE) _aTotal[10]:= U_FFRetenc(_aTotal[07])

[TRBRet1 Imprime os dados]
(DEL) ; MF
(PRE) TRBRet1->(DBGoTop())
SEQ01      N 002 0 TRBRet1->TIPDOCFIS
SEQ02      C 002 0 TRBRet1->PAISRESP
SEQ03      C 012 0 TRBRet1->DOCRESP
SEQ04      C 005 0 TRBRet1->FORMULARIO
SEQ05      N 006 0 TRBRet1->PERDECLA
SEQ06      C 002 0 TRBRet1->TIPDOCINF
SEQ07      C 002 0 TRBRet1->PAISINF
SEQ08      C 012 0 TRBRet1->DOCINF
SEQ09      N 006 0 TRBRet1->DATAINF
SEQ10      N 003 0 TRBRet1->LINHA
SEQ11      C 012 2 TRBRet1->IMPORTE


[XXX Criação do arquivo de trabalho DGI]
(PRE) _aTotal[10]:= U_FF218X(_aTotal[07],_aTotal[10])

[TRBqry2 Imprime os dados]
(DEL) ; MF
(PRE) TRBqry2->(DBGoTop())
SEQ01      C 012 0 TRBqry2->RUTINFANTE
SEQ02      C 005 0 TRBqry2->FORMULARIO
SEQ03      N 006 0 TRBqry2->PERIODO
SEQ04      C 012 0 TRBqry2->RUTINFADO
SEQ05      N 006 0 TRBqry2->FATURA
SEQ06      N 003 0 TRBqry2->LINHA
SEQ07      C 012 2 TRBqry2->IMPORTE


[TRBqry1 Imprime os dados]
(PRE) TRBqry1->(DBGoTop())
SEQ01      C 013 0 TRBqry1->RUTCONTRIB+';'
SEQ02      C 005 0 TRBqry1->FORMULARIO+';'
SEQ03      C 007 0 ALLTRIM(STR(TRBqry1->PERIODO))+';'
SEQ04      C 013 0 TRBqry1->LINHA+';'
SEQ05      C 015 0 aFISFILL(TRBqry1->COMPLEMENT,14)+';'
SEQ06      C 022 5 TRBqry1->IMPORTE

[TRBRet2 Imprime os dados]
(DEL) ; MF
(PRE) TRBRet2->(DBGoTop())
SEQ01      C 012 0 TRBRet2->RUTINFANTE
SEQ02      C 005 0 TRBRet2->FORMULARIO
SEQ03      N 006 0 TRBRet2->PERIODO
SEQ04      C 012 0 TRBRet2->RUTINFADO
SEQ05      N 006 0 TRBRet2->FATURA
SEQ06      N 003 0 TRBRet2->LINHA
SEQ07      C 012 2 TRBRet2->IMPORTE

[XXX Arquivos temporários]
(PRE) U_DELDGI(_aTotal[10])

[XXX Nome do arquivo]
(ARQ) &('_aTotal[08]')

//[XXX Nome do diretorio]
//(ARQ) &('_aTotal[09]')