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