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