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

#include <vcl.h>
#pragma hdrstop
USERES("TPV.res");
USEFORM("Inicio1.cpp", MenuInicio);
USEFORM("Inicializador.cpp", InitBDE);
USEFORM("TDlgBuscar.cpp", DlgBuscar);
USEFORM("TpvProductos.cpp", Productos);
USEFORM("TpvProductosPrint1.cpp", InformesProducto);
USEFORM("TpvRefQRs.cpp", RefQR);
USEFORM("TpvRefQRc.cpp", RefQRc);
USEFORM("TpvStockActual1.cpp", StockActual);
USEFORM("TpvStockQR.cpp", StockQR);
USEFORM("TpvVentas.cpp", Ventas);
USEFORM("TpvVntFctPrint.cpp", QRMDFacturaVnt); /* TQuickRep: File Type */
USEFORM("TpvVntAlbPrint.cpp", QRMDFacturaVnt1); /* TQuickRep: File Type */
USEFORM("TpvCmp.cpp", TpvCmp1);
USEFORM("TpvVntProd.cpp", VntProd);
USEFORM("TpvVntGeneral.cpp", VntGeneral);
USEFORM("TpvBlcDVnt.cpp", TpvBlDVnt);
USEFORM("TpvVntEmpl.cpp", VntEmpl);
USEFORM("TpvVntCltQR.cpp", VntCltQR);
USEFORM("TpvBlcMVnt.cpp", BlMVnt);
USEFORM("TpvCFG.cpp", CFG);
USEFORM("TpvCmpProv.cpp", CmpProv);
USEFORM("TpvVntClt.cpp", VntClt);
USEFORM("TpvBlcM_PrintFact.cpp", QRListadoFacturas); /* TQuickRep: File Type */
USEFORM("TpvBlcD_Print.cpp", QRBlcD_Print); /* TQuickRep: File Type */
USEFORM("TpvAccessControl.cpp", AccessControl);
USEFORM("TpvSelectActiveUser.cpp", ChangeUserName);
USEFORM("TpvRefBarras.cpp", RefBarras);
USEFORM("TpvVntProdQR.cpp", QRVntProd);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
  AnsiString FsMutex = DateToStr(TDateTime::CurrentDate()) + AnsiString("Check-other-tpv-instances");
  HANDLE FhMutex = OpenMutex(MUTEX_ALL_ACCESS,False, FsMutex.c_str() );
  if ( FhMutex == 0 ) //it's a first instance
  {
//    if ( InputBox( "Registrando acceso...", "Usuario:", "-- -- --" ) != ((TDateTime::CurrentTime()).TimeString()).SubString(4, 2) )
//        return 0;
    FhMutex = CreateMutex(NULL,false, FsMutex.c_str() );
        try
        {
                 Application->Initialize();
                 Application->Title = "TPV win";
                 Application->CreateForm(__classid(TMenuInicio), &MenuInicio);
                 Application->CreateForm(__classid(TCFG), &CFG);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
  } else {
    if ( CloseHandle(FhMutex) ) FhMutex = 0;
  }
        return 0;
}
//---------------------------------------------------------------------------