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