?{"Nombre del archivo INI","IVAPER.INI"}
?{"Descripcion Completa del Archivo Magnetico" ,"Archivo utilizado en el procesamiento del régimen de percepción."}
[XXX Inicializacao]
(PRE) _aTotal[01] := MV_PAR01
(PRE) _aTotal[02] := MV_PAR02
(PRE) _aTotal[03] := {}
(PRE) _aTotal[04] := {}
(PRE) _aTotal[05] := .F.
(PRE) _aTotal[06] := {}
[XXX Montagem do CFP Utilizado pela rotina - PRINCIPAL]
(PRE) aAdd(_aTotal[03],"Régimen de percepción")
(PRE) aAdd(_aTotal[03],"")
(PRE) aAdd(_aTotal[03],"Llene correctamente las informaciones requeridas.")
(PRE) aAdd(_aTotal[03],"Informaciones necesarias para generar el archivo magnético del régimen de percepción.")
[XXX Painel 1 - Configuraciones generales]
(PRE) aAdd(_aTotal[04],{})
(PRE) aAdd(_aTotal[04][1],"Régimen de percepción")
(PRE) aAdd(_aTotal[04][1],"Configuraciones generales:")
(PRE) aAdd(_aTotal[04][1],{})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1,"Tabla de equivalencia de la percepción:",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,4})
[XXX Chamada do Wizard]
(PRE) _aTotal[05] := xMagWizard(_aTotal[03],_aTotal[04],"IVAPER")
(PRE) Iif(_aTotal[05],xMagLeWiz("IVAPER",@_aTotal[06],.T.),Nil)
[XXX Registro PER - Régimen de percepción]
(PRE) _aTotal[99] := LocIVAPER(DTOS(_aTotal[01]),DTOS(_aTotal[02]),_aTotal[06],Iif(lAglFil,.T.,.F.))
(POS)
[IVAPER registro PER – Régimen de percepción]
(PRE) IVAPER->(dbSetOrder(1))
(PRE) IVAPER->(dbGotop())
(POS)
CODPER C 003 0 aFISFILL(PER_CODPER,3)
CUIT C 013 0 aFISFILL(PER_CUIT,13)
EMISS C 010 0 aFISFILL(PER_EMISS,10)
NUMNF1 C 008 0 aFISFILL(PER_NUMNF1,5)
NUMNF2 C 008 0 aFISFILL(PER_NUMNF2,8)
VLRPER C 016 0 PADL(ALLTRIM(PER_VLRPER),16," ")
[XXX Generando el informe] |