WSLPG ejemplo 2

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

(*) señala propiedades o métodos solo disponibles desde el instalador 17.2 o superior para el WSLPG 1.4

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

cptoEmision = "1"

ccuit = "CUIT válido sin seprados"

bresultado = False

If fe.iniciar(0, ccuit, "ruta y nombre del archivo de 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 recuperar ú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 = "1"

fe.lpgcodTipoOperacion = "1"

fe.lpgcomisionCorredorNo = True

fe.lpgcomisionCorredor = 0

fe.lpgcontProteicoNo = True

fe.lpgcontProteico = 20

fe.lpgcuitComprador = ccuit

fe.lpgcuitCorredorNo = True

fe.lpgcuitCorredor = "0"

fe.lpgcuitVendedor = ccuit

fe.lpgdatosadicionales = "DATOS"

fe.lpgdesPuertoLocalidad = ""

fe.lpgesCanjeNo = False

fe.lpgesCanje = "N"

fe.lpgesLiquidacionPropiaNo = False

fe.lpgesLiquidacionPropia = "S"

fe.lpgfactorEntNo = False

fe.lpgfactorEnt = 98

fe.lpgfechaPrecioOperacion = "20130222"

fe.lpgliquidaCorredor = "N"

fe.lpgnroActComprador = "90"

fe.lpgnroIngBrutoComprador = "23000000000"

fe.lpgnroIngBrutoCorredorNo = True

fe.lpgnroIngBrutoCorredor = ""

fe.lpgnroIngBrutoVendedor = "23000000000"

fe.lpgnroOrden = NumeroDeOrden + 1

fe.lpgNumeroContrato = "1" (*)

fe.lpgptoemision = cptoemision

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 = "N"

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 = 2100

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