109 lines
3.9 KiB
C++
109 lines
3.9 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "TpvSelectActiveUser.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TChangeUserName *ChangeUserName;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TChangeUserName::TChangeUserName(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
int i, j;
|
|
|
|
#ifdef DEM001
|
|
bool checkfech;
|
|
if ( ( TDateTime::CurrentDate() ) >= EncodeDate( 2001, 6, 1 ) && ( TDateTime::CurrentDate() ) <= EncodeDate( 2001, 9, 30 ) )
|
|
checkfech = true;
|
|
else
|
|
checkfech = false;
|
|
|
|
#endif
|
|
|
|
for ( i=0; i<10; i++ )
|
|
for ( j=0; j<10; j++ )
|
|
#ifdef DEM001
|
|
TablaDeAcceso[i][j] = checkfech;
|
|
#else
|
|
TablaDeAcceso[i][j] = false;
|
|
#endif
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TChangeUserName::Edit2KeyUp(TObject *Sender, WORD &Key,
|
|
TShiftState Shift)
|
|
{
|
|
#ifdef DEM001
|
|
Close();
|
|
#else
|
|
|
|
int usr;
|
|
if ( Key == VK_RETURN )
|
|
{
|
|
if ( Edit1->Text.IsEmpty() )
|
|
{
|
|
Edit1->SetFocus(); return;
|
|
}
|
|
try {
|
|
usr = Edit1->Text.ToInt();
|
|
} catch(...) {
|
|
Edit1->SetFocus(); return;
|
|
}
|
|
if ( TbAccess->Locate( "EnlacePersona", usr, TLocateOptions() << loCaseInsensitive ) )
|
|
{
|
|
if ( Edit2->Text == TbAccess->FieldByName("PassWord")->AsString )
|
|
{
|
|
// [1][*] Articulos
|
|
TablaDeAcceso[1][5] = TbAccess->FieldByName( "ArtReferencias" )->AsBoolean;
|
|
TablaDeAcceso[1][6] = TbAccess->FieldByName( "ArtStockActual" )->AsBoolean;
|
|
TablaDeAcceso[1][8] = TbAccess->FieldByName( "ArtVentas" )->AsBoolean;
|
|
// [2][*] Proveedores
|
|
TablaDeAcceso[2][5] = TbAccess->FieldByName( "ProvInformacion" )->AsBoolean;
|
|
TablaDeAcceso[2][7] = TbAccess->FieldByName( "ProvCartera" )->AsBoolean;
|
|
TablaDeAcceso[2][8] = TbAccess->FieldByName( "ProvCompras" )->AsBoolean;
|
|
// [3][*] Empleados
|
|
TablaDeAcceso[3][5] = TbAccess->FieldByName( "EmpFichas" )->AsBoolean;
|
|
TablaDeAcceso[3][6] = TbAccess->FieldByName( "EmpPermisos" )->AsBoolean;
|
|
TablaDeAcceso[3][8] = TbAccess->FieldByName( "EmpVentas" )->AsBoolean;
|
|
TablaDeAcceso[3][9] = TbAccess->FieldByName( "EmpGraficas" )->AsBoolean;
|
|
// [4][*] Clientes
|
|
TablaDeAcceso[4][5] = TbAccess->FieldByName( "CltGestion" )->AsBoolean;
|
|
TablaDeAcceso[4][7] = TbAccess->FieldByName( "CltCartera" )->AsBoolean;
|
|
TablaDeAcceso[4][8] = TbAccess->FieldByName( "CltVentas" )->AsBoolean;
|
|
TablaDeAcceso[4][9] = TbAccess->FieldByName( "CltInformes" )->AsBoolean;
|
|
// [5][*] Compras
|
|
TablaDeAcceso[5][5] = TbAccess->FieldByName( "CmpComprar" )->AsBoolean;
|
|
TablaDeAcceso[5][6] = TbAccess->FieldByName( "CmpInforme" )->AsBoolean;
|
|
TablaDeAcceso[5][9] = TbAccess->FieldByName( "CmpListado" )->AsBoolean;
|
|
// [6][*] Ventas
|
|
TablaDeAcceso[6][5] = TbAccess->FieldByName( "VntCaja" )->AsBoolean;
|
|
TablaDeAcceso[6][7] = TbAccess->FieldByName( "VntBalanceD" )->AsBoolean;
|
|
TablaDeAcceso[6][8] = TbAccess->FieldByName( "VntBalanceM" )->AsBoolean;
|
|
// [7][*] Contabilidad
|
|
TablaDeAcceso[7][5] = TbAccess->FieldByName( "CtbCuentas" )->AsBoolean;
|
|
TablaDeAcceso[7][7] = TbAccess->FieldByName( "CtbParte" )->AsBoolean;
|
|
TablaDeAcceso[7][8] = TbAccess->FieldByName( "CtbInformes" )->AsBoolean;
|
|
// [8][*] Miscelanea
|
|
TablaDeAcceso[8][5] = TbAccess->FieldByName( "MisConfigurar" )->AsBoolean;
|
|
// [9][*] Soporte
|
|
TablaDeAcceso[9][9] = true;
|
|
Close();
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TChangeUserName::Edit1KeyUp(TObject *Sender, WORD &Key,
|
|
TShiftState Shift)
|
|
{
|
|
if ( Key == VK_RETURN )
|
|
{
|
|
if ( Edit1->Text == "salir" ) Close();
|
|
Edit2->SetFocus();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|