- workspace
- target
- library

Libreria app - Aplicacion app
evento open
open(w_inicio)

evento close
f_desconectar(SQLCA)

Libreria datos
f_conectar (return boolean, by reference, transaction at_ot)
string ls_ac

"PROVIDER='SQLOLEDB',DATASOURCE='.',PROVIDERSTRING='database=northwind',PERSISTSENSITIVE='True',INTEGRATEDSECURITY='SSPI'"

at_ot.DBMS = profileString("app.ini","conexion","dbms","NO encontrado")
at_ot.DBParm = profileString("app.ini","conexion","dbparm","NO encontrado")

ls_ac = profileString("app.ini","conexion","ac","NO encontrado")
ls_ac = trim(ls_ac)
ls_ac = lower(ls_ac)

if ls_ac = "false" then
at_ot.AutoCommit = false
elseif ls_ac = "true" then
at_ot.AutoCommit = true
end if

//Paso 2
connect using at_ot;

//Paso 3
if at_ot.SQLCode <> 0 then
messagebox("Error",at_ot.SQLErrText)
return false
else
return true
end if

f_desconectar(by reference transaction at_ot)
disconnect using at_ot;

library accesodatos - funcion validar (return boolean, by value string as_usuario, as_pass)
string ls_clave

select
  usuario,
  clave,
  idTipoUsuario
into 
  :gs_usuario,
  :ls_clave,
  :gi_tipo
from
  usuarios
where 
  usuario = :as_usuario;

if SQLCA.SQLCode <> 0 then
messagebox("ERROR", "Usuario NO encontrado!!!", stopsign!)
f_desconectar(SQLCA)
return false
elseif ls_clave <> as_clave then
messagebox("ERROR", "Clave Incorrecta!!!", stopsign!)
f_desconectar(SQLCA)
return false
else
f_desconectar(SQLCA)
setProfileString("app.ini", "registro", "ultUsuario", gs_usuario)
return true
end if
else
return false

end if

libreria logica - ventana w_rep
constructor dw_1
//Conecto
if f_conectar(SQLCA) then
  
  //establecer el objeto transaccional
  this.setTransObject(SQLCA)

  //recuperar los datos
  this.retrieve( )
  
  //Asigno el dato del usuario conectado a la etiqueta t_usuario
  this.modify("t_usuario.text=' " + "Usuario: " + gs_usuario + " ' " )

  //Desconecto
  f_desconectar(SQLCA)
end if

libreria presentacion - menu principal
ventana
parentwindow.arrangesheets(TileHorizontal!) tile! icons! cascade!

opensheet(w_rep_empleados, w_principal, 2,  Original!)

ventana inicio
evento open 
this.triggerevent("ue_config")

evento timer
this.title = string(datetime(today(), now()), "dd/mm/yyyy hh:mm.ss am/pm")

evento ue_config
integer li_time, li_r, li_g, li_b

li_time = profileInt("app.ini","configuracion","titulo",1)
timer(li_time)

li_r=profileInt("app.ini","configuracion","r",1)
li_g=profileInt("app.ini","configuracion","g",1)
li_b=profileInt("app.ini","configuracion","b",1)

this.backcolor = rgb(li_r, li_g, li_b)
gb_1.backcolor = rgb(li_r, li_g, li_b)
st_1.backcolor = rgb(li_r, li_g, li_b)
st_2.backcolor = rgb(li_r, li_g, li_b)

sle_usuario.text = ProfileString("app.ini", "registro", "ultUsuario", "")
sle_usuario.selecttext( 1, len(sle_usuario.text))

eveto ue_salir
integer li_retorno

li_retorno = messagebox("Consulta", "Desea salir?", question!, yesno!, 2)

if li_retorno=1 then
halt close
end if

boton acceptar
evento clicked
string ls_usuario, ls_clave

ls_usuario = trim(sle_usuario.text)
ls_clave = trim(sle_clave.text)

n_cryptoapi lnv_crypto

ls_clave = lnv_crypto.of_encrypt(ls_clave, "1234567890987654")

if f_validar(ls_usuario, ls_clave) then
open(w_principal)
else
gi_contador++
end if

if gi_contador > 2 then
messagebox("ERROR", "Alcanzó el número máximo de intentos!!!", stopsign!)
halt close
end if

boton salir
evento clicked
parent.triggerevent("ue_salir")

ventana principal (no layout, return long)
evento open
close(w_inicio)

choose case gi_tipo
case 2
m_principal.m_mantenimientos.hide()
end choose