WSLPG ejemplo ajuste liquidacion por contrato

El ejemplo requiere versión 17.2 o superior del instalador para el WSLPG 1.4 (homologación)

Los datos son provistos por AFIP, debe ser modificados a datos coherentes. Aun en modo prueba los C.U.I.T. deben ser validos y con un certificado de prueba.

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 nindex As Integer

Dim NumeroDeOrden As Integer

Dim cptoEmision as string

Dim ccuit As String

NumeroDeOrden = 0

nindex = 0

ccuit = "cuit sin separadores"

cptoEmision = "1"

bresultado = False

If fe.iniciar(0, ccuit, "ruta certificado pfx", "") Then

If fe.lpgObtenerTicketAcceso() Then

NumeroDeOrden = fe.lpgliquidacionUltimoNroOrdenConsultar(cptoemision)

If fe.lpgErrorItemCantidad > 0 Then

MsgBox("errores al recperar último numero de orden autorizado " + fe.UltimoMensajeError + fe.lpgErrorDescripcion1)

End If

fe.lpgptoEmision = cptoemision

fe.lpgnroOrden = NumeroDeOrden

fe.lpgnumerContrato = "279"

fe.lpgnroActComprador = 36

fe.lpgcodGradoEnt = "G1"

fe.lpgcodGrano = "31"

fe.lpgcodLocalidadProcedencia = "3"

fe.lpgcodProvProcedencia = "1"

fe.lpgcodPuerto = "1"

fe.lpgcuitComprador = "cuit sin separadores"

fe.lpgcuitCorredor = "0"

fe.lpgcuitCorredorNo = True

fe.lpgcuitVendedor = "cuit sin separadores"

fe.lpgdesPuertoLocalidad = "1"

fe.lpgprecioFleteTn = "10"

fe.lpgprecioRefTn = "2000"

fe.lpgvalGradoEnt = 1

fe.lpgdebitoItemcantidad = 0

fe.lpgcreditoItemcantidad = 1

fe.lpgImputacion = -1

fe.lpgcertificadosItemCantidad = 1

fe.lpgIndiceItem = 0

fe.lpgcertificadocampania = "1213"

fe.lpgcertificadocodLocalidadProcedencia = "3"

fe.lpgcertificadocodProvProcedencia = "1"

fe.lpgcertificadofechaCierre = "20130920"

fe.lpgcertificadonroCertificadoDeposito = "numero certificado"

fe.lpgcertificadopesoNeto = "100000"

fe.lpgcertificadotipoCertificadoDeposito = "5"

fe.lpgcertificadoPesoNetoTotalCertificado = "100000"

fe.lpgcertificadoPesoNetoTotalCertificadoNo = False

fe.lpgconceptoImporteIva0 = ""

fe.lpgconceptoImporteIva105 = ""

fe.lpgconceptoImporteIva21 = "ajuste iva"

fe.lpgimporteAjustarIva0No = True

fe.lpgimporteAjustarIva105No = True

fe.lpgimporteAjustarIva21No = False

fe.lpgimporteAjustarIva21 = 0.01

fe.lpgdatosadicionales = ""

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

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

If fe.lpgliquidacionAjustarContrato() Then

MsgBox("ok")

MsgBox(fe.lpgRespuestaEstado)

MsgBox(fe.UltimoMensajeError)

MsgBox(fe.lpgErrorDescripcion1)

MsgBox(fe.lpgRespuestacoeAjustado)

Else

MsgBox(fe.UltimoMensajeError)

MsgBox(fe.lpgErrorDescripcion1)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If

End Sub