Embedded Files
Attribute VB_Name = "modWSCPEEjemplos"
Option Explicit
Public Sub Ejemplo_cpeAutorizar_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeAutorizar - Carta de Porte Automotor Granos (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bOrigenOperador As Boolean
Dim bRetiroProductor As Boolean
Dim bEsSemilla As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor Granos), TLS y XML de auditoria
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_automotor_recibido.xml"
' Opciones para controlar bloques mutuamente excluyentes / opcionales del ejemplo
bOrigenOperador = True ' True = Origen Planta (Operador) | False = Origen Campo (Productor)
bRetiroProductor = False ' True = Corresponde Retiro de Productor
bEsSemilla = False ' True = Carga de Semillas (INASE)
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos raiz de AutorizarAutomotorSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.esSolicitanteCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.observaciones", "Ejemplo autorizacion CPE Automotor", 0, 0)
If bRetiroProductor Then
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.correspondeRetiroProductor", "V", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.correspondeRetiroProductor", "F", 0, 0)
End If
' --- Cabecera (tipoCP: 74 = Automotor Granos, 274 = Automotor Flete Corto) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.tipoCP", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.nroOrden", "1", 0, 0)
' --- Origen (excluyente: Operador/Planta O Productor/Campo) ---
If bOrigenOperador Then
' Origen: Operador (Planta RUCA)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.operador.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.operador.codLocalidad", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.operador.planta", "12345", 0, 0)
Else
' Origen: Productor (Campo / SISA)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.codLocalidad", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.nroRenspa", "01.001.0.00001/00", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.ubicacionGeoreferencial", "Establecimiento Ejemplo", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.latitud.grados", "34", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.latitud.minutos", "36", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.latitud.segundos", "13", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.longitud.grados", "58", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.longitud.minutos", "22", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.productor.coordenadasGPS.longitud.segundos", "53", 0, 0)
End If
' --- Retiro de Productor (solo si correspondeRetiroProductor = "V") ---
If bRetiroProductor Then
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.retiroProductor.cuitRemitenteComercialProductor", "20123456789", 0, 0)
End If
' --- Intervinientes (opcionales: *NO = "V" omite el nodo XML; "F" lo envia) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialVentaSecundaria2", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitCorredorVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitCorredorVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRepresentanteEntregador", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRepresentanteEntregadorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRepresentanteRecibidor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRepresentanteRecibidorNO", "V", 0, 0)
' --- Datos de Carga ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.cosecha", "2425", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.pesoBruto", "45000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.pesoTara", "15000", 0, 0)
' --- Datos de Carga -> Semilla INASE (opcional, solo cuando corresponda a semilla) ---
If bEsSemilla Then
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.semilla.presentacionInase", "200000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.semilla.categoriaSemilla", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.semilla.variedadSemilla", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.semilla.variedadSemillaNO", "F", 0, 0)
End If
' --- Destino (si esDestinoCampo = "V", asignar plantaNO = "V") ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.cuit", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.esDestinoCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.codLocalidad", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.planta", "54321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.plantaNO", "F", 0, 0)
' --- Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destinatario.cuit", "30123456789", 0, 0)
' --- Transporte Automotor (dominio: patentes separadas por espacio; fecha: yyyyMMddHHmm) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.dominio", "AA123BB CC456DD", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.fechaHoraPartida", "202611141600", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.kmRecorrer", "150", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.codigoTurno", "0001", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitChofer", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.tarifa", "25000.50", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.tarifaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitIntermediarioFlete", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitIntermediarioFleteNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.mercaderiaFumigada", "F", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAutorizar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor Autorizada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0) & vbCrLf & _
"Vencimiento: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.fechaVencimiento", "", 0, 0)
' Descarga del PDF del comprobante emitido
Call fe.CPELeerPropiedad("cpeAutorizar", "PDF", "C:\temp\cpe_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAutorizar_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeAutorizar - Carta de Porte Ferroviaria Granos (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bRetiroProductor As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviaria Granos), TLS y XML de auditoria
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_ferroviario_recibido.xml"
' Opcion para controlar bloque opcional de Retiro de Productor
bRetiroProductor = False ' True = Corresponde Retiro de Productor
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos raiz de AutorizarFerroviariaSolicitud ---
If bRetiroProductor Then
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.correspondeRetiroProductor", "V", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.correspondeRetiroProductor", "F", 0, 0)
End If
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.observaciones", "Ejemplo autorizacion CPE Ferroviaria", 0, 0)
' --- Cabecera Ferroviaria (el origen es la planta RUCA en cabecera.planta) ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.cabecera.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.cabecera.planta", "12345", 0, 0)
' --- Retiro de Productor (solo si correspondeRetiroProductor = "V") ---
If bRetiroProductor Then
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.retiroProductor.cuitRemitenteComercialProductor", "20123456789", 0, 0)
End If
' --- Intervinientes (opcionales: *NO = "V" omite el nodo XML; "F" lo envia) ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitCorredorVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitCorredorVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRepresentanteEntregador", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRepresentanteEntregadorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRepresentanteRecibidor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRepresentanteRecibidorNO", "V", 0, 0)
' --- Datos de Carga Ferroviaria ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.cosecha", "2425", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.pesoBruto", "45000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.pesoTara", "15000", 0, 0)
' --- Destino (si esDestinoCampo = "V", asignar plantaNO = "V") ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.cuit", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.esDestinoCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.codLocalidad", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.planta", "54321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.plantaNO", "F", 0, 0)
' --- Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destinatario.cuit", "30123456789", 0, 0)
' --- Transporte Ferroviario ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitTransportistaTramo2", "30555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitTransportistaTramo2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.nroVagon", "10000001", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.nroPrecinto", "123456", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.nroOperativo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.ramal.descripcion", "Ramal Ejemplo", 0, 0)
' Nota: En Modo = 0 (Homologacion) Factura.vb parsea "yyyyMMdd"; en Modo = 1 (Produccion) parsea "yyyyMMddHHmm"
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.fechaHoraPartidaTren", "20261114", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.kmRecorrer", "250", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitPagadorFleteNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.mercaderiaFumigada", "F", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAutorizar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria Autorizada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0) & vbCrLf & _
"Vencimiento: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.fechaVencimiento", "", 0, 0)
' Descarga del PDF del comprobante emitido
Call fe.CPELeerPropiedad("cpeAutorizar", "PDF", "C:\temp\cpe_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAutorizar_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeAutorizar - CPE Automotor Derivados Granarios (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bOrigenEnPlanta As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_automotor_dg_recibido.xml"
' Opciones para controlar bloques mutuamente excluyentes / opcionales del ejemplo
bOrigenEnPlanta = True ' True = Origen Planta RUCA | False = Usuario Industria / Domicilio PUC
bDestinoEnPlanta = True ' True = Destino Planta RUCA | False = Destino Domicilio PUC
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos raiz de AutorizarAutomotorDGSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.observaciones", "Ejemplo autorizacion CPE Automotor DG", 0, 0)
' --- Cabecera (tipoCP: 284 = Automotor DG, 287 = Flete Corto DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.tipoCP", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.cabecera.nroOrden", "1", 0, 0)
' --- Origen (excluyente: Planta RUCA O Domicilio PUC + Titular Planta) ---
' IMPORTANTE cpeVersion=220: las propiedades opcionales requieren enviar *NO = "F" (enviar) o "V" (omitir)
If bOrigenEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.esUsuarioIndustria", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.planta", "12345", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.plantaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.cuitTitularPlantaNO", "V", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.esUsuarioIndustria", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.cuitTitularPlanta", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.cuitTitularPlantaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.domicilioOrigen.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.origen.domicilioOrigen.orden", "1", 0, 0)
End If
' --- Intervinientes (opcionales: *NO = "V" omite el nodo XML; "F" lo envia) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.intervinientes.cuitCorredorNO", "V", 0, 0)
' --- Datos de Carga DG (fechaLote en cpeVersion=220 usa formato yyyyMMdd) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.codDerivadoGranario", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.pesoBruto", "45000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.pesoTara", "15000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.tipoEmbalaje", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.otroEmbalaje", "Granel", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.unidadMedida", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.cantidadUnidades", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.cantidadUnidadesNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.kgLitroM3", "30000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.kgLitroM3NO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.lote", "LOT202601", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.fechaLote", "20261114", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.datosCarga.fechaLoteNO", "F", 0, 0)
' --- Destino (excluyente: Planta RUCA O Domicilio PUC) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.cuit", "30123456789", 0, 0)
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.planta", "54321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.destinatario.cuit", "30123456789", 0, 0)
' --- Transporte Automotor DG (dominio: patentes separadas por espacio; fecha: yyyyMMddHHmm) ---
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.dominio", "AA123BB CC456DD", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.fechaHoraPartida", "202611141600", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.kmRecorrer", "150", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitChofer", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.tarifa", "25000.50", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.tarifaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitIntermediarioFlete", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("automotor.transporte.cuitIntermediarioFleteNO", "V", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAutorizar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor DG Autorizada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0) & vbCrLf & _
"Vencimiento: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.fechaVencimiento", "", 0, 0)
' Descarga del PDF del comprobante emitido
Call fe.CPELeerPropiedad("cpeAutorizar", "PDF", "C:\temp\cpe_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAutorizar_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeAutorizar - CPE Ferroviaria Derivados Granarios (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bOrigenEnPlanta As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_ferroviario_dg_recibido.xml"
' Opciones para controlar bloques mutuamente excluyentes / opcionales del ejemplo
bOrigenEnPlanta = True ' True = Origen Planta RUCA | False = Usuario Industria / Domicilio PUC
bDestinoEnPlanta = True ' True = Destino Planta RUCA | False = Destino Domicilio PUC
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos raiz de AutorizarFerroviariaDGSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.observaciones", "Ejemplo autorizacion CPE Ferroviaria DG", 0, 0)
' --- Cabecera Ferroviaria DG ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.cabecera.nroOrden", "1", 0, 0)
' --- Origen (excluyente: Planta RUCA O Domicilio PUC + Titular Planta) ---
If bOrigenEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.esUsuarioIndustria", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.planta", "12345", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.cuitTitularPlantaNO", "V", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.esUsuarioIndustria", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.cuitTitularPlanta", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.cuitTitularPlantaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.domicilioOrigen.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.origen.domicilioOrigen.orden", "1", 0, 0)
End If
' --- Intervinientes (en 221 asignar activa *Specified = True; *NO = "V" lo desactiva) ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitCorredorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
' --- Datos de Carga Ferroviaria DG ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.codDerivadoGranario", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.pesoBruto", "45000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.pesoTara", "15000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.tipoEmbalaje", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.otroEmbalaje", "Granel", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.unidadMedida", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.cantidadUnidades", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.cantidadUnidadesNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.kgLitroM3", "30000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.kgLitroM3NO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.lote", "LOT202601", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.fechaLote", "20261114", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.datosCarga.fechaLoteNO", "F", 0, 0)
' --- Destino (excluyente: Planta RUCA O Domicilio PUC) ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.cuit", "30123456789", 0, 0)
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.planta", "54321", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.destinatario.cuit", "30123456789", 0, 0)
' --- Transporte Ferroviario DG (nroPrecinto acepta lista separada por espacio o por indice) ---
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitTransportistaTramo2", "30555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitTransportistaTramo2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.nroVagon", "10000001", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.nroPrecinto", "123456 789012", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.nroOperativo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.ramal.descripcion", "Ramal Ejemplo", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.fechaHoraPartidaTren", "202611141600", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.kmRecorrer", "250", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitConductor", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitConductorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitConductorTramo2", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitConductorTramo2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.tarifa", "25000.50", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.tarifaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitIntermediarioFlete", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("ferroviario.transporte.cuitIntermediarioFleteNO", "V", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAutorizar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria DG Autorizada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.estado", "", 0, 0) & vbCrLf & _
"Vencimiento: " & fe.CPELeerPropiedad("cpeAutorizar", "cabecera.fechaVencimiento", "", 0, 0)
' Descarga del PDF del comprobante emitido
Call fe.CPELeerPropiedad("cpeAutorizar", "PDF", "C:\temp\cpe_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConsultar_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeConsultar - Consulta CPE Automotor Granos (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim nTipoComprobante As Integer
Dim cPuntoVenta As String
Dim cNumero As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor Granos), TLS y XML de auditoria
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_automotor_recibido.xml"
' Parametros de entrada de cpeConsultar (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
nTipoComprobante = 74 ' 74 = Automotor Granos | 274 = Automotor Flete Corto
cPuntoVenta = "1"
cNumero = "1"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultar(cCuitSolicitante, nTipoComprobante, cPuntoVenta, cNumero)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Estado CPE Automotor: " & fe.CPELeerPropiedad("cpeConsultar", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultar", "PDF", "C:\temp\cpe_consultar_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultar_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeConsultar - Consulta CPE Ferroviaria Granos (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim nTipoComprobante As Integer
Dim cPuntoVenta As String
Dim cNumero As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviaria Granos), TLS y XML de auditoria
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_ferroviario_recibido.xml"
' Parametros de entrada de cpeConsultar (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
nTipoComprobante = 75 ' 75 = Ferroviaria Granos
cPuntoVenta = "1"
cNumero = "1"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultar(cCuitSolicitante, nTipoComprobante, cPuntoVenta, cNumero)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Estado CPE Ferroviaria: " & fe.CPELeerPropiedad("cpeConsultar", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultar", "PDF", "C:\temp\cpe_consultar_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultar_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeConsultar - Consulta CPE Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim nTipoComprobante As Integer
Dim cPuntoVenta As String
Dim cNumero As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_automotor_dg_recibido.xml"
' Parametros de entrada de cpeConsultar (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
nTipoComprobante = 284 ' 284 = Automotor DG | 287 = Otros Medios Terrestres DG
cPuntoVenta = "1"
cNumero = "1"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultar(cCuitSolicitante, nTipoComprobante, cPuntoVenta, cNumero)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Estado CPE Automotor DG: " & fe.CPELeerPropiedad("cpeConsultar", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultar", "PDF", "C:\temp\cpe_consultar_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultar_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeConsultar - Consulta CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim nTipoComprobante As Integer
Dim cPuntoVenta As String
Dim cNumero As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_ferroviario_dg_recibido.xml"
' Parametros de entrada de cpeConsultar (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
nTipoComprobante = 76 ' 76 = Ferroviaria Derivados Granarios
cPuntoVenta = "1"
cNumero = "1"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultar(cCuitSolicitante, nTipoComprobante, cPuntoVenta, cNumero)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Estado CPE Ferroviaria DG: " & fe.CPELeerPropiedad("cpeConsultar", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultar", "PDF", "C:\temp\cpe_consultar_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultarPorCTG_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeConsultarPorCTG - Consulta por CTG Automotor Granos (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim cCTG As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor Granos), TLS y XML de auditoria
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_ctg_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_ctg_automotor_recibido.xml"
' Parametros de entrada de cpeConsultarPorCTG (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
cCTG = "10123456789"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultarPorCTG(cCuitSolicitante, cCTG)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
' Nota: En cpeVersion = 20 CPELeerPropiedad espera "cpeConsultar" o "cpeConsultarCPEAutomotor"
MsgBox "Estado CPE Automotor (CTG): " & fe.CPELeerPropiedad("cpeConsultar", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultar", "PDF", "C:\temp\cpe_consultar_ctg_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultarPorCTG_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeConsultarPorCTG - Consulta por CTG Ferroviaria Granos (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim cCTG As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviaria Granos), TLS y XML de auditoria
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_ctg_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_ctg_ferroviario_recibido.xml"
' Parametros de entrada de cpeConsultarPorCTG (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
cCTG = "10123456789"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultarPorCTG(cCuitSolicitante, cCTG)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
' Nota: En cpeVersion = 21 CPELeerPropiedad espera "cpeConsultar" o "cpeConsultarCPEFerroviario"
MsgBox "Estado CPE Ferroviaria (CTG): " & fe.CPELeerPropiedad("cpeConsultar", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultar", "PDF", "C:\temp\cpe_consultar_ctg_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultarPorCTG_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeConsultarPorCTG - Consulta por CTG Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim cCTG As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_ctg_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_ctg_automotor_dg_recibido.xml"
' Parametros de entrada de cpeConsultarPorCTG (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
cCTG = "10123456789"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultarPorCTG(cCuitSolicitante, cCTG)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Estado CPE Automotor DG (CTG): " & fe.CPELeerPropiedad("cpeConsultarPorCTG", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultarPorCTG", "PDF", "C:\temp\cpe_consultar_ctg_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeConsultarPorCTG_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeConsultarPorCTG - Consulta por CTG Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bIncluirCuitSolicitante As Boolean
Dim cCuitSolicitante As String
Dim cCTG As String
Set fe = CreateObject("WSAFIPFE.Factura")
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_consultar_ctg_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_consultar_ctg_ferroviario_dg_recibido.xml"
' Parametros de entrada de cpeConsultarPorCTG (cuitSolicitante es opcional)
bIncluirCuitSolicitante = True ' True = Envia CUIT solicitante | False = Omite nodo XML ("")
If bIncluirCuitSolicitante Then
cCuitSolicitante = "20123456789"
Else
cCuitSolicitante = ""
End If
cCTG = "10123456789"
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConsultarPorCTG(cCuitSolicitante, cCTG)
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Estado CPE Ferroviaria DG (CTG): " & fe.CPELeerPropiedad("cpeConsultarPorCTG", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante consultado
Call fe.CPELeerPropiedad("cpeConsultarPorCTG", "PDF", "C:\temp\cpe_consultar_ctg_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
End Sub
Public Sub Ejemplo_cpeEditar_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeEditar - Edicion CPE Automotor Granos Activa (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoCampo As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor Granos), TLS y XML de auditoria
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_automotor_recibido.xml"
' Opcion para controlar bloque excluyente de destino (Planta RUCA vs Campo)
bDestinoCampo = False ' True = Destino en Campo (sin planta) | False = Destino en Planta RUCA
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarActivaAutomotorSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.nroCTG", "10123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitChofer", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitDestinatario", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cosecha", "2425", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cosechaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.pesoBruto", "46000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.dominio", "AA123BB CC456DD", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.kmRecorrer", "180", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.kmRecorrerNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.tarifa", "26500.00", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.tarifaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.observaciones", "Ejemplo edicion CPE Automotor activa", 0, 0)
' --- Intervinientes opcionales (en cpeVersion=20 *NO = "V" omite | "F" envia) ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitRemitenteComercialVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitRemitenteComercialVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitRemitenteComercialVentaSecundaria2", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitCorredorVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitCorredorVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitCorredorVentaSecundariaNO", "V", 0, 0)
' --- Destino (excluyente: Campo vs Planta RUCA) ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.cuit", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.codLocalidad", "100", 0, 0)
If bDestinoCampo Then
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.esDestinoCampo", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.plantaNO", "V", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.esDestinoCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.planta", "54321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.plantaNO", "F", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeEditar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditar", "PDF", "C:\temp\cpe_editar_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditar_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeEditar - Edicion CPE Ferroviaria Granos Activa (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoCampo As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviaria Granos), TLS y XML de auditoria
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_ferroviario_recibido.xml"
' Opcion para controlar bloque excluyente de destino (Planta RUCA vs Campo)
bDestinoCampo = False ' True = Destino en Campo (sin planta) | False = Destino en Planta RUCA
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarActivaFerroviariaSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.nroCTG", "10123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitDestinatario", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.nroVagon", "10000002", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.pesoBruto", "46000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.codGrano", "19", 0, 0)
' --- Intervinientes opcionales (en cpeVersion=21 asignar activa *Specified; *NO="V" omite) ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitRemitenteComercialVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitRemitenteComercialVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitRemitenteComercialVentaSecundaria2", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitCorredorVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitCorredorVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitCorredorVentaSecundariaNO", "V", 0, 0)
' --- Destino (excluyente: Campo vs Planta RUCA) ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.cuit", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.codLocalidad", "100", 0, 0)
If bDestinoCampo Then
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.esDestinoCampo", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.plantaNO", "V", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.esDestinoCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.planta", "54321", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeEditar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditar", "PDF", "C:\temp\cpe_editar_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditar_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeEditar - Edicion CPE Automotor DG Activa (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_automotor_dg_recibido.xml"
' Opcion para controlar bloque excluyente de destino (Planta RUCA vs Domicilio PUC)
bDestinoEnPlanta = True ' True = Destino Planta RUCA | False = Destino Domicilio PUC
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarActivaDGAutomotorSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.nroCTG", "10123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitChofer", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.dominio", "AA123BB CC456DD", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.codDerivadoGranario", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.unidadMedida", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.tipoEmbalaje", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.otroEmbalaje", "Granel", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cantidadUnidades", "110", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.kgLitroM3", "31000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.pesoBruto", "46000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitDestinatario", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.tarifa", "26500.00", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitIntermediarioFlete", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.cuitIntermediarioFleteNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.kmRecorrer", "180", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.observaciones", "Ejemplo edicion CPE Automotor DG activa", 0, 0)
' --- Intervinientes opcionales ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.intervinientes.cuitCorredorNO", "V", 0, 0)
' --- Destino (excluyente: Planta RUCA O Domicilio PUC) ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.cuit", "30123456789", 0, 0)
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.planta", "54321", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarautomotor.destino.domicilioDestino.orden", "1", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeEditar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor DG Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditar", "PDF", "C:\temp\cpe_editar_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditar_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeEditar - Edicion CPE Ferroviaria DG Activa (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_ferroviario_dg_recibido.xml"
' Opcion para controlar bloque excluyente de destino (Planta RUCA vs Domicilio PUC)
bDestinoEnPlanta = True ' True = Destino Planta RUCA | False = Destino Domicilio PUC
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarActivaDGFerroviariaSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.nroCTG", "10123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitConductor", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitConductorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitTransportistaTramo2", "30555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitTransportistaTramo2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitConductorTramo2", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitConductorTramo2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.nroVagon", "10000002", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.nroPrecinto", "123456 789012", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.nroOperativo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.ramal.descripcion", "Ramal Ejemplo", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.codDerivadoGranario", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.unidadMedida", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.tipoEmbalaje", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.otroEmbalaje", "Granel", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cantidadUnidades", "110", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.kgLitroM3", "31000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.pesoBruto", "46000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitDestinatario", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.tarifa", "26500.00", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitIntermediarioFlete", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.cuitIntermediarioFleteNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.kmRecorrer", "260", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.observaciones", "Ejemplo edicion CPE Ferroviaria DG activa", 0, 0)
' --- Intervinientes opcionales ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitCorredorNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
' --- Destino (excluyente: Planta RUCA O Domicilio PUC) ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.cuit", "30123456789", 0, 0)
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.planta", "54321", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarferroviario.destino.domicilioDestino.orden", "1", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeEditar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria DG Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditar", "PDF", "C:\temp\cpe_editar_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditarConfirmada_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeEditarConfirmada - CPE Automotor Granos Confirmada (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor Granos), TLS y XML de auditoria
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_confirmada_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_confirmada_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarCPEConfirmadaAutomotorSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.nroCTG", "10123456789", 0, 0)
' --- Intervinientes modificables (en cpeVersion=20 *NO = "F" envia | "V" omite) ---
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitCorredorVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitCorredorVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitCorredorVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitRemitenteComercialVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitRemitenteComercialVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitRemitenteComercialProductor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaAutomotor.intervinientes.cuitRemitenteComercialProductorNO", "V", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeEditarConfirmada
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor Confirmada Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditarConfirmada", "PDF", "C:\temp\cpe_editar_confirmada_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditarConfirmada_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeEditarConfirmada - CPE Ferroviaria Granos Confirmada (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviaria Granos), TLS y XML de auditoria
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_confirmada_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_confirmada_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarCPEConfirmadaFerroviariaSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.nroCTG", "10123456789", 0, 0)
' --- Intervinientes modificables (en cpeVersion=21 asignar activa *Specified; *NO="V" omite) ---
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitCorredorVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitCorredorVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitCorredorVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitRemitenteComercialVentaPrimaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitRemitenteComercialVentaSecundaria", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitRemitenteComercialProductor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("EditarConfirmadaFerroviaria.intervinientes.cuitRemitenteComercialProductorNO", "V", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano; alias: cpeEditarConfirmadaF)
Call fe.cpeEditarConfirmada
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria Confirmada Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditarConfirmada", "PDF", "C:\temp\cpe_editar_confirmada_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditarConfirmada_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeEditarConfirmada - CPE Automotor DG Confirmada (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_confirmada_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_confirmada_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarCPEConfirmadaAutomotorDgSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.nroCTG", "10123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.observaciones", "Ejemplo edicion CPE Automotor DG confirmada", 0, 0)
' --- Intervinientes modificables ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.intervinientes.cuitRemitenteComercialNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmada.intervinientes.cuitCorredorNO", "F", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeEditarConfirmada
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor DG Confirmada Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditarConfirmada", "PDF", "C:\temp\cpe_editar_confirmada_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeEditarConfirmada_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeEditarConfirmada - CPE Ferroviaria DG Confirmada (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_editar_confirmada_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_editar_confirmada_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de EditarCPEConfirmadaFerroviariaDgSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.nroCTG", "10123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.observaciones", "Ejemplo edicion CPE Ferroviaria DG confirmada", 0, 0)
' --- Intervinientes modificables ---
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.intervinientes.cuitRemitenteComercialNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("editarconfirmadaferroviaria.intervinientes.cuitCorredorNO", "F", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano; alias: cpeEditarConfirmadaF)
Call fe.cpeEditarConfirmada
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria DG Confirmada Editada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeEditarConfirmada", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado tras la edicion
Call fe.CPELeerPropiedad("cpeEditarConfirmada", "PDF", "C:\temp\cpe_editar_confirmada_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAceptarEmision_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeAceptarEmision - Aceptar Emision CPE Automotor DG (cpeVersion = 220)
' Nota: Exclusivo Derivados Granarios (cpeVersion = 220 y 221; no aplica en 20/21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_aceptar_emision_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_aceptar_emision_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de AceptarEmisionDGSolicitud (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAceptarEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Emision CPE Automotor DG Aceptada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAceptarEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAceptarEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante aceptado
Call fe.CPELeerPropiedad("cpeAceptarEmision", "PDF", "C:\temp\cpe_aceptar_emision_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAceptarEmision_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeAceptarEmision - Aceptar Emision CPE Ferroviaria DG (cpeVersion = 221)
' Nota: Exclusivo Derivados Granarios (cpeVersion = 220 y 221; no aplica en 20/21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_aceptar_emision_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_aceptar_emision_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de AceptarEmisionDGSolicitud (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremision.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAceptarEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Emision CPE Ferroviaria DG Aceptada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAceptarEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAceptarEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante aceptado
Call fe.CPELeerPropiedad("cpeAceptarEmision", "PDF", "C:\temp\cpe_aceptar_emision_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAceptarEmisionDestino_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeAceptarEmisionDestino - Aceptar Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_aceptar_emision_destino_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_aceptar_emision_destino_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de AceptarEmisionDestinoDGSolicitud (tipoCPE = 286 Emision en Destino DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremisiondestino.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremisiondestino.cuitDestino", "30123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremisiondestino.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremisiondestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("aceptaremisiondestino.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAceptarEmisionDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Emision en Destino DG Aceptada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAceptarEmisionDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAceptarEmisionDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF del comprobante aceptado
Call fe.CPELeerPropiedad("cpeAceptarEmisionDestino", "PDF", "C:\temp\cpe_aceptar_emision_destino_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeAutorizarEmision_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeAutorizarEmision - Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Automotor Derivados Granarios (solo cpeVersion = 220, tipoCP = 286)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bOrigenEnPlanta As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_autorizar_emision_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_autorizar_emision_dg_recibido.xml"
' Opciones para controlar bloques mutuamente excluyentes / opcionales del ejemplo
bOrigenEnPlanta = True ' True = Origen Planta RUCA | False = Origen Domicilio PUC
bDestinoEnPlanta = True ' True = Destino Planta RUCA | False = Destino Domicilio PUC
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos raiz de AutorizarEmisionDestinoDGSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.observaciones", "Ejemplo autorizacion CPE Emision en Destino DG", 0, 0)
' --- Cabecera (tipoCP = 286 Emision en Destino DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.cabecera.tipoCP", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.cabecera.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.cabecera.nroOrden", "1", 0, 0)
' --- Origen (excluyente: Planta RUCA O Domicilio PUC) ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.cuitOrigen", "20123456789", 0, 0)
If bOrigenEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.planta", "12345", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.domicilioOrigen.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.origen.domicilioOrigen.orden", "1", 0, 0)
End If
' --- Intervinientes (opcionales: en 220 *NO = "V" omite el nodo XML; "F" lo envia) ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitRemitenteComercial", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitRemitenteComercialNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitMercadoATermino", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitMercadoATerminoNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitComisionista", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitComisionistaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitCorredor", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.intervinientes.cuitCorredorNO", "V", 0, 0)
' --- Datos de Carga DG (fechaLote en formato yyyyMMdd) ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.codGrano", "19", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.codDerivadoGranario", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.pesoBruto", "45000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.pesoTara", "15000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.tipoEmbalaje", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.otroEmbalaje", "Granel", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.unidadMedida", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.cantidadUnidades", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.cantidadUnidadesNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.kgLitroM3", "30000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.kgLitroM3NO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.lote", "LOT202601", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.fechaLote", "20261114", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.datosCarga.fechaLoteNO", "F", 0, 0)
' --- Destino (excluyente: Planta RUCA O Domicilio PUC) ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.cuit", "30123456789", 0, 0)
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.planta", "54321", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.destinatario.cuit", "30123456789", 0, 0)
' --- Transporte Automotor DG (dominio: patentes separadas por espacio; fecha: yyyyMMddHHmm) ---
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.dominio", "AA123BB CC456DD", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.fechaHoraPartida", "202611141600", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.kmRecorrer", "150", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitChofer", "20987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.tarifa", "25000.50", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.tarifaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitPagadorFlete", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitIntermediarioFlete", "20555555555", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("autorizaremision.transporte.cuitIntermediarioFleteNO", "V", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeAutorizarEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
' Nota: usar "cpeAutorizarEmision" (lee xcpe2DetalleEmisionDestinoDGRespuesta)
MsgBox "CPE Emision en Destino DG Autorizada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeAutorizarEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeAutorizarEmision", "cabecera.estado", "", 0, 0) & vbCrLf & _
"Vencimiento: " & fe.CPELeerPropiedad("cpeAutorizarEmision", "cabecera.fechaVencimiento", "", 0, 0)
' Descarga del PDF del comprobante emitido
Call fe.CPELeerPropiedad("cpeAutorizarEmision", "PDF", "C:\temp\cpe_autorizar_emision_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeCerrarContingencia_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeCerrarContingencia - Cerrar Contingencia CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim sConceptoCierre As String
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_cerrar_contingencia_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_cerrar_contingencia_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE en contingencia (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
' Concepto de cierre de contingencia:
' "A" = Reactivacion para descarga en destino (requiere reactivacionDestino)
' "B" = Extension cierre contingencia (no lleva bloques adicionales)
' "C" = Desactivar definitivamente la CP (requiere motivoDesactivacionCP)
sConceptoCierre = "A"
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.concepto", sConceptoCierre, 0, 0)
' --- Bloques mutuamente excluyentes segun concepto de cierre ---
If sConceptoCierre = "A" Then
' Opcion A: Reactivacion para descarga en destino
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportistaNO", "F", 0, 0)
' nroOperativo es propio de Ferroviaria: en Automotor se omite con NO = "V"
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativo", "0", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativoNO", "V", 0, 0)
ElseIf sConceptoCierre = "B" Then
' Opcion B: Extension de cierre de contingencia (solo requiere cerrarcontingencia.concepto = "B")
Else
' Opcion C: Desactivar definitivamente la CP
' motivoDesactivacionCP.concepto: "A" = Destruccion vagon/vehiculo | "B" = Destruccion carga | "C" = Otro
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.concepto", "C", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.descripcion", "Motivo detallado de desactivacion definitiva", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeCerrarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Automotor Cerrada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeCerrarContingencia", "PDF", "C:\temp\cpe_cerrar_contingencia_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeCerrarContingencia_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeCerrarContingencia - Cerrar Contingencia CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim sConceptoCierre As String
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_cerrar_contingencia_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_cerrar_contingencia_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE en contingencia (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
' Concepto: "A" = Reactivacion | "B" = Extension | "C" = Desactivar definitivamente
sConceptoCierre = "A"
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.concepto", sConceptoCierre, 0, 0)
' --- Bloques mutuamente excluyentes segun concepto de cierre ---
If sConceptoCierre = "A" Then
' Opcion A: Reactivacion para descarga en destino (Ferroviaria: enviar nroOperativo)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportistaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativo", "123456", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativoNO", "F", 0, 0)
ElseIf sConceptoCierre = "B" Then
' Opcion B: Extension de cierre de contingencia (sin bloques adicionales)
Else
' Opcion C: Desactivar definitivamente la CP
' motivoDesactivacionCP.concepto: "A" = Destruccion vagon/vehiculo | "B" = Destruccion carga | "C" = Otro
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.concepto", "A", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.descripcion", "Descarrilamiento con destruccion de vagon", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeCerrarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Ferroviaria Cerrada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeCerrarContingencia", "PDF", "C:\temp\cpe_cerrar_contingencia_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeCerrarContingencia_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeCerrarContingencia - Cerrar Contingencia CPE Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim sConceptoCierre As String
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_cerrar_contingencia_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_cerrar_contingencia_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE en contingencia (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
' Concepto: "A" = Reactivacion | "B" = Extension | "C" = Desactivar definitivamente
sConceptoCierre = "A"
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.concepto", sConceptoCierre, 0, 0)
' --- Bloques mutuamente excluyentes segun concepto de cierre ---
If sConceptoCierre = "A" Then
' Opcion A: Reactivacion para descarga en destino (Automotor DG: omitir nroOperativo)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportistaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativo", "0", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativoNO", "V", 0, 0)
ElseIf sConceptoCierre = "B" Then
' Opcion B: Extension de cierre de contingencia (sin bloques adicionales)
Else
' Opcion C: Desactivar definitivamente la CP
' motivoDesactivacionCP.concepto: "A" = Destruccion vagon/vehiculo | "B" = Destruccion carga | "C" = Otro
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.concepto", "B", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.descripcion", "Perdida de mercaderia por incendio", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeCerrarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Automotor DG Cerrada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeCerrarContingencia", "PDF", "C:\temp\cpe_cerrar_contingencia_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeCerrarContingencia_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeCerrarContingencia - Cerrar Contingencia CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim sConceptoCierre As String
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_cerrar_contingencia_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_cerrar_contingencia_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE en contingencia (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
' Concepto: "A" = Reactivacion | "B" = Extension | "C" = Desactivar definitivamente
sConceptoCierre = "A"
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.concepto", sConceptoCierre, 0, 0)
' --- Bloques mutuamente excluyentes segun concepto de cierre ---
If sConceptoCierre = "A" Then
' Opcion A: Reactivacion para descarga en destino (Ferroviaria DG: enviar nroOperativo)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.cuitTransportistaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativo", "123456", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.reactivacionDestino.nroOperativoNO", "F", 0, 0)
ElseIf sConceptoCierre = "B" Then
' Opcion B: Extension de cierre de contingencia (sin bloques adicionales)
Else
' Opcion C: Desactivar definitivamente la CP
' motivoDesactivacionCP.concepto: "A" = Destruccion vagon/vehiculo | "B" = Destruccion carga | "C" = Otro
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.concepto", "C", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerrarcontingencia.motivoDesactivacionCP.descripcion", "Motivo detallado de desactivacion definitiva", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeCerrarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Ferroviaria DG Cerrada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeCerrarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeCerrarContingencia", "PDF", "C:\temp\cpe_cerrar_contingencia_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeCerrarEmisionContingencia_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeCerrarEmisionContingencia - Cerrar Contingencia Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286; no aplica en 20/21/221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim sConceptoCierre As String
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_cerrar_emision_contingencia_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_cerrar_emision_contingencia_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de CerrarContingenciaEmisionDestinoDGSolicitud (tipoCPE = 286 Emision en Destino DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.cuitDestino", "30111222334", 0, 0)
' Concepto: "A" = Reactivacion | "B" = Extension | "C" = Desactivar definitivamente
sConceptoCierre = "A"
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.concepto", sConceptoCierre, 0, 0)
' --- Bloques mutuamente excluyentes segun concepto de cierre ---
If sConceptoCierre = "A" Then
' Opcion A: Reactivacion para descarga en destino (Automotor Emision en Destino: omitir nroOperativo)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.reactivacionDestino.cuitTransportista", "30987654321", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.reactivacionDestino.cuitTransportistaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.reactivacionDestino.nroOperativo", "0", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.reactivacionDestino.nroOperativoNO", "V", 0, 0)
ElseIf sConceptoCierre = "B" Then
' Opcion B: Extension de cierre de contingencia (sin bloques adicionales)
Else
' Opcion C: Desactivar definitivamente la CP
' motivoDesactivacionCP.concepto: "A" = Destruccion vagon/vehiculo | "B" = Destruccion carga | "C" = Otro
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.motivoDesactivacionCP.concepto", "C", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("cerraremisioncontingencia.motivoDesactivacionCP.descripcion", "Anulacion definitiva por siniestro", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeCerrarEmisionContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia Emision en Destino DG Cerrada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeCerrarEmisionContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeCerrarEmisionContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeCerrarEmisionContingencia", "PDF", "C:\temp\cpe_cerrar_emision_contingencia_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmacionDefinitiva_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeConfirmacionDefinitiva - Confirmacion Definitiva CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarRecibidor As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmacion_definitiva_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmacion_definitiva_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos obligatorios de ConfirmacionAutomotorSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.pesoBrutoDescarga", "42500", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.pesoTaraDescarga", "14500", 0, 0)
' --- Opcional: Representante Recibidor (intervinientes.cuitRepresentanteRecibidor) ---
bInformarRecibidor = True
If bInformarRecibidor Then
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.intervinientes.cuitRepresentanteRecibidor", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.intervinientes.cuitRepresentanteRecibidorNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.intervinientes.cuitRepresentanteRecibidor", "0", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.intervinientes.cuitRepresentanteRecibidorNO", "V", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmacionDefinitiva
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Confirmacion Definitiva Automotor Exitosa" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "PDF", "C:\temp\cpe_confirmacion_definitiva_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmacionDefinitiva_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeConfirmacionDefinitiva - Confirmacion Definitiva CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bIncluirOpcionales As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmacion_definitiva_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmacion_definitiva_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos principales de ConfirmacionFerroviariaSolicitud ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.pesoBrutoDescarga", "85000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.pesoTaraDescarga", "22000", 0, 0)
' --- Ramal de descarga (Ferroviario) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.ramaldescarga.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.ramaldescarga.descripcion", "Ramal Ferroviario Descarga Puerto", 0, 0)
' --- Datos opcionales: Destinatario e Intervinientes (usar NO = "F" para enviar / "V" para omitir) ---
bIncluirOpcionales = True
If bIncluirOpcionales Then
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.destinatario.cuit", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaPrimaria", "30555666778", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria", "30555666779", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2", "30555666780", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitCorredorVentaPrimaria", "30666777881", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitCorredorVentaPrimariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitCorredorVentaSecundaria", "30666777882", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitCorredorVentaSecundariaNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRepresentanteRecibidor", "30777888993", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRepresentanteRecibidorNO", "F", 0, 0)
Else
' Omitir los 6 campos opcionales de intervinientes marcando NO = "V" (y no cargar destinatario.cuit)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRemitenteComercialVentaSecundaria2NO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitCorredorVentaPrimariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitCorredorVentaSecundariaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.intervinientes.cuitRepresentanteRecibidorNO", "V", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmacionDefinitiva
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Confirmacion Definitiva Ferroviaria Exitosa" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "PDF", "C:\temp\cpe_confirmacion_definitiva_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmacionDefinitiva_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeConfirmacionDefinitiva - Confirmacion Definitiva CPE Automotor DG (cpeVersion = 220)
' Nota: Aplica a tipoCPE = 284 (Automotor DG), 287 (Otros Terrestres DG) y 286 (Emision en Destino DG)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmacion_definitiva_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmacion_definitiva_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de ConfirmacionAutomotorDGSolicitud (sin intervinientes) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.pesoBrutoDescarga", "42500", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaautomotor.pesoTaraDescarga", "14500", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmacionDefinitiva
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Confirmacion Definitiva Automotor DG Exitosa" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "PDF", "C:\temp\cpe_confirmacion_definitiva_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmacionDefinitiva_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeConfirmacionDefinitiva - Confirmacion Definitiva CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmacion_definitiva_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmacion_definitiva_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de ConfirmacionFerroviariaDGSolicitud (sin intervinientes ni destinatario) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.pesoBrutoDescarga", "85000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.pesoTaraDescarga", "22000", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.ramaldescarga.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmaciondefinitivaferroviario.ramaldescarga.descripcion", "Ramal Ferroviario Descarga DG", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmacionDefinitiva
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Confirmacion Definitiva Ferroviaria DG Exitosa" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmacionDefinitiva", "PDF", "C:\temp\cpe_confirmacion_definitiva_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmarArribo_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeConfirmarArribo - Confirmar Arribo CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmar_arribo_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmar_arribo_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de ConfirmarArriboSolicitud (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmarArribo
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Arribo CPE Automotor Confirmado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmarArribo", "PDF", "C:\temp\cpe_confirmar_arribo_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmarArribo_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeConfirmarArribo - Confirmar Arribo CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmar_arribo_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmar_arribo_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de ConfirmarArriboSolicitud (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmarArribo
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Arribo CPE Ferroviaria Confirmado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmarArribo", "PDF", "C:\temp\cpe_confirmar_arribo_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmarArribo_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeConfirmarArribo - Confirmar Arribo CPE Automotor DG (cpeVersion = 220)
' Nota: Aplica a tipoCPE = 284 (Automotor DG), 287 (Otros Terrestres DG) y 286 (Emision en Destino DG)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmar_arribo_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmar_arribo_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de ConfirmarArriboSolicitud (tipoCPE: 284 Automotor DG | 287 Otros | 286 Emision Destino) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmarArribo
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Arribo CPE Automotor DG Confirmado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmarArribo", "PDF", "C:\temp\cpe_confirmar_arribo_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeConfirmarArribo_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeConfirmarArribo - Confirmar Arribo CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_confirmar_arribo_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_confirmar_arribo_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de ConfirmarArriboSolicitud (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("confirmararribo.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeConfirmarArribo
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Arribo CPE Ferroviaria DG Confirmado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeConfirmarArribo", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeConfirmarArribo", "PDF", "C:\temp\cpe_confirmar_arribo_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDescargadoDestino_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeDescargadoDestino - Informar Descargado en Destino Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_descargado_destino_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_descargado_destino_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de DescargadoDestinoCPESolicitud (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDescargadoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Descargado en Destino Automotor Informado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDescargadoDestino", "PDF", "C:\temp\cpe_descargado_destino_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDescargadoDestino_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeDescargadoDestino - Informar Descargado en Destino Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_descargado_destino_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_descargado_destino_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de DescargadoDestinoCPESolicitud (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDescargadoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Descargado en Destino Ferroviaria Informado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDescargadoDestino", "PDF", "C:\temp\cpe_descargado_destino_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDescargadoDestino_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeDescargadoDestino - Informar Descargado en Destino Automotor DG (cpeVersion = 220)
' Nota: Ciclo estandar DG (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG). Para 286 usar cpeDescargadoDestinoEmision
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_descargado_destino_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_descargado_destino_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de DescargadoDestinoCPESolicitud (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDescargadoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Descargado en Destino Automotor DG Informado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDescargadoDestino", "PDF", "C:\temp\cpe_descargado_destino_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDescargadoDestino_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeDescargadoDestino - Informar Descargado en Destino Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_descargado_destino_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_descargado_destino_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de DescargadoDestinoCPESolicitud (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestino.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDescargadoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Descargado en Destino Ferroviaria DG Informado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDescargadoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDescargadoDestino", "PDF", "C:\temp\cpe_descargado_destino_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDescargadoDestinoEmision_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeDescargadoDestinoEmision - Descargado en Destino Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286; no aplica en 20/21/221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_descargado_destino_emision_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_descargado_destino_emision_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de DescargadoDestinoCPEEmisionDestinoDGSolicitud (tipoCPE = 286 Emision en Destino DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestinoemision.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestinoemision.cuitDestino", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestinoemision.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestinoemision.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("descargadodestinoemision.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDescargadoDestinoEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Descargado en Destino Emision en Destino DG Informado" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDescargadoDestinoEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDescargadoDestinoEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDescargadoDestinoEmision", "PDF", "C:\temp\cpe_descargado_destino_emision_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDesvio_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeDesvio - Desvio CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bIncluirCodigoTurno As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_desvio_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_desvio_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE a desviar (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destino (DesvioDestinoAutomotorSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.cuit", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.esDestinoCampo", "F", 0, 0) ' "F" = No es campo | "V" = Es campo
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.codLocalidad", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.planta", "1", 0, 0)
' --- Transporte (TransporteAutomotorModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.transporte.fechaHoraPartida", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.transporte.kmRecorrer", "120", 0, 0)
' Opcional: codigo de turno portuario
bIncluirCodigoTurno = True
If bIncluirCodigoTurno Then
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.transporte.codigoTurno", "TURNO001", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDesvio
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Desvio CPE Automotor Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDesvio", "PDF", "C:\temp\cpe_desvio_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDesvio_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeDesvio - Desvio CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_desvio_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_desvio_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE a desviar (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cuitSolicitanteNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destino (DesvioDestinoFerroviariaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.cuit", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.codLocalidad", "100", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.planta", "1", 0, 0)
' --- Transporte (TransporteFerroviariaModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.fechaHoraPartidaTren", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.kmRecorrer", "250", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.ramal.descripcion", "Ramal Nuevo Destino", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDesvio
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Desvio CPE Ferroviaria Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDesvio", "PDF", "C:\temp\cpe_desvio_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDesvio_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeDesvio - Desvio CPE Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_desvio_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_desvio_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE a desviar (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destino DG (DesvioDestinoAutomotorDGSolicitud: planta vs domicilioDestino excluyentes) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.cuit", "30111222334", 0, 0)
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
' Opcion 1: Nuevo destino en planta declarada
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.plantaNO", "F", 0, 0)
Else
' Opcion 2: Nuevo destino por Domicilio PUC (omitir planta con NO = "V")
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteAutomotorModificaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.transporte.fechaHoraPartida", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("desvioautomotor.transporte.kmRecorrer", "120", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDesvio
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Desvio CPE Automotor DG Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDesvio", "PDF", "C:\temp\cpe_desvio_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeDesvio_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeDesvio - Desvio CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_desvio_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_desvio_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE a desviar (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cuitSolicitante", "20123456789", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destino Ferroviaria DG (DesvioDestinoFerroviariaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.cuit", "30111222334", 0, 0)
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
' Opcion 1: Nuevo destino en planta declarada
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.planta", "1", 0, 0)
Else
' Opcion 2: Nuevo destino por Domicilio PUC (sin cargar planta)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteFerroviariaModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.fechaHoraPartidaTren", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.kmRecorrer", "250", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("desvioferroviario.transporte.ramal.descripcion", "Ramal Nuevo Destino DG", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeDesvio
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Desvio CPE Ferroviaria DG Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeDesvio", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeDesvio", "PDF", "C:\temp\cpe_desvio_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeInformarContingencia_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeInformarContingencia - Informar Contingencia CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_informar_contingencia_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_informar_contingencia_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de InformarContingenciaSolicitud (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
' Concepto de contingencia (consultar codigos vigentes en manual ARCA WSCPE, ej. "A", "B", etc.)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.concepto", "A", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.descripcion", "Desperfecto mecanico en ruta", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeInformarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Automotor Informada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeInformarContingencia", "PDF", "C:\temp\cpe_informar_contingencia_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeInformarContingencia_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeInformarContingencia - Informar Contingencia CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_informar_contingencia_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_informar_contingencia_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de InformarContingenciaSolicitud (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.concepto", "A", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.descripcion", "Desperfecto ferroviario en trayecto", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeInformarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Ferroviaria Informada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeInformarContingencia", "PDF", "C:\temp\cpe_informar_contingencia_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeInformarContingencia_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeInformarContingencia - Informar Contingencia CPE Automotor DG (cpeVersion = 220)
' Nota: Ciclo estandar DG (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG). Para 286 usar cpeInformarEmisionContingencia
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_informar_contingencia_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_informar_contingencia_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de InformarContingenciaSolicitud (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.concepto", "A", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.descripcion", "Desperfecto mecanico en unidad DG", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeInformarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Automotor DG Informada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeInformarContingencia", "PDF", "C:\temp\cpe_informar_contingencia_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeInformarContingencia_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeInformarContingencia - Informar Contingencia CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_informar_contingencia_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_informar_contingencia_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de InformarContingenciaSolicitud (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.concepto", "A", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informarcontingencia.contingencia.descripcion", "Interrupcion operativa en ramal ferroviario DG", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeInformarContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia CPE Ferroviaria DG Informada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeInformarContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeInformarContingencia", "PDF", "C:\temp\cpe_informar_contingencia_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeInformarEmisionContingencia_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeInformarEmisionContingencia - Contingencia Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286; no aplica en 20/21/221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_informar_emision_contingencia_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_informar_emision_contingencia_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de InformarContingenciaEmisionDestinoDGSolicitud (tipoCPE = 286 Emision en Destino DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("informaremisioncontingencia.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informaremisioncontingencia.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informaremisioncontingencia.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informaremisioncontingencia.cuitDestino", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informaremisioncontingencia.contingencia.concepto", "A", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("informaremisioncontingencia.contingencia.descripcion", "Contingencia en traslado Emision en Destino DG", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeInformarEmisionContingencia
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Contingencia Emision en Destino DG Informada" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeInformarEmisionContingencia", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeInformarEmisionContingencia", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeInformarEmisionContingencia", "PDF", "C:\temp\cpe_informar_emision_contingencia_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeNuevoDestino_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeNuevoDestino - Nuevo Destino / Destinatario CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bIncluirPlanta As Boolean
Dim bIncluirCodigoTurno As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_nuevo_destino_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_nuevo_destino_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destinatario (DestinatarioSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destinatario.cuit", "30222333445", 0, 0)
' --- Nuevo Destino (DestinoSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.cuit", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.esDestinoCampo", "F", 0, 0) ' "F" = No es campo | "V" = Es campo
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.codLocalidad", "100", 0, 0)
bIncluirPlanta = True
If bIncluirPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.plantaNO", "V", 0, 0)
End If
' --- Transporte (TransporteAutomotorModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.transporte.fechaHoraPartida", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.transporte.kmRecorrer", "140", 0, 0)
bIncluirCodigoTurno = True
If bIncluirCodigoTurno Then
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.transporte.codigoTurno", "TURNO002", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeNuevoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Nuevo Destino CPE Automotor Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeNuevoDestino", "PDF", "C:\temp\cpe_nuevo_destino_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeNuevoDestino_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeNuevoDestino - Nuevo Destino / Destinatario CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bIncluirPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_nuevo_destino_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_nuevo_destino_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destinatario (DestinatarioSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destinatario.cuit", "30222333445", 0, 0)
' --- Nuevo Destino (DestinoSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.cuit", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.esDestinoCampo", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.codProvincia", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.codLocalidad", "100", 0, 0)
bIncluirPlanta = True
If bIncluirPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.plantaNO", "V", 0, 0)
End If
' --- Transporte (TransporteFerroviariaModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.fechaHoraPartidaTren", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.kmRecorrer", "260", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.ramal.descripcion", "Ramal Nuevo Destino", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeNuevoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Nuevo Destino CPE Ferroviaria Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeNuevoDestino", "PDF", "C:\temp\cpe_nuevo_destino_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeNuevoDestino_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeNuevoDestino - Nuevo Destino / Destinatario CPE Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_nuevo_destino_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_nuevo_destino_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE (tipoCPE: 284 Automotor DG | 287 Otros Terrestres DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destinatario.cuit", "30222333445", 0, 0)
' --- Nuevo Destino DG (DestinoAutomotorDGSolicitud: planta vs domicilioDestino excluyentes) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.cuit", "30111222334", 0, 0)
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteAutomotorModificaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.transporte.fechaHoraPartida", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoautomotor.transporte.kmRecorrer", "140", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeNuevoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Nuevo Destino CPE Automotor DG Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeNuevoDestino", "PDF", "C:\temp\cpe_nuevo_destino_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeNuevoDestino_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeNuevoDestino - Nuevo Destino / Destinatario CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviaria Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_nuevo_destino_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_nuevo_destino_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Identificacion de la CPE (tipoCPE: 76 = Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.cartaPorte.nroOrden", "1", 0, 0)
' --- Nuevo Destinatario ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destinatario.cuit", "30222333445", 0, 0)
' --- Nuevo Destino Ferroviaria DG (DestinoFerroviariaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.cuit", "30111222334", 0, 0)
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.planta", "1", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteFerroviariaModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.fechaHoraPartidaTren", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.kmRecorrer", "260", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoferroviario.transporte.ramal.descripcion", "Ramal Nuevo Destino DG", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeNuevoDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Nuevo Destino CPE Ferroviaria DG Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeNuevoDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeNuevoDestino", "PDF", "C:\temp\cpe_nuevo_destino_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeNuevoDestinoEmision_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeNuevoDestinoEmision - Nuevo Destino / Destinatario Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286; no aplica en 20/21/221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_nuevo_destino_emision_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_nuevo_destino_emision_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de NuevoDestinoDestinatarioEmisionDestinoDGSolicitud (tipoCPE = 286) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.cuitDestino", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destinatario.cuit", "30222333445", 0, 0)
' --- Nuevo Destino DG (planta vs domicilioDestino excluyentes) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destino.cuit", "30333444556", 0, 0)
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destino.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destino.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destino.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.destino.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteAutomotorModificaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.transporte.fechaHoraPartida", "202611151030", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("nuevodestinoemision.transporte.kmRecorrer", "140", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeNuevoDestinoEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Nuevo Destino Emision en Destino DG Exitoso" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeNuevoDestinoEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeNuevoDestinoEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeNuevoDestinoEmision", "PDF", "C:\temp\cpe_nuevo_destino_emision_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazar_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeRechazar - Rechazar CPE Automotor (cpeVersion = 20)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarMotivoRechazo As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazoCPESolicitud (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.nroOrden", "1", 0, 0)
' Opcional: motivo y observaciones de rechazo (usar "V" en rechazoMotivoNO para omitir)
bInformarMotivoRechazo = True
If bInformarMotivoRechazo Then
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoObservaciones", "Mercaderia rechazada en destino", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "V", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor Rechazada (v20)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazar", "PDF", "C:\temp\cpe_rechazar_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazar_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeRechazar - Rechazar CPE Ferroviaria (cpeVersion = 21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarMotivoRechazo As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazoCPESolicitud (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.nroOrden", "1", 0, 0)
' Opcional: motivo y observaciones de rechazo (usar "V" en rechazoMotivoNO para omitir)
bInformarMotivoRechazo = True
If bInformarMotivoRechazo Then
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoObservaciones", "Mercaderia rechazada en destino", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "V", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria Rechazada (v21)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazar", "PDF", "C:\temp\cpe_rechazar_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazar_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeRechazar - Rechazar CPE Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarMotivoRechazo As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazoCPESolicitud (tipoCPE: 284 = CPE Automotor DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.nroOrden", "1", 0, 0)
' Opcional: motivo y observaciones de rechazo (usar "V" en rechazoMotivoNO para omitir)
bInformarMotivoRechazo = True
If bInformarMotivoRechazo Then
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoObservaciones", "Mercaderia rechazada en destino", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "V", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Automotor DG Rechazada (v220)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazar", "PDF", "C:\temp\cpe_rechazar_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazar_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeRechazar - Rechazar CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarMotivoRechazo As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviario Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazoCPESolicitud (tipoCPE: 76 = CPE Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.cartaPorte.nroOrden", "1", 0, 0)
' Opcional: motivo y observaciones de rechazo (usar "V" en rechazoMotivoNO para omitir)
bInformarMotivoRechazo = True
If bInformarMotivoRechazo Then
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "F", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoObservaciones", "Mercaderia rechazada en destino", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("rechazar.rechazoMotivoNO", "V", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazar
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "CPE Ferroviaria DG Rechazada (v221)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazar", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazar", "PDF", "C:\temp\cpe_rechazar_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazarEmision_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeRechazarEmision - Rechazar Emision CPE Automotor DG (cpeVersion = 220)
' Nota: Exclusivo Derivados Granarios (solo cpeVersion = 220 y 221; no aplica en 20/21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_emision_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_emision_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazarEmisionDGSolicitud (tipoCPE: 284 = CPE Automotor DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazarEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Emision CPE Automotor DG Rechazada (v220)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazarEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazarEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazarEmision", "PDF", "C:\temp\cpe_rechazar_emision_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazarEmision_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeRechazarEmision - Rechazar Emision CPE Ferroviaria DG (cpeVersion = 221)
' Nota: Exclusivo Derivados Granarios (solo cpeVersion = 220 y 221; no aplica en 20/21)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviario Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_emision_fdg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_emision_fdg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazarEmisionDGSolicitud (tipoCPE: 76 = CPE Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremision.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazarEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Emision CPE Ferroviaria DG Rechazada (v221)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazarEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazarEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazarEmision", "PDF", "C:\temp\cpe_rechazar_emision_fdg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRechazarEmisionDestino_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeRechazarEmisionDestino - Rechazar Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286; no aplica en 20/21/221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_rechazar_emision_destino_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_rechazar_emision_destino_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RechazarEmisionDestinoDGSolicitud (tipoCPE = 286) ---
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremisiondestino.cuitSolicitante", "20222222223", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremisiondestino.cuitDestino", "30111222334", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremisiondestino.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremisiondestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("rechazaremisiondestino.cartaPorte.nroOrden", "1", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRechazarEmisionDestino
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Emision en Destino DG Rechazada (v220)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRechazarEmisionDestino", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRechazarEmisionDestino", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRechazarEmisionDestino", "PDF", "C:\temp\cpe_rechazar_emision_destino_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRegresarAOrigen_Automotor_v20()
' ==========================================================================
' Ejemplo VB6: cpeRegresarAOrigen - Regreso a Origen CPE Automotor (cpeVersion = 20)
' Nota: v20 requiere el prefijo "RegresoAOrigenautomotor.*"
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bIncluirCodigoTurno As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (20 = Automotor), TLS y archivos XML
fe.cpeVersion = 20
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_regresar_origen_automotor_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_regresar_origen_automotor_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RegresoOrigenAutomotorSolicitud (tipoCPE: 74 = CPE Automotor) ---
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenautomotor.cartaPorte.tipoCPE", "74", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenautomotor.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenautomotor.cartaPorte.nroOrden", "1", 0, 0)
' --- Transporte (TransporteAutomotorModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenautomotor.transporte.fechaHoraPartida", "202611151000", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenautomotor.transporte.kmRecorrer", "654", 0, 0)
' Opcional: codigo de turno portuario
bIncluirCodigoTurno = True
If bIncluirCodigoTurno Then
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenautomotor.transporte.codigoTurno", "TURNO003", 0, 0)
End If
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRegresarAOrigen
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Regreso a Origen Automotor Exitoso (v20)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRegresarAOrigen", "PDF", "C:\temp\cpe_regresar_origen_automotor.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRegresarAOrigen_Ferroviario_v21()
' ==========================================================================
' Ejemplo VB6: cpeRegresarAOrigen - Regreso a Origen CPE Ferroviaria (cpeVersion = 21)
' Nota: v21 requiere el prefijo "RegresoAOrigenferroviario.*"
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (21 = Ferroviario), TLS y archivos XML
fe.cpeVersion = 21
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_regresar_origen_ferroviario_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_regresar_origen_ferroviario_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RegresoOrigenFerroviariaSolicitud (tipoCPE: 75 = CPE Ferroviaria) ---
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.cartaPorte.tipoCPE", "75", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.cartaPorte.nroOrden", "1", 0, 0)
' --- Transporte (TransporteFerroviariaModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.transporte.fechaHoraPartidaTren", "202611151000", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.transporte.kmRecorrer", "654", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("RegresoAOrigenferroviario.transporte.ramal.descripcion", "RAMAL PRINCIPAL", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRegresarAOrigen
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Regreso a Origen Ferroviario Exitoso (v21)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRegresarAOrigen", "PDF", "C:\temp\cpe_regresar_origen_ferroviario.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRegresarAOrigen_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeRegresarAOrigen - Regreso a Origen CPE Automotor DG (cpeVersion = 220)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarDestinatario As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_regresar_origen_automotor_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_regresar_origen_automotor_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RegresoOrigenAutomotorDGSolicitud (tipoCPE: 284 = CPE Automotor DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.cartaPorte.tipoCPE", "284", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.cartaPorte.nroOrden", "1", 0, 0)
' Opcional: CUIT destinatario (usar "V" en cuitDestinatarioNO para omitir)
bInformarDestinatario = True
If bInformarDestinatario Then
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.cuitDestinatario", "30222333445", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.cuitDestinatarioNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.cuitDestinatarioNO", "V", 0, 0)
End If
' Excluyente en DG: planta vs domicilioDestino
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteAutomotorModificaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.transporte.fechaHoraPartida", "202611151000", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigen.transporte.kmRecorrer", "654", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRegresarAOrigen
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Regreso a Origen Automotor DG Exitoso (v220)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRegresarAOrigen", "PDF", "C:\temp\cpe_regresar_origen_automotor_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRegresarAOrigen_FerroviarioDG_v221()
' ==========================================================================
' Ejemplo VB6: cpeRegresarAOrigen - Regreso a Origen CPE Ferroviaria DG (cpeVersion = 221)
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bDestinoEnPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (221 = Ferroviario Derivados Granarios), TLS y XML
fe.cpeVersion = 221
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_regresar_origen_ferroviario_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_regresar_origen_ferroviario_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RegresoOrigenFerroviariaDGSolicitud (tipoCPE: 76 = CPE Ferroviaria DG) ---
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.cartaPorte.tipoCPE", "76", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.cuitDestinatario", "30222333445", 0, 0)
' Excluyente en DG: planta vs domicilioDestino
bDestinoEnPlanta = True
If bDestinoEnPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.plantaNO", "V", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.domicilioDestino.tipo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.domicilioDestino.orden", "1", 0, 0)
End If
' --- Transporte (TransporteFerroviariaModificaSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.transporte.fechaHoraPartidaTren", "202611151000", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.transporte.kmRecorrer", "654", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.transporte.ramal.codigo", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoaorigenferroviario.transporte.ramal.descripcion", "RAMAL PRINCIPAL", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRegresarAOrigen
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Regreso a Origen Ferroviario DG Exitoso (v221)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRegresarAOrigen", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRegresarAOrigen", "PDF", "C:\temp\cpe_regresar_origen_ferroviario_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Public Sub Ejemplo_cpeRegresarAOrigenEmision_AutomotorDG_v220()
' ==========================================================================
' Ejemplo VB6: cpeRegresarAOrigenEmision - Regreso a Origen Emision en Destino DG (cpeVersion = 220)
' Nota: Exclusivo Emision en Destino Automotor DG (solo cpeVersion = 220, tipoCPE = 286; no aplica en 20/21/221).
' En .NET el metodo se declara cpeRegresaraOrigenEmision (COM/VB6 es case-insensitive).
' Servicio: WSCPE2 (ARCA / ex-AFIP) - Interfaz COM WSAFIPFE.Factura
' ==========================================================================
Dim fe As Object
Dim bResultado As Boolean
Dim bInformarPlanta As Boolean
Set fe = CreateObject("WSAFIPFE.Factura")
bResultado = True
' --------------------------------------------------------------------------
' NOTA: Se asume que los siguientes metodos ya fueron ejecutados
' previamente y sin errores en la sesion actual:
' - fe.Iniciar(Modo, CUIT, RutaCertificadoPFX, ArchivoLicencia)
' - fe.registrarTrafico(True)
' - fe.cpeObtenerTicketAcceso()
' --------------------------------------------------------------------------
' Configuracion de version WSCPE (220 = Automotor Derivados Granarios), TLS y XML
fe.cpeVersion = 220
fe.tls = 12
fe.ArchivoXMLEnviado = "C:\temp\cpe_regresar_origen_emision_dg_enviado.xml"
fe.ArchivoXMLRecibido = "C:\temp\cpe_regresar_origen_emision_dg_recibido.xml"
' Limpieza obligatoria de estructuras internas (siempre luego de fijar cpeVersion)
bResultado = fe.cpeCargarPropiedad("LIMPIAR", "", 0, 0)
' --- Datos de RegresoOrigenEmisionDestinoDGSolicitud (tipoCPE = 286) ---
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.cartaPorte.tipoCPE", "286", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.cartaPorte.sucursal", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.cartaPorte.nroOrden", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.cuitDestino", "30111222334", 0, 0)
' Opcional: numero de planta (usar "V" en plantaNO para omitir)
bInformarPlanta = True
If bInformarPlanta Then
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.planta", "1", 0, 0)
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.plantaNO", "F", 0, 0)
Else
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.plantaNO", "V", 0, 0)
End If
' --- Transporte (TransporteAutomotorModificaDGSolicitud) ---
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.transporte.fechaHoraPartida", "202611151000", 0, 0) ' yyyyMMddHHmm
bResultado = bResultado And fe.cpeCargarPropiedad("regresoorigenemisiondestino.transporte.kmRecorrer", "654", 0, 0)
' Validar que todas las llamadas a cpeCargarPropiedad devolvieron Verdadero
If bResultado Then
' Ejecutar el metodo (se ignora su valor de retorno Booleano)
Call fe.cpeRegresarAOrigenEmision
' Validar si hubo errores locales/SOAP o errores devueltos por ARCA
If fe.UltimoMensajeError = "" And fe.cpeErrorDescripcion1 = "" Then
MsgBox "Regreso a Origen Emision en Destino DG Exitoso (v220)" & vbCrLf & _
"Nro. CTG: " & fe.CPELeerPropiedad("cpeRegresarAOrigenEmision", "cabecera.nroCTG", "", 0, 0) & vbCrLf & _
"Estado: " & fe.CPELeerPropiedad("cpeRegresarAOrigenEmision", "cabecera.estado", "", 0, 0)
' Descarga del PDF actualizado de la CPE
Call fe.CPELeerPropiedad("cpeRegresarAOrigenEmision", "PDF", "C:\temp\cpe_regresar_origen_emision_dg.pdf", 0, 0)
Else
MsgBox "Error interfaz/SOAP: " & fe.UltimoMensajeError & vbCrLf & _
"Error servidor ARCA (" & fe.cpeErrorCodigo1 & "): " & fe.cpeErrorDescripcion1
End If
Else
MsgBox "Error al cargar propiedades: " & fe.UltimoMensajeError
End If
End Sub
Page updated
Google Sites
Report abuse