ValidaCFD

danarzeta escribió:crono81: Si pudiste resolver tu problema con el sellado?, porque yo estoy en las mismas y el tiempo ya esta encima.

Pues en realidad ya no he validado recibos de nomina, pues el pac no me marcó errores al timbrar, supongo que están bien.

El xslt de nomina funciona en conjunto con el del cdfi, el cual a su vez, hace uso de uno de utilerias, que ahi viene el uso de campos opcionales y requeridos

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 cadena Espero te ayude

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 cadena

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

Espero te ayude

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.

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.

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:
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

crono81 escribió:

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.

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:
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

Crono81, te agradezco infinitamente, funcionó y ya logre timbrar.

Excelente aporte.

Saludos!!

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 cadena

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

Espero te ayude

Después de 3 días batallando, esto era exactamente lo que necesitaba, muchas gracias!