WSCTG4 ejemplo cupo
El ejemplo requiere versión 98.50 o superior del instalador.
El número de carta porte usado en el ejemplo es provisto por la documentación de AFIP. Aun en modo prueba los C.U.I.T. deben ser validos.
En el proyecto en visual basic, agregar una referencia al objeto WSAFIPFE y ejecutar el codigo desde un botón.
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean
Dim strCTG As String
bresultado = True
If bresultado Then
If fe.iniciar(0, "CUIT", "ruta certificado *.pfx", "") Then
fe.g1Version = 4
Else
bresultado = False
MsgBox ("Fallo iniciar " + fe.UltimoMensajeError)
End If
End If
If bresultado Then
If fe.g1ObtenerTicketAcceso() Then
Else
bresultado = False
MsgBox ("Fallo acceso " + fe.UltimoMensajeError)
End If
End If
If bresultado Then
fe.g1CTGCuitRepresentado = "CUIT"
fe.g1CTGCantHoras = 1
fe.g1CTGCantHorasNO = True
fe.g1CTGCodigoCosecha = 1312
fe.g1CTGCodigoEspecie = 1
fe.g1CTGCodigoLocalidadDestinoS = "12699"
fe.g1CTGCodigoLocalidadOrigenS = "6262"
fe.g1CTGCuitDestinatario = "CUIT"
fe.g1CTGCuitDestino = "CUIT"
fe.g1CTGCuitCanjeador = ""
fe.g1CTGCuitCanjeadorNO = True
fe.g1CTGCuitCorredor = ""
fe.g1CTGCuitCorredorNo = True
fe.g1CTGCartaPorte = "512345678"
fe.g1CTGPatente = "ABC123"
fe.g1CTGPesoNeto = "200"
fe.g1CTGCuitTransportista = "30708200286"
fe.g1CTGKmRecorridos = 1523
fe.g1Turno = "cupo o turno"
fe.g1CTGremitenteComercialComoCanjeador = ""
fe.g1CTGremitenteComercialComoCanjeadorNo = false
fe.g1CTGremitenteComercialComoProductor = ""
fe.g1CTGremitenteComercialComoProductorNo = false
fe.ArchivoXMLEnviado = "c:\enviado.xml"
fe.ArchivoXMLRecibido = "c:\recibido.xml"
If fe.g1SolicitarCTGInicial() Then
MsgBox ("CTG " + fe.g1CTGRespuesta + fe.g1CTGRespuestaObervacion + fe.g1CTGRespuestaError1)
MsgBox ("control " + fe.g1CTGRespuestaControlDescripcion1+fe.g1CTGRespuestaControlTipo1)
If fe.g1CTGRespuesta = "" Then
bresultado = False
Else
strCTG = fe.g1CTGRespuesta
End If
Else
bresultado = False
MsgBox ("Fallo solicitar CTG " + fe.UltimoMensajeError + fe.g1CTGRespuestaError1)
End If
End If
If bresultado Then
fe.ArchivoXMLEnviado = "c:\enviado2.xml"
fe.ArchivoXMLRecibido = "c:\recibido2.xml"
fe.g1CTGCuitRepresentado = "CUIT"
fe.g1CTGCartaPorte = "512345678"
fe.g1CTGCuitTrasnportista = "30708200286"
fe.g1CTGEstablecimientoNO = True
fe.g1CTGCUITChofer = ""
fe.g1CTGCUITChoferNO = True
fe.g1CTG = strCTG
fe.g1CTGconsumoPropio = ""
fe.g1CTGCantKilosCartaPorte = "200"
If fe.g1ConfirmarArribo() Then
MsgBox ("ctg confirmar arribo" + fe.g1CTGRespuestaCodigoOperacion + fe.UltimoMensajeError + fe.g1CTGRespuestaError1)
If fe.g1CTGRespuestaCodigoOperacion = "" Then
MsgBox ("fallo confirmar arribo")
bresultado = False
Else
End If
Else
bresultado = False
MsgBox ("Fallo confirmar arribo " + fe.UltimoMensajeError + fe.g1CTGRespuestaError1)
End If
End If
If bresultado Then
fe.ArchivoXMLEnviado = "c:\enviado3.xml"
fe.ArchivoXMLRecibido = "c:\recibido3.xml"
If fe.g4ConfirmarCTGDefinitivamente("CUIT", "512345678", strCTG, "1312", "1", "km recorridos", "turno") Then
MsgBox ("ctg confirmado definitivo " + fe.g1CTGRespuestaCodigoOperacion + fe.UltimoMensajeError + fe.g1CTGRespuestaError1)
If fe.g1CTGRespuestaCodigoOperacion = "" Then
MsgBox ("fallo confirmar arribo")
bresultado = False
Else
End If
Else
MsgBox ("fallo confirmar definitivo " + fe.UltimoMensajeError + fe.g1CTGRespuestaError1)
End If
End If
If bresultado Then
If fe.g1ConsultarConstanciaCTGPDF("CUIT", strCTG, "c:\descarga.pdf") Then
MsgBox ("PDF descargado " + fe.g1CTGRespuestaError1)
Else
MsgBox ("ERROR descargar PDF " + fe.UltimoMensajeError + fe.g1CTGRespuestaError1)
End If
End If