WSRC ejemplo remitos por emisor

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

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:\emisor.xml"

Dim nLimite As Integer

Dim nIndex As Integer

Dim nPagina As Integer = 0

REM forma facil, recuperar la lista de remitos pendientes del emisor, suponiendo que el servidor los devuelve todos de una vez (de a una pagina)

bresultado = fe.rcConsultarRemitoPorEmisor("20180101", "20180131", "", "195", "PEN", "")

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

nLimite = Val(fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "remitos.itemcantidad", "", 0, 0))

For nIndex = 1 To nLimite

MsgBox("estado " + fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "remitos.estadoactual", "", nIndex - 1, 0))

MsgBox("numero remito " + fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "remitos.nroremito", "", nIndex - 1, 0))

Next

Else

MsgBox("error local leer" + fe.UltimoMensajeError)

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

End If

REM forma difícil, recupera la lista de remitos del emisor, teniendo en cuenta que el servidor los devuelve de a bloques (paginas) en el caso que sean miles

Dim bHayMas As Boolean = True

Dim nnropagina As Integer = 0

Do While bHayMas

nnropagina = nnropagina + 1

bresultado = fe.rcConsultarRemitoPorEmisor("20180101", "20180131", "", "195", "PEN", nnropagina.ToString)

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

nLimite = Val(fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "remitos.itemcantidad", "", 0, 0))

For nIndex = 1 To nLimite

MsgBox("estado " + fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "remitos.estadoactual", "", nIndex - 1, 0))

MsgBox("numero remito " + fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "remitos.nroremito", "", nIndex - 1, 0))

Next

bHayMas = CBool(fe.rcLeerPropiedad("rcConsultarRemitoPorEmisor", "haymas", "", 0, 0))

Else

MsgBox("error local leer" + fe.UltimoMensajeError)

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

bHayMas = false

End If

Loop

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

End If