AMSSpecialist

Foro Especializado en Autoplay Media Studio y más...
http://amsspecialist.com/

conectar formulario de ams con servidor en internet

http://amsspecialist.com/viewtopic.php?t=2717

Página 2 de 2

Re: conectar formulario de ams con servidor en internet

Publicado: 18 Oct 2016 22:12
por world502
Gracias.

Re: conectar formulario de ams con servidor en internet

Publicado: 24 Oct 2016 21:05
por hdd.utilities
graças

Re: conectar formulario de ams con servidor en internet

Publicado: 23 Ene 2017 11:32
por traveler
obrigado.

Re: conectar formulario de ams con servidor en internet

Publicado: 27 Feb 2017 11:13
por melindez
garcias

Re: conectar formulario de ams con servidor en internet

Publicado: 19 Nov 2017 05:56
por dripro
GRACIAS

Re: conectar formulario de ams con servidor en internet

Publicado: 18 Dic 2017 19:12
por vivekhada
ok i want to see how

Re: conectar formulario de ams con servidor en internet

Publicado: 26 Ene 2018 13:19
por good
gracias

Re: conectar formulario de ams con servidor en internet

Publicado: 14 Abr 2018 20:20
por luasqlite
gracias :pc:

Re: conectar formulario de ams con servidor en internet

Publicado: 10 May 2018 18:08
por THEBEST1
gracias

Re: conectar formulario de ams con servidor en internet

Publicado: 06 Sep 2018 15:14
por sendai
gracias amego

Re: conectar formulario de ams con servidor en internet

Publicado: 23 Sep 2018 02:25
por cemexico
:penguin: :pc: :yeah:

Re: conectar formulario de ams con servidor en internet

Publicado: 08 Ene 2020 13:12
por feeherreraw
Probando

Re: conectar formulario de ams con servidor en internet

Publicado: 08 Ene 2020 17:19
por Cristian Veliz M.
Muchas Gracias

Re: conectar formulario de ams con servidor en internet

Publicado: 09 Ene 2020 08:52
por lazkopat
thank you

Re: conectar formulario de ams con servidor en internet

Publicado: 13 Ene 2020 11:39
por adsvoo
Me arroja el error que te describi anteriormente; a que se debe ese error?????

Re: conectar formulario de ams con servidor en internet

Publicado: 12 Feb 2021 06:21
por indywey
Gracias.

Re: conectar formulario de ams con servidor en internet

Publicado: 25 Jun 2021 01:35
por edumar3211
Probandooo!!

Re: conectar formulario de ams con servidor en internet

Publicado: 15 Ago 2021 01:37
por samirmax
THANKS

Re: conectar formulario de ams con servidor en internet

Publicado: 21 Ago 2021 11:13
por mariogenebas
Compañeros os funcionan los APZ?

Re: conectar formulario de ams con servidor en internet

Publicado: 26 Mar 2023 02:42
por luasqlite
Action 
tLocalhost = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Localhost"), "trustno1withthispassword");
tUsuario = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Usuario"), "trustno1withthispassword");
tContrasena = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Contrasena"), "trustno1withthispassword");
tBasedatos = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Basedatos"), "trustno1withthispassword");
tPuerto = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Puerto"), "trustno1withthispassword");

if tLocalhost == "" or tUsuario == "" or tContrasena == "" or tBasedatos == "" or tPuerto == "" then


tLocalhost = ""
tUsuario = ""
tContrasena = ""
tBasedatos = ""
tPuerto = ""

if ( DialogEx.Show("Localhost", true, nil, nil) == IDOK) then

tLocalhost = Crypto.BlowfishEncryptString(tLocalhost, "trustno1withthispassword", 0);
INIFile.SetValue("Settings.ini", "Accesos", "Localhost", tLocalhost);
tUsuario = Crypto.BlowfishEncryptString(tUsuario, "trustno1withthispassword", 0);
INIFile.SetValue("Settings.ini", "Accesos", "Usuario", tUsuario);
tContrasena = Crypto.BlowfishEncryptString(tContrasena, "trustno1withthispassword", 0);
INIFile.SetValue("Settings.ini", "Accesos", "Contrasena", tContrasena);
tBasedatos = Crypto.BlowfishEncryptString(tBasedatos, "trustno1withthispassword", 0);
INIFile.SetValue("Settings.ini", "Accesos", "Basedatos", tBasedatos);
tPuerto = Crypto.BlowfishEncryptString(tPuerto, "trustno1withthispassword", 0);
INIFile.SetValue("Settings.ini", "Accesos", "Puerto", tPuerto);



