//---------------------------------------------------------------------------

#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();
 }
}
//---------------------------------------------------------------------------