WSRC ejemplo generar remito

REM remito cárnico

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "certificado pfx tramitado en AFIP", "") Then

fe.ArchivoXMLEnviado = "d:\rcenvio.xml"

fe.ArchivoXMLRecibido = "d:\rcrecibo.xml"

fe.ArchivoCertificadoPassword = ""

If fe.rcObtenerTicketAcceso() Then

bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitDepositario", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitDepositarioNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codRemRedestinado", "02341", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codRemRedestinadoNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codRemito", "02341", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codRemitoNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codDomOrigen", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codDomOrigenNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codDomDestino", "333333", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codDomDestinoNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("categoriaEmisor", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("categoriaEmisorNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("categoriaReceptor", "3", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("categoriaReceptorNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitreceptor", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitreceptorNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitTitularMercaderia", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitTitularMercaderiaNO", "F", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("datosAutorizacion.codAutorizacion", "12345678", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("datosAutorizacion.fechaEmision", "20181020", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("datosAutorizacion.fechaVencimiento", "20181020", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("datosAutorizacion.nroRemito", "0001", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("estado", "ACT", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("puntoEmision", "9000", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("puntoEmisionNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoComprobante", "995", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoMovimiento", "ENV", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoReceptor", "MI", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoReceptorNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.cuitConductor", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.cuitConductorNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.cuitTransportista", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.distanciaKm", "500.25", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.fechaInicioViaje", "20190509", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.dominioVehiculo", "ABC123", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.dominioAcoplado", "ABC123", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayContingencias.itemcantidad", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayContingencias.observacion", "prueba 1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayContingencias.tipoContingencia", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayContingencias.observacion", "prueba 2", 1, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayContingencias.tipoContingencia", "1", 1, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.itemcantidad", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.kilos", "50", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.kilosNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.kilosRec", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.kilosRecNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.codTipoProd", "6.24", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.orden", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.tropa", "121", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.tropaNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.unidades", "0", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.unidadesNo", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.unidadesRec", "0", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.unidadesRecNO", "V", 0, 0)

If bresultado Then

bresultado = fe.rcGenerarRemito("1")

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcremitoGenerar", "resultado", "", 0, 0))

MsgBox("codrem " + fe.rcLeerPropiedad("rcremitoGenerar", "codremito", "", 0, 0))

MsgBox("codigo " + fe.rcLeerPropiedad("rcremitoGenerar", "datosemision.codAutorizacion", "", 0, 0))

MsgBox("fecha " + fe.rcLeerPropiedad("rcremitoGenerar", "datosemision.fechavencimiento", "", 0, 0))

MsgBox("imange " + fe.rcLeerPropiedad("rcremitoGenerar", "qr", "d:\remito.jpg", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error ller servidor " + fe.rcErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

End If

REM remito harinero

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "certficado afip.pfx", ") Then

fe.rcVersion = 1

REM fe.forzarCertificadoSSL(True)

fe.ArchivoXMLEnviado = "d:\rhenviado.xml"

fe.ArchivoXMLRecibido = "d:\rhrecibido.xml"

fe.ArchivoCertificadoPassword = ""

If fe.rcObtenerTicketAcceso() Then

bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoMovimiento", "ENV", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("esentregamostrador", "N", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("esentregamostradorNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("reingresado", "", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.codDomOrigen", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.codDomOrigenNo", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.cuitPaisReceptor", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.nacional.codDomReceptor", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.nacional.cuitReceptor", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.nacional.tipodomreceptor", "1", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.documento", "123456", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.domDestinoCalle", "156", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.domDestinoCp", "3526", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.domDestinoIdPcia", "1", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.domDestinoLoc", "2513", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.domDestinoNumero", "235635", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.NacionalNoCat.razonSocial", "numero", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.extranjero.codigoAduana", "1", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.extranjero.cuitDespachante", "2565465564", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.extranjero.denominacionReceptor", "juan", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.extranjero.domicilioReceptor", "street 3", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codRemRedestinar", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("codRemRedestinarNo", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.cuitDepositario", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.cuitDepositarioNo", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitTitular", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("puntoEmision", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.rucaEstDepositario", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.rucaEstDepositarioNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("rucaEstEmisor", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("rucaEstEmisorNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoCmp", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoCmpNo", "f", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("depositario.tipoDepositario", "D/E/I", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.tipoDepositario", "D", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("tipoDepositarioNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.tipoDomOrigen", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("depositario.tipoDomOrigenNo", "v", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("tipoDomReceptor", "1", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("tipoEmisor", "I/U", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoEmisor", "I", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("importeCOT", "0", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("tipoEmisorNo", "f", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.cuitTransportista", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.distanciaKm", "5", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.fechaInicioViaje", "20190501", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.codPaisTransportista", "5", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.nacional.cuitConductor", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.nacional.cuitConductorNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.nacional.cuitTransportista", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.nacional.cuitTransportistaNO", "F", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.extranjero.apellidoConductor", "smith", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.extranjero.cedulaConductor", "11325656", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.extranjero.denomTransportista", "prueba", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.transportista.extranjero.nombreConductor", "juan", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdLocomotora.itemcantidad", "3", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdLocomotora", "A", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdLocomotora", "B", 1, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdLocomotora", "C", 2, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdVagon.itemcantidad", "2", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdVagon", "A", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.ferroviario.arrayIdVagon", "B", 1, 0)

REM o vehiculo ferroviario o automotor no ambos

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.automotor.arrayDominioAcoplado.itemcantidad", "3", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.automotor.arrayDominioAcoplado", "A", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.automotor.arrayDominioAcoplado", "B", 1, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.automotor.arrayDominioAcoplado", "C", 2, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.automotor.cuitconductor", "20235709490", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("viaje.vehiculo.automotor.dominiovehiculo", "ABC949", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.itemcantidad", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.cantidadEmb", "1.1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.cantidadUnidad", "1.1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.codComer", "soso", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.codTipo", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.codTipoEmb", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.codTipoUnidad", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.descComer", "prueba 1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.orden", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoKg", "1.1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoKgNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoPerKg", "1.1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoPerKgNo", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoRecKg", "1.1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoRecKgNo", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoRedKg", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoRedKgNO", "V", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoReiKg", "1.1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderia.pesoNetoReiKgNO", "V", 0, 0)

If bresultado Then

bresultado = fe.rcGenerarRemito("1")

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcremitoGenerar", "resultado", "", 0, 0))

MsgBox("codrem " + fe.rcLeerPropiedad("rcremitoGenerar", "codremito", "", 0, 0))

MsgBox("codigo " + fe.rcLeerPropiedad("rcremitoGenerar", "datosemision.codAutorizacion", "", 0, 0))

MsgBox("fecha " + fe.rcLeerPropiedad("rcremitoGenerar", "datosemision.fechavencimiento", "", 0, 0))

MsgBox("imange " + fe.rcLeerPropiedad("rcremitoGenerar", "qr", "d:\remito.jpg", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error del servidor " + fe.rcErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

End If

remito azucarero

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

Dim strticket As String = ""

Dim cnumero As String = ""

If fe.iniciar(0, "cuit emisor", "ruta certificado PFX", " ") Then

fe.rcVersion = 2

fe.ArchivoXMLEnviado = "d:\raenviado.xml"

fe.ArchivoXMLRecibido = "d:\rarecibido.xml"

fe.ArchivoCertificadoPassword = ""

If fe.rcObtenerTicketAcceso() Then

bresultado = fe.rcCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderias.itemcantidad", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderias.anioZafra", "2019", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderias.cantidad", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderias.tipoEmbalaje", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderias.tipoproducto", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("arrayMercaderias.unidadMedida", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitAutorizadoRetirar", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitAutorizadoRetirarNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitProductorContrato", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitProductorContratoNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitTitularMercaderia", "20235709490", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("cuitTitularMercaderiaNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("fechaInicioViaje", "20190101", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("kmDistancia", "555", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("numeroMaquila", "12345", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("puntoEmision", "2", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.cuitPaisReceptor", "20235709490", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.item.receptornacional.codDomReceptor", "123456", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("receptor.item.receptornacional.cuitReceptor", "20235709491", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.item.receptorextranjero.codigoaduana", "123456", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.item.receptorextranjero.cuitDespachante", "20123456780", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.item.receptorextranjero.denominacionReceptor", "prueba1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("receptor.item.receptorextranjero.domicilioReceptor", "prueba2", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("tipoTitularMercaderia", "1", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.codPaisTransportista", "5", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.dominioAcoplado", "ABC123", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.dominioVehiculo", "ABC123", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transportenacional.cuitconductor", "22123456780", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transportenacional.cuitconductorNO", "F", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transportenacional.cuitTransportista", "22123456780", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transportenacional.cuitTransportistaNO", "F", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transporteextranjero.apellidoconductor", "lopez", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transporteextranjero.nombreconductor", "juan", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transporteextranjero.cedulaConductor", "123456", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("transporte.item.transporteextranjero.idImpositivo", "12345678", 0, 0)

If bresultado Then

bresultado = fe.rcGenerarRemito("1")

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcremitoGenerar", "resultado", "", 0, 0))

MsgBox("codrem " + fe.rcLeerPropiedad("rcremitoGenerar", "remitodatosautorizacion.codremito", "", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

MsgBox("error leer servidor " + fe.rcErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + fe.UltimoMensajeError)

End If