O
OctavioOlguin
Guest
I did something like this. USING System.Xml.Xsl.*. USING System.Security.Cryptography.*. /* nombrearch contendrá el nombre base, y de aqui se generará: .txt - la cadena original .bin - la cadena ya aplicado el sha1, o sea, ya binaria. .b64 - el sello binario pero ya en base64 */ /* ArchCadenaOriginal AS CHARACTER */ /* archivoSINbom AS LONGCHAR */ /* NombreXSLT AS CHARACTER */ /* cCadenaOriginal AS LONGCHAR */ /* cCadenaDigerida AS RAW */ /* cCadenaBase64 AS CHARACTER */ FIX-CODEPAGE (cCadenaOriginal) = ?. FIX-CODEPAGE (cCadenaBase64) = "UTF-8". ASSIGN ArchCadenaOriginal = dirTrabajo + "cadenaOriginal-" + string(CFDI.NumCFDI) + ".txt". /*-----------------------------------------------------------*/ xslt = NEW XslCompiledTransform(). xslt:Load(NombreXSLT). xslt:Transform(pArchivoDisco, ArchCadenaOriginal). /*-----------------------------------------------------------*/ COPY-LOB FROM FILE ArchCadenaOriginal TO OBJECT cCadenaBase64. COPY-LOB FROM OBJECT cCadenaBase64 TO FILE (ArchCadenaOriginal) NO-CONVERT. FIND CURRENT CFDI EXCLUSIVE-LOCK. ASSIGN CFDI.CadenaOriginal = cCadenaBase64. Hope gives you some clues, or I can elaborate more if you need
Continue reading...
Continue reading...