WSCPE confirmar arribo definitivo
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
REM confirmacionDefinitivaCPEAutomotor instalador 99 o superior
If fe.iniciar(0, "cuit", "certificado pfx tramitado en AFIP", "") Then
REM ATENCION, ejecutar este método necesario para que la interfaz capture el trafico hacia y desde el servidor antes que el sistema operativo.
REM servidor WS CPE usa un formato incompatible y debe ser transformado para operar normalmente.
If fe.registrarTrafico(True) Then
Else
MsgBox("error capturar trafico " + fe.UltimoMensajeError)
End If
fe.cpeversion = 0
fe.ArchivoXMLEnviado = "d:\aenvio.xml"
fe.ArchivoXMLRecibido = "d:\arecibo.xml"
fe.ArchivoCertificadoPassword = ""
If fe.cpeObtenerTicketAcceso() Then
bResultado = bResultado And fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aConfirmacionDefinitivaAutomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.cuitSolicitante", "20111111111", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.cuitRepresentanteRecibidor", "20111111111", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.cuitRepresentanteRecibidorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.pesoBrutoDescarga", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaAutomotor.pesoTaraDescarga", "1", 0, 0)
If bresultado Then
bresultado = fe.cpeConfirmacionDefinitiva()
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox("nro " + fe.cpeLeerPropiedad("cartaporte", "cabecera.nroCTG", "", 0, 0))
MsgBox("estado " + fe.cpeLeerPropiedad("cartaporte", "cabecera.estado", "", 0, 0))
MsgBox("PDF " + fe.cpeLeerPropiedad("cartaporte", "PDF", "d:\comprobante.pdf", 0, 0))
Else
MsgBox("error leer" + fe.UltimoMensajeError)
MsgBox("error ller servidor " + fe.cpeErrorDescripcion1)
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 confirmacionDefinitivaCPEFerroviaria instalador 99 o superior
If fe.iniciar(0, "cuit", "certificado pfx tramitado en AFIP", "") Then
REM ATENCION, ejecutar este método necesario para que la interfaz capture el trafico hacia y desde el servidor antes que el sistema operativo.
REM servidor WS CPE usa un formato incompatible y debe ser transformado para operar normalmente.
If fe.registrarTrafico(True) Then
Else
MsgBox("error capturar trafico " + fe.UltimoMensajeError)
End If
fe.cpeversion = 1
fe.ArchivoXMLEnviado = "d:\aenvio.xml"
fe.ArchivoXMLRecibido = "d:\arecibo.xml"
fe.ArchivoCertificadoPassword = ""
If fe.cpeObtenerTicketAcceso() Then
bResultado = bResultado And fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.cuitSolicitante", "20111111111", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.pesoBrutoDescarga", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.pesoTaraDescarga", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.destinatario.cuit", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitCorredorVentaPrimaria", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitCorredorVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitCorredorVentaSecundaria", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitCorredorVentaSecundariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteComercialVentaPrimaria", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteComercialVentaSecundaria", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteRepresentanteRecibidor", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.intervinientes.cuitRemitenteRepresentanteRecibidorNO", "20111111112", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.ramalDescarga.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ConfirmacionDefinitivaFerroviario.ramalDescarga.descripcion", "1", 0, 0)
If bresultado Then
bresultado = fe.cpeConfirmacionDefinitiva()
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox("nro " + fe.cpeLeerPropiedad("cartaporte", "cabecera.nroCTG", "", 0, 0))
MsgBox("estado " + fe.cpeLeerPropiedad("cartaporte", "cabecera.estado", "", 0, 0))
MsgBox("PDF " + fe.cpeLeerPropiedad("cartaporte", "PDF", "d:\comprobante.pdf", 0, 0))
Else
MsgBox("error leer" + fe.UltimoMensajeError)
MsgBox("error ller servidor " + fe.cpeErrorDescripcion1)
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