Soap Request

[Edcoram]

jasistemas:

Pues sí, te entendí mal. leyendo nuevamente tu mensaje es cierto, hablas del entorno de desarrollo.

Te diré que en Windows 7 ó Windows 8, 8.1, etc. se puede instalar este sin ningún problema cuando no son S.O. de 64 bits.

Cuando si son de 64 bits (y de 32 bits también) utilizo un programa llamado VS6Installer1.2 que te permite instalar Visual Studio 6, el MSDN y el Service Pack 6, dejándolo totalmente funcional en cualquier S.O.

Te repito, a veces el cambiar un programa con tantas lineas de código es lo que te impide cambiar de un lenguaje a otro, tienes que empezar de cero nuevamente, ademas de que he probado con .Net y se hacen mas lentos los mismos procedimientos que con VB6.

En fin, cada quién usa lo que quiere y con lo que se siente uno mas a gusto programando. Yo empece programando en Fortran y sobre todo en Cobol hace 30 años y terminé quedandome con VB6 y es difícil que cambie a otro lenguaje más avanzado o de moda para mis programas y sistemas administrativos.

Saludos.

[Signals]

Hola,

No sé si ya has resuelto tu tema, pero te paso esta liga en donde encontré la clave de cómo mandar un SOAP a usando Post. Me funciona con VB6, y VB5.

http://www.freevbcode.com/ShowCode.asp?ID=7611

Saludos!

[cesar14]

Muchas Gracias por tu aportación voy a verificar e implementar esta opción y cualquier comentario lo publicare para que otros que estén
en la misma situación lo puedan utilizar.

[cesar14]

Algo debo de estar haciendo mal porque esta es la respuesta del Web Service

Código: Seleccionar todo

<?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><soap:Fault><faultcode>soap:Client</faultcode><faultstring>
Server did not recognize the value of HTTP Header 
SOAPAction: https://www.foliosdigitalespac.com/ws-folios/WS-TFD.asmx?WSDL.
</faultstring><detail /></soap:Fault></soap:Body></soap:Envelope>

Podrian comentarme que estoy haciendo mal ??, siento que el problema esta en mi XML quiza debe ir codificado de cierta manera.
porque en el metodo no envia ningun error y si se comunica con el web Service.

Código: Seleccionar todo

 strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _
             "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
             "<soap:Body>" & _
             "<TimbrarPruebaCFDI xmlns =""http://www.foliosdigitales.com/WS-Folios"">" & _
             "<usuario>" & usuarioTimbrado & "</usuario>" & _
             "<password>" & passwordTimbrado & "</password>" & _
             "<cadenaXML>" & cadenaRecibidaXML & "</cadenaXML>" & _
             "</TimbrarPruebaCFDI>" & _
             "</soap:Body>" & _
             "</soap:Envelope>"

[cesar14]

Yo ya estoy timbrando con Folios DIgitales con VB6 desde hace un año y NO uso el SOAP-ENV:Envelope.
Este es mi código:

Dim WebService As Object
Dim Respuesta() As String
On Error Resume Next
Set WebService = CreateObject("MSSOAP.SoapClient30")
If Err.Number <> 0 Then
'Mensaje de error
Exit Function
End If
WebService.mssoapinit "https://www.foliosdigitalespac.com/ws-f ... .asmx?WSDL"
If Err.Number <> 0 Then
'Mensaje de error
Exit Function
End If
If ModoDemo Then
Respuesta = WebService.TimbrarPruebaCFDI(PAC_Usuario, PAC_Password, XMLString)
Else
Respuesta = WebService.TimbrarCFD(PAC_Usuario, PAC_Password, XMLString, Comprobante_serie & Comprobante_folio)
End If
'PAC_Usuario, PAC_Password son tu usuario productivo
XMLString ES el CFDI en string (OJO, tiene que ser UTF-8, si lo generas como string NO pasa. Como NPI para crearlo como UTF-8 lo que hago es darle SAVE y luego lo cargo de vuelta con un Input$)
Comprobante_Serie & Comprobante_folio es el tag para identificarlo en FD.

Que tal,

Tengo una pregunta espero que me puedas apoyar, dices que guardas tu xml con el metodo de SAVE y despues lo cargas con un input ??

Podrias explicarme como haces esa parte de cargarlo, es que ya estuve utilizando el metodo de load y loadXML pero con ninguna de las 2 he podido
cargar de nuevo el XML.

Lo que hago es mas o menos lo siguiente

Código: Seleccionar todo

boolValue = oDoc.loadXML(CadenaXML)

oDoc.Load (ruta)
    
    MsgBox "doc: " + vbNewLine + oDoc.xml

Pero no me recupera el XML como UTF-8

Gracias