Embedded Files
El ejemplo requiere versión 47.80 o superior del instalador para el WSLPG 1.19 (homologación)
Los datos son provistos por AFIP, debe ser modificados a datos coherentes. 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
ccuit = "cuit válido sin separadores"
cptoEmision = "1"
bresultado = False
If fe.iniciar(0, ccuit, "ruta del archivo certificado.pfx", "") Then
If fe.lpgObtenerTicketAcceso() Then
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.lpgptoEmision = cptoemision
fe.lpgnroOrden = NumeroDeOrden
fe.lpgcoeAjustado = "COE de la liquidación a ajustar"
fe.lpgcodLocalidadProcedencia = "3"
fe.lpgcodProvProcedencia = "1"
fe.lpgFusionnroActividad = "0"
fe.lpgFusionnroIngBrutos = "1"
fe.lpgdebitoItemcantidad = 0
fe.lpgcreditoItemcantidad = 1
fe.lpgImputacion = -1
fe.lpgcertificadosItemCantidad = 1
fe.lpgIndiceItem = 0
fe.lpgcertificadocampania = "1213"
fe.lpgcertificadocodLocalidadProcedencia = "3"
fe.lpgcertificadocodProvProcedencia = "1"
fe.lpgcertificadofechaCierre = "20130920"
fe.lpgcertificadonroCertificadoDeposito = "555501200624"
fe.lpgcertificadopesoNeto = "100000"
fe.lpgcertificadotipoCertificadoDeposito = "5"
fe.lpgcertificadoPesoNetoTotalCertificado = "100000"
fe.lpgcertificadoPesoNetoTotalCertificadoNo = False
fe.lpgcodGradoEnt = "G1"
fe.lpgcodGrano = "31"
fe.lpgcodLocalidadProcedencia = "3"
fe.lpgcodProvProcedencia = "1"
fe.lpgcodPuerto = "1"
fe.lpgcuitComprador = "cuit sin separadores"
fe.lpgcuitCorredorNo = True
fe.lpgcuitVendedor = "cuit sin separadores"
fe.lpgdesPuertoLocalidad = ""
fe.lpgFactor = 98
fe.lpgFactorNo = False
fe.lpgnroActComprador = "29"
fe.lpgprecioFleteTn = 10
fe.lpgprecioRefTn = 2000
fe.lpgValGrado = 0
fe.lpgValGradoNo = True
fe.lpgCodGradoEnt = "G1"
fe.lpgconceptoImporteIva0 = ""
fe.lpgconceptoImporteIva105 = ""
fe.lpgconceptoImporteIva21 = "ajuste iva"
fe.lpgimporteAjustarIva0No = True
fe.lpgimporteAjustarIva105No = True
fe.lpgimporteAjustarIva21No = False
fe.lpgimporteAjustarIva21 = 0.01
fe.lpgdatosadicionales = ""
fe.lpgdiferenciaPesoNeto = "10"
fe.lpgdiferenciaPrecioFleteTn = 0.01
fe.lpgdiferenciaPrecioOperacion = 0
fe.ArchivoXMLEnviado = "c:\enviado.xml"
fe.ArchivoXMLRecibido = "c:\recibido.xml"
bresultado = fe.lpgliquidacionAjustarUnificado()
MsgBox("COE: " + fe.lpgRespuestaCoe+" "+fe.lpgRespuestaCOEAjustado)
MsgBox("errores : " + fe.UltimoMensajeError + fe.lpgErrorDescripcion1)
ccampo = fe.lpgLeerRespuestaAjuste( "totalesunificados.imp21", 0)
msgbox("ajuste registrado en afip: "+ccampo)
Else
MsgBox("fallo acceso " + fe.UltimoMensajeError)
End If
Else
MsgBox("fallo inicio " + fe.UltimoMensajeError)
End If
Page updated
Google Sites
Report abuse