?{"Nombre del Archivo ININombre del Archivo INI","EQUATF.INI"}
?{"Descripcion Completa del Archivo MagneticoDescripcion Completa del Archivo Magnetico","Declaracion de Retencion del Impuesto de Renta - IRDeclaracion de Retencion del Impuesto de Renta - IR."}
?{"Comentarios",""} @XML [XXX Inicializacao variaveisXXX Inicializacao variaveis]
(PRE) _aTotal[001] := MVMV_PAR01 PAR01
(PRE) _aTotal[002] := MVMV_PAR02
(PRE) _aTotal[003] := {}
(PRE) _aTotal[004] := {}
(PRE) _aTotal[005] := .F.
(PRE) _aTotal[006] := {}
(PRE) _atotal[020] := 00
(PRE) _aTotal[021] := IIfIIf(SF2->(ColumnPos("F2_TPDOC"))==0 0 .OR. SF2SF2->(ColumnPos("F2_TPVENT"))==0 0 .OR. SF2SF2->(ColumnPos("F2_TIPOPE"))==0,.F.,.T.)
(PRE) _aTotal[022] := {}
(PRE) _aTotal[023] := {}
(PRE) _aTotal[024] := 00
(PRE) _aTotal[025] := "" [XXX Montagem do CFP Utilizado pela rotina - PRINCIPALXXX Montagem do CFP Utilizado pela rotina - PRINCIPAL]
(PRE) aAdd aAdd (_aTotal[003], "Formulario 103 - Declaracion de Retencion del Impuesto de Renta - IRFormulario 103 - Declaracion de Retencion del Impuesto de Renta - IR")
(PRE) aAdd aAdd (_aTotal[003], "")
(PRE) aAdd aAdd (_aTotal[003], "Rellene correctamente la informacion solicitadaRellene correctamente la informacion solicitada.")
(PRE) aAdd aAdd (_aTotal[003], "Informacion necesarias para el rellenado automatico del Formulario 103: Declaracion de Retencion del Impuesto de Renta - IR"Informacion necesarias para el rellenado automatico del Formulario 103: Declaracion de Retencion del Impuesto de Renta - IR.") [XXX Montagem do CFP Utilizado pela rotina - COMPLEMENTARXXX Montagem do CFP Utilizado pela rotina - COMPLEMENTAR]
(PRE) aAdd aAdd (_aTotal[004], {})
(PRE) aAdd aAdd (_aTotal[004][1], "Formulario 103 - Declaracion de Retencion del impuesto de Renta - IRFormulario 103 - Declaracion de Retencion del impuesto de Renta - IR")
(PRE) aAdd aAdd (_aTotal[004][1], "Rellene correctamente la informacion solicitadaRellene correctamente la informacion solicitada.")
(PRE) aAdd aAdd (_aTotal[004][1], {})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Tipo DeclaracionTipo Declaracion",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Si fuera sustitutivaSi fuera sustitutiva:",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {3,,,,,{"O=Original", "S=Sustitutiva"},,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Version FormularioVersion Formulario",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "N� FormularioNº Formulario",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"@E 9@E 9.9",2,1,,,3})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"9999999999999",2,0,,,13})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Cod. Version FormVersion Form.",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Impuesto PagadoImpuesto Pagado",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"9999999999",2,0,,,10})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"@E 999@E 999,999,999.99",2,2,,,14})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "ID Representante legalID Representante legal",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Mora Mora / InteressesInteresses",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"@E 9999999999999@E 9999999999999",2,0,,,13})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"@E 999@E 999,999,999.99",2,2,,,14})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "RUC ContadorRUC Contador",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {1, "Multa Multa / InteresesIntereses",,,,,,})
(PRE) aAdd aAdd (_aTotal[004][1][3], {2,,"@E 9999999999999@E 9999999999999",2,0,,,13}) [XXX Chamada do WizardXXX Chamada do Wizard]
(PRE) _atotal[005] := xMagWizard xMagWizard (_aTotal[003], _atotal[04], "EQUATF")
(PRE) Iif Iif (_atotal[005], xMagLeWiz xMagLeWiz ("EQUATF", @@_atotal[06], .T.), NilNil)
(PRE) lAbtMT950 lAbtMT950 := !_atotal[005] [XXX - monta o Nome do arquivo] XXX - monta o Nome do arquivo]
(PRE) mvmv_par04 par04 := AlltrimAlltrim(mv_par04) + "."
(PRE) mvmv_par04 par04 := stuffstuff(mv_par04,rat(".",mv_par04),rat(".",mv_par04),".XML")
(PRE) _aTotal[07] := mvmv_par04
(PRE) _aTotal[15] := .F.
//(PRE) _aTotal[16] := .F.
[XXX HeaderXXX Header]
//(IMP) {.T.,1,1,"IVA"}
//(CMP) {{"NUMRUC","Contribuyente"},{"RAZSOC","Razon SocialRazon Social"},{"MES","Mes"},{"ANIO","Ano"}}
(PRE) _aTotal[010] := "version="+'"1.0"'+" encodingencoding="+'"ISO-8859-1"'+" standalonestandalone="+'"yes"'+" ?"
(PRE) _atotal[30] := LFeqXMLanVLFeqXMLanV(DTOS(MV_PAR01),DTOS(MV_PAR02))
Linha1 C 000 0 MontaXMLLinha1 C 000 0 MontaXML("?xml" , ,,,,, ,.T.,.F.,.T.,_aTotal[010])
IVA C 003 0 MontaXMLIVA C 003 0 MontaXML("iva" , ,,,,,1 1 ,.T.,.F.,.T.)
TIdInf C 015 0 MontaXMLTIdInf C 015 0 MontaXML("TipoIDInformante" ,"R" ,,,,,4 4 ,.T.,.T.,.T.)
NUMRUC C 015 0 MontaXMLNUMRUC C 015 0 MontaXML("IdInformante" ,SM0->M0_CGC CGC ,,,,,4 4 ,.T.,.T.,.T.)
RAZSOC C 100 0 MontaXMLRAZSOC C 100 0 MontaXML("razonSocial" ,SM0->M0_NOMECOM NOMECOM ,,,,,4 4 ,.T.,.T.,.T.)
ANIO C 004 0 MontaXMLANIO C 004 0 MontaXML("Anio" ,substr(dTOs(MV_PAR01),1,4) ,,,,,4 4 ,.T.,.T.,.T.)
MES C 002 0 MontaXMLMES C 002 0 MontaXML("Mes" ,substr(dTOs(MV_PAR01),5,2) ,,,,,4 4 ,.T.,.T.,.T.)
NUMESTRUC C 015 0 MontaXMLNUMESTRUC C 015 0 MontaXML("numEstabRuc" ,_atotal[30][2] ,,,,,4 4 ,.T.,.T.,.T.)
TVentas C 015 0 MontaXMLTVentas C 015 0 MontaXML("totalVentas" ,STRTRAN(TRANSFORM(0 0 ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,4 4 ,.T.,.T.,.T.)
CodOpera C 015 0 MontaXMLCodOpera C 015 0 MontaXML("codigoOperativo" ,"IVA" ,,,,,4 4 ,.T.,.T.,.T.)
Compras C 000 0 MontaXMLCompras C 000 0 MontaXML("compras" , ,,,,,4 4 ,.T.,.F.,.T.)
(POS)
[XXX Extraindo Livro fiscal ComprasXXX Extraindo Livro fiscal Compras]
(PRE) _atotal[31] := LFeqXMLan1LFeqXMLan1(DTOS(MV_PAR01),DTOS(MV_PAR02)) [TRA Gera��o do XMLTRA Geração do XML]
//(IMP) {.T.,1,1,"Compras"}
//(CMP) {{"CODSUST","Sustento"},{"IDPROV","Ident."},{"TPCOMPROV","Tipo ComprTipo Compr."},{"ESTABL","Estab."},{"PONTOVEND","Punto VentaPunto Venta"},{"SEQUEN","Secu."}}
//,{"Autoriz","Autoriz"},{"BasNoGRiva","Base IVA 0%Base IVA 0%"},{"BasImponib","Base IVA Dif 0%Base IVA Dif 0%"},{"BasImpGrav","Base obj IVABase obj IVA"},{"ValIVA","Monto IVAMonto IVA"}}
(PRE) TRATRA->(dbGoTop())
(PREREG) _aTotal[024] := IIFIIF(_aTotal[021], IIFIIF(Alltrim(TRA->TPDOC) =='01' .AND. AlltrimAlltrim(TRA->TPVENT) =='1' .AND. AlltrimAlltrim(TRA->TIPOPE) =='41', 11,0),0)
(PREREG) _aTotal[012] := RetIRRetIR(TRA->FILIAL, TRATRA->CLIEFOR, TRATRA->LOJA, TRATRA->NFISCAL, TRATRA->SERIE)
(PREREG) _aTotal[022] := IIFIIF(_aTotal[024] > 0 > 0 , obtTotReemobtTotReem(TRA->NFISCAL,TRA->SERIE, TRATRA->CLIEFOR, TRATRA->LOJA),{})
(PREREG) _aTotal[023] := IIFIIF(_aTotal[024] > 0 > 0 , ObtReem ObtReem (TRA->FILIAL, TRATRA->NFISCAL, TRATRA->SERIE, TRATRA->CLIEFOR, TRATRA->LOJA),{})
(PREREG) _aTotal[025] := IIfIIf(_aTotal[024] > 0 > 0 .AND. LENLEN(_aTotal[023])>0,_aTotal[023][1], "" ) DetCompr C 000 0 MontaXMLDetCompr C 000 0 MontaXML("detalleCompras" , ,,,,,8 8 ,.T.,.F.,.T.)
CODSUST C 002 0 MontaXMLCODSUST C 002 0 MontaXML("codSustento" ,TRA->CDSUSTEN >CDSUSTEN ,,,,,12,.T.,.T.,.T.)
TpIdProv C 000 0 MontaXMLTpIdProv C 000 0 MontaXML("tpIdProv" ,TRA->TPLDPROV >TPLDPROV ,,,,,12,.T.,.T.,.T.)
IDPROV C 013 0 MontaXMLIDPROV C 013 0 MontaXML("idProv" ,TRA->IDPROV >IDPROV ,,,,,12,.T.,.T.,.T.)
TPCOMPROV C 002 0 MontaXMLTPCOMPROV C 002 0 MontaXML("tipoComprobante" ,TRA->TPCOMPRO >TPCOMPRO ,,,,,12,.T.,.T.,.T.)
PARRELC C 002 0 MontaXMLPARRELC C 002 0 MontaXML("parteRel" ,"NO" ,,,,,12,.T.,.T.,.T.)
dTReg C 000 0 MontaXMLdTReg C 000 0 MontaXML("fechaRegistro" ,DToC(TRA->DTFECH) ,,,,,12,.T.,.T.,.T.)ESTABL C 003 0 MontaXML ESTABL C 003 0 MontaXML("establecimiento" ,TRA->ESTABEL >ESTABEL ,,,,,12,.T.,.T.,.T.)
PONTOVEND C 003 0 MontaXMLPONTOVEND C 003 0 MontaXML("puntoEmision" ,TRA->PTEMIS >PTEMIS ,,,,,12,.T.,.T.,.T.)
SEQUEN C 009 0 MontaXMLSEQUEN C 009 0 MontaXML("secuencial" ,TRA->SEQUENC >SEQUENC ,,,,,12,.T.,.T.,.T.)
DtEmis C 000 0 MontaXMLDtEmis C 000 0 MontaXML("fechaEmision" ,TRA->DTEMISS >DTEMISS ,,,,,12,.T.,.T.,.T.)
Autoriz C 000 0 MontaXMLAutoriz C 000 0 MontaXML("autorizacion" ,TRA->AUTORIZ >AUTORIZ ,,,,,12,.T.,.T.,.T.)
BasNoGRiva C 000 0 MontaXMLBasNoGRiva C 000 0 MontaXML("baseNoGraIva" ,STRTRAN(TRANSFORM(TRA->BASNOGRV >BASNOGRV ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
BasImponib C 000 0 MontaXMLBasImponib C 000 0 MontaXML("baseImponible" ,STRTRAN(TRANSFORM(TRA->BASIMPON >BASIMPON ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
BasImpGrav C 000 0 MontaXMLBasImpGrav C 000 0 MontaXML("baseImpGrav" ,STRTRAN(TRANSFORM(TRA->BASIMPGR >BASIMPGR ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
BasImpEx C 000 0 MontaXMLBasImpEx C 000 0 MontaXML("baseImpExe" ,STRTRAN(TRANSFORM(_aTotal[012][5] ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValICE C 000 0 MontaXMLValICE C 000 0 MontaXML("montoIce" ,STRTRAN(TRANSFORM(TRA->TOTALICE >TOTALICE ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValIVA C 000 0 MontaXML
ValIVA C 000 0 MontaXML("montoIva" ,STRTRAN(TRANSFORM(TRA->TOTALIVA >TOTALIVA ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValRetB10 C 000 0 MontaXMLValRetB10 C 000 0 MontaXML("valRetBien10" ,STRTRAN(TRANSFORM(_aTotal[012][2] ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValRetS20 C 000 0 MontaXMLValRetS20 C 000 0 MontaXML("valRetServ20" ,STRTRAN(TRANSFORM(_aTotal[012][3] ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValIvaBens C 000 0 MontaXMLValIvaBens C 000 0 MontaXML("valorRetBienes" ,STRTRAN(TRANSFORM(_aTotal[012][6] ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValRetS20 C 000 0 MontaXMLValRetS20 C 000 0 MontaXML("valRetServ50" ,STRTRAN(TRANSFORM(_aTotal[012][4],"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValIvaServ C 000 0 MontaXMLValIvaServ C 000 0 MontaXML("valorRetServicios" ,STRTRAN(TRANSFORM(_aTotal[012][7] ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValRet100 C 000 0 MontaXMLValRet100 C 000 0 MontaXML("valRetServ100" ,STRTRAN(TRANSFORM(_aTotal[012][8],"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ValReemb C 000 0 MontaXMLValReemb C 000 0 MontaXML("totbasesImpReemb" ,STRTRAN(TRANSFORM(IIF(LEN(_aTotal[022])>0,_aTotal[022][1][2],0 0 ),"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
PagExt C 003 0 MontaXMLPagExt C 003 0 MontaXML("pagoExterior" , ,,,,,12 12 ,.T.,.F.,.T.)
PagoLocE C 002 0 MontaXMLPagoLocE C 002 0 MontaXML("pagoLocExt" ,"01" ,,,,,16,.T.,.T.,.T.)
EPagoGen C 002 0 MontaXMLEPagoGen C 002 0 MontaXML("paisEfecPago" ,"NA" ,,,,,16,.T.,.T.,.T.)
Convenio C 002 0 MontaXMLConvenio C 002 0 MontaXML("aplicConvDobTrib" ,"NA" ,,,,,16,.T.,.T.,.T.)
EPagoPar C 002 0 MontaXML)
EPagoPar C 002 0 MontaXML("pagExtSujRetNorLeg" ,"NA" ,,,,,16,.T.,.T.,.T.)
PagExtF C 000 0 MontaXMLPagExtF C 000 0 MontaXML("pagoExterior" , ,,,,,12 12 ,.F.,.T.,.T.)
ForPag C 000 0 MontaXMLForPag C 000 0 MontaXML("formasDePago" , ,,,,,12 12 ,.T.,.F.,.T.)
PagoLocE C 000 0 MontaXMLPagoLocE C 000 0 MontaXML("formaPago" ,TRA->FORPAGO >FORPAGO ,,,,,16,.T.,.T.,.T.)
ForPagF C 000 0 MontaXMLForPagF C 000 0 MontaXML("formasDePago" , ,,,,,12 12 ,.F.,.T.,.T.)
Air C 000 0 Air C 000 0 _aTotal[012][1]
Reembol C 000 0 Reembol C 000 0 _aTotal[025]
DetComprF C 000 0 MontaXMLDetComprF C 000 0 MontaXML("detalleCompras" , ,,,,,8 8 ,.F.,.T.,.T.) [XXX XXX - livro Fiscal Vendaslivro Fiscal Vendas]
ComprasF C 000 0 MontaXMLComprasF C 000 0 MontaXML("compras" , ,,,,,4 4 ,.F.,.T.,.T.)
Vendas C 000 0 MontaXMLVendas C 000 0 MontaXML("ventas" , ,,,,,4 4 ,.T.,.F.,.T.)
[TRB Gera��o do XMLTRB Geração do XML]
(PRE) TRBTRB->(dbGoTop())
DtVendas C 000 0 MontaXMLDtVendas C 000 0 MontaXML("detalleVentas" , ,,,,,8 8 ,.T.,.F.,.T.)
TpIdClie C 000 0 MontaXMLTpIdClie C 000 0 MontaXML("tpIdCliente" ,TRB->TIPDOC >TIPDOC ,,,,,12,.T.,.T.,.T.)
IdClien C 000 0 MontaXMLIdClien C 000 0 MontaXML("idCliente" ,TRB->CDCGC >CDCGC ,,,,,12,.T.,.T.,.T.)
PARRELV C 000 0 MontaXMLPARRELV C 000 0 MontaXML("parteRelVtas" ,"NO" ,,,,,12,.T.,.T.,.T.)
Tpcomprova C 000 0 MontaXMLTpcomprova C 000 0 MontaXML("tipoComprobante" ,TRB->ESPECIE >ESPECIE ,,,,,12,.T.,.T.,.T.)
TEmision C 000 0 MontaXMLTEmision C 000 0 MontaXML("tipoEmision" ,"E" ,,,,,12,.T.,.T.,.T.)
NumComprov C 000 0 MontaXMLNumComprov C 000 0 MontaXML("numeroComprobantes",cvaltochar(TRB->QTDNF) ,,,,,12,.T.,.T.,.T.)
BS2NoGrIva C 000 0 MontaXMLBS2NoGrIva C 000 0 MontaXML("baseNoGraIva" ,STRTRAN(TRANSFORM(TRB->EXENTAS >EXENTAS ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
BS2Imponib C 000 0 MontaXMLBS2Imponib C 000 0 MontaXML("baseImponible" ,STRTRAN(TRANSFORM(TRB->ALQZERO >ALQZERO ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
BS2ImpGrav C 000 0 MontaXMLBS2ImpGrav C 000 0 MontaXML("baseImpGrav" ,STRTRAN(TRANSFORM(TRB->ALQNOZER,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
Vl2IVA C 000 0 MontaXMLVl2IVA C 000 0 MontaXML("montoIva" ,STRTRAN(TRANSFORM(TRB->VALIMP >VALIMP ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
MontoICE C 000 0 MontaXMLMontoICE C 000 0 MontaXML("montoIce" ,STRTRAN(TRANSFORM(TRB->VALICE >VALICE ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
Vl2RetIVA C 000 0 MontaXMLVl2RetIVA C 000 0 MontaXML("valorRetIva" ,STRTRAN(TRANSFORM(TRB->IVARET >IVARET ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
Vl2RetRent C 000 0 MontaXMLVl2RetRent C 000 0 MontaXML("valorRetRenta" ,STRTRAN(TRANSFORM(TRB->VALIRR >VALIRR ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
ForPago C 000 0 MontaXMLForPago C 000 0 MontaXML("formasDePago" , ,,,,,12 12 ,.T.,.F.,.T.)
TEmision C 000 0 MontaXMLTEmision C 000 0 MontaXML("formaPago" ,TRB->FORPAGO >FORPAGO ,,,,,16,.T.,.T.,.T.)
ForPagoF C 000 0 MontaXMLForPagoF C 000 0 MontaXML("formasDePago" , ,,,,,12 12 ,.F.,.T.,.T.)
DtVendasF C 000 0 MontaXMLDtVendasF C 000 0 MontaXML("detalleVentas" , ,,,,,8 8 ,.F.,.T.,.T.) [XXX - livro Fiscal Ventas Establecimiento]
ComprasF C 000 0 MontaXMLXXX - livro Fiscal Ventas Establecimiento]
ComprasF C 000 0 MontaXML("ventas" , ,,,,,4 4 ,.F.,.T.,.T.)
Vendas C 000 0 MontaXMLVendas C 000 0 MontaXML("ventasEstablecimiento" , ,,,,,4 4 ,.T.,.F.,.T.) [TRV Gera��o do XMLTRV Geração do XML]
(PRE) TRVTRV->(dbGoTop())
VenEstab C 000 0 MontaXMLVenEstab C 000 0 MontaXML("ventaEst" , ,,,,,8 8 ,.T.,.F.,.T.)
CodEstab C 000 0 MontaXMLCodEstab C 000 0 MontaXML("codEstab" ,TRV->CODEST >CODEST ,,,,,12,.T.,.T.,.T.)
VenEstab C 000 0 MontaXMLVenEstab C 000 0 MontaXML("ventasEstab" ,STRTRAN(TRANSFORM(0 0 ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
IvaComp C 000 0 MontaXMLIvaComp C 000 0 MontaXML("ivaComp" ,STRTRAN(TRANSFORM(0 0 ,"@E 9999999999@E 9999999999.99"),',','.') ,,,,,12,.T.,.T.,.T.)
VenEstabF C 000 0 MontaXMLVenEstabF C 000 0 MontaXML("ventaEst" , ,,,,,8 8 ,.F.,.T.,.T.) [XXX Identifica��o do ContribuinteXXX Identificação do Contribuinte]
VendasF C 000 0 MontaXMLVendasF C 000 0 MontaXML("ventasEstablecimiento" , ,,,,,4 4 ,.F.,.T.,.T.)
Vendas C 000 0 MontaXML)
Vendas C 000 0 MontaXML("anulados" , ,,,,,4 4 ,.T.,.F.,.T.) [XXX Criacao do arquivo notas canceladasXXX Criacao do arquivo notas canceladas]
(PRE) _atotal[32] := LFeqXMLcanLFeqXMLcan(DTOS(MV_PAR01),DTOS(MV_PAR02)) [TRC Gera��o do XMLTRC Geração do XML]
(PRE) TRCTRC->(dbGoTop())
Dtanulado C 000 0 MontaXMLDtanulado C 000 0 MontaXML("detalleAnulados" , ,,,,,8 8 ,.T.,.F.,.T.)
tpcompro C 000 0 MontaXMLtpcompro C 000 0 MontaXML("tipoComprobante" ,TRC->TIPDOC >TIPDOC ,,,,,12,.T.,.T.,.T.)
estabelec C 000 0 MontaXMLestabelec C 000 0 MontaXML("establecimiento" ,TRC->ESTAB >ESTAB ,,,,,12,.T.,.T.,.T.)
ptemissao C 000 0 MontaXMLptemissao C 000 0 MontaXML("puntoEmision" ,TRC->PTEMIS >PTEMIS ,,,,,12,.T.,.T.,.T.)
sequenIni C 000 0 MontaXMLsequenIni C 000 0 MontaXML("secuencialInicio" ,TRC->SEQINI >SEQINI ,,,,,12,.T.,.T.,.T.)
sequenfin C 000 0 MontaXMLsequenfin C 000 0 MontaXML("secuencialFin" ,TRC->SEQFIM >SEQFIM ,,,,,12,.T.,.T.,.T.)
autoriz C 000 0 MontaXMLautoriz C 000 0 MontaXML("autorizacion" ,TRC->AUTORIZ >AUTORIZ ,,,,,12,.T.,.T.,.T.)
Dtanuladof C 000 0 MontaXMLDtanuladof C 000 0 MontaXML("detalleAnulados" , ,,,,,8 8 ,.F.,.T.,.T.) [XXX Finaliza��oXXX Finalização]
VendasF C 000 0 MontaXMLVendasF C 000 0 MontaXML("anulados" , ,,,,,4 4 ,.F.,.T.,.T.)
IVAF C 000 0 MontaXMLIVAF C 000 0 MontaXML("iva" , ,,,,,4 4 ,.F.,.T.,.T.) [XXX XXX - Nome do ArquivoNome do Arquivo]
(ARQ) &('_aTotal[7]') |
