CPP_Builder/TPVwin
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 14/02/1999

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:19:30 +02:00
commit d031fca570
464 changed files with 22399 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
TPV.cpp Normal file
View File

@ -0,0 +1,61 @@
//---------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------