Página 1 de 1

La función GetErrorExt() Parte 5

Publicado: Dom Mar 25, 2012 5:08 pm
por visitante32
La documentación de la librería dice:

GetErrorExt es una cadena adicional al error que indica con mas detalle en donde
ocurrio el error, por ejemplo, GetError puede devolver "Archivo no encontrado"
y GetErrorExt devuelve el *nombre* del archivo que no fue encontrado

Te recuerdo que el caracter & es un Ampersam.
En Código Visual Basic podemos aplicarlo así

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

GeneraCFD(Application.StartupPath & "\FacturaEcodex98.ini", "a0123456789")

If GetError().ToString.Length > 0 Then
MsgBox(GetError() & " " & GetErrorExt(), vbInformation, "Aviso")
Else
MsgBox("El XML ha sido generado", vbInformation, "Aviso")
End If

End Sub


Declaramos la función GetErrorExt()

<Runtime.InteropServices.DllImport("CFDLib.dll", Charset:=Runtime.InteropServices.CharSet.Ansi, SetLastError:=True, ExactSpelling:=True, Entrypoint:="GetErrorExt")> _
Public Shared Function GetErrorExt() As String
End Function


Compilamos y...
Captura2.JPG
Captura2.JPG (21.05 KiB) Visto 4311 veces