ValidaCFD

Hola.

Con esto de los cambios del sat estoy haciendo modificaciones en el sistema de facturación que actualmente estan utilizando. Es un sistema propio en vb6 y que uso para sellar chilkat. Para facturas en CFD no tengo ningun problema pero ahora que estoy haciendo las modificaciones para CFDI al parecer todo estaba funcionando correctamente. Me contacte con un PAC y mi CFDI me lo valida correctamente pero ahora que estoy probando con otro me marca el siguiente error "Sello del Emisor Invalido". Agrego mi archivo xml y mi codigo que utilizo para sellar mi cfdi

Private Function GenerarSello() As String
Dim pkey As New privateKey
Dim success As Long
Dim pkeyXml As String
Dim rsa As New ChilkatRsa

pkey.LoadPkcs8EncryptedFile App.Path & DIR_PKI & "aaa010101aaa__csd_01.key", "12345678a"

pkeyXml = pkey.GetXml

success = rsa.UnlockComponent(CK_KEY)

If (success <> 1) Then
MsgBox rsa.LastErrorText & vbCrLf, vbCritical
Exit Function
End If

success = rsa.ImportPrivateKey(pkeyXml)
If (success <> 1) Then
Debug.Print rsa.LastErrorText & vbCrLf
Exit Function
End If

rsa.Charset = "utf-8"
rsa.EncodingMode = "base64"
rsa.LittleEndian = 0

Dim base64Sig As String
' Aplicamos el hash md5 a la cadena original
'base64Sig = rsa.SignStringENC(ObtenerCadenaOriginal(m_xmlDOM), "md5")
base64Sig = rsa.SignStringENC(ObtenerCadenaOriginal(m_xmlDOM), "sha1")
CadenaOriginal = ObtenerCadenaOriginal(m_xmlDOM)
GenerarSello = base64Sig

End Function

Valida tu XML con el mejor validador de mexico, lo puedes descargar de aqui www.validacfd.com y te puedes dar cuenta que NO TIENE SELLO !! igual te esta faltando insertarlo despues de haberlo calculado

Me equivoque de archivo. Este es el correcto.

De hecho ya descargue el validador y me marca el mismo error.

Si actualizaste tu codigo para que use el nuevo xslt correspondiente a v3.2?

Si. De hecho como te comento con otro pac le mando el xml en formato CFDI y me regresa la respuesta pero este sin sellar.

Checa que la cadena original que tu usas al momento de generar el sello, sea exactamente igual a la que te muestra ValidaCFD, todo cuenta, espacios, puntos, acentos, etc.

Hola. Gracias por sus comentarios los cuales me ayudaron a ver en donde tenia mi detalle. Ya me valido mi sello.

Hola patrix me podrias echar la mano para generar mi cadena Original en visual basic 6 , estoy tratando de hacerla con visual basic 6
Gracias ...

Con VB.net:

Dim cadenaOriginal As String = ""
Dim transformer As XslCompiledTransform
Dim utf8 As System.Text.Encoding = System.Text.Encoding.UTF8

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("RUTA HACIA TU ARCHIVO XSLT"))
transformer.Transform(comprobante, Nothing, strwriter)
cadenaOriginal = strwriter.ToString