Página 2 de 8
Re: Timbrado con Diverza
Publicado: Mar Sep 26, 2017 1:39 pm
por jggtz
Adjunta el json request en un archivo para poder examinarlo y comentar si acaso tienes un error ... en el codigo que pones no es facil de verlo ya formado
Re: Timbrado con Diverza
Publicado: Mar Sep 26, 2017 7:19 pm
por Pirip
Es Visual Basic? Prácticamente nunca he usado ese lenguaje, por lo que no sabría decirte si estás haciendo algo mal ahí, pero desde la página de Diverza que postee arriba (
http://docs.diverza.apiary.io/#reference/0/stamp/stamp) viene código en ese lenguaje (y otros):
Código: Seleccionar todo
Dim request = TryCast(System.Net.WebRequest.Create("http://192.237.238.229:4006/api/v1/documents/stamp
"), System.Net.HttpWebRequest)
request.Method = "POST"
request.ContentType = "application/json"
Using writer = New System.IO.StreamWriter(request.GetRequestStream())
Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes("{
\""credentials\"": {
\""id\"": \""1\"",
\""token\"": \""$2b$12$o03C1kz6fRNalss2yvYE7efSOs1IDsh5l04RmCMnooesl8KoYmh7S\""
},
\""issuer\"": {
\""rfc\"": \""AAA010101AAA\""
},
\""receiver\"": {
\""emails\"": [
{
\""email\"": \""user@domain.com\"",
\""format\"": \""xml+pdf\"",
\""template\"": \""letter\""
}
]
},
\""document\"": {
\""ref-id\"": \""1234567\"",
\""certificate-number\"": \""20001000000100005867\"",
\""section\"": \""all\"",
\""format\"": \""pdf\"",
\""template\"": \""letter\"",
\""type\"": \""application/vnd.diverza.cfdi_3.2+xml\"",
\""content\"": \""PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz4NCjxSZW1pc2lvbiB4bWxucz0iaHR0cDovL3d3dy5idXpvbmZpc2NhbC5jb20vbnMveHNkL2JmL3JlbWlzaW9uLzUyIg0KICAgIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiDQogICAgeHNpOnNjaGVtYUxvY2F0aW9uPSJodHRwOi8vd3d3LmJ1em9uZmlzY2FsLmNvbS9ucy94c2QvYmYvcmVtaXNpb24vNTIiDQogICAgdmVyc2lvbj0iNS4yIj4NCiAgICA8SW5mb0Jhc2ljYSByZmNFbWlzb3I9IkFBQTAxMDEwMUFBQSIgcmZjUmVjZXB0b3I9IkRJQTAzMTAwMkxaMiINCiAgICAgICAgYWxpYXNTdWN1cnNhbD0iIiAgYXNpZ25hRm9saW89ImZhbHNlIiBmb2xpbz0iMTIzNDUiDQogICAgICAgIHNlcmllPSJBIj48L0luZm9CYXNpY2E+DQogICAgPEluZm9BZGljaW9uYWwgZm9ybWFEZVBhZ289IlBBR08gRU4gVU5BIFNPTEEgRVhISUJJQ0lPTiIgc3ViVG90YWw9IjEwMDAwLjAwIiB0b3RhbD0iNzYwMC4wMCINCiAgICAgICAgbWV0b2RvRGVQYWdvPSJUUkFOU0ZFUkVOQ0lBIiB0aXBvRGVDb21wcm9iYW50ZT0iZWdyZXNvIiBsdWdhckV4cGVkaWNpb249Ik1vbnRlcnJleSwgTkwiDQogICAgICAgIG51bUN0YVBhZ289IjEyMTIiIGRlc2N1ZW50bz0iMjAwLjAwIi8+DQogICAgPEVtaXNvcj4NCiAgICAgICAgPFJlZ2ltZW5GaXNjYWwgUmVnaW1lbj0iUGVyc29uYSBNb3JhbCIvPg0KICAgIDwvRW1pc29yPg0KICAgIDxEb21pY2lsaW9GaXNjYWwgY2FsbGU9IkRvY3RvciBKb3PDqSBNYXLDrWEgQ29zcyIgbXVuaWNpcGlvPSJNb250ZXJyZXkiIGVzdGFkbz0iTnVldm8gTGXDs24iIHBhaXM9Ik1leGljbyINCiAgICAgICAgY29kaWdvUG9zdGFsPSI2NDAwMCIgbm9FeHRlcmlvcj0iNzMxIi8+DQogICAgPFJlY2VwdG9yIG5vbWJyZT0iRGl2ZXJ6YSBJbmZvcm1hY2nDs24geSBBbsOhbGlzaXMsIFMuQS5QLkkuIGRlIEMuVi4iLz4NCiAgICA8RG9taWNpbGlvUmVjZXB0b3IgcGFpcz0iTWV4aWNvIiBjYWxsZT0iRG9jdG9yIEpvc8OpIE1hcsOtYSBDb3NzIiBub0V4dGVyaW9yPSI3MzEiICBub0ludGVyaW9yPSJwaXNvIDkiIGNvZGlnb1Bvc3RhbD0iNjQwMDAiDQogICAgICAgIG11bmljaXBpbz0iTW9udGVycnJleSIvPg0KICAgIDxDb25jZXB0b3M+DQogICAgICAgIDxDb25jZXB0byBjYW50aWRhZD0iMTAwIiB1bmlkYWQ9IlBaQSIgbm9JZGVudGlmaWNhY2lvbj0iQUJDMDAwMTAyMDMwIiBkZXNjcmlwY2lvbj0iUHJvZHVjdG8gZGUgcHJ1ZWJhIg0KICAgICAgICAgICAgdmFsb3JVbml0YXJpbz0iMTAuMDAiIGltcG9ydGU9IjEwMDAuMDAiPiA8L0NvbmNlcHRvPg0KICAgIDwvQ29uY2VwdG9zPg0KICAgIDxJbXB1ZXN0b3MgdG90YWxJbXB1ZXN0b3NUcmFzbGFkYWRvcz0iMTYwLjAwIj4NCiAgICAgICAgPFRyYXNsYWRvcz4NCiAgICAgICAgICAgIDxUcmFzbGFkbyBpbXB1ZXN0bz0iSVZBIiB0YXNhPSIxNi4wMCIgaW1wb3J0ZT0iMTYwLjAwIi8+DQogICAgICAgIDwvVHJhc2xhZG9zPg0KICAgIDwvSW1wdWVzdG9zPg0KICAgIDxBZGRlbmRhPg0KICAgICAgICA8YmZhMjpBZGRlbmRhQnV6b25GaXNjYWwgdmVyc2lvbj0iMi4wIg0KICAgICAgICAgICAgeG1sbnM6YmZhMj0iaHR0cDovL3d3dy5idXpvbmZpc2NhbC5jb20vbnMvYWRkZW5kYS9iZi8yIj4NCiAgICAgICAgICAgIDxiZmEyOlRpcG9Eb2N1bWVudG8gZGVzY3JpcGNpb249IkZhY3R1cmEiIG5vbWJyZUNvcnRvPSJGQUMiLz4NCiAgICAgICAgICAgIDxiZmEyOkNGRCBmZWNoYUVudmlvPSIyMDE1LTEwLTA5VDA5OjQxOjA0Ig0KICAgICAgICAgICAgICAgIHRvdGFsQ29uTGV0cmE9Ik1pbCBjaWVudG8gc2VzZW50YSBwZXNvcyBjb24gMDAvMTAwIE0uTi4iIHRpcG9Nb25lZGE9Ik1YTiIvPg0KICAgICAgICAgICAgPGJmYTI6RXh0cmEgYXRyaWJ1dG89IlQqVE9UQUwiIHZhbG9yPSIxMTYwLjAwIi8+DQogICAgICAgICAgICA8YmZhMjpFeHRyYSBhdHJpYnV0bz0ibnVtZXJvVGlja2V0IiB2YWxvcj0iMDAwMDBDMDAwMTAwMDAwOTg3NjUiLz4NCiAgICAgICAgICAgIDxiZmEyOkV4dHJhIGF0cmlidXRvPSJ0aWVuZGEiIHZhbG9yPSJDZW50cm8iLz4NCiAgICAgICAgPC9iZmEyOkFkZGVuZGFCdXpvbkZpc2NhbD4NCiAgICA8L0FkZGVuZGE+DQo8L1JlbWlzaW9uPg==\""
}
}")
request.ContentLength = byteArray.Length
writer.Write(byteArray)
writer.Close()
End Using
Dim responseContent As String
Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
Using reader = New System.IO.StreamReader(response.GetResponseStream())
responseContent = reader.ReadToEnd()
End Using
End Using
Espero te pueda servir de guía.
Re: Timbrado con Diverza
Publicado: Jue Sep 28, 2017 2:40 pm
por kokyno
Buenas tardes antes que nada mil gracia spor sus respuestas pero ya intente con el ejemplo de diverza que tiene en su web y me da error tambien.
Adjunto el Json que utilizo
Código: Seleccionar todo
{
"credentials": {
"id": "3935",
"token": "ABCD1234"
},
"issuer": {"rfc": "AAA010101AAA"},
"receiver": {"emails": [{
"email": "nombre@micliente.com",
"format": "xml+pdf",
"template": "letter"
}]},
"document": {
"ref-id": "EDV2017040300003",
"certificate-number": "30001000000300023708",
"section": "all",
"format": "xml",
"template": "letter",
"type": "application/vnd.diverza.cfdi_3.3+xml",
"content": "77u/PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiPz48Y2ZkaTpDb21wcm9iYW50ZSB4bWxuczpjZmRpPSJodHRwOi8vd3d3LnNhdC5nb2IubXgvY2ZkLzMiIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiIHhzaTpzY2hlbWFMb2NhdGlvbj0iaHR0cDovL3d3dy5zYXQuZ29iLm14L2NmZC8zIGh0dHA6Ly93d3cuc2F0LmdvYi5teC9zaXRpb19pbnRlcm5ldC9jZmQvMy9jZmR2MzMueHNkIiBWZXJzaW9uPSIzLjMiIFNlcmllPSJBIiBGb2xpbz0iNjE3MiIgRmVjaGE9IjIwMTctMDktMjZUMTE6NDM6MjkiIFNlbGxvPSIiIEZvcm1hUGFnbz0iMDEiIE5vQ2VydGlmaWNhZG89IjMwMDAxMDAwMDAwMzAwMDIzNzA4IiBDZXJ0aWZpY2Fkbz0iTUlJRitUQ0NBK0dnQXdJQkFnSVVNekF3TURFd01EQXdNREF6TURBd01qTTNNRGd3RFFZSktvWklodmNOQVFFTEJRQXdnZ0ZtTVNBd0hnWURWUVFEREJkQkxrTXVJRElnWkdVZ2NISjFaV0poY3lnME1EazJLVEV2TUMwR0ExVUVDZ3dtVTJWeWRtbGphVzhnWkdVZ1FXUnRhVzVwYzNSeVlXTnB3N051SUZSeWFXSjFkR0Z5YVdFeE9EQTJCZ05WQkFzTUwwRmtiV2x1YVhOMGNtRmphY096YmlCa1pTQlRaV2QxY21sa1lXUWdaR1VnYkdFZ1NXNW1iM0p0WVdOcHc3TnVNU2t3SndZSktvWklodmNOQVFrQkZocGhjMmx6Ym1WMFFIQnlkV1ZpWVhNdWMyRjBMbWR2WWk1dGVERW1NQ1FHQTFVRUNRd2RRWFl1SUVocFpHRnNaMjhnTnpjc0lFTnZiQzRnUjNWbGNuSmxjbTh4RGpBTUJnTlZCQkVNQlRBMk16QXdNUXN3Q1FZRFZRUUdFd0pOV0RFWk1CY0dBMVVFQ0F3UVJHbHpkSEpwZEc4Z1JtVmtaWEpoYkRFU01CQUdBMVVFQnd3SlEyOTViMkZqdzZGdU1SVXdFd1lEVlFRdEV3eFRRVlE1TnpBM01ERk9Uak14SVRBZkJna3Foa2lHOXcwQkNRSU1FbEpsYzNCdmJuTmhZbXhsT2lCQlEwUk5RVEFlRncweE56QTFNVGd3TXpVME5UWmFGdzB5TVRBMU1UZ3dNelUwTlRaYU1JSGxNU2t3SndZRFZRUURFeUJCUTBORlRTQlRSVkpXU1VOSlQxTWdSVTFRVWtWVFFWSkpRVXhGVXlCVFF6RXBNQ2NHQTFVRUtSTWdRVU5EUlUwZ1UwVlNWa2xEU1U5VElFVk5VRkpGVTBGU1NVRk1SVk1nVTBNeEtUQW5CZ05WQkFvVElFRkRRMFZOSUZORlVsWkpRMGxQVXlCRlRWQlNSVk5CVWtsQlRFVlRJRk5ETVNVd0l3WURWUVF0RXh4QlFVRXdNVEF4TURGQlFVRWdMeUJJUlVkVU56WXhNREF6TkZNeU1SNHdIQVlEVlFRRkV4VWdMeUJJUlVkVU56WXhNREF6VFVSR1VrNU9NRGt4R3pBWkJnTlZCQXNVRWtOVFJEQXhYMEZCUVRBeE1ERXdNVUZCUVRDQ0FTSXdEUVlKS29aSWh2Y05BUUVCQlFBRGdnRVBBRENDQVFvQ2dnRUJBSmRVY3NISUVJZ3dpdnZBYW50R25ZVklPMys3eVRkRDF0a0tvcGJMK3RLU2pSRm8xRXJQZEdKeFAzZ3hUNU8rQUNJRFFYTitIUzl1TVdEWW5hVVJhbFNJRjlDT0ZDZGgvT0gyUG4rVW1rTjRjdWxyMkRhbkt6dFZJTzhpZFhNNmM5YUhuNWhPbzdoRHhYTUMzdU91R1YzRlM0T2JreFRWKzlOc3ZPQVYybE1lMjdTSHJTQjBEaHVMdXJVYlp3WG0rL3I0ZHR6M2IydUxnQmMrRGl5OTVQRytNSXU3b05LTTg5YUJOR2NqVEp3KzlrK1d6SmlQZDNacFFnSWVkWUJEKzhRV3hsWUNneGhudGEzazl5bGdYS1lYQ1lrMGswcWF1dkJKMWpTUlZmNUJqaklVYk9zdGFRcDU5bmtnSGg0NWM5Z253SlJWNjE4TlcwZk1lRHp1S1IwQ0F3RUFBYU1kTUJzd0RBWURWUjBUQVFIL0JBSXdBREFMQmdOVkhROEVCQU1DQnNBd0RRWUpLb1pJaHZjTkFRRUxCUUFEZ2dJQkFCS2owRENOTDFsaDQ0eStPY1dGclQyaWNuS0Y3V3lTT1ZpaHgwb1IrSFByV0tCTVh4bzlLdHJvZG5CMXRnSXg4ZitYanF5cGhoYncranVEU2VEcmI5OVBoQzQrRTZKZVhPa2RRY0p0NTBLeW9kbDlVUnBDVldOV2pVYjNGL3lwYThvVGNmZi9lTWZ0UVpUN01RMUxxaHQreG0zUWhWb3hUSUFTY2UwampzbkJUR0QySlE0dVQzb0NlbThibW9NWFYvZms5YUozdjArWklMNDJNcFk0UE9HVWEvaVRhYXdrbEtSQUwxWGo5SWRJUjA2Uks2OFJTNnhyR2s2andiRFRFS3hKcG1aM1NQTHRsc21QVVRPMWtyYVRQSW85RkNtVS96WmtXR3BkOFpFQUFGdytaZkkrYmRYQmZ2ZER3YU0yaU1HVFFaVFRFZ1U1S0tUSXZrQW5IbzlPNDVTcVNKd3FWOU5MZlBBeENvNWVSUjJPR2liZDlqaEhlODF6VXNwNUdkRTFtWmlTcUpVODJIM2N1NkJpRStEM1liWmVabmpyTlN4QmdLVElmOHcrS05ZUE00YVdudVVNbDBtTGd0T3hUVVhpOU1LblVjY3EzR1pMQTdieDdabjIxMXlQUnFFalNBcXliVU1WSU9obzZhcXprZmMzV0xaNkxuR1UraHlIdVpVZlB3Ym5DbGI3b0ZGejFQbHZHT3BORHNVYjBxUDQyUUNHQmlUVXNlR3VnQXpxT1A2RVlwVlBDNzNnRm91cm1kQlFnZmF5YUV2aTN4ak5hbkZrUGxXMVhFWU5yWUpCNHlOanBoRnJ2V3dUWTg2dkwybzhnWk4wVXRtYzVmbm9CVGZNOXIyelZLbUVpNkZVZUoxaWFEYVZOdjQ3dGU5aVMxYWk0VjR2Qlk4ciIgQ29uZGljaW9uZXNEZVBhZ289IjE1IiBTdWJUb3RhbD0iNS4wMCIgTW9uZWRhPSJNWE4iIFRpcG9DYW1iaW89IjEiIFRvdGFsPSI1LjgwIiBUaXBvRGVDb21wcm9iYW50ZT0iSSIgTWV0b2RvUGFnbz0iUFVFIiBMdWdhckV4cGVkaWNpb249Ijg0MDAwIj48Y2ZkaTpFbWlzb3IgUmZjPSJBQUEwMTAxMDFBQUEiIE5vbWJyZT0iQ0lOREVNRVggU0EgREUgQ1YiIFJlZ2ltZW5GaXNjYWw9IjYwMSIgLz48Y2ZkaTpSZWNlcHRvciBSZmM9IlhBWFgwMTAxMDEwMDAiIE5vbWJyZT0iQ2xpZW50ZSBnZW5lcmFsIiBVc29DRkRJPSJQMDEiIC8+PGNmZGk6Q29uY2VwdG9zPjxjZmRpOkNvbmNlcHRvIENsYXZlUHJvZFNlcnY9IjAxMDEwMTAxIiBOb0lkZW50aWZpY2FjaW9uPSJOb0lkIiBDYW50aWRhZD0iMS4wMCIgQ2xhdmVVbmlkYWQ9IkVBIiBVbmlkYWQ9IlBpZXphIiBEZXNjcmlwY2lvbj0iUHJvZHVjdG8gR2VuZXJpY2EiIFZhbG9yVW5pdGFyaW89IjEuMDAiIEltcG9ydGU9IjEuMDAiPjxjZmRpOkltcHVlc3Rvcz48Y2ZkaTpUcmFzbGFkb3M+PGNmZGk6VHJhc2xhZG8gQmFzZT0iMS4wMCIgSW1wdWVzdG89IjAwMiIgVGlwb0ZhY3Rvcj0iVGFzYSIgVGFzYU9DdW90YT0iMC4xNjAwMDAiIEltcG9ydGU9IjAuMTYiIC8+PC9jZmRpOlRyYXNsYWRvcz48L2NmZGk6SW1wdWVzdG9zPjwvY2ZkaTpDb25jZXB0bz48Y2ZkaTpDb25jZXB0byBDbGF2ZVByb2RTZXJ2PSIwMTAxMDEwMSIgTm9JZGVudGlmaWNhY2lvbj0iTm9JZDIiIENhbnRpZGFkPSIyLjAwIiBDbGF2ZVVuaWRhZD0iRUEiIFVuaWRhZD0iUGllemEiIERlc2NyaXBjaW9uPSJQcm9kdWN0byBHZW5lcmljYVBydWViYWRvcyIgVmFsb3JVbml0YXJpbz0iMi4wMCIgSW1wb3J0ZT0iNC4wMCI+PGNmZGk6SW1wdWVzdG9zPjxjZmRpOlRyYXNsYWRvcz48Y2ZkaTpUcmFzbGFkbyBCYXNlPSI0LjAwIiBJbXB1ZXN0bz0iMDAyIiBUaXBvRmFjdG9yPSJUYXNhIiBUYXNhT0N1b3RhPSIwLjE2MDAwMCIgSW1wb3J0ZT0iMC42NCIgLz48L2NmZGk6VHJhc2xhZG9zPjwvY2ZkaTpJbXB1ZXN0b3M+PC9jZmRpOkNvbmNlcHRvPjwvY2ZkaTpDb25jZXB0b3M+PGNmZGk6SW1wdWVzdG9zIFRvdGFsSW1wdWVzdG9zVHJhc2xhZGFkb3M9IjAuODAiPjxjZmRpOlRyYXNsYWRvcz48Y2ZkaTpUcmFzbGFkbyBJbXB1ZXN0bz0iMDAyIiBUaXBvRmFjdG9yPSJUYXNhIiBUYXNhT0N1b3RhPSIwLjE2MDAwMCIgSW1wb3J0ZT0iMC44MCIgLz48L2NmZGk6VHJhc2xhZG9zPjwvY2ZkaTpJbXB1ZXN0b3M+PC9jZmRpOkNvbXByb2JhbnRlPg=="
}
}
Es el mismo que se publico en una nota de credito y aun asi me da error de BAD REQUEST(400) Ese JSON es el que publico Pirip
Re: Timbrado con Diverza
Publicado: Mar Oct 03, 2017 11:37 pm
por agot
Por si a alguien le sirve, comparto mi método para timbrar con Diverza comprobantes de Ingreso y Egreso, en VB.NET. Y de paso solictar apoyo para timbrar los comprobantes de pago, que no lo he conseguido. Supongo que es cambiarle la propiedad Type, el problema es la inexistente ayuda y soporte técnico de la empresa. Es inaceptable que no tengan ni documentación actualizada disponible.
Código: Seleccionar todo
Dim xmlTimbrado As String = ""
Dim b64 As String = Getb64XMLString(xml, oFun)
Dim request = TryCast(System.Net.WebRequest.Create("https://serviciosdemo.diverza.com/api/v1/documents/stamp"), System.Net.HttpWebRequest)
request.Method = "POST"
request.ContentType = "application/json"
Dim jsonstr = "{
""credentials"": {
""id"": """ & id & """,
""token"": """ & token & """
},
""issuer"": {""rfc"": """ & rfcemisor & """},
""receiver"": {""emails"": [{
""email"": ""email@gmail.com"",
""format"": ""xml+pdf"",
""template"": ""letter""
}]},
""document"": {
""ref-id"": """ & seriefolio & """,
""certificate-number"": """ & numcert & """,
""section"": ""all"",
""format"": ""xml"",
""template"": ""letter"",
""type"": ""application/vnd.diverza.cfdi_3.3+xml"",
""content"": """ & b64 & """
}
}"
Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(jsonstr)
request.ContentLength = byteArray.Length
Using writer = request.GetRequestStream()
'request.ContentLength = byteArray.Length
writer.Write(byteArray, 0, byteArray.Length)
writer.Close()
End Using
Dim responseContent As String
Using response = TryCast(request.GetResponse(), System.Net.HttpWebResponse)
Using reader = New System.IO.StreamReader(response.GetResponseStream())
responseContent = reader.ReadToEnd()
xmlTimbrado = (responseContent.Substring(responseContent.IndexOf("""content"":")).Replace("""content"":", "")).Trim()
xmlTimbrado = xmlTimbrado.Replace("""", "")
xmlTimbrado = xmlTimbrado.Replace("}", "")
'DECODIFICA EL XML TIMBRADO
byteArray = Convert.FromBase64String(xmlTimbrado)
xmlTimbrado = Encoding.UTF8.GetString(byteArray)
End Using
End Using
Return xmlTimbrado
Re: Timbrado con Diverza
Publicado: Mié Oct 04, 2017 5:30 pm
por kokyno
Buenas tardes Muchas gracias por sus comentarios. Me fue de mucha ayuda lo del json. De echo ya pude enviar pero ahora me comenta el personal de diverza que esta marcando error con el sello pero ya lo verifique el como genero el sello y de echo utilize el software VALIDACFD para cotejar el sello generado y esta igual al que genero desde el sistema
Esta es mi cadena Original
||3.3|A|Perrrunis2|2017-10-04T16:23:41|01|30001000000300023708|15|5.00|MXN|1|5.80|I|PUE|84000|AAA010101AAA|CINDEMEX SA DE CV|601|XAXX010101000|Cliente general|P01|01010101|NoId|1.00|EA|Pieza|Producto Generica|1.00|1.00|1.00|002|Tasa|0.160000|0.16|01010101|NoId2|2.00|EA|Pieza|Producto GenericaPruebados|2.00|4.00|4.00|002|Tasa|0.160000|0.64|002|Tasa|0.160000|0.80|0.80||
Y este es el sello que genero:
20510bb7e73453a2c7c839eccdd81ce051c916ab63c54ef4011d7406ad1383e6
EN la imagen adjunta se ve la recomendación del sello y como se ve en el sello que pongo arriba es igual pero aun asi marca sello de emisor invalido.
Por su ayuda muchas gracias
Re: Timbrado con Diverza
Publicado: Mié Oct 04, 2017 5:44 pm
por agot
Hola. Yo uso este método para generar el sello con Diverza. Ya puedo timbrar cfdi 3.3 de ingreso y egreso, aunque estoy atorada en pago.
Código: Seleccionar todo
Private Function getSelloDigital(PEM As String, tmpCad As String, tmpSHA As String) As String
Try
sError = ""
Dim oFun As New funciones
CreateOpenSSLPath(oFun)
Dim oProcessOpenSSL As New Process()
oProcessOpenSSL.StartInfo.FileName = GetOpenSSLPath(oFun)
oProcessOpenSSL.StartInfo.Arguments = "dgst -sha256 -sign " + PEM + " -out " + tmpSHA + " " + tmpCad
oProcessOpenSSL.StartInfo.UseShellExecute = False
oProcessOpenSSL.StartInfo.ErrorDialog = False
oProcessOpenSSL.StartInfo.RedirectStandardOutput = True
oProcessOpenSSL.StartInfo.RedirectStandardError = True
oProcessOpenSSL.StartInfo.CreateNoWindow = True
oProcessOpenSSL.Start()
' sError = "dgst -sha256 -sign " + PEM + " -out " + tmpSHA + " " + tmpCad
oProcessOpenSSL.WaitForExit()
System.Threading.Thread.Sleep(1000)
Dim tmpBASE64 As String = tmpCad.Replace(".txt", "-base64.txt")
oProcessOpenSSL.StartInfo.Arguments = "base64 -in " + tmpSHA + " -out " + tmpBASE64
oProcessOpenSSL.StartInfo.UseShellExecute = False
oProcessOpenSSL.StartInfo.ErrorDialog = False
oProcessOpenSSL.StartInfo.RedirectStandardOutput = True
oProcessOpenSSL.StartInfo.RedirectStandardError = True
oProcessOpenSSL.StartInfo.CreateNoWindow = True
oProcessOpenSSL.Start()
sError = oProcessOpenSSL.StandardError.ReadToEnd()
oProcessOpenSSL.WaitForExit()
If sError = "" Then
'RECUPERACION ENSAMBLADO
Dim utF8Encoding As UTF8Encoding = New UTF8Encoding(False)
Dim str2 As String = oFun.cleanString(File.ReadAllText(tmpBASE64, CType(utF8Encoding, Encoding))).Replace(" ", "")
If (File.Exists(tmpBASE64)) Then
File.Delete(tmpBASE64)
End If
File.WriteAllText(tmpBASE64, str2, CType(utF8Encoding, Encoding))
'FIN RECUPERACION ENSAMBLADO
Dim sello As String = System.IO.File.ReadAllText(tmpBASE64)
If (File.Exists(tmpBASE64)) Then
File.Delete(tmpBASE64)
End If
Return sello
Else
Return ""
End If
Catch ex As Exception
sError = ex.Message
Return ""
End Try
End Function
Re: Timbrado con Diverza
Publicado: Jue Oct 05, 2017 8:23 am
por Dado
kokyno escribió:Y este es el sello que genero:
20510bb7e73453a2c7c839eccdd81ce051c916ab63c54ef4011d7406ad1383e6
Ese dato no es el sello, ese es el HASH, que es un paso antes del sello
Aunque tener el hash igual que Diverza es muy buen indicio de que vas por buen camino
Re: Timbrado con Diverza
Publicado: Sab Oct 07, 2017 12:39 pm
por kokyno
Buen día. Muchas gracias por sus respuestas AGOT y DADO. Continuare con los cambios para ver que es lo que me esta fallando en la generación del sello. Una vez que lo tenga terminado comparto con el foro el código por si alguien mas lo requiere.
Por su ayuda muchas gracias
Re: Timbrado con Diverza
Publicado: Dom Oct 08, 2017 6:39 pm
por kokyno
Dado buenas tardes cual seria el siguiente paso para convertir el HASH a sello que es lo que me hace salta si me pudiera orientar al respecto
Re: Timbrado con Diverza
Publicado: Dom Oct 08, 2017 6:41 pm
por jggtz
Diverza maneja, entre otros, dos servicios... uno es de STAMP y el otro es el de ISSUE
En el de stamp espera tu xml con sello y en de issue lo puedes enviar sin sello y ellos lo generan y lo agregan al xml y luego lo timbran,,,
yo preferi utilizar el de issue por no perder tiempo en resolver errores en la generacion del sello digital en una rutina que utilizo para varios pacs y solo con diverza me lo rechazan