WS RC modificar remito

rem remito cárnico

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "ruta y archivo al certificado AFIP *.pfx", "archivo de licencia no es necesario en modo prueba") Then

fe.ArchivoCertificadoPassword = "contraseña generada al crear *.pfx"

If fe.rcObtenerTicketAcceso() Then

bresultado = True

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

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

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

If bresultado Then

bResultado = gFe.rcModificarViaje("codigo emito", "cuit trasnportista opcional", "cuit conductor opcional", "Domicilio Acopiador", "Dominio Vehiculo")

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcmodificarviaje", "estado", "", 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

rem remito harinero

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "ruta y archivo al certificado AFIP *.pfx", "archivo de licencia no es necesario en modo prueba") Then

fe.rcversion = 1

fe.ArchivoCertificadoPassword = "contraseña generada al crear *.pfx"

If fe.rcObtenerTicketAcceso() Then

bresultado = True

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

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

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)

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

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

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

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

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

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

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

REM o vehiculo ferroviario o automotor no ambos

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

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

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

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

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

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

If bresultado Then

bresultado = fe.rcModificarViaje("35523", "20235709490", "20235465460", "sinuso", "sinuso")

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

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

MsgBox("codrem " + fe.rcLeerPropiedad("rcModificarViaje", "codremito", "", 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

rem remito azucarero modificar conductor

Dim fe As New WSAFIPFE.Factura

Dim bresultado As Boolean = True

If fe.iniciar(0, "cuit", "ruta certifciado .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("modificarconductor.codremito", "156556", 0, 0)

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

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

REM bresultado = bresultado And fe.rcCargarPropiedad("modificarconductor.conductor.conductornacional.cuitconductor", "20123456780", 0, 0)

REM bresultado = bresultado And fe.rcCargarPropiedad("modificarconductor.conductor.conductornacional.cuitconductorNO", "f", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("modificarconductor.conductor.conductorextranjero.apellidoConductor", "smith", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("modificarconductor.conductor.conductorextranjero.cedulaConductor", "1234567", 0, 0)

bresultado = bresultado And fe.rcCargarPropiedad("modificarconductor.conductor.conductorextranjero.nombreConductor", "john", 0, 0)

If bresultado Then

bresultado = fe.rcModificarConductor()

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

MsgBox("resultado " + fe.rcLeerPropiedad("rcModificarConductor", "resultado", "", 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

End Sub