?{"Nombre del archivo INI","IVASIM.INI"}
?{"Descripcion Completa del Archivo Magnetico","Archivo utilizado en el procesamiento del IVA SIMPLE"}
?{"Comentarios","Disponible para el país de Argentina"}
?{"¡¡IMPORTANTE!!","Actualmente solo se cuenta con las funciones de la parte de ventas, posteriormente sera liberada la siguiente parte"}
[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],"IVA SIMPLE")
(PRE) aAdd(_aTotal[03],"")
(PRE) aAdd(_aTotal[03],"Llene correctamente las informaciones requeridas.")
(PRE) aAdd(_aTotal[03],"Complete con la información necesaria para la generación de los archivos")
[XXX Painel 1 - Configuraciones generales]
(PRE) aAdd(_aTotal[04],{})
(PRE) aAdd(_aTotal[04][1],"IVA SIMPLE")
(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],{1, "Tipo del archivo a generar: ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{3,,,,,{"1 - Crédito Fiscal","2 - Restitución Crédito Fiscal","3 - Débito Fiscal", "4 - Restitución Débito Fiscal", "5 - Todos"},,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1,"Genera informe resumido de los valores",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{3,,,,,{"1 - Si","2 - No"},,})
(PRE) aAdd(_aTotal[04][1][3],{1,"exportados:",,,,,,})
(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 - Tipo de Sujeto",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1, "Tabla de equivalencia - Alicuotas",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1, "Tabla de equivalencia - Conceptos para ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{1, "las operaciones que generan crédito fiscal",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1, "o restitución de crédito fiscal",,,,,,})
(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 - Conceptos para las",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{1, "operaciones que generan débito fiscal ",,,,,,})
(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 - Conceptos ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{1, "para las operaciones que generan ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1, "restitución de débito fiscal ",,,,,,})
[XXX Registro IVASIM - IVA SIMPLE]
(PRE) _aTotal[05] := xMagWizard(_aTotal[03],_aTotal[04],"IVA SIMPLE")
(PRE) Iif(_aTotal[05],xMagLeWiz("IVA SIMPLE",@_aTotal[06],.T.),Nil)
(PRE) lAbtMT950 := !_aTotal[05]
[XXX Generaccion del archivo IVA SIMPLE]
(PRE) _aTotal[07]:=IVASIM()
[IS3OPGDEB Imprime os dados]
(DEL);MF
(PRE) IS3OPGDEB->(dbGoTop())
SEQ01 C 006 0 IS3OPGDEB->ACTDEC
SEQ02 C 001 0 IS3OPGDEB->TPVENT
SEQ03 C 001 0 IS3OPGDEB->TIPO
SEQ04 C 012 0 IS3OPGDEB->ALICUOTA
SEQ05 C 015 2 AllTrim(Transform(IS3OPGDEB->MONGRA,"@E 9999999999999.99"))
SEQ06 C 015 2 AllTrim(Transform(IS3OPGDEB->DEBFIS,"@E 9999999999999.99"))
SEQ07 C 015 2 AllTrim(Transform(IS3OPGDEB->DEFIOP,"@E 9999999999999.99"))
SEQ08 C 015 2 AllTrim(Transform(IS3OPGDEB->MONEX,"@E 9999999999999.99"))
(POS)
[IS4OPGRDE Imprime os dados]
(DEL);MF
(PRE) IS4OPGRDE->(dbGoTop())
SEQ01 C 006 0 IS4OPGRDE->ACTDEC
SEQ02 C 001 0 IS4OPGRDE->TPVENT
SEQ03 C 001 0 IS4OPGRDE->TIPO
SEQ04 C 012 0 IS4OPGRDE->ALICUOTA
SEQ05 C 015 2 AllTrim(Transform(IS4OPGRDE->MONGRA,"@E 9999999999999.99"))
SEQ06 C 015 2 AllTrim(Transform(IS4OPGRDE->DEBFIS,"@E 9999999999999.99"))
SEQ07 C 015 2 AllTrim(Transform(IS4OPGRDE->MONEX,"@E 9999999999999.99"))
(POS)
[IV1CFNFND Imprime os dados]
(DEL);MF
(PRE) IV1CFNFND->(dbGoTop())
SEQ01 C 001 0 IV1CFNFND->TPVENT
SEQ02 C 004 0 IV1CFNFND->ALICUOTA
SEQ03 C 015 2 AllTrim(Transform(IV1CFNFND->BASE,"@E 9999999999999.99"))
SEQ04 C 015 2 AllTrim(Transform(IV1CFNFND->VAL1,"@E 9999999999999.99"))
SEQ05 C 015 2 AllTrim(Transform(IV1CFNFND->VAL2,"@E 9999999999999.99"))
(POS)
[IV2CFNCP Imprime os dados]
(DEL);MF
(PRE) IV2CFNCP->(dbGoTop())
SEQ01 C 001 0 IV2CFNCP->TPVENT
SEQ02 C 004 0 IV2CFNCP->ALICUOTA
SEQ03 C 015 2 AllTrim(Transform(IV2CFNCP->BASE,"@E 9999999999999.99"))
SEQ04 C 015 2 AllTrim(Transform(IV2CFNCP->VAL1,"@E 9999999999999.99"))
SEQ05 C 015 2 AllTrim(Transform(IV2CFNCP->VAL2,"@E 9999999999999.99"))
[XXX arquivos temporarios]
(PRE) FE845ETTE(_aTotal[07]) |