WSLSG ejemplo

El ejemplo requiere versión 25.80 superior del instalador.

Los datos son teóricos y como muestra de todas los campos posibles a cargar para este método.

Para el modo homologción o prueba es necesario enviar un mail a AFIP sri@afip.gov.ar pidiendo datos de prueba e indicando el C.U.I.T. a usar.

En el proyecto en visual basic, agregar una referencia al objeto WSAFIPFE y ejecutar el código desde un botón.

En este ejemplo se hace usa la propiedad "lpgVersion" tal como se explica en la equivalencia WSLPG WSLSG

Dim fe As New WSAFIPFE.Factura

Dim bResultado As Boolean

bResultado = True

Dim numero As Integer

If fe.iniciar(0, "CUIT", "certificado PFX", "") Then

fe.lpgVersion = 1

If fe.lpgObtenerTicketAcceso() Then

fe.lpgptoEmision = "1"

fe.lpgnroOrden = 1

fe.lpgnumerContrato = "1"

fe.lpgImputacion = 0

fe.lpgalicIvaOperacion = 10.5

fe.lpgalicIvaOperacionNo = False

fe.lpgcodGrano = "31"

fe.lpgcampaniaPPal = "1314"

fe.lpgpesonetosincertificado = "15000"

fe.pgPesoNetoFactor = 1000

fe.lpgcodLocalidadProcedencia = "3"

fe.lpgcodProvProcedencia = "1"

fe.lpgcodPuerto = "1"

fe.lpgcuitComprador = "27000000014"

fe.lpgcuitCorredor = ""

fe.lpgcuitCorredorNo = True

fe.lpgcuitVendedor = "20123456780"

fe.lpgdatosadicionales = ""

fe.lpgfechaPrecioOperacion = "20141129"

fe.lpgliquidaCorredor = "N"

fe.lpgnroActComprador = "29"

fe.lpgnroIngBrutoComprador = "23000000000"

fe.lpgnroIngBrutoCorredor = ""

fe.lpgnroIngBrutoVendedor = "212297704"

fe.lpgnroIngBrutoCorredorNo = True

fe.lpgdesPuertoLocalidad = ""

fe.lpgprecioOperacion = 2.5

fe.lpgprecioRefTn = 0

fe.lpgretencionesItemCantidad = 1

fe.lpgIndiceItem = 0

fe.lpgretencionalicuota = 10.5

fe.lpgretencionbaseCalculo = 5

fe.lpgretencionbaseCalculoNo = False

fe.lpgretenciondetalleAclaratorio = ""

fe.lpgdeduccionesItemCantidad = 1

fe.lpgIndiceItem = 0

fe.lpgdeduccionalicuotaIva = 2

fe.lpgdeduccionbaseCalculo = 100

fe.lpgdeducciondetalleAclaratorio = ""

fe.lpgopcionalesItemCantidad = 0

fe.ArchivoXMLEnviado = "d:\lsgenviado.xml"

fe.ArchivoXMLRecibido = "d:\lsgrecibido.xml"

bResultado = fe.lpgliquidacionAutorizar()

If bResultado Then

MsgBox("resultado método: verdadero")

Else

MsgBox("resultado método: falso")

End If

MsgBox("ultimo error " + fe.UltimoMensajeError)

MsgBox("error servicdor " + fe.lpgErrorCodigo1 + " " + fe.lpgErrorDescripcion1)

MsgBox("COE " + fe.lpgRespuestaCoe)

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If

End Sub