WSCPE AutorizarCPE
REM AutorizarCPEAutomotor instalador 100.10 o superior
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
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.tls = 12
fe.cpeversion = 20
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("automotorsolicitud.esSolicitanteCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.correspondeRetiroProductor", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.cuitSolicitante", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.tipoCP", "74", 0, 0)
REM 74 cartaporte automotor / 75 Ferroviaria / 99 Flete corto
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.codGrano", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.cosecha", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.cosechaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.pesoBruto", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.pesoTara", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destinatario.cuit", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.operador.codLocalidad", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.operador.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.operador.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.codLocalidad", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.coordenadasGPS.latitud.grados", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.coordenadasGPS.latitud.minutos", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.coordenadasGPS.latitud.segundos", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.coordenadasGPS.longitud.grados", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.coordenadasGPS.longitud.minutos", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.coordenadasGPS.longitud.segundos", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.cuit", "12123456781", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.esDestinoCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.codLocalidad", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitCorredorVentaPrimaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitCorredorVentaSecundaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 09
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitMercadoATermino", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialVentaPrimaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialVentaSecundaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialVentaSecundaria2", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRepresentanteEntregador", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRepresentanteEntregadorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRepresentanteRecibidor", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRepresentanteRecibidorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.retiroProductor.cuitRemitenteComercialProductor", "12123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.codigoTurno", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitTransportista", "12123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitChofer", "20235709490", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitChoferNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitIntermediarioFlete", "20235709490", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitIntermediarioFleteNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitPagadorFlete", "20235709490", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitPagadorFleteNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.dominio", "ABC949", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.fechaHoraPartida", "202105011230", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.kmRecorrer", "12345", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.tarifa", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.tarifaNO", "V", 0, 0)
If bresultado Then
bresultado = fe.cpeAutorizar()
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox("nro " + fe.cpeLeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0))
MsgBox("estado " + fe.cpeLeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0))
MsgBox("PDF " + fe.cpeLeerPropiedad("cpeAutorizar", "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 AutorizarCPEAutomotor derivado granario instalador 99.93 o superior
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
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 = 220
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("automotorsolicitud.cabecera.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.tipoCP", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.cantidadUnidades", "123456", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.cantidadUnidadesNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.codDerivadoGranario", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.codGrano", "15", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.fechaLote", "202110161120", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.fechaLoteNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.kgLitroM3", "123456", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.kgLitroM3NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.lote", "654546", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.otroEmbalaje", "654546", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.pesoBruto", "19400", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.pesoTara", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.tipoEmbalaje", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.unidadMedida", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destinatario.cuit", "30507933927", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.cuit", "30507933927", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.domicilioDestino.orden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitComisionista", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitCorredor", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitCorredorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitMercadoATermino", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercial", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.observaciones", "prueba 1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.cuitTitularPlanta", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.cuitTitularPlantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.esUsuarioIndustria", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.domicilioOrigen.orden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.domicilioOrigen.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.origen.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitChofer", "23149919759", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitIntermediarioFlete", "20235709490", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitIntermediarioFleteNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitPagadorFlete", "20235709490", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitTransportista", "23149919759", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.dominio", "BRN023", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.fechaHoraPartida", "202110161120", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.kmRecorrer", "5", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.tarifa", "706.40", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.tarifaNO", "V", 0, 0)
If bresultado Then
bresultado = fe.cpeAutorizar()
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox("nro " + fe.cpeLeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0))
MsgBox("estado " + fe.cpeLeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0))
MsgBox("PDF " + fe.cpeLeerPropiedad("cpeAutorizar", "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 AutorizarCPEFerroviario instalador 99 o superior
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean = True
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.tls = 12
fe.cpeversion = 21
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("FerroviarioSolicitud.correspondeRetiroProductor", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.cabecera.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.cabecera.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.cabecera.sucursal", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.datosCarga.codGrano", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.datosCarga.cosecha", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.datosCarga.pesoBruto ", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.datosCarga.pesoTara ", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destinatario.cuit ", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.codLocalidad", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.codProvinciaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.cuit", "12123456781", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.esDestinoCampo", "12123456781", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.destino.plantaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitCorredorVentaPrimaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitCorredorVentaSecundaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitMercadoATermino", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRemitenteComercialVentaPrimaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRemitenteComercialVentaSecundaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRemitenteComercialVentaSecundaria", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)2
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRepresentanteEntregador", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRepresentanteEntregadorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRepresentanteRecibidor", "12123456780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.intervinientes.cuitRepresentanteRecibidorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.retiroProductor.cuitRemitenteComercialProductor", "12123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.cuitPagadorFlete", "12123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.cuitPagadorFleteNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.cuitTransportista", "12123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.cuitTransportistaTramo2", "12123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.cuitTransportistaTramo2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.fechaHoraPartidaTren", "20210501", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.kmRecorrer", "12345", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.mercaderiaFumigada", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.nroOperativo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.nroPrecinto", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.nroVagon", "10000000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("FerroviarioSolicitud.transporte.ramal.descripcion", "1", 0, 0)
If bresultado Then
bresultado = fe.cpeAutorizar()
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox("nro " + fe.cpeLeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0))
MsgBox("estado " + fe.cpeLeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0))
MsgBox("PDF " + fe.cpeLeerPropiedad("cpeAutorizar", "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