Pues en realidad ya no he validado recibos de nomina, pues el pac no me marcó errores al timbrar, supongo que están bien.danarzeta escribió:crono81: Si pudiste resolver tu problema con el sellado?, porque yo estoy en las mismas y el tiempo ya esta encima.
Código: Seleccionar todo
Function GeneraCadena(ByVal _PathXML As String, ByVal _PathXLST As String) As String
Dim strCadena As String
Dim xmlDoc As New System.Xml.XmlDocument
Dim CadenaOriginal As String
Dim transformer As System.Xml.Xsl.XslCompiledTransform
Dim Archivo_XSLT As String
Dim document As New System.Xml.XmlDocument
Dim navigator As System.Xml.XPath.XPathNavigator
Dim output As New System.IO.StringWriter()
document = New System.Xml.XmlDocument()
transformer = New System.Xml.Xsl.XslCompiledTransform
Try
Archivo_XSLT = _PathXLST
document.Load(_PathXML)
navigator = document.CreateNavigator
transformer.Load(Archivo_XSLT)
transformer.Transform(navigator, Nothing, output)
Console.WriteLine(output.ToString)
CadenaOriginal = output.ToString
strCadena = _PathXML.Substring(0, _PathXML.LastIndexOf("\") + 1) & "cadena.txt"
System.IO.File.WriteAllText(strCadena, CadenaOriginal)
output.Close()
'MessageBox.Show(CadenaOriginal)
Return strCadena
Catch ex As Exception
MsgBox(ex.Message)
Return ""
Finally
document = Nothing
transformer = Nothing
navigator = Nothing
output.Dispose()
End Try
End Function
Que tal, espero me puedan apoyar, estoy intentando timbrar mi recibo pero me dice que el sello es invalido, utilizo xsltproc y cadenaoriginal_3_2.xslt para generar la cadena original, al parecer la genera de forma correcta ya que esta tomando en cuenta el complemento de nomina, utilizo openssl para generar el sello, pero no funciona, les dejo los comando que utilizo:rams escribió:Yo tenia el mismo problema y utilice el siguiente xlst y se resolvió...
http://www.sat.gob.mx/sitio_internet/cf ... l_3_2.xslt
utilizo la siguiente función para generar la cadenaEspero te ayudeCódigo: Seleccionar todo
Function GeneraCadena(ByVal _PathXML As String, ByVal _PathXLST As String) As String Dim strCadena As String Dim xmlDoc As New System.Xml.XmlDocument Dim CadenaOriginal As String Dim transformer As System.Xml.Xsl.XslCompiledTransform Dim Archivo_XSLT As String Dim document As New System.Xml.XmlDocument Dim navigator As System.Xml.XPath.XPathNavigator Dim output As New System.IO.StringWriter() document = New System.Xml.XmlDocument() transformer = New System.Xml.Xsl.XslCompiledTransform Try Archivo_XSLT = _PathXLST document.Load(_PathXML) navigator = document.CreateNavigator transformer.Load(Archivo_XSLT) transformer.Transform(navigator, Nothing, output) Console.WriteLine(output.ToString) CadenaOriginal = output.ToString strCadena = _PathXML.Substring(0, _PathXML.LastIndexOf("\") + 1) & "cadena.txt" System.IO.File.WriteAllText(strCadena, CadenaOriginal) output.Close() 'MessageBox.Show(CadenaOriginal) Return strCadena Catch ex As Exception MsgBox(ex.Message) Return "" Finally document = Nothing transformer = Nothing navigator = Nothing output.Dispose() End Try End Function
Te has fijado en tu sello generado?, que valor trae, si tienes el error que yo tenia (y que pienzo que es lo mismo), prueba lo siguiente:freevirus78 escribió:
Que tal, espero me puedan apoyar, estoy intentando timbrar mi recibo pero me dice que el sello es invalido, utilizo xsltproc y cadenaoriginal_3_2.xslt para generar la cadena original, al parecer la genera de forma correcta ya que esta tomando en cuenta el complemento de nomina, utilizo openssl para generar el sello, pero no funciona, les dejo los comando que utilizo:
xsltproc cadenaoriginal_3_2.xslt FA-CFDI.xml > CADORIG.txt
openssl dgst -sha1 -sign LLAVEPRIVADA.pem.txt -out SelloBin.txt CADORIG.TXT
openssl enc -base64 -in SelloBin.txt -out SELLO.txt
Cabe mencionar que estas mismas instrucciones las utilizo para sellar las facturas y trabaja correctamente.
Alguien podria ayudarme???? Ya estuve buscando por todos lados pero no encuentro la solucion.
Gracias.
Crono81, te agradezco infinitamente, funcionó y ya logre timbrar.crono81 escribió:Te has fijado en tu sello generado?, que valor trae, si tienes el error que yo tenia (y que pienzo que es lo mismo), prueba lo siguiente:freevirus78 escribió:
Que tal, espero me puedan apoyar, estoy intentando timbrar mi recibo pero me dice que el sello es invalido, utilizo xsltproc y cadenaoriginal_3_2.xslt para generar la cadena original, al parecer la genera de forma correcta ya que esta tomando en cuenta el complemento de nomina, utilizo openssl para generar el sello, pero no funciona, les dejo los comando que utilizo:
xsltproc cadenaoriginal_3_2.xslt FA-CFDI.xml > CADORIG.txt
openssl dgst -sha1 -sign LLAVEPRIVADA.pem.txt -out SelloBin.txt CADORIG.TXT
openssl enc -base64 -in SelloBin.txt -out SELLO.txt
Cabe mencionar que estas mismas instrucciones las utilizo para sellar las facturas y trabaja correctamente.
Alguien podria ayudarme???? Ya estuve buscando por todos lados pero no encuentro la solucion.
Gracias.
Verifica tu archivo XSLT (cadenaoriginal_3_2.xslt), abrelo con bloc de notas, y busca esta linea "<xsl:stylesheet version="2.0">", donde dice version ponle 1.0, en lugar de 2.0, pero como se usa tambien este archivo: "http://www.sat.gob.mx/sitio_internet/cf ... ina11.xslt", puedes verificarlo en tu xslt a donde hace referencia para el nomina11.xslt, en archivo nomina tambien trae version 2, hay que descargar el xslt, cambiarle a 1.0, luego en tu xslt de cadena original 3.2, cambiar la referencia de la nomina y que se dirija a tu archivo local modificado de nomina
Después de 3 días batallando, esto era exactamente lo que necesitaba, muchas gracias!rams escribió:Yo tenia el mismo problema y utilice el siguiente xlst y se resolvió...
http://www.sat.gob.mx/sitio_internet/cf ... l_3_2.xslt
utilizo la siguiente función para generar la cadenaEspero te ayudeCódigo: Seleccionar todo
Function GeneraCadena(ByVal _PathXML As String, ByVal _PathXLST As String) As String Dim strCadena As String Dim xmlDoc As New System.Xml.XmlDocument Dim CadenaOriginal As String Dim transformer As System.Xml.Xsl.XslCompiledTransform Dim Archivo_XSLT As String Dim document As New System.Xml.XmlDocument Dim navigator As System.Xml.XPath.XPathNavigator Dim output As New System.IO.StringWriter() document = New System.Xml.XmlDocument() transformer = New System.Xml.Xsl.XslCompiledTransform Try Archivo_XSLT = _PathXLST document.Load(_PathXML) navigator = document.CreateNavigator transformer.Load(Archivo_XSLT) transformer.Transform(navigator, Nothing, output) Console.WriteLine(output.ToString) CadenaOriginal = output.ToString strCadena = _PathXML.Substring(0, _PathXML.LastIndexOf("\") + 1) & "cadena.txt" System.IO.File.WriteAllText(strCadena, CadenaOriginal) output.Close() 'MessageBox.Show(CadenaOriginal) Return strCadena Catch ex As Exception MsgBox(ex.Message) Return "" Finally document = Nothing transformer = Nothing navigator = Nothing output.Dispose() End Try End Function