Factura Electronica en VFP ayuda con XML

[alejandrus_tpv]

HOLA A TODOS PARA MI HUBIERA SIDO IMPOSIBLE TERMINAR LA FACTURACION LA HE TERMINADA GRACIAS A USTEDES
EN ESPECIAL ACOMPAÑERO QUE ME DIO CUATRO LINEA D EENCRIPTACION
SE LAS COLOCO D ENUEVO PARA NUEVOS

CON EL OPENSSLL CONVERTIRLAS KEY EN A PEM Y DEPUES ESOS DOS CON EL PKSC12

A UNO SOLO QUE LE LLAMO MA.12 LEER ESTO EN FATURACION ELECTRONICA
EN MESES PASADOS EN ESTE MISMO FORO





Dim objCert As New X509Certificates.X509Certificate2("ma.p12", "")
Dim lRSA As RSACryptoServiceProvider = objCert.PrivateKey
Dim lhasher As New MD5CryptoServiceProvider()

Dim cadenaSello As String
Dim sah1 As New SHA1CryptoServiceProvider()


Dim bytesFirmados As Byte() = lRSA.SignData(System.Text.Encoding.UTF8.GetBytes(c adena), sah1)
cadenaSello = Convert.ToBase64String(bytesFirmados)
Tsello.Text = cadenaSello

LA TRANFORMACION DEU LSO CAMPOS EN PIPES


Dim transformer As XslCompiledTransform
Dim utf8 As Encoding = Encoding.UTF8
Dim encodedBytes As Byte()

Dim strwriter As System.IO.StringWriter = New System.IO.StringWriter()

'creamos la clase transfomer
transformer = New XslCompiledTransform()

'cargamos el xslt (archivo de transformacion) a la clase
transformer.Load(New XPathDocument("E:\cadenaoriginal_2_0.xslt"))

' transformer.Load(New XPathDocument("E:\lavar.xml"))

'procedemos a realizar la transfomración del archivo xml en base al xslt y lo almacenamos en un string que regresaremos

transformer.Transform(New XPathDocument("e:\dalimar.xml"), Nothing, strwriter)

'convertimos la cadena a utf8 y ya esta lista para ser utilizada en el hash

Dim cadena As String = strwriter.ToString
encodedBytes = utf8.GetBytes(strwriter.ToString)




TCadenaOriginal.Text = cadena

Y LA COM AGREGAR LOS CONCEPTOS A UN DOUMENTO


If node.Name = "Conceptos" Then '


For i = 0 To lw.Items.Count - 1
Dim Concepto As XmlElement

' For i As Integer = 0 To 10
Concepto = xmlDoc.CreateElement("Concepto")
With Concepto
.Attributes.Append(xmlDoc.CreateAttribute("cantida d"))
.Attributes("cantidad").Value = lw.Items(i).SubItems(2).Text
.Attributes.Append(xmlDoc.CreateAttribute("descrip cion"))
.Attributes("descripcion").Value = lw.Items(i).SubItems(1).Text
.Attributes.Append(xmlDoc.CreateAttribute("importe "))
.Attributes("importe").Value = lw.Items(i).SubItems(6).Text

.Attributes.Append(xmlDoc.CreateAttribute("unidad" ))
.Attributes("unidad").Value = lw.Items(i).SubItems(9).Text

.Attributes.Append(xmlDoc.CreateAttribute("valorUn itario"))
.Attributes("valorUnitario").Value = lw.Items(i).SubItems(5).Text



.Attributes.Append(xmlDoc.CreateAttribute("xmlns") )
.Attributes("xmlns").Value = "http://www.sat.gob.mx/cfd/2"





End With
node.AppendChild(Concepto)
Next

End If



muchas gracias pero muchas gracias



ESPERO QUE TERMINEN PRONTO

ADIOS