WSRA convalidar emisor

rem remito azucarero convalidar emisor

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "ruta certifciado .pfx", "") Then

fe.rcVersion = 2

fe.ArchivoXMLEnviado = "d:\raenviado.xml"

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

fe.ArchivoCertificadoPassword = ""

If fe.rcObtenerTicketAcceso() Then

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

If bresultado Then

bresultado = fe.rcConvalidarEmisor("codremito", "SI", "oversvacion")

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcConvalidarEmisor", "resultado", "", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error leer 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

End Sub

rem remito azucarero corregir convalidar emisor

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "ruta certifciado .pfx", "") Then

fe.rcVersion = 2

fe.ArchivoXMLEnviado = "d:\raenviado.xml"

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

fe.ArchivoCertificadoPassword = ""

If fe.rcObtenerTicketAcceso() Then

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

If bresultado Then

bresultado = fe.rccorregirConvalidacionEmisor("codremito")

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcConvalidarEmisor", "resultado", "", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error leer 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

End Sub