jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
10e4565b8d7bd009acf892fa0ebcaa5cf45bce72
MBS/PROYECTO/otrodir/generafilexml.4gl
T

957 lines
34 KiB
Plaintext
Raw Blame History

IMPORT util
IMPORT security
IMPORT os
import com
import xml
DEFINE montoFactura DECIMAL(18,2)
DEFINE xfacturainterna int
DEFINE a om.SaxAttributes
DEFINE doc xml.DomDocument
DEFINE out om.SaxDocumentHandler,
i INT,
ruta_originales,ruta_firmados,filexml,inserta_log,ambiente 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,nombrefile2,comando2 STRING
DEFINE r_documento_Detalle DYNAMIC ARRAY OF RECORD
indicadorFacturacion,nombreItem,indicadorBienoServicio,cantidadItem,precioUnitarioItem,
montoItem STRING,
DescripcionItem VARCHAR(1000),
NumeroLinea int
END RECORD ,
hasr varchar(10)
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
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")
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 = "normal32"
CALL out.endElement("ECF")
END IF
CALL out.endDocument()
LET hasr=NULL
IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN
LET ruta_firmados = fgl_getenv("RUTA_XML_FIRMADOS")
CALL firmadocumento(nombreFile)
LET filexml = ruta_firmados CLIPPED,os.Path.baseName(nombreFile)
CALL gethash(filexml) RETURNING ohash,fechaFirma,xfacturainterna
LET nombrefile2=ruta_firmados,documento_encabezado.nombreFile
LET comando2 = "move ",nombrefile2 CLIPPED," ",ruta_firmados CLIPPED,"FC\\",documento_encabezado.nombreFile clipped
DISPLAY "comando 2 ",comando2
RUN comando2
LET fechaFirma = CURRENT
LET chFechaFirma = util.Datetime.format(fechaFirma, "%d-%m-%Y %H:%M:%S" )
LET hasr=ohash clipped
END IF
IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN
LET comando = "move ",nombrefile CLIPPED," ",ruta_originales CLIPPED,"FC\\",documento_encabezado.nombreFile clipped
DISPLAY "comando ",comando
RUN comando
LET nombreFile = ruta_originales,documento_encabezado.nombreFile CLIPPED
LET tipoRecepcion = "normal32"
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
IF r_documento_encabezado.tipoEcf = '32' AND montoFactura < 250000 THEN
LET tipoRecepcion = "normal32"
END IF
CALL ambiente() RETURNING ambiente
CALL procesoEncf(nombrefile,ambiente,tipoRecepcion,xsucid,xbodega,xoperacion,' ')
RETURNING phash,respuesta,codigo
LET inserta_log = "INSERT INTO exterior.dbo.ncf_log
(ncf,fecha,fechafirma,numerofactura,lugar,hash)
values (?,getdate(),?,?,?,?)"
PREPARE inserta_cmd FROM inserta_log
IF LENGTH(hasr CLIPPED)=6 THEN
LET phash = ohash CLIPPED
END IF
EXECUTE inserta_cmd USING nombrefile,fechafirma,"0","en generafile",phash
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 AND r_documento_encabezado.FechaVencimientoSecuencia <> ' ' 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
DISPLAY "EN GENERAFILE: ",r_documento_encabezado.indicadorMontoGravado
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
IF r_documento_encabezado.tipoEcf <> '47' THEN
CALL out.startElement("TipoIngresos",NULL)
CALL out.characters(r_documento_encabezado.tipoIngreso)
CALL out.endElement("TipoIngresos")
END if
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.montoExento > 0 THEN
CALL out.startElement("MontoExento",NULL)
CALL out.characters(r_documento_encabezado.montoExento)
CALL out.endElement("MontoExento")
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("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")
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
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)
DISPLAY "fchash",hasr
# LET fchash = util.Math.rand(150000) USING "&&&&&&"
LET hasr=hasr clipped
CALL out.startElement("CodigoSeguridadeCF",NULL)
CALL out.characters(hasr)
CALL out.endElement("CodigoSeguridadeCF")
CALL out.endElement("Encabezado")
CALL out.endElement("RFCE")
RETURN hasr
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, ambiente STRING,
mensaje, respuesta, codigo 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("RncEmisor",NULL)
CALL out.characters(documento_anular.rnc_emisor)
CALL out.endElement("RncEmisor")
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.endElement("Encabezado")
CALL out.startElement("DetalleAnulacion",NULL)
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("Secuencias",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("Secuencias")
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()
LET ambiente = ambiente()
CALL procesoEncf(nombrefile,ambiente,tipoRecepcion, 0,0,'anular',' ')
RETURNING mensaje, respuesta, codigo
RETURN mensaje, respuesta, codigo
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
Reference in New Issue View Git Blame Copy Permalink