WSCPE AutorizarCPE

 REM AutorizarCPEAutomotor instalador 100.82 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.plantaNO", "F", 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 100.82 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.destino.plantaNO", "F", 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