|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PowerBuilder) Sign XML for eFactura DGI Uruguay (cfe.dgi.gub.uy)Demonstrates how to sign XML for eFactura DGI (Uruguay, cfe.dgi.gub.uy).
integer li_rc integer li_Success oleobject loo_Gen oleobject loo_Cert oleobject loo_SbXml // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. li_Success = 1 // <?xml version="1.0" encoding="utf-8"?> // <DGICFE:EnvioCFE version="1.0" xsi:schemaLocation="http://cfe.dgi.gub.uy EnvioCFE_v1.30.xsd" xmlns:DGICFE="http://cfe.dgi.gub.uy" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> // <DGICFE:Caratula version="1.0"> // <DGICFE:RutReceptor>...</DGICFE:RutReceptor> // <DGICFE:RUCEmisor>...</DGICFE:RUCEmisor> // <DGICFE:Idemisor>...</DGICFE:Idemisor> // <DGICFE:CantCFE>1</DGICFE:CantCFE> // <DGICFE:Fecha>2020-07-29T08:24:34-03:00</DGICFE:Fecha> // <DGICFE:X509Certificate>MIIGc...UJwsTEnI // </DGICFE:X509Certificate> // </DGICFE:Caratula> // <CFE xmlns="http://cfe.dgi.gub.uy" version="1.0"> // <eFact> // <TmstFirma>2020-07-21T12:34:01-03:00</TmstFirma> // <Encabezado> // <IdDoc> // <TipoCFE>111</TipoCFE> // <Serie>A</Serie> // <Nro>...</Nro> // <FchEmis>2020-07-21</FchEmis> // <FmaPago>2</FmaPago> // <FchVenc>2020-09-19</FchVenc> // </IdDoc> // <Emisor> // <RUCEmisor>...</RUCEmisor> // <RznSoc>...</RznSoc> // <NomComercial>...</NomComercial> // <GiroEmis>...</GiroEmis> // <Telefono>(598)...</Telefono> // <Telefono>(598)...</Telefono> // <CorreoEmisor>...</CorreoEmisor> // <EmiSucursal>...</EmiSucursal> // <CdgDGISucur>7</CdgDGISucur> // <DomFiscal>...</DomFiscal> // <Ciudad>Montevideo</Ciudad> // <Departamento>Montevideo</Departamento> // </Emisor> // <Receptor> // <TipoDocRecep>2</TipoDocRecep> // <CodPaisRecep>UY</CodPaisRecep> // <DocRecep>...</DocRecep> // <RznSocRecep>...</RznSocRecep> // <DirRecep>...</DirRecep> // <CiudadRecep>...</CiudadRecep> // <DeptoRecep>...</DeptoRecep> // <PaisRecep/> // <CP>...</CP> // <InfoAdicional/> // <LugarDestEnt>...</LugarDestEnt> // <CompraID>...</CompraID> // </Receptor> // <Totales> // <TpoMoneda>UYU</TpoMoneda> // <MntNoGrv>0.00</MntNoGrv> // <MntExpoyAsim>0.00</MntExpoyAsim> // <MntImpuestoPerc>0.00</MntImpuestoPerc> // <MntIVaenSusp>0.00</MntIVaenSusp> // <MntNetoIvaTasaMin>2701.71</MntNetoIvaTasaMin> // <MntNetoIVATasaBasica>0.00</MntNetoIVATasaBasica> // <MntNetoIVAOtra>0.00</MntNetoIVAOtra> // <IVATasaMin>10.00</IVATasaMin> // <IVATasaBasica>22.00</IVATasaBasica> // <MntIVATasaMin>270.17</MntIVATasaMin> // <MntIVATasaBasica>0.00</MntIVATasaBasica> // <MntIVAOtra>0.00</MntIVAOtra> // <MntTotal>2971.88</MntTotal> // <MntTotRetenido>0.00</MntTotRetenido> // <CantLinDet>1</CantLinDet> // <MontoNF>0.11</MontoNF> // <MntPagar>2971.99</MntPagar> // </Totales> // </Encabezado> // <Detalle> // <Item> // <NroLinDet>1</NroLinDet> // <IndFact>2</IndFact> // <NomItem>...</NomItem> // <DscItem>...</DscItem> // <Cantidad>4.000</Cantidad> // <UniMed/> // <PrecioUnitario>662.185000</PrecioUnitario> // <DescuentoPct>0.000</DescuentoPct> // <DescuentoMonto>0.00</DescuentoMonto> // <RecargoPct>2.000</RecargoPct> // <RecargoMnt>52.97</RecargoMnt> // <MontoItem>2701.71</MontoItem> // </Item> // </Detalle> // <CAEData> // <CAE_ID>90200658285</CAE_ID> // <DNro>1015000</DNro> // <HNro>1016999</HNro> // <FecVenc>2022-05-07</FecVenc> // </CAEData> // </eFact> // </CFE> // </DGICFE:EnvioCFE> loo_Gen = create oleobject // Use "Chilkat_9_5_0.XmlDSigGen" for versions of Chilkat < 10.0.0 li_rc = loo_Gen.ConnectToNewObject("Chilkat.XmlDSigGen") if li_rc < 0 then destroy loo_Gen MessageBox("Error","Connecting to COM object failed") return end if loo_Gen.SigLocation = "DGICFE:EnvioCFE|CFE" loo_Gen.SigLocationMod = 0 loo_Gen.SigNamespacePrefix = "" loo_Gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#" loo_Gen.SignedInfoCanonAlg = "C14N" loo_Gen.SignedInfoDigestMethod = "sha1" // -------- Reference 1 -------- loo_Gen.AddSameDocRef("","sha1","C14N","","") // Provide a certificate + private key. (PFX password is test123) loo_Cert = create oleobject // Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0 li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert") li_Success = loo_Cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") if li_Success <> 1 then Write-Debug loo_Cert.LastErrorText destroy loo_Gen destroy loo_Cert return end if loo_Gen.SetX509Cert(loo_Cert,1) loo_Gen.KeyInfoType = "X509Data" loo_Gen.X509Type = "IssuerSerial" // Load XML to be signed... loo_SbXml = create oleobject // Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0 li_rc = loo_SbXml.ConnectToNewObject("Chilkat.StringBuilder") li_Success = loo_SbXml.LoadFile("qa_data/cfe.dgi.gub.uy/sample.xml","utf-8") if li_Success = 0 then Write-Debug "Failed to load input XML document." destroy loo_Gen destroy loo_Cert destroy loo_SbXml return end if loo_Gen.Behaviors = "IndentedSignature,CompactSignedXml" // Sign the XML... li_Success = loo_Gen.CreateXmlDSigSb(loo_SbXml) if li_Success <> 1 then Write-Debug loo_Gen.LastErrorText destroy loo_Gen destroy loo_Cert destroy loo_SbXml return end if // ----------------------------------------------- // Save the signed XML to a file. li_Success = loo_SbXml.WriteFile("qa_output/signed.xml","utf-8",0) Write-Debug loo_SbXml.GetAsString() destroy loo_Gen destroy loo_Cert destroy loo_SbXml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.