Exemplo Imprimir Relatorio HTML

Imagen 1
Imagen

Imagen 2
Imagen

Url
https://mega.nz/#!dxc0AKDS

Clave del cifrado

!c4lesMDh5zw8Zk8bo8YWTgt3ztPziEMPjcfnC_sxHZA

Codigo
if e_ButtonID == 1 then--------------------------------------->> Salvar os Dados
text1 = Input.GetText("Input2");
text2 = Input.GetText("Input3");
text3 = Input.GetText("Input4");
if text1 == ""or text2 == "" or text3 == "" then
Dialog.Message("Editar", "Você tem que editar o formulario.", MB_OK, MB_ICONEXCLAMATION);
else
	                 
local            sDATA = Input.GetText("Input1"); --->> Cada índice da tabela corresponde a um valor da BD...
local            sNOME = Input.GetText("Input2");
local        sTELEFONE = Input.GetText("Input3");
local           sEMAIL = Input.GetText("Input4");
             
if newData then
SQLite3.Query(db, "INSERT INTO Ussers values(NULL, '"
..sDATA    .."','"
..sNOME    .."','"
..sTELEFONE.."','"
..sEMAIL   .."')");
nLastError = Application.GetLastError();
if nLastError ~= SQLite3.OK then
Dialog.Message("Error:" ..nLastError, SQLite3.GetLastErrorString());
else
DialogEx.Show("3", true, nil, nil);
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Plugin.SetVisible("ToolBar2", false);
Plugin.SetVisible("ToolBar1", true);
DesabilitarObjetos()
Pesquisar_A()
end		
else
SQLite3.Query(db, "INSERT or REPLACE INTO Ussers values('"
..xData    .."', '"
..sDATA    .."','"
..sNOME    .."','"
..sTELEFONE.."','"
..sEMAIL   .."')");
nLastError = Application.GetLastError();
if nLastError ~= SQLite3.OK then
Dialog.Message("Erro:" ..nLastError, SQLite3.GetLastErrorString());
else
DialogEx.Show("3", true, nil, nil);
Plugin.SetVisible("ToolBar2", false);
Plugin.SetVisible("ToolBar1", true);
DesabilitarObjetos()
Pesquisar_A()
end		
end
end
end


if e_ButtonID == 2 then--------------------------------------->> Cancelar formulario
Plugin.SetVisible("ToolBar2", false);
Plugin.SetVisible("ToolBar1", true);
DesabilitarObjetos()
end



if e_ButtonID == 3 then--------------------------------------->> Sair do programa
Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);
end