Embedded Files
rem remito carnico
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"
If fe.rcObtenerTicketAcceso() Then
bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)
bresultado = bresultado And fe.rcCargarPropiedad("autorizarremito", "A o D", 0, 0)
fe.ArchivoXMLEnviado = "d:\rcemiir.xml"
fe.ArchivoXMLRecibido = "d:\rcemitirrecibo.xml"
If bresultado Then
bresultado = fe.rcAutorizarRemito2("3523", "A")
If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then
MsgBox("resultado " + fe.rcLeerPropiedad("rcautorizarremito", "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
rem remito 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.rcVersion = 1
fe.ArchivoCertificadoPassword = "contraseña generada al crear *.pfx"
If fe.rcObtenerTicketAcceso() Then
bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)
fe.ArchivoXMLEnviado = "d:\raut.xml"
fe.ArchivoXMLRecibido = "d:\rcrecibo.xml"
If bresultado Then
bresultado = fe.rcAutorizarRemito2("3523", "A")
If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then
MsgBox("resultado " + fe.rcLeerPropiedad("rcautorizarremito", "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
rem autorizar remito azucar
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
Dim strticket As String = ""
Dim cnumero As String = ""
If fe.iniciar(0, "cuit emisor", "ruta archivo certifciado.pfx", "") Then
fe.rcVersion = 2
fe.ArchivoXMLEnviado = "d:\raemitir.xml"
fe.ArchivoXMLRecibido = "d:\raemitir.xml"
fe.ArchivoCertificadoPassword = ""
If fe.rcObtenerTicketAcceso() Then
If bresultado Then
bresultado = fe.rcAutorizarRemito2("235235", "A")
If fe.UltimoMensajeError = "" And fe.rcErrorDescripcion1 = "" Then
MsgBox("resultado " + fe.rcLeerPropiedad("rcAutorizarRemito", "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
Page updated
Google Sites
Report abuse