IMPORT util IMPORT security SCHEMA sistemas DEFINE montoFactura DECIMAL(18,2) DEFINE a om.SaxAttributes DEFINE out om.SaxDocumentHandler, i INT, ruta_originales STRING, fechaFirma DATETIME YEAR TO SECOND DEFINE buf base.StringBuffer DEFINE r_documento_encabezado RECORD tipoEcf,eNcf,indicadorMontoGravado,tipoPago,fechaLimitePago,FormadePAgo,montoPago,FechaVencimientoSecuencia, rncEmisor,razonSocialEmisor,direccionEmisor,Municipio,Provincia,telefonoEmisor, correoEmisor,webSite,codigoVendedor,numeroFacturaInterna,numeroPedidoInterno, fechaEmision,rncComprador,razonSocialComprador,montoGravadoTotal,montoGravadoI1, montoGravadoI2,montoGravadoI3,montoExento,itbis1,itbis2,itbis3,totalItbis,totalItbis1, totalItbis2,totalItbis3,montoTotal,tipoIngreso,terminoPago,TipoCuentaPago,NumeroCuentaPago,IdentificadorExtranjero, contactoComprador,CorreoComprador,DireccionComprador,MunicipioComprador,ProvinciaComprador,FechaEntrega,FechaOrdenCompra, NumeroOrdenCompra,CodigoInternoComprador, nombreFile,IndicadorNotaCredito,NCFmodificado,codigoModificacion,fechaNCFmodificado STRING END RECORD, comando,nombreFile STRING DEFINE r_documento_Detalle DYNAMIC ARRAY OF RECORD indicadorFacturacion,nombreItem,indicadorBienoServicio,cantidadItem,precioUnitarioItem, montoItem STRING, DescripcionItem VARCHAR(1000), NumeroLinea int END RECORD FUNCTION generafile(documento_encabezado,documento_Detalle,xsucid,xbodega,xoperacion) DEFINE documento_encabezado RECORD tipoEcf,eNcf,indicadorMontoGravado,tipoPago,fechaLimitePago,FormadePAgo,montoPago,FechaVencimientoSecuencia, rncEmisor,razonSocialEmisor,direccionEmisor,Municipio,Provincia,telefonoEmisor, correoEmisor,webSite,codigoVendedor,numeroFacturaInterna,numeroPedidoInterno, fechaEmision,rncComprador,razonSocialComprador,montoGravadoTotal,montoGravadoI1, montoGravadoI2,montoGravadoI3,montoExento,itbis1,itbis2,itbis3,totalItbis,totalItbis1, totalItbis2,totalItbis3,montoTotal,tipoIngreso,terminoPago,TipoCuentaPago,NumeroCuentaPago,IdentificadorExtranjero, contactoComprador,CorreoComprador,DireccionComprador,MunicipioComprador,ProvinciaComprador,FechaEntrega,FechaOrdenCompra, NumeroOrdenCompra,CodigoInternoComprador, nombreFile,IndicadorNotaCredito,NCFmodificado,codigoModificacion,fechaNCFmodificado STRING END RECORD, chFechaFirma VARCHAR(19), tipoRecepcion VARCHAR(50), xoperacion VARCHAR(30), xsucid,xbodega INT DEFINE documento_Detalle DYNAMIC ARRAY OF RECORD indicadorFacturacion,nombreItem,indicadorBienoServicio,cantidadItem,precioUnitarioItem, montoItem STRING, DescripcionItem VARCHAR(1000), NumeroLinea int END RECORD, respuesta,codigo STRING, phash,ohash VARCHAR(10) LET ohash = NULL LET ruta_originales= fgl_getenv("RUTA_XML_ORIGINALES") #LET ruta_originales = '.\\filesXML\\ncf31\\' # LET documento_encabezado.nombreFile ='130337391E310000000001.XML' LET nombreFile = ruta_originales,documento_encabezado.nombreFile CLIPPED LET r_documento_encabezado.* = documento_encabezado.* LET r_documento_Detalle = documento_detalle LET montoFactura =r_documento_encabezado.montoTotal # CALL fgl_winmessage("ERROR",nombreFile,"INFO") LET out=om.XmlWriter.createFileWriter(nombreFile) LET a=om.SaxAttributes.create() #CALL fgl_winmessage("ERROR",OUT,"INFO") CALL out.startDocument() CALL a.addAttribute("xmlns:xs","http://www.w3.org/2001/XMLSchema") IF r_documento_encabezado.tipoEcf <> '32' THEN LET tipoRecepcion = "normal" CALL out.startElement("ECF",a) CALL a.clear() CALL encabezado() CALL detalle() IF r_documento_encabezado.tipoEcf = 34 OR r_documento_encabezado.tipoEcf = 33 THEN CALL otrosTags() END IF END IF IF r_documento_encabezado.tipoEcf = '32' AND montoFactura > 250000 THEN LET tipoRecepcion = "normal" CALL out.startElement("ECF",a) CALL a.clear() CALL encabezado() CALL detalle() END IF IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN LET tipoRecepcion = "consumo" CALL out.startElement("ECF",a) CALL a.clear() CALL encabezado32() CALL detalle() END IF # IF xoperacion <> 'modificar' THEN LET fechaFirma = CURRENT LET chFechaFirma = util.Datetime.format(fechaFirma, "%d-%m-%Y %H:%M:%S" ) CALL out.startElement("FechaHoraFirma",null) CALL out.characters(chFechaFirma) CALL out.endElement("FechaHoraFirma") # ELSE # SELECT fechaFirmaDigital INTO fechaFirma FROM vetb00002 # WHERE factura = r_documento_encabezado.numeroFacturaInterna AND # sucid = xsucid # LET chFechaFirma = util.Datetime.format(fechaFirma, "%d-%m-%Y %H:%M:%S" ) # CALL out.startElement("FechaHoraFirma",null) # CALL out.characters(chFechaFirma) # CALL out.endElement("FechaHoraFirma") # END IF IF r_documento_encabezado.tipoEcf <> '32' THEN CALL out.endElement("ECF") END IF IF r_documento_encabezado.tipoEcf = '32' AND montoFactura > 250000 THEN LET tipoRecepcion = "normal" CALL out.endElement("ECF") END IF IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN LET tipoRecepcion = "consumo" CALL out.endElement("ECF") END IF CALL out.endDocument() IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN LET comando = "copy ",nombrefile CLIPPED," ",ruta_originales CLIPPED,"\\FC" RUN comando LET nombreFile = ruta_originales,documento_encabezado.nombreFile CLIPPED LET tipoRecepcion = "consumo" LET out=om.XmlWriter.createFileWriter(nombreFile) LET a=om.SaxAttributes.create() CALL out.startDocument() CALL a.addAttribute("xmlns:xs","http://www.w3.org/2001/XMLSchema") CALL resumen32() RETURNING ohash CALL out.endDocument() END IF CALL procesoEncf(nombrefile,"certificacion",tipoRecepcion,xsucid,xbodega,xoperacion,' ') RETURNING phash,respuesta,codigo IF ohash IS NOT NULL THEN LET phash = ohash END IF RETURN phash,respuesta,fechafirma,codigo END FUNCTION FUNCTION encabezado() CALL out.startElement("Encabezado",a) CALL out.startElement("Version",null) CALL out.characters("1.0") CALL out.endElement("Version") CALL a.clear() CALL out.startElement("IdDoc",NULL) CALL out.startElement("TipoeCF",null) CALL out.characters(r_documento_encabezado.tipoEcf CLIPPED) CALL out.endElement("TipoeCF") CALL out.startElement("eNCF",NULL) LET r_documento_encabezado.eNcf = r_documento_encabezado.eNcf CALL out.characters(r_documento_encabezado.eNcf) CALL out.endElement("eNCF") IF r_documento_encabezado.tipoEcf <> '32' AND r_documento_encabezado.tipoEcf <> '34' THEN IF r_documento_encabezado.FechaVencimientoSecuencia IS NOT NULL THEN CALL out.startElement("FechaVencimientoSecuencia",null) CALL out.characters(r_documento_encabezado.FechaVencimientoSecuencia) CALL out.endElement("FechaVencimientoSecuencia") END IF END IF IF r_documento_encabezado.IndicadorNotaCredito IS NOT NULL THEN CALL out.startElement("IndicadorNotaCredito",NULL) CALL out.characters(r_documento_encabezado.IndicadorNotaCredito) CALL out.endElement("IndicadorNotaCredito") END IF IF r_documento_encabezado.indicadorMontoGravado IS NOT NULL THEN CALL out.startElement("IndicadorMontoGravado",null) CALL out.characters(r_documento_encabezado.indicadorMontoGravado) CALL out.endElement("IndicadorMontoGravado") END IF IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN LET r_Documento_encabezado.tipoIngreso = '02' END IF CALL out.startElement("TipoIngresos",NULL) CALL out.characters(r_documento_encabezado.tipoIngreso) CALL out.endElement("TipoIngresos") CALL out.startElement("TipoPago",NULL) CALL out.characters(r_documento_encabezado.tipoPago) CALL out.endElement("TipoPago") IF r_documento_encabezado.fechaLimitePago IS NOT NULL THEN CALL out.startElement("FechaLimitePago",null) CALL out.characters(r_documento_encabezado.fechaLimitePago) CALL out.endElement("FechaLimitePago") END IF IF r_documento_encabezado.terminoPago IS NOT NULL THEN CALL out.startElement("TerminoPago",null) CALL out.characters(r_documento_encabezado.terminoPago) CALL out.endElement("TerminoPago") END IF # AQUI VA LA TABLA FORMA DE PAGO, ESTO NO ES OBLIGATORIO # IF r_documento_encabezado.tipoEcf <> '32' AND r_documento_encabezado.tipoEcf <> 34 THEN IF r_documento_encabezado.tipoEcf <> 34 AND r_documento_encabezado.tipoEcf <> 33 THEN CALL out.startElement("TablaFormasPago",NULL) CALL out.startElement("FormaDePago",NULL) CALL out.startElement("FormaPago",null) CALL out.characters(r_documento_encabezado.tipoPago) CALL out.endElement("FormaPago") CALL out.startElement("MontoPago",null) CALL out.characters(r_documento_encabezado.montoPago) CALL out.endElement("MontoPago") CALL out.endElement("FormaDePago") CALL out.endElement("TablaFormasPago") END IF #---------------------------------------------------------------------------- IF r_documento_encabezado.TipoCuentaPago IS NOT NULL THEN IF r_documento_encabezado.tipoEcf <> '32' THEN CALL out.startElement("TipoCuentaPago",null) CALL out.characters(r_documento_encabezado.TipoCuentaPago) CALL out.endElement("TipoCuentaPago") END IF END IF CALL out.endElement("IdDoc") CALL out.startElement("Emisor",NULL) CALL out.startElement("RNCEmisor",NULL) CALL out.characters(r_documento_encabezado.rncEmisor) CALL out.endElement("RNCEmisor") CALL out.startElement("RazonSocialEmisor",NULL) CALL out.characters(r_documento_encabezado.razonSocialEmisor) CALL out.endElement("RazonSocialEmisor") CALL out.startElement("NombreComercial",NULL) CALL out.characters(r_documento_encabezado.razonSocialEmisor) CALL out.endElement("NombreComercial") IF r_documento_encabezado.direccionEmisor IS NOT NULL THEN CALL out.startElement("DireccionEmisor",NULL) CALL out.characters(r_documento_encabezado.direccionEmisor) CALL out.endElement("DireccionEmisor") END IF CALL out.startElement("Municipio",NULL) CALL out.characters(r_documento_encabezado.Municipio) CALL out.endElement("Municipio") CALL out.startElement("Provincia",NULL) CALL out.characters(r_documento_encabezado.Provincia) CALL out.endElement("Provincia") IF r_documento_encabezado.correoEmisor IS NOT NULL THEN CALL out.startElement("CorreoEmisor",NULL) CALL out.characters(r_documento_encabezado.correoEmisor) CALL out.endElement("CorreoEmisor") END IF IF r_documento_encabezado.codigoVendedor IS NOT NULL THEN CALL out.startElement("CodigoVendedor",NULL) CALL out.characters(r_documento_encabezado.codigoVendedor) CALL out.endElement("CodigoVendedor") END IF IF r_documento_encabezado.numeroFacturaInterna IS NOT NULL THEN CALL out.startElement("NumeroFacturaInterna",NULL) CALL out.characters(r_documento_encabezado.numeroFacturaInterna) CALL out.endElement("NumeroFacturaInterna") END IF IF r_documento_encabezado.numeroPedidoInterno IS NOT NULL THEN CALL out.startElement("NumeroPedidoInterno",NULL) CALL out.characters(r_documento_encabezado.numeroPedidoInterno) CALL out.endElement("NumeroPedidoInterno") END IF CALL out.startElement("FechaEmision",NULL) CALL out.characters(r_documento_encabezado.fechaEmision) CALL out.endElement("FechaEmision") CALL out.endElement("Emisor") CALL out.startElement("Comprador",NULL) IF r_documento_encabezado.rncComprador IS NOT NULL OR r_documento_encabezado.rncComprador <> ' ' THEN CALL out.startElement("RNCComprador",NULL) CALL out.characters(r_documento_encabezado.rncComprador) CALL out.endElement("RNCComprador") ELSE # IF r_documento_encabezado.IdentificadorExtranjero IS NOT NULL THEN CALL out.startElement("IdentificadorExtranjero",NULL) CALL out.characters(r_documento_encabezado.IdentificadorExtranjero) CALL out.endElement("IdentificadorExtranjero") # END IF END IF CALL out.startElement("RazonSocialComprador",NULL) CALL out.characters(r_documento_encabezado.razonSocialComprador) CALL out.endElement("RazonSocialComprador") {CALL out.startElement("ContactoComprador",NULL) CALL out.characters(r_documento_encabezado.contactoComprador) CALL out.endElement("ContactoComprador") } IF r_documento_encabezado.CorreoComprador IS NOT NULL THEN CALL out.startElement("CorreoComprador",NULL) CALL out.characters(r_documento_encabezado.CorreoComprador CLIPPED) CALL out.endElement("CorreoComprador") END IF IF r_documento_encabezado.DireccionComprador IS NOT NULL AND LENGTH(r_documento_encabezado.DireccionComprador) > 5 THEN { LET buf = base.StringBuffer.create() CALL buf.append(r_documento_encabezado.DireccionComprador) CALL buf.replace(",", " ", 0)} CALL out.startElement("DireccionComprador",NULL) CALL out.characters(r_documento_encabezado.DireccionComprador CLIPPED) CALL out.endElement("DireccionComprador") END IF IF r_documento_encabezado.MunicipioComprador IS NOT NULL OR r_documento_encabezado.MunicipioComprador <> ' ' THEN CALL out.startElement("MunicipioComprador",NULL) CALL out.characters(r_documento_encabezado.MunicipioComprador) CALL out.endElement("MunicipioComprador") END IF IF r_documento_encabezado.ProvinciaComprador IS NOT NULL OR r_documento_encabezado.ProvinciaComprador <> ' ' THEN CALL out.startElement("ProvinciaComprador",NULL) CALL out.characters(r_documento_encabezado.ProvinciaComprador) CALL out.endElement("ProvinciaComprador") END IF CALL out.endElement("Comprador") CALL out.startElement("Totales",NULL) IF r_documento_encabezado.tipoEcf <> '44' THEN CALL out.startElement("MontoGravadoTotal",NULL) CALL out.characters(r_documento_encabezado.montoGravadoTotal) CALL out.endElement("MontoGravadoTotal") IF r_documento_encabezado.montoGravadoI1 <> '0' THEN CALL out.startElement("MontoGravadoI1",NULL) CALL out.characters(r_documento_encabezado.montoGravadoI1) CALL out.endElement("MontoGravadoI1") IF r_documento_encabezado.montoGravadoI2 <> '0' THEN CALL out.startElement("MontoGravadoI2",NULL) CALL out.characters(r_documento_encabezado.montoGravadoI2) CALL out.endElement("MontoGravadoI2") END IF END IF IF r_documento_encabezado.montoGravadoI3 IS NOT NULL THEN CALL out.startElement("MontoGravadoI3",NULL) CALL out.characters(r_documento_encabezado.montoGravadoI3) CALL out.endElement("MontoGravadoI3") END IF IF r_documento_encabezado.tipoEcf <> '46' THEN # IF r_documento_encabezado.itbis1 <> '00' THEN CALL out.startElement("ITBIS1",NULL) CALL out.characters(r_documento_encabezado.itbis1) CALL out.endElement("ITBIS1") # END IF END IF IF r_documento_encabezado.itbis2 <> '0' THEN CALL out.startElement("ITBIS2",NULL) CALL out.characters(r_documento_encabezado.itbis2) CALL out.endElement("ITBIS2") END IF IF r_documento_encabezado.montoGravadoI3 IS NOT NULL THEN CALL out.startElement("ITBIS3",NULL) CALL out.characters(r_documento_encabezado.itbis3) CALL out.endElement("ITBIS3") END IF CALL out.startElement("TotalITBIS",NULL) CALL out.characters(r_documento_encabezado.totalItbis) CALL out.endElement("TotalITBIS") IF r_documento_encabezado.tipoEcf <> '46' THEN IF r_documento_encabezado.totalItbis1 <> '.00' THEN CALL out.startElement("TotalITBIS1",NULL) CALL out.characters(r_documento_encabezado.totalItbis1) CALL out.endElement("TotalITBIS1") END IF END IF IF r_documento_encabezado.totalItbis2 <> '0' THEN CALL out.startElement("TotalITBIS2",NULL) CALL out.characters(r_documento_encabezado.totalItbis2) CALL out.endElement("TotalITBIS2") END IF IF r_documento_encabezado.montoGravadoI3 IS NOT NULL THEN CALL out.startElement("TotalITBIS3",NULL) CALL out.characters(r_documento_encabezado.totalItbis3) CALL out.endElement("TotalITBIS3") END IF END IF IF r_documento_encabezado.tipoEcf = '44' THEN IF r_documento_encabezado.montoExento IS NOT NULL THEN CALL out.startElement("MontoExento",NULL) CALL out.characters(r_documento_encabezado.montoExento) CALL out.endElement("MontoExento") END IF END IF CALL out.startElement("MontoTotal",NULL) CALL out.characters(r_documento_encabezado.montoTotal) CALL out.endElement("MontoTotal") CALL out.endElement("Totales") CALL out.endElement("Encabezado") END FUNCTION FUNCTION detalle() CALL out.startElement("DetallesItems",NULL) FOR i =1 TO r_documento_detalle.getLength() CALL out.startElement("Item",NULL) CALL out.startElement("NumeroLinea",NULL) CALL out.characters(i USING "<<<") CALL out.endElement("NumeroLinea") CALL out.startElement("IndicadorFacturacion",NULL) CALL out.characters(r_documento_detalle[i].indicadorFacturacion) CALL out.endElement("IndicadorFacturacion") IF r_documento_detalle[i].nombreItem IS NULL THEN LET r_documento_detalle[i].nombreItem = 'NO TIENE' END IF CALL out.startElement("NombreItem",NULL) CALL out.characters(r_documento_detalle[i].nombreItem) CALL out.endElement("NombreItem") IF r_documento_detalle[i].indicadorBienoServicio IS NULL THEN LET r_documento_detalle[i].indicadorBienoServicio = 2 END IF CALL out.startElement("IndicadorBienoServicio",NULL) CALL out.characters(r_documento_detalle[i].indicadorBienoServicio) CALL out.endElement("IndicadorBienoServicio") CALL out.startElement("CantidadItem",NULL) CALL out.characters(r_documento_detalle[i].cantidadItem) CALL out.endElement("CantidadItem") CALL out.startElement("PrecioUnitarioItem",NULL) CALL out.characters(r_documento_detalle[i].precioUnitarioItem) CALL out.endElement("PrecioUnitarioItem") CALL out.startElement("MontoItem",NULL) CALL out.characters(r_documento_detalle[i].montoItem) CALL out.endElement("MontoItem") CALL out.endElement("Item") END FOR CALL out.endElement("DetallesItems") END FUNCTION FUNCTION encabezado32() CALL out.startElement("Encabezado",a) CALL out.startElement("Version",null) CALL out.characters("1.0") CALL out.endElement("Version") CALL out.startElement("IdDoc",NULL) CALL out.startElement("TipoeCF",null) CALL out.characters(r_documento_encabezado.tipoEcf CLIPPED) CALL out.endElement("TipoeCF") CALL out.startElement("eNCF",NULL) LET r_documento_encabezado.eNcf = r_documento_encabezado.eNcf CALL out.characters(r_documento_encabezado.eNcf) CALL out.endElement("eNCF") CALL out.startElement("TipoIngresos",null) CALL out.characters(r_documento_encabezado.tipoIngreso) CALL out.endElement("TipoIngresos") CALL out.startElement("TipoPago",null) CALL out.characters(r_documento_encabezado.tipoPago) CALL out.endElement("TipoPago") IF r_documento_encabezado.terminoPago IS NOT NULL THEN CALL out.startElement("TerminoPago",null) CALL out.characters(r_documento_encabezado.terminoPago) CALL out.endElement("TerminoPago") END IF CALL out.endElement("IdDoc") CALL out.startElement("Emisor",NULL) CALL out.startElement("RNCEmisor",NULL) CALL out.characters(r_documento_encabezado.rncEmisor) CALL out.endElement("RNCEmisor") CALL out.startElement("RazonSocialEmisor",NULL) CALL out.characters(r_documento_encabezado.razonSocialEmisor) CALL out.endElement("RazonSocialEmisor") CALL out.startElement("NombreComercial",NULL) CALL out.characters(r_documento_encabezado.razonSocialEmisor) CALL out.endElement("NombreComercial") CALL out.startElement("DireccionEmisor",NULL) CALL out.characters(r_documento_encabezado.direccionEmisor) CALL out.endElement("DireccionEmisor") CALL out.startElement("Municipio",NULL) CALL out.characters(r_documento_encabezado.Municipio) CALL out.endElement("Municipio") CALL out.startElement("Provincia",NULL) CALL out.characters(r_documento_encabezado.Provincia) CALL out.endElement("Provincia") CALL out.startElement("CorreoEmisor",NULL) CALL out.characters(r_documento_encabezado.correoEmisor) CALL out.endElement("CorreoEmisor") CALL out.startElement("CodigoVendedor",NULL) CALL out.characters(r_documento_encabezado.codigoVendedor) CALL out.endElement("CodigoVendedor") CALL out.startElement("NumeroFacturaInterna",NULL) CALL out.characters(r_documento_encabezado.numeroFacturaInterna) CALL out.endElement("NumeroFacturaInterna") CALL out.startElement("FechaEmision",NULL) CALL out.characters(r_documento_encabezado.fechaEmision) CALL out.endElement("FechaEmision") CALL out.endElement("Emisor") CALL out.startElement("Comprador",NULL) IF r_documento_encabezado.rncComprador IS NOT NULL THEN CALL out.startElement("RNCComprador",NULL) CALL out.characters(r_documento_encabezado.rncComprador) CALL out.endElement("RNCComprador") ELSE CALL out.startElement("IdentificadorExtranjero",NULL) CALL out.characters(r_documento_encabezado.IdentificadorExtranjero) CALL out.endElement("IdentificadorExtranjero") END IF CALL out.startElement("RazonSocialComprador",NULL) CALL out.characters(r_documento_encabezado.razonSocialComprador) CALL out.endElement("RazonSocialComprador") CALL out.endElement("Comprador") CALL out.startElement("Totales",NULL) CALL out.startElement("MontoGravadoTotal",NULL) CALL out.characters(r_documento_encabezado.montoGravadoTotal) CALL out.endElement("MontoGravadoTotal") CALL out.startElement("MontoGravadoI1",NULL) CALL out.characters(r_documento_encabezado.montoGravadoTotal) CALL out.endElement("MontoGravadoI1") { CALL out.startElement("MontoExento",NULL) CALL out.characters(r_documento_encabezado.montoExento) CALL out.endElement("MontoExento") } CALL out.startElement("TotalITBIS",NULL) CALL out.characters(r_documento_encabezado.totalItbis) CALL out.endElement("TotalITBIS") IF r_documento_encabezado.totalItbis1 <> '.00' THEN CALL out.startElement("TotalITBIS1",NULL) CALL out.characters(r_documento_encabezado.totalItbis1) CALL out.endElement("TotalITBIS1") END IF CALL out.startElement("MontoTotal",NULL) CALL out.characters(r_documento_encabezado.montoTotal) CALL out.endElement("MontoTotal") CALL out.endElement("Totales") CALL out.endElement("Encabezado") END FUNCTION FUNCTION resumen32() DEFINE fchash VARCHAR(6), xhash,xfechafirmadigital,xfacturainterna STRING CALL out.startElement("RFCE",a) CALL out.startElement("Encabezado",a) CALL out.startElement("Version",null) CALL out.characters("1.0") CALL out.endElement("Version") CALL a.clear() CALL out.startElement("IdDoc",NULL) CALL out.startElement("TipoeCF",null) CALL out.characters(r_documento_encabezado.tipoEcf CLIPPED) CALL out.endElement("TipoeCF") CALL out.startElement("eNCF",NULL) LET r_documento_encabezado.eNcf = r_documento_encabezado.eNcf CALL out.characters(r_documento_encabezado.eNcf) CALL out.endElement("eNCF") CALL out.startElement("TipoIngresos",null) CALL out.characters(r_documento_encabezado.tipoIngreso) CALL out.endElement("TipoIngresos") CALL out.startElement("TipoPago",null) CALL out.characters(r_documento_encabezado.tipoPago) CALL out.endElement("TipoPago") CALL out.startElement("TablaFormasPago",NULL) CALL out.startElement("FormaDePago",NULL) CALL out.startElement("FormaPago",null) CALL out.characters(r_documento_encabezado.tipoPago) CALL out.endElement("FormaPago") CALL out.startElement("MontoPago",null) CALL out.characters(r_documento_encabezado.montoPago) CALL out.endElement("MontoPago") CALL out.endElement("FormaDePago") CALL out.endElement("TablaFormasPago") { IF r_documento_encabezado.terminoPago IS NOT NULL THEN CALL out.startElement("TerminoPago",null) CALL out.characters(r_documento_encabezado.terminoPago) CALL out.endElement("TerminoPago") END IF} CALL out.endElement("IdDoc") CALL out.startElement("Emisor",NULL) CALL out.startElement("RNCEmisor",NULL) CALL out.characters(r_documento_encabezado.rncEmisor) CALL out.endElement("RNCEmisor") CALL out.startElement("RazonSocialEmisor",NULL) CALL out.characters(r_documento_encabezado.razonSocialEmisor) CALL out.endElement("RazonSocialEmisor") CALL out.startElement("FechaEmision",NULL) CALL out.characters(r_documento_encabezado.fechaEmision) CALL out.endElement("FechaEmision") CALL out.endElement("Emisor") CALL out.startElement("Comprador",NULL) IF r_documento_encabezado.rncComprador IS NOT NULL THEN CALL out.startElement("RNCComprador",NULL) CALL out.characters(r_documento_encabezado.rncComprador) CALL out.endElement("RNCComprador") ELSE CALL out.startElement("IdentificadorExtranjero",NULL) CALL out.characters(r_documento_encabezado.IdentificadorExtranjero) CALL out.endElement("IdentificadorExtranjero") END IF CALL out.startElement("RazonSocialComprador",NULL) CALL out.characters(r_documento_encabezado.razonSocialComprador) CALL out.endElement("RazonSocialComprador") CALL out.endElement("Comprador") CALL out.startElement("Totales",NULL) CALL out.startElement("MontoGravadoTotal",NULL) CALL out.characters(r_documento_encabezado.montoGravadoTotal) CALL out.endElement("MontoGravadoTotal") CALL out.startElement("MontoGravadoI1",NULL) CALL out.characters(r_documento_encabezado.montoGravadoTotal) CALL out.endElement("MontoGravadoI1") CALL out.startElement("MontoExento",NULL) CALL out.characters(r_documento_encabezado.montoExento) CALL out.endElement("MontoExento") CALL out.startElement("TotalITBIS",NULL) CALL out.characters(r_documento_encabezado.totalItbis) CALL out.endElement("TotalITBIS") IF r_documento_encabezado.totalItbis1 <> '.00' THEN CALL out.startElement("TotalITBIS1",NULL) CALL out.characters(r_documento_encabezado.totalItbis1) CALL out.endElement("TotalITBIS1") END IF CALL out.startElement("MontoTotal",NULL) CALL out.characters(r_documento_encabezado.montoTotal) CALL out.endElement("MontoTotal") CALL out.endElement("Totales") # BUSCA EL CODIGO DE SEGURIDAD # SELECT hash INTO fchash FROM vetb00002 WHERE factura = r_documento_encabezado.numeroFacturaInterna # LET fchash = r_documento_encabezado.razonSocialComprador.subString(1,4), # r_documento_encabezado.numeroFacturaInterna.subString(3,5) LET fchash = util.Math.rand(150000) USING "&&&&&&" CALL out.startElement("CodigoSeguridadeCF",NULL) CALL out.characters(fchash) CALL out.endElement("CodigoSeguridadeCF") CALL out.endElement("Encabezado") CALL out.endElement("RFCE") RETURN fchash END FUNCTION FUNCTION anularencf(documento_anular) DEFINE documento_anular RECORD nombrefile,rnc_emisor,cantidadEncf,fechaAnulacion,numeroLineas,tipoeCF,secuenciaeCFdesde,secuenciaeCFhasta, cantidadeCFanulados STRING END RECORD, nombrefile,tiporecepcion string LET ruta_originales= fgl_getenv("RUTA_XML_ORIGINALES") #LET ruta_originales = '.\\filesXML\\ncf31\\' # LET documento_encabezado.nombreFile ='130337391E310000000001.XML' LET nombreFile = ruta_originales,documento_anular.nombreFile CLIPPED LET tiporecepcion = 'ANULAR' LET out=om.XmlWriter.createFileWriter(nombreFile) LET a=om.SaxAttributes.create() CALL out.startDocument() CALL a.addAttribute("xmlns:xs","http://www.w3.org/2001/XMLSchema") CALL out.startElement("ANECF",a) CALL a.clear() CALL out.startElement("Encabezado",a) CALL out.startElement("Version",null) CALL out.characters("1.0") CALL out.endElement("Version") CALL a.clear() CALL out.startElement("CantidadeNCFAnulados",NULL) CALL out.characters(documento_anular.cantidadeCFanulados) CALL out.endElement("CantidadeNCFAnulados") CALL out.startElement("FechaHoraAnulacioneNCF",NULL) CALL out.characters(documento_anular.fechaAnulacion) CALL out.endElement("FechaHoraAnulacioneNCF") CALL out.startElement("DetalleAnulacion",NULL) CALL out.startElement("FechaHoraAnulacioneNCF",NULL) CALL out.characters(documento_anular.fechaAnulacion) CALL out.endElement("FechaHoraAnulacioneNCF") CALL out.startElement("Anulacion",NULL) CALL out.startElement("NoLinea",NULL) CALL out.characters(documento_anular.numeroLineas) CALL out.endElement("NoLinea") CALL out.startElement("TipoeCF",NULL) CALL out.characters(documento_anular.tipoeCF) CALL out.endElement("TipoeCF") CALL out.startElement("TablaRangoSecuenciasAnuladaseNCF",NULL) CALL out.startElement("SecuenciaeNCFDesde",NULL) CALL out.characters(documento_anular.secuenciaeCFdesde) CALL out.endElement("SecuenciaeNCFDesde") CALL out.startElement("SecuenciaeNCFHasta",NULL) CALL out.characters(documento_anular.secuenciaeCFhasta) CALL out.endElement("SecuenciaeNCFHasta") CALL out.endElement("TablaRangoSecuenciasAnuladaseNCF") CALL out.startElement("CantidadeNCFAnulados",NULL) CALL out.characters(documento_anular.cantidadeCFanulados) CALL out.endElement("CantidadeNCFAnulados") CALL out.endElement("Anulacion") CALL out.endElement("DetalleAnulacion") CALL out.endElement("ANECF") CALL out.endDocument() #CALL procesoEncf(nombrefile,"test",tipoRecepcion) END FUNCTION FUNCTION otrosTags() CALL out.startElement("InformacionReferencia",NULL) CALL out.startElement("NCFModificado",null) CALL out.characters(r_documento_encabezado.NCFmodificado) CALL out.endElement("NCFModificado") CALL out.startElement("FechaNCFModificado",null) CALL out.characters(r_documento_encabezado.fechaNCFmodificado) CALL out.endElement("FechaNCFModificado") CALL out.startElement("CodigoModificacion",null) CALL out.characters(r_documento_encabezado.codigoModificacion) CALL out.endElement("CodigoModificacion") CALL out.startElement("RazonModificacion",null) CALL out.characters("No tenemos razones") CALL out.endElement("RazonModificacion") CALL out.endElement("InformacionReferencia") END FUNCTION