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