First commit 14/02/1999

2021-09-12 22:19:30 +02:00
commit d031fca570
464 changed files with 22399 additions and 0 deletions
--- a/TpvSelectActiveUser.cpp
+++ b/TpvSelectActiveUser.cpp
@ -0,0 +1,108 @@
+//---------------------------------------------------------------------------
+
+#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();
+ }
+}
+//---------------------------------------------------------------------------