WSRC consultar estado remito

REM igual para todos los remitos, usar rcversión para seleccionar servidor cárnico o harinero.

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

dim nIndice as integer = 0

If fe.iniciar(0, "cuit", "ruta y archivo al certificado AFIP *.pfx", "archivo de licencia no es necesario en modo prueba") Then

rem fe.rcversion = 0

fe.ArchivoCertificadoPassword = "contraseña generada al crear *.pfx"

If fe.rcObtenerTicketAcceso() Then

bresultado = True

bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)

fe.ArchivoXMLRecibido = "d:\estados.xml"

rem consultar estados por lo que pasó un remito por tipo de comprobante, punto de emision, y numero del remito

If bresultado Then

bresultado = fe.rcConsultarRemitoEstado("", "", "195", "1", "1234", "")

If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then

for nIndex = 1 to val(fe.rcLeerPropiedad("rcConsultarRemitoEstado", "estados.itemCantidad", "", 0, 0)))

MsgBox("estado " + fe.rcLeerPropiedad("rcConsultarRemitoEstado", "estados.estado", "", nIndex-1, 0))

MsgBox("fecha estado " + fe.rcLeerPropiedad("rcConsultarRemitoEstado", "estados.fecha", "", nIndex-1, 0))

next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error del servidor " + fe.rcErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

fe.ArchivoXMLRecibido = "d:\estados2.xml"

rem consultar estados por lo que pasó un remito por identificador del remito usado al generarlo.

If bresultado Then

bresultado = fe.rcConsultarRemitoEstado("1234", "", "", "", "", "")

If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then

for nIndex = 1 to val(fe.rcLeerPropiedad("rcConsultarRemitoEstado", "estados.itemCantidad", "", 0, 0)))

MsgBox("estado " + fe.rcLeerPropiedad("rcConsultarRemitoEstado", "estados.estado", "", nIndex-1, 0))

MsgBox("fecha estado " + fe.rcLeerPropiedad("rcConsultarRemitoEstado", "estados.fecha", "", nIndex-1, 0))

next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error del servidor " + fe.rcErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

End If