Ejemplo preliminar para consultar la validez de un receptor con instalador 99.86 o superior
rem remito cárnico y harinero
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
If fe.iniciar(0, "cuit", "ruta y archivo al certificado AFIP *.pfx", "archivo de licencia no es necesario en modo prueba") Then
fe.ArchivoCertificadoPassword = "contraseña generada al crear *.pfx"
fe.rcverson = 0
REM fe.rcversion = 1 harinero
If fe.rcObtenerTicketAcceso() Then
bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0
fe.ArchivoXMLEnviado = "d:enviado.xml"
fe.ArchivoXMLRecibido = "d:\recibido.xml"
bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)
bresultado = bresultado And fe.rcCargarPropiedad("receptores.itemcantidad", "1", 0, 0)
bresultado = bresultado And fe.rcCargarPropiedad("receptores.cuitreceptor", "cuit a consultar", 0, 0)
If bresultado Then
bresultado = fe.rcconsultarReceptoresValidos()
If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then
MsgBox("válido " + fe.rcLeerPropiedad("rcconsultarReceptorValidos", "resultado", "", 0, 0))
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
Ejemplo preliminar para consultar la validez de varios receptores con instalador 99.86 o suprior.
rem remito cárnico
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
If fe.iniciar(0, "cuit", "ruta y archivo al certificado AFIP *.pfx", "archivo de licencia no es necesario en modo prueba") Then
fe.ArchivoCertificadoPassword = "contraseña generada al crear *.pfx"
fe.rcverson = 0
If fe.rcObtenerTicketAcceso() Then
bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0
fe.ArchivoXMLEnviado = "d:enviado.xml"
fe.ArchivoXMLRecibido = "d:\recibido.xml"
bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)
bresultado = bresultado And fe.rcCargarPropiedad("receptores.itemcantidad", "3", 0, 0)
bresultado = bresultado And fe.rcCargarPropiedad("receptores.cuitreceptor", "cuit1", 0, 0)
bresultado = bresultado And fe.rcCargarPropiedad("receptores.cuitreceptor", "cuit2", 1, 0)
bresultado = bresultado And fe.rcCargarPropiedad("receptores.cuitreceptor", "cuit3", 2, 0)
If bresultado Then
bresultado = fe.rcconsultarReceptoresValidos()
If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then
MsgBox("Todos validos " + fe.rcLeerPropiedad("rcconsultarReceptorValidos", "resultado", "", 0, 0))
Else
MsgBox("error general" + fe.UltimoMensajeError)
Dim nerrores As Integer
Dim nindex As Integer
nerrores = fe.rcLeerPropiedad("rcconsultarReceptorValidos", "arrayerrores.itemcantidad", "", 0, 0)
For nindex = 1 To nerrores
MsgBox("error " + fe.rcLeerPropiedad("rcconsultarReceptoresValidos", "arrayerrores.descripcion", "", nindex - 1, 0))
Next
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