ValidaCFD

dcerick escribió:

c3dr1c escribió:Tengo algunos problemas con edicom en el transfer alguien ha hecho el intento.
Les pongo la parte del codigo por si algo.

INET.Execute("https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl", "POST", parser.xml, String.Format("Content-Type: text/xml; charset=utf-8{0}SOAPAction: https://cfdi.service.ediwinws.edicom.com", vbCrLf))

Oye y en que estás programando?

acanas escribió:@dcerick: de pura casualidad con Edicom puedes cancelar cfdi's con algun web service que ellos te dan o lo estas haciendo a patin loco.

acanas escribió:@dcerick: de pura casualidad con Edicom puedes cancelar cfdi's con algun web service que ellos te dan o lo estas haciendo a patin loco.

acanas escribió:@dcerick: de pura casualidad con Edicom puedes cancelar cfdi's con algun web service que ellos te dan o lo estas haciendo a patin loco.

c3dr1c escribió:

dcerick escribió:

c3dr1c escribió:Tengo algunos problemas con edicom en el transfer alguien ha hecho el intento.
Les pongo la parte del codigo por si algo.

INET.Execute("https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl", "POST", parser.xml, String.Format("Content-Type: text/xml; charset=utf-8{0}SOAPAction: https://cfdi.service.ediwinws.edicom.com", vbCrLf))

Oye y en que estás programando?

en vb.net

XMLByte = EdicomService.getCfdiTest(UserName, Password, ZipBytes);

marysalcedog escribió:mi programa esta desarrollado en visual basic y estoy trabajando tambien con visual basic de visual studio 2008, no logro encontrar como crear un objeto de tipo archivo, luego hacer la referencia del archivo a ese objeto para que el archivo se transforme en tipo byte automaticamente...

' Funcion que abre un archivo y lo regresa como un arreglo de bytes.
    Private Function GetFileAsByteArray(ByVal FileName As String) As Byte()
        Dim BufferWrite() As Byte = Nothing ' inicializo el arreglo
        Using fsSource As New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)  ' abro el archivo con un stream
            ' Set the buffer size to the size of the file
            ReDim BufferWrite(fsSource.Length)  ' redefino el arreglo con el tamaño del stream.

            ' Read the data from the stream into the buffer
            fsSource.Read(BufferWrite, 0, BufferWrite.Length)   ' leo el stream y lo guardo en el arreglo

            fsSource.Close()    ' cierro el stream
        End Using

        Return BufferWrite  ' regreso el arreglo de bytes.
    End Function

agallardor13 escribió:

marysalcedog escribió:mi programa esta desarrollado en visual basic y estoy trabajando tambien con visual basic de visual studio 2008, no logro encontrar como crear un objeto de tipo archivo, luego hacer la referencia del archivo a ese objeto para que el archivo se transforme en tipo byte automaticamente...

mira yo me ayudo de una función que hice para poder abrir un archivo y devolverlo como un arreglo de bytes:

Código: Seleccionar todo

' Funcion que abre un archivo y lo regresa como un arreglo de bytes.
    Private Function GetFileAsByteArray(ByVal FileName As String) As Byte()
        Dim BufferWrite() As Byte = Nothing ' inicializo el arreglo
        Using fsSource As New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)  ' abro el archivo con un stream
            ' Set the buffer size to the size of the file
            ReDim BufferWrite(fsSource.Length)  ' redefino el arreglo con el tamaño del stream.

            ' Read the data from the stream into the buffer
            fsSource.Read(BufferWrite, 0, BufferWrite.Length)   ' leo el stream y lo guardo en el arreglo

            fsSource.Close()    ' cierro el stream
        End Using

        Return BufferWrite  ' regreso el arreglo de bytes.
    End Function

Mandas llamar esta función indicandole la ruta del archivo donde tienes el zip, ejemplo "C:\TestEdicom\CFDI.zip" y te devuelve un arreglo de bytes, y unicamente llamas la función de Edicom, pasando como parámetro ese arreglo de bytes.

Saludos
agallardo