WSLPG ejemplo 3
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.
(*) señala propiedades o métodos solo disponibles desde el instalador 17.2 o superior para el WSLPG 1.4
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 valido sin separadores"
bresultado = False
If fe.iniciar(0, ccuit, "ruta y nombre del certifcado.pfx", "") Then
If fe.lpgObtenerTicketAcceso() Then
REM antes de autorizar liquidación. ejemplo de como obtener una lista de AFIP
If fe.lpgtipoRetencionConsultar() Then
MsgBox("cantidad de retenciones devueltas por AFIP " + Str(fe.lpgListaItemCantidad))
For nindex = 0 To fe.lpgListaItemCantidad - 1
fe.lpgIndiceItem = nindex
MsgBox("retención: " + fe.lpgListaDescripcion)
Next
Else
MsgBox("fallo al obtener retenciones " + 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 = ccuit
fe.lpgcuitCorredorNo = False
fe.lpgcuitCorredor = "99999999999"
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 = 100
fe.lpgfechaPrecioOperacion = "20130222"
fe.lpgliquidaCorredor = "N"
fe.lpgnroActComprador = "90"
fe.lpgnroIngBrutoComprador = "23000000000"
fe.lpgnroIngBrutoCorredorNo = True
fe.lpgnroIngBrutoCorredor = "0"
fe.lpgnroIngBrutoVendedor = "30000000007"
fe.lpgnroOrden = NumeroDeOrden + 1
fe.lpgNumeroContrato = "1" (*)
fe.lpgptoemision = cptoemision
fe.lpgprecioFleteTn = 10
fe.lpgprecioRefTn = 2000
fe.lpgPesoNetoSinCertificardo = "0"
fe.lpgPesoNetoSinCertificardoNo = 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 = 1970
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