Embedded Files
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
Page updated
Google Sites
Report abuse