tLocalhost = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Localhost"), "trustno1withthispassword");
tUsuario = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Usuario"), "trustno1withthispassword");
tContrasena = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Contrasena"), "trustno1withthispassword");
tBasedatos = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Basedatos"), "trustno1withthispassword");
tPuerto = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Puerto"), "trustno1withthispassword");

MySQLConnection = MySQL.Connect(tLocalhost, tUsuario, tContrasena, tBasedatos, tPuerto);

if (MySQLConnection ~= 0) then
 error = Application.GetLastError();
 Dialog.Message("Error",error.."\n\n El proceso de comunicación entre el sistema y el BD no es válido por este motivo La aplicación se cerrará");
 
 INIFile.SetValue("Settings.ini", "Accesos", "Localhost", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Usuario", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Contrasena", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Basedatos", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Puerto", "");
 Application.Exit(0);
end

sData = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\Barra.dll", "Barra", "Arranque");
if sData == "No" then
Page.Jump("Conecte-se");
else
DialogEx.Show("Carga", true, nil, nil);
    
end
else
end
else


tLocalhost = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Localhost"), "trustno1withthispassword");
tUsuario = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Usuario"), "trustno1withthispassword");
tContrasena = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Contrasena"), "trustno1withthispassword");
tBasedatos = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Basedatos"), "trustno1withthispassword");
tPuerto = Crypto.BlowfishDecryptString(INIFile.GetValue("Settings.ini", "Accesos", "Puerto"), "trustno1withthispassword");


MySQLConnection = MySQL.Connect(tLocalhost, tUsuario, tContrasena, tBasedatos, tPuerto);


