La función GetErrorExt() Parte 5
Publicado: Dom Mar 25, 2012 5:08 pm
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...
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...