![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Buen apunte Egostar, lo había leído "en diagonal" y no había visto eso.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#2
|
||||
|
||||
Coloca el componente y configura las propiedades: WSDLLocatoin, Service y Port (por ese orden). Si lo haces en orden, a partir de la primera, las otras puedes seleccionarlas en el desplegable.
Luego para hacer una prueba puedes hacer la siguiente llamada (coloca el componente y un TMemo en el form):
Con esta prueba (yo he utilizado una clave errónea), ya puedes comprobar que el WebService responde "cosas". El resultado es este: ![]() Consultada: INCORRECTA - Comprobantes: - Autorizaciones: 1 ------------------------------------------ Autorizacion: Estado: RECHAZADA Número: Comprobante: Mensajes: 1 ------------------------------------------ Mensaje: Identificador: 80 Mensaje: ERROR EN LA ESTRUCTURA DE LA CLAVE DE ACCESO Info adicional: Tipo: ------------------------------------------
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Hola Neftali , muy agradecido por tu tiempo , te comento que puse a funcionar lo qye me indicas pero me sale un error, envio la clave
0107202201189171808600120011000000024581234567815 r := GetAutorizacionComprobantesOffline.autorizacionComprobante('0107202201099286992500120010020000056610 000566113'); Aqui da el error
Estoy seguro que me falta algo en algun parametro antes de leer el webservice , yo se que tu tiempo es valioso pero si puedes darme una mano o una guia de agradeceria mucho Este servicio lo que me retorna es un archivo xml que debo guardarlo en el disco de mi equipo para luego parsearlo y tomar la informacion que hay dentro
__________________
IVAND |
#4
|
|||
|
|||
Nota Importante he buscado en foros y aqui tengo algo q han echo en vfp, pero no se donde colocar este codigo en delphi 2009 para q no me marque el error
Código:
*-- Crea la estructura que debe tener un requerimiento (REQUEST) de un comprobante firmado del SRI. PROCEDURE crearrequest_comprobante LPARAMETERS vMensaje TEXT TO sXMLRequest TEXTMERGE NOSHOW PRETEXT 7 <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <validarComprobante xmlns="http://ec.gob.sri.ws.recepcion"> <xml xmlns=""><<vMensaje>></xml> </validarComprobante> </soap:Body> </soap:Envelope> ENDTEXT RETURN sXMLRequest ENDPROC
__________________
IVAND |
#5
|
||||
|
||||
Pues no se Iván, ejecuta paso a paso a ver en qué línea falla.
A mi, con el dato que has puesto me funciona correctamente y me devuelve 1 autorización: Código:
------------------------------------------------------------------------------ Consultada: 0107202201189171808600120011000000024581234567815 - Comprobantes: 1 - Autorizaciones: 1 ------------------------------------------ Autorizacion: Estado: AUTORIZADO Número: 0107202201189171808600120011000000024581234567815 Comprobante: <?xml version="1.0" encoding="UTF-8"?><factura id="comprobante" version="2.1.0"> <infoTributaria> <ambiente>2</ambiente> <tipoEmision>1</tipoEmision> <razonSocial>Baldoré Cía. Ltda.</razonSocial> <nombreComercial>Baldoré Cía. Ltda.</nombreComercial> <ruc>1891718086001</ruc> <claveAcceso>0107202201189171808600120011000000024581234567815</claveAcceso> <codDoc>01</codDoc> <estab>001</estab> <ptoEmi>100</ptoEmi> <secuencial>000002458</secuencial> <dirMatriz>Patate Sector Pitula</dirMatriz> </infoTributaria> <infoFactura> <fechaEmision>01/07/2022</fechaEmision> <dirEstablecimiento>Patate Sector Pitula</dirEstablecimiento> <contribuyenteEspecial>00011</contribuyenteEspecial> <obligadoContabilidad>SI</obligadoContabilidad> <tipoIdentificacionComprador>04</tipoIdentificacionComprador> <razonSocialComprador>COMERCIAL CASANOVA COMCASANOVA S.A.</razonSocialComprador> <identificacionComprador>1391871473001</identificacionComprador> <direccionComprador>CÓRDOVA S/N Y QUITO Y ALAJUELA</direccionComprador> <totalSinImpuestos>7108.50</totalSinImpuestos> <totalDescuento>0</totalDescuento> <totalConImpuestos> <totalImpuesto> <codigo>2</codigo> <codigoPorcentaje>2</codigoPorcentaje> <baseImponible>11608.50</baseImponible> <valor>1393.02</valor> </totalImpuesto> <totalImpuesto> <codigo>3</codigo> <codigoPorcentaje>3031</codigoPorcentaje> <baseImponible>7108.50</baseImponible> <valor>4500.00</valor> </totalImpuesto> </totalConImpuestos> <propina>0</propina> <importeTotal>13001.52</importeTotal> <moneda>Dólar EE.UU.</moneda> <pagos> <pago> <formaPago>20</formaPago> <total>13001.52</total> <plazo>60</plazo> <unidadTiempo>Dias</unidadTiempo> </pago> </pagos> </infoFactura> <detalles> <detalle> <codigoPrincipal>PT-050709004</codigoPrincipal> <codigoAuxiliar>1003995</codigoAuxiliar> <descripcion>Bebida alcohólica sabor a whisky MrAllen Green 1000ml</descripcion> <cantidad>3000.00</cantidad> <precioUnitario>2.36950</precioUnitario> <descuento>0.00</descuento> <precioTotalSinImpuesto>7108.50</precioTotalSinImpuesto> <impuestos> <impuesto> <codigo>2</codigo> <codigoPorcentaje>2</codigoPorcentaje> <tarifa>12</tarifa> <baseImponible>11608.50</baseImponible> <valor>853.02</valor> </impuesto> <impuesto> <codigo>3</codigo> <codigoPorcentaje>3031</codigoPorcentaje> <tarifa>0</tarifa> <baseImponible>7108.50</baseImponible> <valor>4500.00</valor> </impuesto> </impuestos> </detalle> </detalles> <infoAdicional> <campoAdicional nombre="Direccion">CÓRDOVA S/N Y QUITO Y ALAJUELA</campoAdicional> <campoAdicional nombre="Telefono">ND</campoAdicional> <campoAdicional nombre="Email">contabilidad@comercialcasanova.com</campoAdicional> <campoAdicional nombre="OrdenVenta">54911</campoAdicional> <campoAdicional nombre="Descuento">0</campoAdicional> <campoAdicional nombre="DescuentoAdicional">0</campoAdicional> </infoAdicional> <ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:etsi="http://uri.etsi.org/01903/v1.3.2#" Id="Signature459835"> <ds:SignedInfo Id="Signature-SignedInfo800322"> <ds:CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> <ds:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/> <ds:Reference Id="SignedPropertiesID1023636" Type="http://uri.etsi.org/01903#SignedProperties" URI="#Signature459835-SignedProperties636115"> <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/> <ds:DigestValue>VlELpSkSqL8VFxRw19sp363/oJ8=</ds:DigestValue> </ds:Reference> <ds:Reference URI="#Certificate182855"> <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/> <ds:DigestValue>CJolG86W++Q/T0T1CyDk6uCm6Ug=</ds:DigestValue> </ds:Reference> <ds:Reference Id="Reference-ID-277143" URI="#comprobante"> <ds:Transforms> <ds:Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> </ds:Transforms> <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/> <ds:DigestValue>aA1zKw0f6HN1lndwDMA4MFz97wY=</ds:DigestValue> </ds:Reference> </ds:SignedInfo> <ds:SignatureValue Id="SignatureValue345980"> YwCV0fymtpqb7T9HW5A9v1VzQNc4B0GzYnjh4YoY7QXSciX6mRfE0tqY1jBTJkYnm/R8i8ZsRZbN vQA7u8l7GokssNFKUU7HJi7JUILAI4NpBe4bbzymJQv2rSDulH80nhIsnIBbsBIniSucsKC50vNG VEVTvFHoHaN7scU5GK8dttow4STJsBNLTOmO8Xc2513M78o/wHfzpc9hGmcMuWvBjcGSTHnp21jj DM1QJU+dWIOe+4JiEU5FPN/6lNFt/3V6qYEkCke8++yZx5w6rS6z3G2ZZboxc5LNc0n0iy5oNhwh bOBlRVtnjMUTsQTL3iNIoOp91mPJisfEBlAWwg== </ds:SignatureValue> <ds:KeyInfo Id="Certificate182855"> <ds:X509Data> <ds:X509Certificate> MIIL9TCCCd2gAwIBAgIEFWniaTANBgkqhkiG9w0BAQsFADCBmTELMAkGA1UEBhMCRUMxHTAbBgNV BAoMFFNFQ1VSSVRZIERBVEEgUy5BLiAyMTAwLgYDVQQLDCdFTlRJREFEIERFIENFUlRJRklDQUNJ T04gREUgSU5GT1JNQUNJT04xOTA3BgNVBAMMMEFVVE9SSURBRCBERSBDRVJUSUZJQ0FDSU9OIFNV QkNBLTIgU0VDVVJJVFkgREFUQTAeFw0yMjAzMTgyMjA4MDNaFw0yNDAzMTcyMjA4MDNaMIGdMSYw JAYDVQQDDB1SSUNBUkRPIEFHVVNUSU4gR1VFVkFSQSBWQVNDTzEVMBMGA1UEBRMMMTgwMzIyMTcx NzQ1MTAwLgYDVQQLDCdFTlRJREFEIERFIENFUlRJRklDQUNJT04gREUgSU5GT1JNQUNJT04xHTAb BgNVBAoMFFNFQ1VSSVRZIERBVEEgUy5BLiAyMQswCQYDVQQGEwJFQzCCASIwDQYJKoZIhvcNAQEB BQADggEPADCCAQoCggEBAKpSwJvzbx9Q92bY+AypviWCFdxOhWyGD3gS9jxVA+NmjCGBH9g4lDqU n+77GsqmWt/dxwY2aqVZLRtejsFUbOkUEfvcqhAKTIn7nIGe3WREEumjLXPb1tRnm717ko0DUZDa N4aBSeL+niH91lYQIS51WH3U9SLvJNGL7Gb/ASziM40SXsGH4Z6Vsd+lQ8XE/fipBshAsHczlWvu icn4+mrfgNb14riFCNvMjpXuALL0jg2Gm8XhS5GSFdvv+8gh197MJ2DV0cyZg3J35MbGBEPontFY I+6aQ79hH9XxAtc8WUC0Na2RmbUnTQzFhkW1sb8j3nA4cL0boeN06TmWGdMCAwEAAaOCBz0wggc5 MAwGA1UdEwEB/wQCMAAwHwYDVR0jBBgwFoAUjLrKEVd4JYAdawpLVb+NrmLdvY8wWQYIKwYBBQUH AQEETTBLMEkGCCsGAQUFBzABhj1odHRwOi8vb2NzcGd3LnNlY3VyaXR5ZGF0YS5uZXQuZWMvZWpi Y2EvcHVibGljd2ViL3N0YXR1cy9vY3NwMIHPBgNVHS4EgccwgcQwgcGggb6ggbuGgbhsZGFwOi8v bGRhcHNkY2EyLnNlY3VyaXR5ZGF0YS5uZXQuZWMvQ049QVVUT1JJREFEIERFIENFUlRJRklDQUNJ T04gU1VCQ0EtMiBTRUNVUklUWSBEQVRBLE9VPUVOVElEQUQgREUgQ0VSVElGSUNBQ0lPTiBERSBJ TkZPUk1BQ0lPTixPPVNFQ1VSSVRZIERBVEEgUy5BLiAyLEM9RUM/ZGVsdGFSZXZvY2F0aW9uTGlz dD9iYXNlMCAGA1UdEQQZMBeBFWNvbnRhZG9yYUBiYWxkb3JlLmNvbTCCARUGA1UdIASCAQwwggEI MGIGCisGAQQBgqZyAgkwVDBSBggrBgEFBQcCAjBGHkQAQwBlAHIAdABpAGYAaQBjAGEAZABvACAA ZABlACAAUgBlAHAAcgBlAHMAZQBuAHQAYQBuAHQAZQAgAEwAZQBnAGEAbDCBoQYKKwYBBAGCpnIC AzCBkjCBjwYIKwYBBQUHAgEWgYJodHRwczovL3d3dy5zZWN1cml0eWRhdGEubmV0LmVjL3dwLWNv bnRlbnQvZG93bmxvYWRzL05vcm1hdGl2YXMvUF9kZV9DZXJ0aWZpY2Fkb3MvUG9saXRpY2FzIGRl IENlcnRpZmljYWRvIFJlcHJlc2VudGFudGUgTGVnYWwucGRmMIICogYDVR0fBIICmTCCApUwgeWg QaA/hj1odHRwOi8vb2NzcGd3LnNlY3VyaXR5ZGF0YS5uZXQuZWMvZWpiY2EvcHVibGljd2ViL3N0 YXR1cy9vY3NwooGfpIGcMIGZMTkwNwYDVQQDDDBBVVRPUklEQUQgREUgQ0VSVElGSUNBQ0lPTiBT VUJDQS0yIFNFQ1VSSVRZIERBVEExMDAuBgNVBAsMJ0VOVElEQUQgREUgQ0VSVElGSUNBQ0lPTiBE RSBJTkZPUk1BQ0lPTjEdMBsGA1UECgwUU0VDVVJJVFkgREFUQSBTLkEuIDIxCzAJBgNVBAYTAkVD MIHHoIHEoIHBhoG+bGRhcDovL2xkYXBzZGNhMi5zZWN1cml0eWRhdGEubmV0LmVjL0NOPUFVVE9S SURBRCBERSBDRVJUSUZJQ0FDSU9OIFNVQkNBLTIgU0VDVVJJVFkgREFUQSxPVT1FTlRJREFEIERF IENFUlRJRklDQUNJT04gREUgSU5GT1JNQUNJT04sTz1TRUNVUklUWSBEQVRBIFMuQS4gMixDPUVD P2NlcnRpZmljYXRlUmV2b2NhdGlvbkxpc3Q/YmFzZTCB4KCB3aCB2oaB12h0dHBzOi8vcG9ydGFs LW9wZXJhZG9yMi5zZWN1cml0eWRhdGEubmV0LmVjL2VqYmNhL3B1YmxpY3dlYi93ZWJkaXN0L2Nl cnRkaXN0P2NtZD1jcmwmaXNzdWVyPUNOPUFVVE9SSURBRCBERSBDRVJUSUZJQ0FDSU9OIFNVQkNB LTIgU0VDVVJJVFkgREFUQSxPVT1FTlRJREFEIERFIENFUlRJRklDQUNJT04gREUgSU5GT1JNQUNJ T04sTz1TRUNVUklUWSBEQVRBIFMuQS4gMixDPUVDMB0GA1UdDgQWBBRwQucLKXvSjQpOA3suVNRn EN+KWDArBgNVHRAEJDAigA8yMDIyMDMxODIyMDgwM1qBDzIwMjQwMzE3MjIwODAzWjALBgNVHQ8E BAMCBeAwHwYKKwYBBAGCpnIDBQQRDA9HRVJFTlRFIEdFTkVSQUwwGgYKKwYBBAGCpnIDAQQMDAox ODAzNjA0NDQ0MBYGCisGAQQBgqZyAwkECAwGUEFUQVRFMBEGCisGAQQBgqZyAyIEAwwBLjAmBgor BgEEAYKmcgMHBBgMFlZJQSBBIFBBVEFURSBWSUVKTyBTIE4wHwYKKwYBBAGCpnIDAgQRDA9SSUNB UkRPIEFHVVNUSU4wHwYKKwYBBAGCpnIDIAQRDA8wMDIwMDEwMDAzMjk2ODgwEwYKKwYBBAGCpnID IQQFDANQRlgwFwYKKwYBBAGCpnIDDAQJDAdFQ1VBRE9SMBcGCisGAQQBgqZyAwMECQwHR1VFVkFS QTAiBgorBgEEAYKmcgMKBBQMEkJBTERPUkUgQ0lBLiBMVERBLjAdBgorBgEEAYKmcgMLBA8MDTE4 OTE3MTgwODYwMDEwEgYKKwYBBAGCpnIDHQQEDAJObzAVBgorBgEEAYKmcgMEBAcMBVZBU0NPMBoG CisGAQQBgqZyAwgEDAwKMDk4NDU3NzE1NjANBgkqhkiG9w0BAQsFAAOCAgEAN0o255KBDH00CvZf c1uMrgYAiyXIP2FZG7mbDkxmf5hPVZdRg/iXxJHcoYRVSn2JulfXQ4Eio2ujUUMCdQ9KKNS2lOR6 vOcc4Re2m+MFlDNwAlbOIsuO1kqqirvxX6FwDaXnM+gugVwZa32QAsncM403pEEggQaRDAvxTZEJ s5vPgS1esMfdZJSwBHMeLv2r1wlhj+f2Jbz80JuaSavp5MXPttv4WOwxMEBVzM3cwzne92vPs/Hv 3LHhnJwFOVPDJIZGRY0cEPxC3kmBnoYkTeAK59HPWWPy3ICTHkmdp5H+eIgNxC9h6gP3pu1FkCPa TfulyShyfKiHciByUME+EIlWeD4AOEKzfoW+KBVcrJqPmeRlZVdJO23/p5UU3GAuU0Jnm2fJk2YH HYl64w2CtM6rSp1HWAVHZ6QkLuWEs8OKmknRY2cn+gb62kIMIdpim3ktCREoTGGO8O+y6fcu8d5p d/V4gVuplPQULHz9Yf1fUchdZVHphiITDD9a7x2KaIngqDZejoqfP+vTuFEwqy53YkmhuDd9h26c 2B3BM2Rla7rlS+3WCqls613BcBC3RfErpKXoS1m8F8LqrgF7bun2qSv50TquvtrIDVQ5haMCD3+0 uFjwrCgaNMR46kMYIC09SGOnKypoGx/eTazn4wO/XMtfaJgm6XlBj0CYkAA= </ds:X509Certificate> </ds:X509Data> <ds:KeyValue> <ds:RSAKeyValue> <ds:Modulus> qlLAm/NvH1D3Ztj4DKm+JYIV3E6FbIYPeBL2PFUD42aMIYEf2DiUOpSf7vsayqZa393HBjZqpVkt G16OwVRs6RQR+9yqEApMifucgZ7dZEQS6aMtc9vW1GebvXuSjQNRkNo3hoFJ4v6eIf3WVhAhLnVY fdT1Iu8k0YvsZv8BLOIzjRJewYfhnpWx36VDxcT9+KkGyECwdzOVa+6Jyfj6at+A1vXiuIUI28yO le4AsvSODYabxeFLkZIV2+/7yCHX3swnYNXRzJmDcnfkxsYEQ+ie0Vgj7ppDv2Ef1fEC1zxZQLQ1 rZGZtSdNDMWGRbWxvyPecDhwvRuh43TpOZYZ0w== </ds:Modulus> <ds:Exponent>AQAB</ds:Exponent> </ds:RSAKeyValue> </ds:KeyValue> </ds:KeyInfo> <ds:Object Id="Signature459835-Object800688"><etsi:QualifyingProperties Target="#Signature459835"><etsi:SignedProperties Id="Signature459835-SignedProperties636115"><etsi:SignedSignatureProperties><etsi:SigningTime>2022-07-01T20:34:37-05:00</etsi:SigningTime><etsi:SigningCertificate><etsi:Cert><etsi:CertDigest><ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/><ds:DigestValue>Er5AA91iKGGgbL3HQEzuc8mx9ss=</ds:DigestValue></etsi:CertDigest><etsi:IssuerSerial><ds:X509IssuerName>CN=AUTORIDAD DE CERTIFICACION SUBCA-2 SECURITY DATA,OU=ENTIDAD DE CERTIFICACION DE INFORMACION,O=SECURITY DATA S.A. 2,C=EC</ds:X509IssuerName><ds:X509SerialNumber>359260777</ds:X509SerialNumber></etsi:IssuerSerial></etsi:Cert></etsi:SigningCertificate></etsi:SignedSignatureProperties><etsi:SignedDataObjectProperties><etsi:DataObjectFormat ObjectReference="#Reference-ID-277143"><etsi:Description>contenido comprobante</etsi:Description><etsi:MimeType>text/xml</etsi:MimeType></etsi:DataObjectFormat></etsi:SignedDataObjectProperties></etsi:SignedProperties></etsi:QualifyingProperties></ds:Object></ds:Signature></factura> Mensajes: 0 ------------------------------------------ De todas formas, te adjunto el proyecto y lo intentas revisar.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
||||
|
||||
Con la 10.3 también me ha funcionado correctamente y devuelve 1 autorización.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#7
|
|||
|
|||
No funciona , Al parecer es un tema de versiones en delphi 2009 creo q algunas cosas no estan implementadas para tratar estos servicios , como si estan en versiones superiores
Ya seguire intentando , Gracias por la ayuda Neftali Compare las unidades y hay muchos metodos distintos entre una version y la otra
__________________
IVAND |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
consumir web service SOAP con TOKEN en delphi | Muriel | Delphi para la web | 14 | 07-02-2022 09:17:37 |
Como puedo consumir un soap en java | uper | JAVA | 1 | 07-08-2019 17:36:12 |
Servicio SOAP | Sergio-ponchito | Internet | 3 | 07-06-2018 07:33:56 |
Consumir servicio web con WDSL - autentificación WS-Security | frankizzio | Delphi para la web | 15 | 09-06-2017 15:55:15 |
Consumir WebService. Ayuda con XML,WSDL,XSD,SOAP | josemmerida | Internet | 2 | 23-12-2010 13:37:16 |
![]() |
|