62 lines
2.4 KiB
C++
62 lines
2.4 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#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;
|
|
}
|
|
//---------------------------------------------------------------------------
|