#include <SQLite.au3>	; Para operaciones de SQLITE

	; ====================================================================================================================
    ; Nombre .............: mb($mensaje), cw($mensaje), ib($titulo,$mensaje,$ancho,$alto)
    ; Descripción ........: Abreviatura de MsgBox y ConsoleWrite, con @CRLF al final e indicando en qué línea del programa se ejecuta
	;						Abreviatura de InputBox con dimensiones por defecto
    ; Sintaxis ...........:
    ; Parámetros .........:
    ; Valores devueltos ..: 
    ; Autor ..............:	
    ; Comentarios ........:	
    ;						
    ; ====================================================================================================================

		func mb($mensaje,$linea=@ScriptLineNumber)	; Abreviatura de MsgBox
			if $DebugIt=1 Then 
				msgbox(0,"Línea ("&StringFormat("%04d", $linea) & ")",$mensaje)
			Else
				msgbox(0,"Aviso",$mensaje)
			EndIf
		EndFunc

		func cw($mensaje,$linea=@ScriptLineNumber)	;Abreviatura de ConsoleWrite
			if $DebugIt=1 Then
				ConsoleWrite("-->Linea(" & StringFormat("%04d", $linea) & "):" & @TAB &$mensaje & @CRLF)
			Else
				ConsoleWrite($mensaje & @CRLF)
			EndIf
		EndFunc
		
		func ib($titulo="",$mensaje="",$ancho=400,$alto=200)	;Abreviatura de InputBox
			InputBox($titulo,$mensaje,""," M",$ancho,$alto)
		EndFunc
			
	; ====================================================================================================================
    ; Nombre .............: IniciaSQLite()
    ; Descripción ........: Inicia SQLite
    ; Sintaxis ...........:
    ; Parámetros .........:
    ; Valores devueltos ..: Funciona: Escribe la versión de SQLite en la consola
	;						Falla: Devuelve mensaje dando error al cargar SQLite.dll
    ; Autor ..............:	
    ; Comentarios ........:	
    ;						
	; ====================================================================================================================
		
		Func IniciaSQLite()
			#Region SQL Startup
				_SQLite_Startup ()
				If @error Then
					MsgBox(16, "Error de SQLite", "No se puede cargar SQLite.dll")
					Exit - 1
				EndIf
				ConsoleWrite("_SQLite_LibVersion=" &_SQLite_LibVersion() & @CRLF)
			#EndRegion SQL Startup
		EndFunc
		
	Func TerminaSQLite()	
	#Region SQL End
	_SQLite_Close ()
	_SQLite_Shutdown ()
	#endregion
	EndFunc