First commit 11/12/1999

CfgTurnos.cpp

@@ -0,0 +1,413 @@
+//---------------------------------------------------------------------------
+#define BarraEstado2 StatusBar1->Panels->Items[1]->Text
+
+//---------------------------------------------------------------------------
+#include <io.h>
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "CfgTurnos.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TTurnos *Turnos;
+//---------------------------------------------------------------------------
+__fastcall TTurnos::TTurnos(TComponent* Owner)
+    : TForm(Owner)
+{
+ unsigned short year, month, day;
+ TDateTime::CurrentDate().DecodeDate( &year, &month, &day );
+ Meses->ItemIndex = month-1;
+ if ( year>=1999 && year<=2001 )
+     Anyos->ItemIndex = (1999-year);
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::TbTurnosBeforeOpen(TDataSet *DataSet)
+{
+ if ( access( (TbTurnos -> TableName).c_str(), 0 ) != 0 )
+ {
+	 // Usamos la propiedad FielDefs para definir
+	 // las columnas que contendrá la tabla
+     TbTurnos -> FieldDefs -> Clear();
+
+      /********************\
+     |*    Datos Básicos   *|
+      \********************/
+  	 TbTurnos -> FieldDefs -> Add("idTurno",         ftAutoInc,   0, false );
+  	 TbTurnos -> FieldDefs -> Add("idSector",        ftInteger,   0, false );
+  	 TbTurnos -> FieldDefs -> Add("NTurno",          ftString,   15, false );
+
+  	 TbTurnos -> FieldDefs -> Add("HTurnoP0",        ftFloat,   0, false );
+  	 TbTurnos -> FieldDefs -> Add("HTurnoP1",        ftFloat,   0, false );
+  	 TbTurnos -> FieldDefs -> Add("HTurnoP2",        ftFloat,   0, false );
+
+
+
+     TbTurnos -> IndexDefs-> Clear();
+
+     TIndexOptions MyIndexOptions;
+     MyIndexOptions << ixPrimary << ixUnique;
+	 TbTurnos->IndexDefs->Add("Primary", "idTurno;idSector", MyIndexOptions);
+	 TbTurnos->IndexDefs->Add("IdxSector", "idSector", TIndexOptions() << ixCaseInsensitive  );
+
+	 // Creamos la base...
+	 TbTurnos -> CreateTable();
+ }
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::TbSectoresBeforeOpen(TDataSet *DataSet)
+{
+ if ( access( (TbSectores -> TableName).c_str(), 0 ) != 0 )
+ {
+	 // Usamos la propiedad FielDefs para definir
+	 // las columnas que contendrá la tabla
+     TbSectores -> FieldDefs -> Clear();
+
+      /********************\
+     |*    Datos Básicos   *|
+      \********************/
+  	 TbSectores -> FieldDefs -> Add("idSector",         ftAutoInc,  0, false );
+  	 TbSectores -> FieldDefs -> Add("NSector",          ftString,  15, false );
+
+
+     TbSectores -> IndexDefs-> Clear();
+
+     TIndexOptions MyIndexOptions;
+     MyIndexOptions << ixPrimary << ixUnique;
+	 TbSectores->IndexDefs->Add("Primary", "idSector", MyIndexOptions);
+
+	 // Creamos la base...
+	 TbSectores -> CreateTable();
+ }
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::TbPersonalBeforeOpen(TDataSet *DataSet)
+{
+ if ( access( (TbPersonal -> TableName).c_str(), 0 ) != 0 )
+ {
+	 // Usamos la propiedad FielDefs para definir
+	 // las columnas que contendrá la tabla
+     TbPersonal -> FieldDefs -> Clear();
+
+      /********************\
+     |*    Datos Básicos   *|
+      \********************/
+  	 TbPersonal -> FieldDefs -> Add("idPersonal",         ftAutoInc,  0, false );
+  	 TbPersonal -> FieldDefs -> Add("idSector",           ftInteger,  0, false );
+  	 TbPersonal -> FieldDefs -> Add("Nombre",             ftString,  15, false );
+  	 TbPersonal -> FieldDefs -> Add("Apellidos",          ftString,  30, false );
+  	 TbPersonal -> FieldDefs -> Add("Tlfs",               ftString,  30, false );
+
+     TbPersonal -> IndexDefs-> Clear();
+
+     TIndexOptions MyIndexOptions;
+     MyIndexOptions << ixPrimary << ixUnique;
+	 TbPersonal->IndexDefs->Add("Primary", "idPersonal", MyIndexOptions);
+	 TbPersonal->IndexDefs->Add("IdxSector", "idSector", TIndexOptions() << ixCaseInsensitive  );
+
+	 // Creamos la base...
+	 TbPersonal -> CreateTable();
+ }
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::TbHorariaBeforeOpen(TDataSet *DataSet)
+{
+ if ( access( (TbHoraria -> TableName).c_str(), 0 ) != 0 )
+ {
+	 // Usamos la propiedad FielDefs para definir
+	 // las columnas que contendrá la tabla
+     TbHoraria -> FieldDefs -> Clear();
+
+      /********************\
+     |*    Datos Básicos   *|
+      \********************/
+  	 TbHoraria -> FieldDefs -> Add("idHorario",          ftAutoInc,  0, false );
+  	 TbHoraria -> FieldDefs -> Add("Mes",                ftSmallint, 0, false );
+  	 TbHoraria -> FieldDefs -> Add("Anyo",               ftSmallint, 0, false );
+
+  	 TbHoraria -> FieldDefs -> Add("idSector",           ftInteger,  0, false );
+  	 TbHoraria -> FieldDefs -> Add("idPersonal",         ftInteger,  0, false );
+
+
+     for( int i=1; i<=31; i++ )
+       TbHoraria -> FieldDefs -> Add(AnsiString("idTurno_Dia"+AnsiString( i )), ftInteger, 0, false );
+
+     TbHoraria -> IndexDefs-> Clear();
+
+     TIndexOptions MyIndexOptions;
+     MyIndexOptions << ixPrimary << ixUnique;
+	 TbHoraria->IndexDefs->Add("Primary", "idHorario;Mes;Anyo", MyIndexOptions);
+	 TbHoraria->IndexDefs->Add("IdxSector", "idSector", TIndexOptions() << ixCaseInsensitive  );
+
+	 // Creamos la base...
+	 TbHoraria -> CreateTable();
+ }
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::FormCreate(TObject *Sender)
+{
+  int i;
+  for ( i=0; i<96; i++ )
+  {
+//    TSpeedButton *CfgTurnos[96];
+   CfgTurnos[i] = new TShape(this);
+
+   CfgTurnos[i]->Width = 9;
+   CfgTurnos[i]->Height = 16;
+
+   CfgTurnos[i]->Top  = 40 + ( i < 48 ? 0 : CfgTurnos[i]->Height + 5 );
+   CfgTurnos[i]->Left = ( i < 48 ? i : i-48 )*(CfgTurnos[i]->Width - 1) + 24;
+
+   CfgTurnos[i]->OnMouseDown = CfgTurnosMouseUp;
+
+   Pizarra->InsertControl( CfgTurnos[i] );
+
+//    TLabel *LblTurnos[96];
+   if ( i < 48 && (i%4)==0 )
+   {
+     LblTurnos[i/4] = new TLabel(this);
+
+     LblTurnos[i/4]->Top  = 24 + ( i < 48 ? 0 : CfgTurnos[i]->Height + 5 );
+     LblTurnos[i/4]->Left = ( i < 48 ? i : i-48 )*(CfgTurnos[i]->Width - 1) + 24 - ( (i/4)<9 ? 0 : 5 );
+
+     LblTurnos[i/4]->Caption = AnsiString( (i/4)+1 );
+
+     Pizarra->InsertControl( LblTurnos[i/4] );
+   }
+
+  }
+
+ TbSectores->Active = true;
+ TbTurnos->Active = true;
+ TbPersonal->Active = true;
+ TbHoraria->Active = true;
+/*
+ try {
+     DBLookupComboBox1->Text = TbSectores->FieldByName( "NSector" )->AsString;
+ }catch(...)
+ {
+     // do nothing...
+ }
+*/ 
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::FormDestroy(TObject *Sender)
+{
+  int i;
+  for ( i=0; i<96; i++ )
+   delete CfgTurnos[i];
+
+  for ( i=0; i<12; i++ )
+   delete LblTurnos[i];
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::CfgTurnosMouseUp(TObject *Sender,
+      TMouseButton Button, TShiftState Shift, int X, int Y)
+{
+   int i;
+   for ( i=0; i<96; i++ )
+   {
+     if ( Sender == CfgTurnos[i] )
+     {
+        #define TurnoX TbTurnos->FieldByName( "HTurnoP" + AnsiString( i / 32 ) )->AsInteger
+        #define Mask   ( 0x01 << ( i % 32 ) )
+        #define TurnoX1 TbTurnos->FieldByName( "HTurnoP" + AnsiString( i / 32 ) )->AsFloat
+        TbTurnos->Edit();
+        TurnoX1 = ( (TurnoX & ~Mask ) | ( !( TurnoX & Mask ) << ( i % 32 ) ) );
+        TbTurnos->Post();
+//        CfgTurnos[i]->Brush->Color = ( TurnoX & Mask ) ? clRed : clWhite;
+        break;
+     }
+   }
+}
+//---------------------------------------------------------------------------
+void __fastcall TTurnos::DsTurnosDataChange(TObject *Sender, TField *Field)
+{
+  int i;
+
+  if ( PageControl1->ActivePage == TabSheet2 )
+  {
+      // Indicador de FichaActual / Num.Fichas
+      if ( TbTurnos -> RecNo > 0 && TbTurnos -> RecordCount > 0 )
+      {
+       BarraEstado2 = Format( "C: %d / %d", OPENARRAY(TVarRec, (TbTurnos -> RecNo, TbTurnos -> RecordCount)) );
+       for ( i=0; i<96; i++ )
+          CfgTurnos[i]->Brush->Color = ( TurnoX & Mask ) ? clRed : clWhite;
+      } else {
+       BarraEstado2 = Format( "C: ¿Nuevo? / %d", OPENARRAY(TVarRec, (TbTurnos -> RecordCount) ) );
+      }
+  }
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::DsSectoresDataChange(TObject *Sender,
+      TField *Field)
+{
+  // Indicador de FichaActual / Num.Fichas
+  if ( TbSectores -> RecNo > 0 && TbSectores -> RecordCount > 0 )
+  {
+   BarraEstado2 = Format( "C: %d / %d", OPENARRAY(TVarRec, (TbSectores -> RecNo, TbSectores -> RecordCount)) );
+  } else {
+   BarraEstado2 = Format( "C: ¿Nuevo? / %d", OPENARRAY(TVarRec, (TbSectores -> RecordCount) ) );
+  }
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::TbTurnosBeforeInsert(TDataSet *DataSet)
+{
+  if ( !( TbSectores -> RecNo > 0 && TbSectores -> RecordCount > 0 ) )
+  {
+//   MessageBox( 0, "¿ No cree que debería crear,\no seleccionar una factura nueva,\nantes de agregar datos de compra?.", "¡ Atención !", MB_OK );
+   Abort();
+  } else {
+   for (int i=0; i<96; i++)
+      CfgTurnos[i]->Brush->Color = clWhite;
+  }
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::DBGrid2DrawColumnCell(TObject *Sender,
+      const TRect &Rect, int DataCol, TColumn *Column,
+      TGridDrawState State)
+{
+  // Precisa seguimiento ¿?
+  if ( Column -> ID == 2 )
+  {
+    int i, AnchoT, AltoT;
+    TRect RectT;
+
+
+    AnchoT = ((Rect.Right-Rect.Left) / 48);
+    #define DESPLAZAM_CENTRO ((Rect.Right-Rect.Left)-(AnchoT*48))/2
+
+    RectT = Rect;
+    RectT.Top++;
+    RectT.Left += DESPLAZAM_CENTRO;
+    RectT.Right+= DESPLAZAM_CENTRO;
+
+
+    RectT.Right = RectT.Left;
+    AltoT  = (Rect.Bottom-Rect.Top-1)/2;
+    RectT.Bottom -= AltoT;
+
+    DBGrid2 -> Canvas -> Pen -> Color = clBlack;
+
+    if ( AnchoT > 0 )
+    {
+        for ( i=0; i<96; i++ )
+        {
+         if ( i == 48 ) { RectT.Top = RectT.Bottom; RectT.Bottom = Rect.Bottom; RectT.Left = Rect.Left+DESPLAZAM_CENTRO;RectT.Right = Rect.Left+DESPLAZAM_CENTRO; }
+         RectT.Left  = RectT.Right;
+         RectT.Right += AnchoT;
+         DBGrid2 -> Canvas -> Brush -> Color = ( TurnoX & Mask ) ? clRed : clWhite;
+         DBGrid2 -> Canvas -> FillRect( RectT );
+         // Dibujamos las marcas horarias...
+         if ( (i%4)==0 )
+         {
+            DBGrid2 -> Canvas -> MoveTo( RectT.Left, RectT.Top+1 );
+            DBGrid2 -> Canvas -> LineTo( RectT.Left, RectT.Bottom );
+         }
+         if ( (i%24)==0 && i!=0 && i!=48 )
+         {
+            DBGrid2 -> Canvas -> MoveTo( RectT.Left+1, RectT.Top+1 );
+            DBGrid2 -> Canvas -> LineTo( RectT.Left+1, RectT.Bottom );
+         }
+        }
+        DBGrid2 -> Canvas -> MoveTo( Rect.Left+DESPLAZAM_CENTRO, RectT.Top );
+        DBGrid2 -> Canvas -> LineTo( RectT.Right,RectT.Top );
+
+        DBGrid2 -> Canvas -> MoveTo( Rect.Left+DESPLAZAM_CENTRO, Rect.Top+1 );
+        DBGrid2 -> Canvas -> LineTo( RectT.Right,Rect.Top+1 );
+        DBGrid2 -> Canvas -> LineTo( RectT.Right,RectT.Bottom );
+        DBGrid2 -> Canvas -> LineTo( Rect.Left+DESPLAZAM_CENTRO,RectT.Bottom );
+        DBGrid2 -> Canvas -> LineTo( Rect.Left+DESPLAZAM_CENTRO,Rect.Top+1 );
+
+    }
+
+  }
+
+
+//      DBGrid1 -> Canvas -> StretchDraw( Rect, BtmOK );
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::FormResize(TObject *Sender)
+{
+ int Separacion;
+
+ Separacion = ((Pizarra->Width - (47*(Shape1->Width - 1) + Shape1->Left))/12)-1;
+
+
+
+ for ( int i = 0; i < 96; i++ )
+ {
+   CfgTurnos[i]->Width  = Shape1->Width;
+   CfgTurnos[i]->Height = Shape1->Height;
+
+   CfgTurnos[i]->Top  = (i<48?Shape1->Top:Shape2->Top);//Shape1->Top + ( i < 48 ? 0 : CfgTurnos[i]->Height + 5 );
+   CfgTurnos[i]->Left = ( i < 48 ? i : i-48 )*(CfgTurnos[i]->Width - 1) + Shape1->Left + (((i%48)/4)*Separacion);
+
+   if ( i < 48 && (i%4)==0 )
+   {
+     LblTurnos[i/4]->Top  = Label3->Top;
+     LblTurnos[i/4]->Left = i *(CfgTurnos[i]->Width - 1) + Label3->Left - ( (i/4)<9 ? 0 : ((Label3->Width*5)/CfgTurnos[i]->Width) ) + (((i%48)/4)*Separacion);
+   }
+ }
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::TbPersonalBeforeInsert(TDataSet *DataSet)
+{
+  if ( !( TbSectores -> RecNo > 0 && TbSectores -> RecordCount > 0 ) )
+  {
+//   MessageBox( 0, "¿ No cree que debería crear,\no seleccionar una factura nueva,\nantes de agregar datos de compra?.", "¡ Atención !", MB_OK );
+   Abort();
+  }
+}
+//---------------------------------------------------------------------------
+
+
+void __fastcall TTurnos::PageControl1Change(TObject *Sender)
+{
+  TWinControl *HookP;
+
+  // Reasignamos los marcadores de hora...
+  if ( PageControl1->ActivePage == TabSheet1 ||
+       PageControl1->ActivePage == TabSheet2   )
+  {
+     HookP = PageControl1->ActivePage == TabSheet1 ? Pizarra2 : Pizarra;
+     for ( int i = 0; i < 96; i++ )
+     {
+       CfgTurnos[i]->Parent  = HookP;
+       if ( i < 48 && (i%4)==0 )
+         LblTurnos[i/4]->Parent = HookP;
+     }
+
+     for ( int i=0; i<96; i++ )
+       CfgTurnos[i]->Brush->Color = clWhite;
+  }
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::TbHorariaCalcFields(TDataSet *DataSet)
+{
+ TbHoraria->FieldByName("Prsnl_CltNombApll")->AsString =
+   TbHoraria->FieldByName("Prsnl_Nombre")->AsString +
+   TbHoraria->FieldByName("Prsnl_Apellidos")->AsString;
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TTurnos::DBGrid4DrawColumnCell(TObject *Sender,
+      const TRect &Rect, int DataCol, TColumn *Column,
+      TGridDrawState State)
+{
+  if ( State.Contains(gdFixed) && Column->ID > 1 )
+  {
+    Column->Title->Caption = "Día "+Column->ID;
+  }
+}
+//---------------------------------------------------------------------------
+

CfgTurnos.h

@@ -0,0 +1,136 @@
+//---------------------------------------------------------------------------
+#ifndef CfgTurnosH
+#define CfgTurnosH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <Db.hpp>
+#include <DBTables.hpp>
+#include <Buttons.hpp>
+#include <ComCtrls.hpp>
+#include <ToolWin.hpp>
+#include <ExtCtrls.hpp>
+#include <DBGrids.hpp>
+#include <Grids.hpp>
+#include <DBCtrls.hpp>
+//---------------------------------------------------------------------------
+class TTurnos : public TForm
+{
+__published:	// IDE-managed Components
+    TTable *TbTurnos;
+    TStatusBar *StatusBar1;
+    TPageControl *PageControl1;
+    TTabSheet *TabSheet1;
+    TTabSheet *TabSheet2;
+    TPanel *Panel1;
+    TTable *TbSectores;
+    TSplitter *Splitter1;
+    TPanel *Panel2;
+    TDBGrid *DBGrid1;
+    TPanel *Pizarra;
+    TDBGrid *DBGrid2;
+    TDataSource *DsSectores;
+    TDataSource *DsTurnos;
+    TShape *Shape1;
+    TLabel *Label1;
+    TLabel *Label2;
+    TShape *Shape2;
+    TLabel *Label3;
+    TTabSheet *TabSheet3;
+    TPanel *Panel3;
+    TDBGrid *DBGrid3;
+    TTable *TbPersonal;
+    TDataSource *DsPersonal;
+    TLabel *Label4;
+    TDBLookupComboBox *DBLookupComboBox1;
+    TPanel *Panel4;
+    TLabel *Label5;
+    TDBLookupComboBox *DBLookupComboBox2;
+    TDBGrid *DBGrid4;
+    TPanel *Pizarra2;
+    TShape *Shape3;
+    TLabel *Label6;
+    TLabel *Label7;
+    TShape *Shape4;
+    TLabel *Label8;
+    TTable *TbHoraria;
+    TDataSource *DsHoraria;
+    TComboBox *Meses;
+    TComboBox *Anyos;
+    TBitBtn *BitBtn1;
+    TAutoIncField *TbHorariaidHorario;
+    TSmallintField *TbHorariaMes;
+    TSmallintField *TbHorariaAnyo;
+    TIntegerField *TbHorariaidSector;
+    TIntegerField *TbHorariaidPersonal;
+    TIntegerField *TbHorariaidTurno_Dia1;
+    TIntegerField *TbHorariaidTurno_Dia2;
+    TIntegerField *TbHorariaidTurno_Dia3;
+    TIntegerField *TbHorariaidTurno_Dia4;
+    TIntegerField *TbHorariaidTurno_Dia5;
+    TIntegerField *TbHorariaidTurno_Dia6;
+    TIntegerField *TbHorariaidTurno_Dia7;
+    TIntegerField *TbHorariaidTurno_Dia8;
+    TIntegerField *TbHorariaidTurno_Dia9;
+    TIntegerField *TbHorariaidTurno_Dia10;
+    TIntegerField *TbHorariaidTurno_Dia11;
+    TIntegerField *TbHorariaidTurno_Dia12;
+    TIntegerField *TbHorariaidTurno_Dia13;
+    TIntegerField *TbHorariaidTurno_Dia14;
+    TIntegerField *TbHorariaidTurno_Dia15;
+    TIntegerField *TbHorariaidTurno_Dia16;
+    TIntegerField *TbHorariaidTurno_Dia17;
+    TIntegerField *TbHorariaidTurno_Dia18;
+    TIntegerField *TbHorariaidTurno_Dia19;
+    TIntegerField *TbHorariaidTurno_Dia20;
+    TIntegerField *TbHorariaidTurno_Dia21;
+    TIntegerField *TbHorariaidTurno_Dia22;
+    TIntegerField *TbHorariaidTurno_Dia23;
+    TIntegerField *TbHorariaidTurno_Dia24;
+    TIntegerField *TbHorariaidTurno_Dia25;
+    TIntegerField *TbHorariaidTurno_Dia26;
+    TIntegerField *TbHorariaidTurno_Dia27;
+    TIntegerField *TbHorariaidTurno_Dia28;
+    TIntegerField *TbHorariaidTurno_Dia29;
+    TIntegerField *TbHorariaidTurno_Dia30;
+    TIntegerField *TbHorariaidTurno_Dia31;
+    TStringField *TbHorariaPrsnl_Nombre;
+    TStringField *TbHorariaPrsnl_Apellidos;
+    TStringField *TbHorariaPrsnl_CltNombApll;
+    void __fastcall TbTurnosBeforeOpen(TDataSet *DataSet);
+    
+    void __fastcall TbSectoresBeforeOpen(TDataSet *DataSet);
+    void __fastcall FormCreate(TObject *Sender);
+    void __fastcall FormDestroy(TObject *Sender);
+    
+    void __fastcall DsTurnosDataChange(TObject *Sender, TField *Field);
+    void __fastcall DsSectoresDataChange(TObject *Sender, TField *Field);
+    void __fastcall TbTurnosBeforeInsert(TDataSet *DataSet);
+    void __fastcall DBGrid2DrawColumnCell(TObject *Sender,
+          const TRect &Rect, int DataCol, TColumn *Column,
+          TGridDrawState State);
+    void __fastcall FormResize(TObject *Sender);
+    void __fastcall TbPersonalBeforeOpen(TDataSet *DataSet);
+    void __fastcall TbPersonalBeforeInsert(TDataSet *DataSet);
+    
+    void __fastcall PageControl1Change(TObject *Sender);
+    void __fastcall TbHorariaBeforeOpen(TDataSet *DataSet);
+    void __fastcall TbHorariaCalcFields(TDataSet *DataSet);
+    void __fastcall DBGrid4DrawColumnCell(TObject *Sender,
+          const TRect &Rect, int DataCol, TColumn *Column,
+          TGridDrawState State);
+private:	// User declarations
+    TShape *CfgTurnos[96];
+    TLabel *LblTurnos[12];
+    void __fastcall CfgTurnosMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
+
+
+public:		// User declarations
+    __fastcall TTurnos(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TTurnos *Turnos;
+//---------------------------------------------------------------------------
+#endif

Horarios.bpr

@@ -0,0 +1,109 @@
+<?xml version='1.0' encoding='utf-8' ?>
+<!-- C++Builder XML Project -->
+<PROJECT>
+  <MACROS>
+    <VERSION value="BCB.05.03"/>
+    <PROJECT value="Horarios.exe"/>
+    <OBJFILES value="Horarios.obj CfgTurnos.obj"/>
+    <RESFILES value="Horarios.res"/>
+    <IDLFILES value=""/>
+    <IDLGENFILES value=""/>
+    <DEFFILE value=""/>
+    <RESDEPEN value="$(RESFILES) CfgTurnos.dfm"/>
+    <LIBFILES value=""/>
+    <LIBRARIES value="vclx50.lib vclbde50.lib vcldb50.lib vcl50.lib"/>
+    <SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib vclx50.lib"/>
+    <PACKAGES value="vclx50.bpi vcl50.bpi vcldb50.bpi vclbde50.bpi vcldbx50.bpi bcbsmp50.bpi 
+      dclocx50.bpi qrpt50.bpi teeui50.bpi vclsmp50.bpi teedb50.bpi tee50.bpi 
+      ibsmp50.bpi nmfast50.bpi inetdb50.bpi inet50.bpi"/>
+    <PATHCPP value=".;"/>
+    <PATHPAS value=".;"/>
+    <PATHRC value=".;"/>
+    <PATHASM value=".;"/>
+    <DEBUGLIBPATH value="$(BCB)\lib\debug"/>
+    <RELEASELIBPATH value="$(BCB)\lib\release"/>
+    <LINKER value="ilink32"/>
+    <USERDEFINES value=""/>
+    <SYSDEFINES value="NO_STRICT"/>
+    <MAINSOURCE value="Horarios.cpp"/>
+    <INCLUDEPATH value="..\componentes\cdopping;$(BCB)\include;$(BCB)\include\vcl"/>
+    <LIBPATH value="..\componentes\cdopping;..\componentes;&quot;..\jd soft&quot;;$(BCB)\lib\obj;$(BCB)\lib"/>
+    <WARNINGS value="-w-par -w-8027 -w-8026"/>
+    <WARNOPTSTR value=""/>
+  </MACROS>
+  <OPTIONS>
+    <IDLCFLAGS value="-I..\componentes\cdopping -I$(BCB)\include -I$(BCB)\include\vcl 
+      -src_suffix cpp -boa"/>
+    <CFLAG1 value="-Od -H=c:\PROGRAM\CBUILDER\CBUILD~1\lib\vcl35.csm -Hc -Vx -Ve -Tkh30000 
+      -X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM"/>
+    <CFLAG2 value=""/>
+    <CFLAG3 value=""/>
+    <PFLAGS value="-$YD -$W -$O- -v -M -JPHNE"/>
+    <RFLAGS value=""/>
+    <AFLAGS value="/mx /w2 /zd"/>
+    <LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
+    <IFLAGS value=""/>
+  </OPTIONS>
+  <LINKER>
+    <ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
+    <ALLRES value="$(RESFILES)"/>
+    <ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
+  </LINKER>
+  <IDEOPTIONS>
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
+[Excluded Packages]
+C:\Mis documentos\Fuentes de Programacion\C++ Builder\VCLs\Bpl\QSElFrm.bpl=d:\program files\borland\cbuilder5\Projects\Bpl\qselfrm
+$(BCB)\Projects\Bpl\Dialup.bpl=RAS Tools
+
+[Debugging]
+DebugSourceDirs=$(BCB)\source\vcl
+
+[Parameters]
+RunParams=
+HostApplication=
+RemoteHost=
+RemotePath=
+RemoteDebug=0
+
+[Compiler]
+ShowInfoMsgs=0
+LinkDebugVcl=0
+LinkCGLIB=0
+
+[CORBA]
+AddServerUnit=1
+AddClientUnit=1
+PrecompiledHeaders=1
+
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+  </IDEOPTIONS>
+</PROJECT>

Horarios.cpp

@@ -0,0 +1,22 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+USERES("Horarios.res");
+USEFORM("CfgTurnos.cpp", Turnos);
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+    try
+    {
+        Application->Initialize();
+        Application->Title = "Gestor de  Horarios";
+        Application->CreateForm(__classid(TTurnos), &Turnos);
+        Application->Run();
+    }
+    catch (Exception &exception)
+    {
+        Application->ShowException(&exception);
+    }
+    return 0;
+}
+//---------------------------------------------------------------------------

README.md

@@ -0,0 +1,9 @@
+#Horarios 
+ 
+ 
+*11/12/1999* 
+ 
+ToDo: wwtcf? 
+ 
+ 
+![screenshot](/Horarios.png "Screenshot")