WSCPE ejemplo operativo

Este ejemplo operativo (instalador 100.85 o superior) para el modo prueba de AFIP necesita para autorizar una carta de porte automotor que se tramite un certificado homologación para el servicio WSCPE 2(o se lo asocie a ese servicio si ya lo tiene).

 Y pedir a sri@afip.gov.ar para ese C.U.I.T. que el soporte de AFIP otorgue datos de prueba (en este caso como productor). Y usar los métodos cpeconsultarplantas y cpeconsultarlocalidadesporproductor para tener los datos de numero de plantas y localidades que corresponde usar para ese CUIT de pruebas.

Al pie se adjunta XML y PDF generados

 REM AutorizarCPEAutomotor instalador 100.85  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", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.correspondeRetiroProductor", "F", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.cuitSolicitante", "cuit emisor", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.cabecera.nroOrden", "3", 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 carporte automotor / 75 Ferroviaria / 99 Flete corto

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.codGrano", "23", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.cosecha", "2021", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.pesoBruto", "112", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.datosCarga.pesoTara", "12", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destinatario.cuit", "27000000014", 0, 0)

                REM bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.operador.codLocalidad", "6904", 0, 0)

                REM bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.operador.codProvincia", "1", 0, 0)

                REM bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.operador.planta", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.codLocalidad", "1069", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.codProvincia", "11", 0, 0)

fe.cpeCargarPropiedad("AutomotorSolicitud.origen.productor.nroRenspa", "1234", 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.codLocalidad", "287", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.codProvincia", "5", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.cuit", "27000000014", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.esDestinoCampo", "F", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.planta", "1782", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.destino.plantaNO", "F", 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, 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.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)

                REM bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.retiroProductor.certificadoCOE", "123456789", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.retiroProductor.cuitRemitenteComercialProductor", "20235709490", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.codigoTurno", "1", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitTransportista", "20120372913", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.cuitChofer", "27280533500", 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.cuitPagadorFleteNO", "V", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.dominio", "HOM003 SUB123", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.fechaHoraPartida", "202109041900", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.kmRecorrer", "100", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.mercaderiafumigada", "F", 0, 0)

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.transporte.tarifa", "1", 0, 0)

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

                bResultado = bResultado And fe.cpeCargarPropiedad("automotorsolicitud.observaciones", "prueba 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 local" + fe.UltimoMensajeError)

                        MsgBox("error devuelto por 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