cpeAutorizarEmisionDG

REM AutorizarCPEAutomotor 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.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("autorizaremision.cabecera.nroOrden", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.cabecera.sucursal", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.cabecera.tipoCP", "284", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.cantidadUnidades", "123456", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.cantidadUnidadesNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.codDerivadoGranario", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.codGrano", "15", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.fechaLote", "20211016", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.fechaLoteNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.kgLitroM3", "123456", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.kgLitroM3NO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.lote", "654546", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.otroEmbalaje", "654546", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.pesoBruto", "19400", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.pesoTara", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.tipoEmbalaje", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.unidadMedida", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destinatario.cuit", "30507933927", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.cuit", "30507933927", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.domicilioDestino.orden", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.domicilioDestino.tipo", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.planta", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitComisionista", "12123456780", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitComisionistaNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitCorredor", "12123456780", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitCorredorNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitMercadoATermino", "12123456780", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitRemitenteComercial", "12123456780", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.observaciones", "prueba 1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.cuitOrigen", "20111111112", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.domicilioOrigen.orden", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.domicilioOrigen.tipo", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.planta", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitChofer", "23149919759", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitIntermediarioFlete", "20235709490", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitIntermediarioFleteNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitPagadorFlete", "20235709490", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitTransportista", "23149919759", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.dominio", "BRN023", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.fechaHoraPartida", "202110161120", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.kmRecorrer", "5", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.tarifa", "706.40", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.tarifaNO", "V", 0, 0)

                If bResultado Then

                    bResultado = fe.cpeAutorizarEmision()

                    If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then

                        MsgBox("numero : " + fe.CPELeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0))

                        REM fe.CPELeerPropiedad("cpeAutorizar", "PDF", "d:\comprobante.pdf", 0, 0)

                    Else

                        MsgBox("error método " + fe.UltimoMensajeError + 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