if (MySQLConnection ~= 0) then
 error = Application.GetLastError();
 Dialog.Message("Error",error.."\n\n El proceso de comunicación entre el sistema y el BD no es válido por este motivo La aplicación se cerrará");
 
 INIFile.SetValue("Settings.ini", "Accesos", "Localhost", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Usuario", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Contrasena", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Basedatos", "");
 INIFile.SetValue("Settings.ini", "Accesos", "Puerto", "");
 Application.Exit(0);
end

sData = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\Barra.dll", "Barra", "Arranque");
if sData == "No" then
Page.Jump("Conecte-se");
else
DialogEx.Show("Carga", true, nil, nil);
end
end
Boton Guardar 
--RECOGE LO ESCRITO EN LOS OBJETOS

local  tCodigo = Input.GetText("INP_CODIGO");
local  tApellidosNombres = Input.GetText("INP_APELLIDOSNOMBRES");
local  tUsuario = Input.GetText("INP_USUARIO");
local  tContrasena = Input.GetText("INP_CONTRASENA");
local  tTipocuenta = Input.GetText("INP_TIPOCUENTA");
local  tDependencia = ComboBox.GetText("CBX_DEPENDENCIA");
local  tSexo = Input.GetText("INP_SEXO");
local  tEmail = Input.GetText("INP_EMAIL");
local  tFecha = Input.GetText("INP_FECHA");

--CONDICION SI NO HAY NADA ESCRITO

if (tApellidosNombres == "" or tUsuario == "" or tContrasena == "" or tTipocuenta == "" or tDependencia == "" or tSexo == "" or tEmail == "" or tFecha == "") then
Dialog.TimedMessage("Error", "No has escrito algun campo del usuario", 2000, MB_ICONSTOP);  
else
 
--CONDICION PARA GUARDAR SIN QUE SE REPITA
 if (tNovoUsuario == true) then 
tSelected = MySQL.QueryToTable("SELECT * FROM usuarios WHERE USUARIO LIKE '"..tUsuario.."%'");
if tSelected == nil then    
if not rData then
MySQL.Query("INSERT INTO usuarios (ID, CODIGO, APELLIDOSNOMBRES, USUARIO, CONTRASENA, TIPOCUENTA, DEPENDENCIA, SEXO, EMAIL, FECHA) VALUES (NULL, '"
..tCodigo.."', '"
..tApellidosNombres.."', '"
..tUsuario.."', '"
..tContrasena.."','"
..tTipocuenta.."','"
..tDependencia.."','"
..tSexo.."', '"
..tEmail.."', '"
..tFecha.."')")
Dialog.TimedMessage("Registro completo", "El usuario ("..tUsuario..") fue registrado con exito", 2000, MB_ICONINFORMATION); 
xButton.SetVisible("xButton1",  true);
xButton.SetVisible("xButton3",  true);
xButton.SetVisible("xButton2", false);
xButton.SetVisible("xButton4", false);
Page.ClickObject("xButton10");
               tContePagina();
else     
end
else
Dialog.TimedMessage("Sistema de Control de Personal", "("..tUsuario..") ya existe en el Sistema.", 3000, MB_ICONSTOP); 
end
end

--CONDICION PARA MODIFICAR SIN QUE SE REPITA

if (tNovoUsuario == false) then 
tSelected = MySQL.QueryToTable("SELECT * FROM usuarios WHERE USUARIO LIKE '"..tUsuario.."%'");
if tSelected == nil then    
if not rData then
MySQL.Query("UPDATE usuarios SET CODIGO ='"
..tCodigo.."',APELLIDOSNOMBRES ='"
..tApellidosNombres.."',USUARIO ='"
..tUsuario.."',CONTRASENA ='"
..tContrasena.."',TIPOCUENTA ='"
..tTipocuenta.."',DEPENDENCIA ='"
..tDependencia.."',SEXO ='"
..tSexo.."',EMAIL ='"
..tEmail.."',FECHA ='"
..tFecha.."'WHERE ID ="..nID)
Dialog.TimedMessage("Datos atualizados", "Los datos del usuario se actualizaron con éxito "..tUsuario, 2000, MB_ICONINFORMATION); 
xButton.SetVisible("xButton1",  true);
xButton.SetVisible("xButton3",  true);
xButton.SetVisible("xButton2", false);
xButton.SetVisible("xButton4", false);
 sPesquisarPaginas();
else     
end
else
Dialog.TimedMessage("Sistema de Control de Personal", "("..tUsuario..") ya existe en el Sistema.", 3000, MB_ICONSTOP); 
end
end
end
On preload Pagina 
--LIMPIA LOS REGISTROS AL CERRAR DIALOGO O PAGINA

tApellidosNombres = Input.SetText("INP_APELLIDOSNOMBRES", "")
tUsuario = Input.SetText("INP_USUARIO", "")
tContrasena = Input.SetText("INP_CONTRASENA", "")
tTipocuenta = Input.SetText("INP_TIPOCUENTA", "")
tDependencia = ComboBox.GetText("CBX_DEPENDENCIA")
tSexo = Input.SetText("INP_SEXO", "")
tEmail = Input.SetText("INP_EMAIL", "")
tFecha = Input.SetText("INP_FECHA", "")

---------------------------------------------------<< CONTAR E DIVIDIR EM PAGINAS >>
function tContePagina()

tbResults = MySQL.QueryToTable("SELECT COUNT(*) AS COUNT FROM usuarios");
if Application.GetLastError() == 0 then 
for i,row in pairs (tbResults) do
for j,tConte in pairs (row) do
Input.SetText("Total", tConte);

nConte = String.ToNumber(Grid.GetRowCount("Grid1") - tConte)

tPagina = Math.Round(tConte  / ComboBox.GetText("ComboBox1"), 0);
nConte = String.ToNumber(tPagina)+1

end

Input.SetText("Paginas", nConte);

end
end



end

---------------------------------<< PESQUISAR RECORD ID AUTO INCREMENT >>
function tRecordID()
tID = "0"
tSelected = MySQL.QueryToTable("SELECT * FROM usuarios WHERE ID")
if Application.GetLastError() == 0 then 
for i,row in pairs (tSelected) do
tID = i
end
end
Input.SetText("INP_CODIGO", string.format("%010d",String.ToNumber(tID) +1));
end



----<< LIMITAR TABELA FROM PRODUTOS E ORDER by ASC ID DESC LIMIT >>
function sPesquisarPaginas()
Grid.DeleteNonFixedRows("Grid1", true);
Grid.SetCellText("Grid1", 0, 0,      "ID", false);
Grid.SetCellText("Grid1", 0, 1,      "APELLIDOSNOMBRES", false);
Grid.SetCellText("Grid1", 0, 2,      "USUARIO", false);
Grid.SetCellText("Grid1", 0, 3,      "CONTRASENA", false);
Grid.SetCellText("Grid1", 0, 4,      "TIPOCUENTA", false);
Grid.SetCellText("Grid1", 0, 5,      "DEPENDENCIA", false);
Grid.SetCellText("Grid1", 0, 6,      "SEXO", false);
Grid.SetCellText("Grid1", 0, 7,      "EMAIL", false);
Grid.SetCellText("Grid1", 0, 8,      "FECHA", false);
Grid.ExpandColumnsToFit("Grid1", true, true);
Grid.Refresh("Grid1")

sPaginas = Input.GetText("Paginas")-1;
sPaginas = Math.Round(sPaginas *ComboBox.GetText("ComboBox1"), 1);
sOrdena_p = ComboBox.GetText("ComboBox2");-----<< Order by com ASC e DESC >>
tSelected = MySQL.QueryToTable("SELECT ID, CODIGO, APELLIDOSNOMBRES, USUARIO, CONTRASENA, TIPOCUENTA,DEPENDENCIA, SEXO, EMAIL, FECHA FROM usuarios ORDER BY CODIGO "..sOrdena_p.." LIMIT "..sPaginas..","..ComboBox.GetText("ComboBox1")); 
if Application.GetLastError() == 0 then 
for nRow, x in pairs (tSelected) do 
 
 tCodigo = tSelected[nRow][2]; 
 tApellidosNombres = tSelected[nRow][3];
 tUsuario = tSelected[nRow][4]; 
 tContrasena = tSelected[nRow][5]; 
 tTipocuenta = tSelected[nRow][6]; 
 tDependencia = tSelected[nRow][7];
 tSexo = tSelected[nRow][8]; 
 tEmail = tSelected[nRow][9]; 
 tFecha = tSelected[nRow][10];

local nLine = Grid.InsertRow("Grid1", -1, false); 
Grid.SetCellText("Grid1", nLine, 0,  tCodigo, false);
Grid.SetCellText("Grid1", nLine, 1,  tApellidosNombres, false);
Grid.SetCellText("Grid1", nLine, 2,  tUsuario, false);
Grid.SetCellText("Grid1", nLine, 3,  tContrasena, false);  
Grid.SetCellText("Grid1", nLine, 4,  tTipocuenta, false);
Grid.SetCellText("Grid1", nLine, 5,  tDependencia, false);
Grid.SetCellText("Grid1", nLine, 6,  tSexo, false); 
Grid.SetCellText("Grid1", nLine, 7,  tEmail, false);  
Grid.SetCellText("Grid1", nLine, 8,  tFecha, false);  
 end
 end
 end
 
  --COLOCAR FECHA AUTOMATICA EN EL INPUT FECHA

d = System.GetDate(DATE_FMT_DAY)
m = System.GetDate(DATE_FMT_MONTH)
a = System.GetDate(DATE_FMT_YEAR)
if d == 1 or d == 2 or d == 3 or d == 4 or d == 5 or d == 6 or d == 7 or d == 8 or d == 9 then
Input.SetText("INP_FECHA", a.."-"..m.."-".."0"..d)
else
Input.SetText("INP_FECHA", a.."-"..m.."-"..d)
end

nID = ""
On show pagina 
 local UserIngreso = INIFile.GetValue("UserIngreso.ini", "general", "tUsuarioEnter")
Paragraph.SetText("PG_USUARIOREGISTRO", UserIngreso)
 
 
        tRecordID();
     tContePagina();
sPesquisarPaginas();

j = true
------------------------<<  PESQUISAR USUÁRIOS >>
function sPesquisarUsuario()
Grid.DeleteNonFixedRows("Grid1", true);
Grid.DeleteNonFixedRows("Grid1", true);
Grid.SetCellText("Grid1", 0, 0,      "ID", false);
Grid.SetCellText("Grid1", 0, 1,      "APELLIDOSNOMBRES", false);
Grid.SetCellText("Grid1", 0, 2,      "USUARIO", false);
Grid.SetCellText("Grid1", 0, 3,      "CONTRASENA", false);
Grid.SetCellText("Grid1", 0, 4,      "TIPOCUENTA", false);
Grid.SetCellText("Grid1", 0, 5,      "DEPENDENCIA", false);
Grid.SetCellText("Grid1", 0, 6,      "SEXO", false);
Grid.SetCellText("Grid1", 0, 7,      "EMAIL", false);
Grid.SetCellText("Grid1", 0, 8,      "FECHA", false);
Grid.ExpandColumnsToFit("Grid1", true, true);
Grid.Refresh("Grid1")


tSelected = MySQL.QueryToTable("SELECT ID, CODIGO, APELLIDOSNOMBRES, USUARIO, CONTRASENA, TIPOCUENTA, DEPENDENCIA, SEXO, EMAIL, FECHA FROM usuarios WHERE USUARIO LIKE '"..sPesquisar.."%' or ID LIKE '"..sPesquisar.."%'"); 
if Application.GetLastError() == 0 then 
for nRow, x in pairs (tSelected) do 

 tCodigo = tSelected[nRow][2]; 
 tApellidosNombres = tSelected[nRow][3];
 tUsuario = tSelected[nRow][4]; 
 tContrasena = tSelected[nRow][5]; 
 tTipocuenta = tSelected[nRow][6]; 
 tDependencia = tSelected[nRow][7];
 tSexo = tSelected[nRow][8]; 
 tEmail = tSelected[nRow][9]; 
 tFecha = tSelected[nRow][10];
   
local nLine = Grid.InsertRow("Grid1", -1, false); 
Grid.SetCellText("Grid1", nLine, 0,  tCodigo, false);
Grid.SetCellText("Grid1", nLine, 1,  tApellidosNombres, false);
Grid.SetCellText("Grid1", nLine, 2,  tUsuario, false);
Grid.SetCellText("Grid1", nLine, 3,  tContrasena, false);  
Grid.SetCellText("Grid1", nLine, 4,  tTipocuenta, false);
Grid.SetCellText("Grid1", nLine, 5,  tDependencia, false);
Grid.SetCellText("Grid1", nLine, 6,  tSexo, false); 
Grid.SetCellText("Grid1", nLine, 7,  tEmail, false);  
Grid.SetCellText("Grid1", nLine, 8,  tFecha, false);  


end
end
end

-------------------------------------------------------------------------------------------
--JALAR INFO DE CAMPO DE TABLA A COMBOBOX TIPODOCUMENTO

tSelected = MySQL.QueryToTable("SELECT * FROM dependencias ORDER BY CODIGO ASC"); 
ComboBox.ResetContent("CBX_DEPENDENCIA")
if Application.GetLastError() == 0 then 
for nRow, x in pairs (tSelected) do 

tCodigo = tSelected[nRow][2]; 
tDependencia = tSelected[nRow][3]; 

ComboBox.AddItem("CBX_DEPENDENCIA", tDependencia, nRow);
ComboBox.SetSelected("CBX_DEPENDENCIA", 1)
end
end

Page.SetFocus("CBX_DEPENDENCIA")
Page.StartTimer(1000, 11)

-------------------------------------------------------------------------------------------
On Selection Change Grid 
xData = Grid.GetCellText("Grid1", e_Row, 0);
if xData ~= "" then

nID = String.ToNumber(xData);
tSelected = MySQL.QueryToTable("SELECT * FROM usuarios WHERE ID ="..nID.."")
if Application.GetLastError() == 0 then 
for nRow, x in pairs (tSelected) do 

Input.SetText("INP_CODIGO", tSelected[nRow][2]);
Input.SetText("INP_APELLIDOSNOMBRES", tSelected[nRow][3]);
Input.SetText("INP_USUARIO", tSelected[nRow][4]);
Input.SetText("INP_CONTRASENA", tSelected[nRow][5]);
Input.SetText("INP_TIPOCUENTA", tSelected[nRow][6]);
ComboBox.SetText("CBX_DEPENDENCIA", tSelected[nRow][7]);
Input.SetText("INP_SEXO", tSelected[nRow][8]);
Input.SetText("INP_EMAIL", tSelected[nRow][9]);
Input.SetText("INP_FECHA", tSelected[nRow][10]);
	
xButton.SetVisible("xButton1",  true);
xButton.SetVisible("xButton3",  true);
xButton.SetVisible("xButton2", false);
xButton.SetVisible("xButton4", false);

end
end
end

sCor_a = {}
sCor_a.e_Row = e_Row
sCor_a.e_Column = e_Column
if sCor_b then
	for b=0,10 do
		Grid.SetCellColors("Grid1", sCor_b.e_Row, b, {Background=16777215,Text=0}, true);
	end
	sCor_b = nil
end


if sCor_a then
	
	if sCor_a.e_Row > 0 then
		for a=0,10 do
			Grid.SetCellColors("Grid1", sCor_a.e_Row, a, {Background=10526975,Text=8393216}, true);
			sCor_b = {}
			sCor_b = sCor_a

		end
	end
end
Todos los horarios son UTC+02:00
Página 2 de 2
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/