FeCred fecconsultarMontoObligadoRecepcion

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "certificado pfx", "archivo licencia modo real") Then

fe.ArchivoCertificadoPassword = ""

If fe.fecObtenerTicketAcceso() Then

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

bresultado = fe.fecconsultarMontoObligadoRecepcion("cuit", "fecha aaaammdd")

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

MsgBox(fe.fecLeerPropiedad("fecconsultarMontoObligadoRecepcion", "montoDesde", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarMontoObligadoRecepcion", "obligado", "", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

end if

else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

end if