Ejemplo CTGv1 en Visual Basic

El ejemplo requiere versión 12 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

Else

bresultado = False

MsgBox ("Fallo iniciar " + fe.UltimoMensajeError)

End If

If bresultado Then

If fe.g1ObtenerTicketAcceso() Then

Else

bresultado = False

MsgBox ("Fallo acceso " + fe.UltimoMensajeError)

End If

If bresultado Then

fe.g1CTGCuitRepresentado = "CUIT"

fe.g1CTGCantHoras = 1

fe.g1CTGCodigoCosecha = 910

fe.g1CTGCodigoEspecie = 1

fe.g1CTGCodigoLocalidadDestino = 12699

fe.g1CTGCodigoLocalidadOrigen = 6262

fe.g1CTGCuitDestinatario = "CUIT"

fe.g1CTGCuitDestino = "CUIT"

fe.g1CTGCuitCanjeador = ""

fe.g1CTGCartaPorte = "512345678"

fe.g1CTGPatente = "ABC123"

fe.g1CTGPesoNeto = "200"

fe.g1CTGCuitCanjeadorNO = True

fe.g1CTGCuitTransportista = "30708200286"

fe.g1CTGKmRecorridos = 1523

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

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.g1CTG = strCTG

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

If bresultado Then

fe.ArchivoXMLEnviado = "c:\enviado3.xml"

fe.ArchivoXMLRecibido = "c:\recibido3.xml"

If fe.g1ConfirmarCTGDefinitivamente("CUIT", "512345678", strCTG) 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

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