WSLPG ejemplo 1

El ejemplo requiere versión 14.80 o superior del instalador.

Los datos son provistos por AFIP. 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 válido sin sepradores"

cptoEmision = "1"

bresultado = False

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

If fe.lpgObtenerTicketAcceso() Then

REM antes de autorizar liquidación. ejemplo de como obtener una lista de AFIP

If fe.lpgcampaniasConsultar() Then

MsgBox("cantidad de campañas devueltas por AFIP " + Str(fe.lpgListaItemCantidad))

For nindex = 0 To fe.lpgListaItemCantidad - 1

fe.lpgIndiceItem = nindex

MsgBox("campaña: " + fe.lpgListaDescripcion)

Next

Else

MsgBox("fallo al obtener campañas " + fe.UltimoMensajeError + fe.lpgErrorDescripcion1)

End If

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.lpgalicIvaOperacion = 10.5

fe.lpgalicIvaOperacionNo = false

fe.lpgcampaniaPPal = "1213"

fe.lpgcodGradoEnt = "G1"

fe.lpgcodGradoRef = "G1"

fe.lpgcodGrano = "31"

fe.lpgcodLocalidadProcedencia = "3"

fe.lpgcodProvProcedencia = "1"

fe.lpgcodPuerto = "14"

fe.lpgcodTipoOperacion = "1"

fe.lpgcomisionCorredorNo = False

fe.lpgcomisionCorredor = 1

fe.lpgcontProteicoNo = False

fe.lpgcontProteico = 20

fe.lpgcuitComprador = "23000000000"

fe.lpgcuitCorredorNo = False

fe.lpgcuitCorredor = ccuit

fe.lpgcuitVendedor = "30000000007"

fe.lpgdatosadicionales = "DATOS adicionales"

fe.lpgdesPuertoLocalidad = "detalle delpuerto"

fe.lpgesCanjeNo = False

fe.lpgesCanje = "N"

fe.lpgesLiquidacionPropiaNo = False

fe.lpgesLiquidacionPropia = "N"

fe.lpgfactorEntNo = False

fe.lpgfactorEnt = 98

fe.lpgfechaPrecioOperacion = "20130222"

fe.lpgliquidaCorredor = "S"

fe.lpgnroActComprador = "96"

fe.lpgnroIngBrutoComprador = "23000000000"

fe.lpgnroIngBrutoCorredorNo = False

fe.lpgnroIngBrutoCorredor = "99999999999"

fe.lpgnroIngBrutoVendedor = "30000000007"

fe.lpgnroOrden = NumeroDeOrden + 1

fe.lpgptoemision = cptoemision

fe.lpgNumeroContrato = "1" (*)

fe.lpgprecioFleteTn = 10

fe.lpgprecioRefTn = 2000

fe.lpgPesoNetoSinCertificado = "0"

fe.lpgPesoNetoSinCertificadoNo = true

fe.lpgcodLocalidadProcedenciaSinCertificado = "3"

fe.lpgcodLocalidadProcedenciaSinCertificadoNo = True

fe.lpgcodProvProcedenciaSinCertificado = "1"

fe.lpgcodProvProcedenciaSinCertificadoNo = True

fe.lpgvalGradoEntNo = True

fe.lpgvalGradoEnt = "0"

fe.lpgactuaCorredorNo = False

fe.lpgactuaCorredor = "S"

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

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

fe.lpgcertificadosItemCantidad = 1

fe.lpgIndiceItem = 0

fe.lpgcertificadocampania = "1213"

fe.lpgcertificadocodLocalidadProcedencia = "3"

fe.lpgcertificadocodProvProcedencia = "1"

fe.lpgcertificadofechaCierre = "20130113"

fe.lpgcertificadonroCertificadoDeposito = "101200604"

fe.lpgcertificadopesoNeto = "1000"

fe.lpgcertificadoPesoNetoTotalCertificadoNo = True (*)

fe.lpgcertificadoPesoNetoTotalCertificado = "0" (*)

fe.lpgcertificadotipoCertificadoDeposito = "5"

fe.lpgdeduccionesItemCantidad = 0

fe.lpgretencionesItemCantidad = 2

fe.lpgIndiceItem = 0

fe.lpgretencionalicuota = 8

fe.lpgretencionbaseCalculoNo = False

fe.lpgretencionbaseCalculo = 1970

fe.lpgretencioncodigoConcepto = "RI"

fe.lpgretenciondetalleAclaratorio = "RETENCION IVA"

fe.lpgretencionfechaCertificadoRetencionNo = True

fe.lpgretencionfechaCertificadoRetencion = ""

fe.lpgretencionimportecertificadoretencionNo = True

fe.lpgretencionimportecertificadoretencion = "0"

fe.lpgretencionnrocertificadoretencionNo = True

fe.lpgretencionnrocertificadoretencion = ""

fe.lpgIndiceItem = 1

fe.lpgretencionalicuota = 2

fe.lpgretencionbaseCalculoNo = False

fe.lpgretencionbaseCalculo = 100

fe.lpgretencioncodigoConcepto = "RG"

fe.lpgretenciondetalleAclaratorio = "RETENCION GANANCIA"

fe.lpgretencionfechaCertificadoRetencionNo = True

fe.lpgretencionfechaCertificadoRetencion = ""

fe.lpgretencionimportecertificadoretencionNo = True

fe.lpgretencionimportecertificadoretencion = "0"

fe.lpgretencionnrocertificadoretencionNo = True

fe.lpgretencionnrocertificadoretencion = ""

fe.lpgopcionalesItemCantidad = 0

bresultado = fe.lpgliquidacionAutorizar()

MsgBox("COE: " + fe.lpgRespuestaCoe)

MsgBox("errores : " + fe.UltimoMensajeError + fe.lpgErrorDescripcion1)

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If