?{"Nombre del archivo INI","IVASIM.INI"}
?{"Descripción Completa del Archivo Magnético","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,"",,,,,,}03],"IVA SIMPLE")
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,}03],"")
(PRE) aAdd(_aTotal[04][1][303],{1,"GeneraLlene informecorrectamente resumidolas de los valores",,,,,,}informaciones requeridas.")
(PRE) aAdd(_aTotal[04][1][3],{3,,,,,{"1 - Si","2 - No"},,}) 03],"Complete con la información necesaria para la generación de los archivos")
[XXX Painel 1 - Configuraciones generales]
(PRE) aAdd(_aTotal[04][1][3],{1,"exportados:",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,}IVA SIMPLE")
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,}"Configuraciones generales:")
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{10, "Tabla de equivalencia - Tipo de Sujeto",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{20,,"XXXX",,1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{01, "Tipo del archivo a generar: ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{03,"",,,,{"1 - Crédito Fiscal",,})
(PRE) aAdd(_aTotal[04][1][3],{1, "Tabla de equivalencia - Alicuotas",,,,,,})"2 - Restitución Crédito Fiscal","3 - Débito Fiscal", "4 - Restitución Débito Fiscal", "5 - Todos"},,})
(PRE) aAdd(_aTotal[04][1][3],{2,0,"XXXX",1,,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{01,"Genera informe resumido de los valores",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{1, "Tabla de equivalencia - Conceptos para las",,,,,,})3,,,,,{"1 - Si","2 - No"},,})
(PRE) aAdd(_aTotal[04][1][3],{2,1,"XXXXexportados:",1,,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{10, "operaciones que generan crédito fiscal o ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{10, "restitución de crédito fiscal",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{01, "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 - Conceptos para las Alicuotas",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{10, "operaciones que generan débito fiscal ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{01, "Tabla de equivalencia - Conceptos para ",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{02,,"XXXX",1,,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{1, "Tablalas deoperaciones equivalenciaque -generan Conceptoscrédito para lasfiscal",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{2,0,"XXXX",1,,,,,7})
(PRE) aAdd(_aTotal[04][1][3],{1, "operaciones queo generan restitución de crédito fiscal",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{0,"",,,,,,})
(PRE) aAdd(_aTotal[04][1][3],{10, "débito fiscal ",,,,,,})
[XXX Registro IVASIM - IVA SIMPLE]
(PRE) aAdd(_aTotal[05] := xMagWizard(_aTotal[03],_aTotal[04],"IVA SIMPLE"04][1][3],{0,"",,,,,,})
(PRE) IifaAdd(_aTotal[05],xMagLeWiz("IVA SIMPLE",@_aTotal[06],.T.),Nil04][1][3],{1, "Tabla de equivalencia - Conceptos para las",,,,,,})
(PRE) lAbtMT950 := !aAdd(_aTotal[05]
[XXX Generaccion del archivo IVA SIMPLE]04][1][3],{2,,"XXXX",1,,,,7})
(PRE) aAdd(_aTotal[07]:=IVASIM()
[IS3OPGDEB Imprime os dados]
(DEL);MF04][1][3],{1, "operaciones que generan débito fiscal ",,,,,,})
(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
SEQ03aAdd(_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 001006 0 IS4OPGRDEIS3OPGDEB->TIPO>ACTDEC
SEQ04SEQ02 C 012001 0 IS4OPGRDEIS3OPGDEB->ALICUOTA>TPVENT
SEQ05SEQ03 C 015001 2 AllTrim0 IS3OPGDEB->TIPO
SEQ04 C 012 0 IS3OPGDEB->ALICUOTA
SEQ05 C 015 2 AllTrim(Transform(IS4OPGRDEIS3OPGDEB->MONGRA,"@E 9999999999999.99"))
SEQ06 C 015 2 AllTrim(Transform(IS4OPGRDEIS3OPGDEB->DEBFIS,"@E 9999999999999.99"))
SEQ08SEQ07 C 015 2 AllTrim(Transform(IS4OPGRDEIS3OPGDEB->MONEX>DEFIOP,"@E 9999999999999.99"))
[XXX arquivos temporarios]
(PRE) FE845ETTE(_aTotal[07]) |