Source code of file oscpmwin_v0.1.1.652/main.pas from the
osCommerce Product Manager for Windows.


0000:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001:   osCommerce Product Manager for Windows (oscpmwin).
0002:   0003:   
0004:   You can contact Mario A. Valdez-Ramirez
0005:   by email at mario@mariovaldez.org or paper mail at
0006:   Olmos 809, San Nicolas, NL. 66495, Mexico.
0007:   
0008:   This program is free software; you can redistribute it and/or modify
0009:   it under the terms of the GNU General Public License as published by
0010:   the Free Software Foundation; either version 2 of the License, or (at
0011:   your option) any later version.
0012:   
0013:   This program is distributed in the hope that it will be useful, but
0014:   WITHOUT ANY WARRANTY; without even the implied warranty of
0015:   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0016:   General Public License for more details.
0017:   
0018:   You should have received a copy of the GNU General Public License
0019:   along with this program; if not, write to the Free Software
0020:   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0021:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0022:   UNIT main;
0023:   
0024:   INTERFACE
0025:   
0026:   USES
0027:     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
0028:     ToolWin, ComCtrls, DB, ExtCtrls, Menus, StdCtrls, Grids,
0029:     DBGrids, DBTables, ImgList, Buttons, clipbrd, oscpmdata, Dialogs, ShlObj, modules,
0030:     FR_Class, FR_DSet;
0031:   
0032:   TYPE
0033:     Topm_Form_Main = CLASS (TForm)
0034:       N1: TMenuItem;
0035:       N2: TMenuItem;
0036:       N3: TMenuItem;
0037:       N4: TMenuItem;
0038:       N8: TMenuItem;
0039:       opm_DBGrid_DEBUG: TDBGrid;
0040:       opm_DataSource_DEBUG: TDataSource;
0041:       opm_ImageList_List: TImageList;
0042:       opm_ImageList_Status: TImageList;
0043:       opm_ImageList_Tree: TImageList;
0044:       opm_Image_Status: TImage;
0045:       opm_ListView_Main: TListView;
0046:       opm_MainMenu_Main: TMainMenu;
0047:       opm_MenuItem_About: TMenuItem;
0048:       opm_MenuItem_Catalog: TMenuItem;
0049:       opm_MenuItem_Config: TMenuItem;
0050:       opm_MenuItem_Connect: TMenuItem;
0051:       opm_MenuItem_Database: TMenuItem;
0052:       opm_MenuItem_Disconnect: TMenuItem;
0053:       opm_MenuItem_Exit: TMenuItem;
0054:       opm_MenuItem_Help: TMenuItem;
0055:       opm_MenuItem_License: TMenuItem;
0056:       opm_MenuItem_Product: TMenuItem;
0057:       opm_MenuItem_ProductAdd: TMenuItem;
0058:       opm_MenuItem_ProductCopyAsText: TMenuItem;
0059:       opm_MenuItem_ProductDel: TMenuItem;
0060:       opm_MenuItem_ProductEdit: TMenuItem;
0061:       opm_MenuItem_ProductExport: TMenuItem;
0062:       opm_MenuItem_ProductSelAll: TMenuItem;
0063:       opm_MenuItem_RefreshCategories: TMenuItem;
0064:       opm_MenuItem_RefreshProducts: TMenuItem;
0065:       opm_MenuItem_SearchProduct: TMenuItem;
0066:       opm_Panel_DEBUG: TPanel;
0067:       opm_Panel_Main: TPanel;
0068:       opm_PopMenuItem_CatCollapse2: TMenuItem;
0069:       opm_PopMenuItem_CatCollapse: TMenuItem;
0070:       opm_PopMenuItem_CatExpand2: TMenuItem;
0071:       opm_PopMenuItem_CatExpand: TMenuItem;
0072:       opm_PopMenuItem_ConnConn: TMenuItem;
0073:       opm_PopMenuItem_ConnDisconn: TMenuItem;
0074:       opm_PopMenuItem_HideDebug: TMenuItem;
0075:       opm_PopMenuItem_PAdd: TMenuItem;
0076:       opm_PopMenuItem_PAvailability: TMenuItem;
0077:       opm_PopMenuItem_PAvailable: TMenuItem;
0078:       opm_PopMenuItem_PCat: TMenuItem;
0079:       opm_PopMenuItem_PCopyAsText: TMenuItem;
0080:       opm_PopMenuItem_PDelete: TMenuItem;
0081:       opm_PopMenuItem_PEdit: TMenuItem;
0082:       opm_PopMenuItem_PExport: TMenuItem;
0083:       opm_PopMenuItem_PMan: TMenuItem;
0084:       opm_PopMenuItem_PMod: TMenuItem;
0085:       opm_PopMenuItem_PModel: TMenuItem;
0086:       opm_PopMenuItem_PNotAvailable: TMenuItem;
0087:       opm_PopMenuItem_PPrice: TMenuItem;
0088:       opm_PopMenuItem_PQuantity: TMenuItem;
0089:       opm_PopMenuItem_PSelAll: TMenuItem;
0090:       opm_PopMenuItem_PSpecial: TMenuItem;
0091:       opm_PopMenuItem_PWeight: TMenuItem;
0092:       opm_PopupMenu_CatList: TPopupMenu;
0093:       opm_PopupMenu_Connection: TPopupMenu;
0094:       opm_PopupMenu_Debug: TPopupMenu;
0095:       opm_PopupMenu_PList: TPopupMenu;
0096:       opm_ProgressBar_Main: TProgressBar;
0097:       opm_ProgressBar_Sec: TProgressBar;
0098:       opm_SaveDialog_Export: TSaveDialog;
0099:       opm_Splitter_Debug: TSplitter;
0100:       opm_Splitter_Main: TSplitter;
0101:       opm_StatusBar_Main: TStatusBar;
0102:       opm_TreeView_Main: TTreeView;
0103:       opm_MenuItem_Tools: TMenuItem;
0104:       opm_MenuItem_ExternalModules: TMenuItem;
0105:       N7: TMenuItem;
0106:       opm_PopMenuItem_CatRename: TMenuItem;
0107:       opm_PopMenuItem_PPrint: TMenuItem;
0108:       opm_MenuItem_ProductPrint: TMenuItem;
0109:       opm_PrintDialog_Print: TPrintDialog;
0110:       opm_frReport_ProdList: TfrReport;
0111:       opm_frUserDataset_ProdList: TfrUserDataset;
0112:       opm_PopMenuItem_PCopyAsPre: TMenuItem;
0113:       opm_MenuItem_ProductCopyAsPre: TMenuItem;
0114:       opm_MenuItem_ProductCopy: TMenuItem;
0115:       opm_PopMenuItem_PCopy: TMenuItem;
0116:       opm_PopMenuItem_CatDelete: TMenuItem;
0117:       opm_PopMenuItem_CatAdd: TMenuItem;
0118:       opm_ImageList_Toolbar: TImageList;
0119:       opm_ToolBar_Main: TToolBar;
0120:       opm_ToolButton_Connect: TToolButton;
0121:       opm_ToolButton_Disconnect: TToolButton;
0122:       opm_ToolButton_Config: TToolButton;
0123:       opm_ToolButton_Refresh: TToolButton;
0124:       opm_ToolButton_AddProduct: TToolButton;
0125:       opm_ToolButton_EditProduct: TToolButton;
0126:       opm_ToolButton_Search: TToolButton;
0127:       opm_ToolButton_Sep3: TToolButton;
0128:       opm_ToolButton_Sep4: TToolButton;
0129:       opm_ToolButton_Sep6: TToolButton;
0130:       opm_ToolButton_DeleteProduct: TToolButton;
0131:       opm_Panel_ToolbarLanguage: TPanel;
0132:       opm_ToolButton_Sep1: TToolButton;
0133:       opm_ComboBox_DisplayLang: TComboBox;
0134:       opm_ToolButton_Exit: TToolButton;
0135:       opm_ToolButton_ExportProduct: TToolButton;
0136:       opm_ToolButton_PrintProduct: TToolButton;
0137:       opm_ToolButton_AddCat: TToolButton;
0138:       opm_ToolButton_RenCat: TToolButton;
0139:       opm_ToolButton_DelCat: TToolButton;
0140:       opm_ToolButton_Sep2: TToolButton;
0141:       N5: TMenuItem;
0142:       opm_MenuItem_CategoryAdd: TMenuItem;
0143:       opm_MenuItem_CategoryDelete: TMenuItem;
0144:       opm_MenuItem_CategoryRename: TMenuItem;
0145:       opm_ImageList_MainMenu: TImageList;
0146:       opm_Panel_ToolbarQuickSearch: TPanel;
0147:       Sep7: TToolButton;
0148:       opm_Edit_QuickSearch: TEdit;
0149:       opm_SpeedButton_QuickSearch: TSpeedButton;
0150:       opm_MenuItem_CheckUpdates: TMenuItem;
0151:       N6: TMenuItem;
0152:       N9: TMenuItem;
0153:       opm_MenuItem_ManAdd: TMenuItem;
0154:       opm_MenuItem_ManDelete: TMenuItem;
0155:       opm_MenuItem_ManRename: TMenuItem;
0156:       opm_MenuItem_Backup: TMenuItem;
0157:       procedure FormClose(Sender: TObject; var Action: TCloseAction);
0158:       procedure FormCreate(Sender: TObject);
0159:       procedure opm_ComboBox_DisplayLangSelect(Sender: TObject);
0160:       procedure opm_ListView_MainDblClick(Sender: TObject);
0161:       procedure opm_MenuItem_AboutClick(Sender: TObject);
0162:       procedure opm_MenuItem_ConfigClick(Sender: TObject);
0163:       procedure opm_MenuItem_ConnectClick(Sender: TObject);
0164:       procedure opm_MenuItem_DisconnectClick(Sender: TObject);
0165:       procedure opm_MenuItem_ExitClick(Sender: TObject);
0166:       procedure opm_MenuItem_LicenseClick(Sender: TObject);
0167:       procedure opm_MenuItem_RefreshCategoriesClick(Sender: TObject);
0168:       procedure opm_MenuItem_RefreshProductsClick(Sender: TObject);
0169:       procedure opm_MenuItem_SearchProductClick(Sender: TObject);
0170:       procedure opm_PopMenuItem_CatCollapse2Click(Sender: TObject);
0171:       procedure opm_PopMenuItem_CatCollapseClick(Sender: TObject);
0172:       procedure opm_PopMenuItem_CatExpand2Click(Sender: TObject);
0173:       procedure opm_PopMenuItem_CatExpandClick(Sender: TObject);
0174:       procedure opm_PopMenuItem_HideDebugClick(Sender: TObject);
0175:       procedure opm_PopMenuItem_PAddClick(Sender: TObject);
0176:       procedure opm_PopMenuItem_PAvailableClick(Sender: TObject);
0177:       procedure opm_PopMenuItem_PCatClick(Sender: TObject);
0178:       procedure opm_PopMenuItem_PCopyAsTextClick(Sender: TObject);
0179:       procedure opm_PopMenuItem_PDeleteClick(Sender: TObject);
0180:       procedure opm_PopMenuItem_PExportClick(Sender: TObject);
0181:       procedure opm_PopMenuItem_PManClick(Sender: TObject);
0182:       procedure opm_PopMenuItem_PModelClick(Sender: TObject);
0183:       procedure opm_PopMenuItem_PNotAvailableClick(Sender: TObject);
0184:       procedure opm_PopMenuItem_PPriceClick(Sender: TObject);
0185:       procedure opm_PopMenuItem_PQuantityClick(Sender: TObject);
0186:       procedure opm_PopMenuItem_PSelAllClick(Sender: TObject);
0187:       procedure opm_PopMenuItem_PSpecialClick(Sender: TObject);
0188:       procedure opm_PopMenuItem_PWeightClick(Sender: TObject);
0189:       procedure opm_TreeView_MainChange(Sender: TObject; Node: TTreeNode);
0190:       procedure opm_TreeView_MainCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
0191:       procedure opm_TreeView_MainContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
0192:       procedure opm_TreeView_MainDblClick(Sender: TObject);
0193:       procedure opm_TreeView_MainDragDrop(Sender, Source: TObject; X, Y: Integer);
0194:       procedure opm_TreeView_MainDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
0195:       procedure opm_TreeView_MainExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
0196:       procedure opm_TreeView_MainKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
0197:       procedure opm_TreeView_MainKeyPress(Sender: TObject; var Key: Char);
0198:       procedure opm_MenuItem_ExternalModulesClick(Sender: TObject);
0199:       procedure opm_PopMenuItem_CatRenameClick(Sender: TObject);
0200:       procedure opm_TreeView_MainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
0201:       procedure opm_ListView_MainColumnClick(Sender: TObject; Column: TListColumn);
0202:       procedure opm_PopMenuItem_PPrintClick(Sender: TObject);
0203:       procedure opm_frReport_ProdListGetValue(const ParName: String; var ParValue: Variant);
0204:       procedure opm_frUserDataset_ProdListCheckEOF(Sender: TObject; var Eof: Boolean);
0205:       procedure opm_frUserDataset_ProdListFirst(Sender: TObject);
0206:       procedure opm_frUserDataset_ProdListNext(Sender: TObject);
0207:       procedure opm_PopMenuItem_PCopyAsPreClick(Sender: TObject);
0208:       procedure FormShow(Sender: TObject);
0209:       procedure opm_PopMenuItem_CatDeleteClick(Sender: TObject);
0210:       procedure opm_PopMenuItem_CatAddClick(Sender: TObject);
0211:       procedure opm_ListView_MainKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
0212:       procedure opm_ListView_MainChange(Sender: TObject; Item: TListItem; Change: TItemChange);
0213:       procedure opm_SpeedButton_QuickSearchClick(Sender: TObject);
0214:       procedure opm_Edit_QuickSearchKeyPress(Sender: TObject; var Key: Char);
0215:       procedure opm_MenuItem_CheckUpdatesClick(Sender: TObject);
0216:       procedure opm_MenuItem_ManAddClick(Sender: TObject);
0217:       procedure opm_MenuItem_ManRenameClick(Sender: TObject);
0218:       procedure opm_MenuItem_ManDeleteClick(Sender: TObject);
0219:       procedure opm_MenuItem_BackupClick(Sender: TObject);
0220:     private
0221:       FUNCTION FNopm_Apply_Operation (SourceValue, Conversion: STRING; ValueType : INTEGER; AllowNegative : BOOLEAN) : STRING;
0222:       FUNCTION FNopm_GetProductByID (ProdID, LangID : LONGINT; VAR ProdList : opmT_ProductList) : opmR_Product;
0223:       FUNCTION FNopm_GetRealLangIDByIndex (VAR LangList : opmT_LanguageList; LangIndex : LONGINT) : LONGINT;
0224:       PROCEDURE PRopm_Update_StatusBar (ConnectedStat, ProgressStat, SecProgress : LONGINT; StatusString : STRING; ProductTotal : LONGINT; CurCurr : STRING);
0225:       PROCEDURE PRopm_AddCatTreeNode (VAR CatList : opmT_CategoryList; CatCurrentID : LONGINT; CurNode : TTreeNode; TreeDepth : INTEGER);
0226:       PROCEDURE PRopm_AddProduct (NewProdRecord : opmR_Product; SingleDescList : opmT_SingleDescList);
0227:       PROCEDURE PRopm_ClearCategoryList (VAR CatList : TStringList);
0228:       PROCEDURE PRopm_ClearLanguageList (VAR LangList : TStringList);
0229:       PROCEDURE PRopm_ClearManufacturerList (VAR ManList : TStringList);
0230:       PROCEDURE PRopm_ClearProductList (VAR ListView : TListView);
0231:       PROCEDURE PRopm_ClearTaxList (VAR TaxList : TStringList);
0232:       PROCEDURE PRopm_Disconnect;
0233:       PROCEDURE PRopm_Create_ExportList (VAR ExportString : STRING; VAR CatList : opmT_CategoryList; VAR ManList : opmT_ManufacturerList; JustifyCols : BOOLEAN);
0234:       PROCEDURE PRopm_DeleteProduct (ProdID : LONGINT);
0235:       PROCEDURE PRopm_LoadCategoryBoxList (VAR CatList : opmT_CategoryList; CatCurrentID, TreeDepth : LONGINT; VAR CatIndex : LONGINT; VAR CatBoxList : TStringList);
0236:       PROCEDURE PRopm_LoadCategoryList (VAR CatList : opmT_CategoryList; VAR CatBoxList : TStringList);
0237:       PROCEDURE PRopm_LoadConfiguration;
0238:       PROCEDURE PRopm_LoadLanguageList (VAR LangList : opmT_LanguageList);
0239:       PROCEDURE PRopm_LoadManufacturerList (VAR ManList : opmT_ManufacturerList; VAR ManBoxList : TStringList);
0240:       PROCEDURE PRopm_LoadProductListByCat (ProductCat : LONGINT; VAR ProdList : opmT_ProductList; VAR DescList : opmT_DescriptionList);
0241:       PROCEDURE PRopm_LoadTaxList (VAR TaxList : opmT_TaxList; VAR TaxBoxList : TStringList);
0242:       PROCEDURE PRopm_Connect;
0243:       PROCEDURE PRopm_RenderCategoryDisplay (VAR CatList : opmT_CategoryList; VAR TreeControl : TTreeView; CurCatID : LONGINT);
0244:       PROCEDURE PRopm_RenderLanguageDisplay (VAR ListControl : TComboBox; VAR LangList : opmT_LanguageList);
0245:       PROCEDURE PRopm_RenderProductDisplay (VAR CatList : opmT_CategoryList; VAR ManList : opmT_ManufacturerList; VAR ProdList : opmT_ProductList; VAR ListControl : TListView; CurProdID : LONGINT);
0246:       PROCEDURE PRopm_SaveConfiguration;
0247:       PROCEDURE PRopm_SearchProducts (PCategory, PManufacturer: LONGINT; PModel, PName, PDesc : STRING; PSPrice, PImgURL, PAvailable : LONGINT; VAR ProdList : opmT_ProductList; VAR DescList : opmT_DescriptionList; MultiString : STRING);
0248:       PROCEDURE PRopm_SetControls_Disconnected;
0249:       PROCEDURE PRopm_SetDisplay (RememberVisual : WORD);
0250:       PROCEDURE PRopm_SetControls_FullConnected;
0251:       PROCEDURE PRopm_SetUnknown;
0252:       PROCEDURE PRopm_UpdateProdData (ProdID : LONGINT; ProdTable, ProdField, ProdDataStr : STRING; PDataIsNum : BOOLEAN; SecIDField, SecIDData : STRING; SQLQueryType : INTEGER);
0253:       PROCEDURE PRopm_UpdateProduct (CurProdRecord, NewProdRecord : opmR_Product; SingleDescList : opmT_SingleDescList);
0254:       PROCEDURE PRopm_UpdateCatName (CatData : opmT_SingleCatList; TotalCats : LONGINT);
0255:       PROCEDURE PRopm_AddCategory (CatData : opmT_SingleCatList; TotalCats : LONGINT; ParentCat : LONGINT);
0256:       PROCEDURE PRopm_DeleteCategory (CatID : LONGINT);
0257:       PROCEDURE PRopm_ResetVars;
0258:       PROCEDURE PRopm_Valid_CatOps (WeAreConnected : BOOLEAN; SelectedCat : TTreeNode);
0259:       PROCEDURE PRopm_Valid_ProdOps (WeAreConnected : BOOLEAN; SelectedProduct : TListItem; SelectedProds : LONGINT; SelectedCat : TTreeNode);
0260:       PROCEDURE PRopm_Valid_GralOps (WeAreConnected : BOOLEAN);
0261:       FUNCTION FNopm_LoadCurrency : opmR_Currency;
0262:       FUNCTION FNopm_ClearCurrency : opmR_Currency;
0263:       PROCEDURE QuickSearch (QSString : STRING);
0264:     public
0265:       FUNCTION FNopm_GetCategory (VAR CatList : opmT_CategoryList; CatID : LONGINT; SearchBy : INTEGER) : opmR_Category;
0266:       FUNCTION FNopm_GetManufacturer (VAR ManList : opmT_ManufacturerList; ManID : LONGINT; SearchBy : INTEGER) : opmR_Manufacturer;
0267:       FUNCTION FNopm_GetDescriptionByID (ProdID, LangID : LONGINT; VAR DescList : opmT_DescriptionList) : opmR_Description;
0268:       PROCEDURE PRopm_SetUILang (LangISOID : STRING);
0269:       FUNCTION FNopm_Create_ExchangeList (VAR ExchangeList : opmT_ExchangeList; IndexData, TargetData : STRING) : LONGINT;
0270:       PROCEDURE PRopm_Reload_ProductList (SearchLoad : BOOLEAN);
0271:       PROCEDURE PRopm_GetCategory_Data (CatID : LONGINT; VAR CatData : opmT_SingleCatList);
0272:     end;
0273:   
0274:   
0275:   var
0276:     opm_Form_Main: Topm_Form_Main;
0277:   
0278:   
0279:   FUNCTION FNopm_Sort_ProductList (Item1, Item2: TListItem; Column: INTEGER) : INTEGER; STDCALL;
0280:   
0281:   implementation
0282:   
0283:   USES gnugettext, config, license, about, pedit, pimgzoom, search, askuser,
0284:        balloons, regconfig, attention, dataman, network, askupload, imageman, runmod,
0285:        colorsel, printers, strutils, math, askcat, ShellApi;
0286:   
0287:   {$R *.dfm}
0288:   
0289:   
0290:   
0291:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0292:   Enable/disable those controls valid when the client is
0293:   connected and the product list is downloaded.
0294:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0295:   PROCEDURE Topm_Form_Main.PRopm_SetControls_FullConnected;
0296:   BEGIN
0297:     IF (opmG_UseSSH > 0) THEN
0298:       PRopm_Update_StatusBar (opmC_ConnStatYesSSH, opmC_ProgressIgnore, opmC_ProgressIgnore, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code)
0299:     ELSE
0300:       PRopm_Update_StatusBar (opmC_ConnStatYes, opmC_ProgressIgnore, opmC_ProgressIgnore, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0301:     opm_ListView_Main.Enabled := TRUE;
0302:     opm_TreeView_Main.Enabled := TRUE;
0303:     opm_ComboBox_DisplayLang.Enabled := TRUE;
0304:     opm_WeAreConnected := TRUE;
0305:     PRopm_Valid_GralOps (opm_WeAreConnected);
0306:     PRopm_Valid_CatOps (opm_WeAreConnected, NIL);
0307:     PRopm_Valid_ProdOps (opm_WeAreConnected, NIL, 0, NIL);
0308:   END;
0309:   
0310:   
0311:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0312:   Enable/disable those controls valid when the client is
0313:   disconnected.
0314:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0315:   PROCEDURE Topm_Form_Main.PRopm_SetControls_Disconnected;
0316:   BEGIN
0317:     PRopm_Update_StatusBar (opmC_ConnStatNo, opmC_ProgressIgnore, opmC_ProgressIgnore, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0318:     opm_ListView_Main.Enabled := FALSE;
0319:     opm_TreeView_Main.Enabled := FALSE;
0320:     opm_ComboBox_DisplayLang.Enabled := FALSE;
0321:     opm_WeAreConnected := FALSE;
0322:     PRopm_Valid_GralOps (opm_WeAreConnected);
0323:     PRopm_Valid_CatOps (opm_WeAreConnected, NIL);
0324:     PRopm_Valid_ProdOps (opm_WeAreConnected, NIL, 0, NIL);
0325:   END;
0326:   
0327:   
0328:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0329:   Enable/disable those controls valid when the the state
0330:   of the client connection is unknown (or waiting for a
0331:   connection).
0332:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0333:   PROCEDURE Topm_Form_Main.PRopm_SetUnknown;
0334:   BEGIN
0335:     PRopm_Update_StatusBar (opmC_ConnStatUnknown, opmC_ProgressIgnore, opmC_ProgressIgnore, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0336:     opm_ListView_Main.Enabled := FALSE;
0337:     opm_TreeView_Main.Enabled := FALSE;
0338:     PRopm_Valid_GralOps (opm_WeAreConnected);
0339:     PRopm_Valid_CatOps (opm_WeAreConnected, NIL);
0340:     PRopm_Valid_ProdOps (opm_WeAreConnected, NIL, 0, NIL);
0341:   END;
0342:   
0343:   
0344:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0345:   Open a connection to the database server.
0346:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0347:   PROCEDURE Topm_Form_Main.PRopm_Connect;
0348:   VAR
0349:     StrResult : STRING;
0350:   BEGIN
0351:     StrResult := '';
0352:     PRopm_SetUnknown;
0353:     IF (opmG_DBStorePass = 0) THEN
0354:       BEGIN
0355:         opm_Form_AskUser.AU_Title := _('Connecting to database...');
0356:         opm_Form_AskUser.AU_Directions := _('Enter the database password');
0357:         opm_Form_AskUser.AU_TextOrList := TRUE;
0358:         opm_Form_AskUser.AU_PassChar := opmC_PasswordChar;
0359:         opm_Form_AskUser.AU_MaxLen := opmC_DBPassword_MaxLen;
0360:         opm_Form_AskUser.AU_DataText := opmG_DBPassword;
0361:         IF (opm_Form_AskUser.ShowModal = mrOk) THEN opmG_DBPassword := opm_Form_AskUser.AU_DataText ELSE opmG_DBPassword := '';
0362:         opm_Form_AskUser.AU_Title := _('Connecting to database...');
0363:         opm_Form_AskUser.AU_Directions := _('Enter the SSH password');
0364:         opm_Form_AskUser.AU_TextOrList := TRUE;
0365:         opm_Form_AskUser.AU_PassChar := opmC_PasswordChar;
0366:         opm_Form_AskUser.AU_MaxLen := opmC_DBPassword_MaxLen;
0367:         opm_Form_AskUser.AU_DataText := opmG_SSHPassword;
0368:         IF (opm_Form_AskUser.ShowModal = mrOk) THEN opmG_SSHPassword := opm_Form_AskUser.AU_DataText ELSE opmG_SSHPassword := '';
0369:       END;
0370:     Screen.Cursor := opmC_Wait_Mouse;
0371:     IF (opmG_UseSSH > 0) THEN
0372:       BEGIN
0373:         IF (FNopm_CheckStallTunnel = TRUE) THEN
0374:           BEGIN
0375:             IF (FNopm_Message (_('It seems there is already a SSH encrypted tunnel. Do you want to close it before creating a new one?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes) THEN
0376:               PRopm_StopExternalAppByName (opmC_Def_SSHExe);
0377:           END;
0378:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, opmC_ProgressIgnore, _('Creating SSH encrypted tunnel...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0379:         IF (FNopm_OpenSSHTunnel (opmC_Def_SSHLocalHost, opmG_DBHost, opmG_SSHLocalPort, opmG_DBPort, opmG_SSHUsername, opmG_SSHPassword, opmG_UISSHDebug) = FALSE) THEN
0380:           StrResult := _('Cannot connect SSH encrypted tunnel.');
0381:       END;
0382:     IF (StrResult = '') THEN
0383:       IF (opmG_UseSSH > 0) THEN
0384:         BEGIN
0385:           PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, opmC_ProgressIgnore, _('Connecting to database server...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0386:           StrResult := FNopm_OpenDBConnection (opmC_Def_SSHLocalHost, opmC_Def_SSHLocalPort, opmG_DBProtocol, opmG_DBDatabase, opmG_DBUsername, opmG_DBPassword, opmG_DBCompress);
0387:           IF (StrResult <> '') THEN PRopm_CloseSSHTunnel;
0388:         END
0389:       ELSE
0390:         BEGIN
0391:           PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, opmC_ProgressIgnore, _('Connecting to database server...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0392:           StrResult := FNopm_OpenDBConnection (opmG_DBHost, opmG_DBPort, opmG_DBProtocol, opmG_DBDatabase, opmG_DBUsername, opmG_DBPassword, opmG_DBCompress);
0393:         END;
0394:     Screen.Cursor := opmC_Normal_Mouse;
0395:     IF (StrResult = '') THEN
0396:       BEGIN
0397:         PRopm_ResetVars;
0398:         {PRopm_SetControls_FullConnected;}
0399:       END
0400:     ELSE
0401:       BEGIN
0402:         PRopm_SetControls_Disconnected;
0403:         FNopm_Message (StrResult, mtError, [mbOk], opmG_UISilent);
0404:       END;
0405:   END;
0406:   
0407:   
0408:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0409:   Closes the connection to the database server.
0410:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0411:   PROCEDURE Topm_Form_Main.PRopm_Disconnect;
0412:   VAR
0413:     StrResult : STRING;
0414:   BEGIN
0415:     PRopm_SetUnknown;
0416:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, opmC_ProgressIgnore, _('Disconnecting to database server...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0417:     Screen.Cursor := opmC_Wait_Mouse;
0418:     StrResult := FNopm_CloseDBConnection;
0419:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, opmC_ProgressIgnore, _('Disconnecting SSH encrypted tunnel...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0420:     PRopm_CloseSSHTunnel;
0421:     Screen.Cursor := opmC_Normal_Mouse;
0422:     PRopm_Update_StatusBar (opmC_ConnStatNo, opmC_ProgressNone, opmC_ProgressNone, _('Disconnected from database server.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0423:     PRopm_SetControls_Disconnected;
0424:     PRopm_ResetVars;
0425:     IF (StrResult <> '') THEN FNopm_Message (StrResult, mtError, [mbOk], opmG_UISilent);
0426:   END;
0427:   
0428:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0429:   Takes a source value, a target conversion value, and a value type.
0430:   Then applies the operation or target value to the source value and
0431:   return the result (in an integer or currency type according to the
0432:   value type). The target values can be simple numbers or operations.
0433:   A simple value will simply overwrite the source value with the target
0434:   one. An operation will transform the source value. Valid operations
0435:   are addition (+X), substraction (-X), percetage increase (+X%),
0436:   percentage decrease (-X%).  
0437:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0438:   FUNCTION Topm_Form_Main.FNopm_Apply_Operation (SourceValue, Conversion : STRING;
0439:                                                  ValueType : INTEGER; AllowNegative : BOOLEAN) : STRING;
0440:   VAR
0441:     TmpOperand, TmpSource, TmpTarget : CURRENCY;
0442:     TmpValue : STRING;
0443:   BEGIN
0444:     TmpValue := FNopm_CleanNumber (Conversion, opmC_ValIsNumOp);
0445:     TmpOperand := STRTOCURR (FNopm_CleanNumber (Conversion, opmC_ValIsFloat));
0446:     TmpSource := STRTOCURR (FNopm_CleanNumber (SourceValue, opmC_ValIsFloat));
0447:     IF (TmpValue[LENGTH (TmpValue)] = '%') THEN
0448:       BEGIN
0449:         TmpOperand := (TmpSource / 100) * TmpOperand;
0450:       END;
0451:     IF ((TmpValue[1] = '-') OR (TmpValue[1] = '+')) THEN
0452:       BEGIN
0453:         TmpTarget := TmpSource + TmpOperand;
0454:         IF (AllowNegative = FALSE) THEN IF (TmpTarget < 0) THEN TmpTarget := 0;
0455:       END
0456:     ELSE
0457:       BEGIN
0458:         TmpTarget := ABS (TmpOperand);
0459:       END;
0460:     IF (ValueType = opmC_ValIsInteger) THEN
0461:       BEGIN
0462:         FNopm_Apply_Operation := INTTOSTR (ROUND (TmpTarget));
0463:       END
0464:     ELSE
0465:       BEGIN
0466:         FNopm_Apply_Operation := FloatToStrF (TmpTarget, ffFixed, 15, 2);
0467:       END;
0468:   END;
0469:   
0470:   
0471:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0472:   Shows the configuration form and then check if any values were
0473:   changed (in the global configuration vars) to apply those changes
0474:   to the user interface.
0475:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0476:   procedure Topm_Form_Main.opm_MenuItem_ConfigClick(Sender: TObject);
0477:   begin
0478:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Configuring...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0479:     IF (opm_Form_Config.ShowModal = mrOk) THEN
0480:       BEGIN
0481:         IF (opmG_UIDragDrop > 0) THEN
0482:           opm_ListView_Main.DragMode := dmAutomatic
0483:         ELSE
0484:           opm_ListView_Main.DragMode := dmManual;
0485:         PRopm_SetUILang (opmG_UIGUILang);
0486:         PRmvHint_EnableHints ((opmG_UIToolTips > 0));
0487:         IF (opmG_UIDBDebug > 0) THEN
0488:           BEGIN
0489:             opm_DataSource_DEBUG.Enabled := TRUE;
0490:             opm_DBGrid_DEBUG.Enabled := TRUE;
0491:             opm_DBGrid_DEBUG.Visible := TRUE;
0492:             opm_Panel_DEBUG.Visible := TRUE;
0493:           END
0494:         ELSE
0495:           BEGIN
0496:             opm_DataSource_DEBUG.Enabled := FALSE;
0497:             opm_DBGrid_DEBUG.Enabled := FALSE;
0498:             opm_DBGrid_DEBUG.Visible := FALSE;
0499:             opm_Panel_DEBUG.Visible := FALSE;
0500:           END;
0501:         IF (opmG_UIWBDebug > 0) THEN
0502:           BEGIN
0503:             opm_Form_PEdit.opm_Memo_UploadDEBUG.Enabled := TRUE;
0504:             opm_Form_PEdit.opm_Memo_UploadDEBUG.Visible := TRUE;
0505:           END
0506:         ELSE
0507:           BEGIN
0508:             opm_Form_PEdit.opm_Memo_UploadDEBUG.Enabled := FALSE;
0509:             opm_Form_PEdit.opm_Memo_UploadDEBUG.Visible := FALSE;
0510:           END;
0511:       END;
0512:     opm_PRAddModules_ToMenu (opm_MenuItem_ExternalModules);
0513:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Configuration done.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
0514:   end;
0515:   
0516:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0517:   Terminates the application.
0518:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0519:   procedure Topm_Form_Main.opm_MenuItem_ExitClick(Sender: TObject);
0520:   begin
0521:     Close;
0522:   end;
0523:   
0524:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0525:   Opens the DB connection, load the language, category and manufacturer
0526:   lists in memory, build the language menu and the category tree,
0527:   clears the product list and enable some controls.
0528:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0529:   procedure Topm_Form_Main.opm_MenuItem_ConnectClick(Sender: TObject);
0530:   VAR
0531:     ResStr : STRING;
0532:   begin
0533:     IF (FNopm_Send_Command (opmG_WBUploadURL, 'capa', '', ResStr)) THEN
0534:       BEGIN
0535:         opmG_Capa_MorePics6 := (POS (opmC_Capa_MorePics6, ResStr) > 0);
0536:         opmG_Capa_TotalB2B := (POS (opmC_Capa_TotalB2B, ResStr) > 0);
0537:         opmG_Capa_PollBooth := (POS (opmC_Capa_PollBooth, ResStr) > 0);
0538:         opmG_Capa_HeaderTags := (POS (opmC_Capa_HeaderTags, ResStr) > 0);
0539:       END
0540:     ELSE
0541:       BEGIN
0542:         opmG_Capa_MorePics6 := FALSE;
0543:         opmG_Capa_TotalB2B := FALSE;
0544:         opmG_Capa_PollBooth := FALSE;
0545:         opmG_Capa_HeaderTags := FALSE;
0546:         FNopm_Message (_('There was an error while trying to get the osCommerce addons list. Assuming the store is a plain osCommerce store.'), mtWarning, [mbOk], opmG_UISilent);
0547:       END;
0548:     PRopm_Connect;
0549:     IF (FNopm_ConnectionState = TRUE) THEN
0550:       BEGIN
0551:         PRopm_LoadLanguageList (opmG_LanguageList);
0552:         PRopm_LoadCategoryList (opmG_CategoryList, opmG_CategoryBoxList);
0553:         PRopm_LoadManufacturerList (opmG_ManufacturerList, opmG_ManufacturerBoxList);
0554:         PRopm_LoadTaxList (opmG_TaxList, opmG_TaxBoxList);
0555:         opm_CurrentCurrency := FNopm_LoadCurrency;
0556:         PRopm_RenderLanguageDisplay (opm_ComboBox_DisplayLang, opmG_LanguageList);
0557:         PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, opm_CurrentCategory);
0558:         PRopm_ClearProductList (opm_ListView_Main);
0559:         PRopm_SetControls_FullConnected;
0560:       END;
0561:   end;
0562:   
0563:   
0564:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0565:   Closes the DB connection, clear the language, category, manufacturer
0566:   and product lists, clear the display of the language menu, product list
0567:   and category tree, and enable some controls.
0568:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0569:   procedure Topm_Form_Main.opm_MenuItem_DisconnectClick(Sender: TObject);
0570:   begin
0571:     PRopm_Disconnect;
0572:     IF (FNopm_ConnectionState = FALSE) THEN
0573:       BEGIN
0574:         PRopm_ClearLanguageList (opmG_LanguageBoxList);
0575:         PRopm_ClearCategoryList (opmG_CategoryBoxList);
0576:         PRopm_ClearManufacturerList (opmG_ManufacturerBoxList);
0577:         PRopm_ClearTaxList (opmG_TaxBoxList);
0578:         opm_CurrentCurrency := FNopm_ClearCurrency;
0579:         PRopm_ClearProductList (opm_ListView_Main);
0580:         PRopm_RenderLanguageDisplay (opm_ComboBox_DisplayLang, opmG_LanguageList);
0581:         PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, opm_CurrentCategory);
0582:         PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
0583:         opmG_Capa_MorePics6 := FALSE;
0584:         opmG_Capa_TotalB2B := FALSE;
0585:         opmG_Capa_PollBooth := FALSE;
0586:         opmG_Capa_HeaderTags := FALSE;
0587:       END;
0588:   end;
0589:   
0590:   
0591:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0592:   Creates some objects, load the configuration from the Windows registry,
0593:   reset all vars, set several parameters of the visual components,
0594:   set the language of the user interface.
0595:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0596:   procedure Topm_Form_Main.FormCreate(Sender: TObject);
0597:   begin
0598:     opmG_TMPPath := FNopm_GetTemporaryPath;
0599:     opm_DataSource_DEBUG.DataSet := opmG_DBQuery;
0600:     opm_CurrentLang := 0;
0601:     PRopm_LoadConfiguration;
0602:     PRopm_ResetVars;
0603:     PRopm_ResetLog;
0604:     PRopm_SetDisplay (opmG_UIRememberDisplay);
0605:     PRopm_SetControls_Disconnected;
0606:     opm_PRLoad_ModuleList;
0607:     opm_PRAddModules_ToMenu (opm_MenuItem_ExternalModules);
0608:     IF (FNopm_CheckLanguage (opmG_UIGUILang) = FALSE) THEN UseLanguage (opmC_Def_GUILang) ELSE UseLanguage (opmG_UIGUILang);
0609:     TP_GlobalIgnoreClass(TField);
0610:     TP_GlobalIgnoreClass(TDBGrid);
0611:     TranslateComponent (self);
0612:     PRmvHint_EnableHints (opmG_UIToolTips > 0);
0613:   end;
0614:   
0615:   
0616:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0617:   Resets some variables used to keep track of the product information.
0618:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0619:   PROCEDURE Topm_Form_Main.PRopm_ResetVars;
0620:   BEGIN
0621:     opm_TotalCategories := 0;
0622:     opm_TotalManufacturers := 0;
0623:     opm_TotalLanguages := 0;
0624:     opm_TotalProducts := 0;
0625:     opm_TotalTaxes := 0;
0626:     opm_CurrentCategory := 0;
0627:     opm_CurrentMan := 0;
0628:     opm_CurrentProdID := 0;
0629:     opm_Search_PCategory := 0;
0630:     opm_Search_PManufacturer := 0;
0631:     opm_Search_PModel := '';
0632:     opm_Search_PName := '';
0633:     opm_CanExpandTree_Flag := TRUE;
0634:     opm_WeAreSearching := FALSE;
0635:     opm_WeAreConnected := FALSE;
0636:     opmG_PList_LastOrderColumn := 4;
0637:     opmG_PList_LastOrderType := FALSE;
0638:   END;
0639:   
0640:   
0641:   
0642:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0643:   Loads the configuration options from the Windows registry.
0644:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0645:   PROCEDURE Topm_Form_Main.PRopm_LoadConfiguration;
0646:   BEGIN
0647:     opmG_DBHost := FNopm_CleanHostName (FNReg_ReadSetting ('OSCHost', opmC_Def_Host, opmC_RegistryKey, opmC_RKConfig));
0648:     opmG_DBPort := FNopm_StrToInt (FNReg_ReadSetting ('OSCPort', INTTOSTR (opmC_Def_Port), opmC_RegistryKey, opmC_RKConfig));
0649:     opmG_DBProtocol := FNReg_ReadSetting ('OSCProtocol', opmC_Def_Protocol, opmC_RegistryKey, opmC_RKConfig);
0650:     opmG_ETABase := FNopm_StrToInt (FNReg_ReadSetting ('OSCETABase', opmC_Def_ETABase, opmC_RegistryKey, opmC_RKConfig));
0651:     opmG_DBDatabase := FNReg_ReadSetting ('OSCDatabase', opmC_Def_Database, opmC_RegistryKey, opmC_RKConfig);
0652:     opmG_DBTable_Categories := FNReg_ReadSetting ('OSCTable01', opmC_Def_DBTable_Categories, opmC_RegistryKey, opmC_RKConfig);
0653:     opmG_DBTable_Manufacturers := FNReg_ReadSetting ('OSCTable02', opmC_Def_DBTable_Manufacturers, opmC_RegistryKey, opmC_RKConfig);
0654:     opmG_DBTable_Languages := FNReg_ReadSetting ('OSCTable03', opmC_Def_DBTable_Languages, opmC_RegistryKey, opmC_RKConfig);
0655:     opmG_DBTable_Products := FNReg_ReadSetting ('OSCTable04', opmC_Def_DBTable_Products, opmC_RegistryKey, opmC_RKConfig);
0656:     opmG_DBTable_Specials := FNReg_ReadSetting ('OSCTable05', opmC_Def_DBTable_Specials, opmC_RegistryKey, opmC_RKConfig);
0657:     opmG_DBTable_ProductsDescription := FNReg_ReadSetting ('OSCTable06', opmC_Def_DBTable_ProductsDescription, opmC_RegistryKey, opmC_RKConfig);
0658:     opmG_DBTable_TaxClass := FNReg_ReadSetting ('OSCTable07', opmC_Def_DBTable_TaxClass, opmC_RegistryKey, opmC_RKConfig);
0659:     opmG_DBTable_Currencies := FNReg_ReadSetting ('OSCTable08', opmC_Def_DBTable_Currencies, opmC_RegistryKey, opmC_RKConfig);
0660:     opmG_DBTable_Configuration := FNReg_ReadSetting ('OSCTable09', opmC_Def_DBTable_Configuration, opmC_RegistryKey, opmC_RKConfig);
0661:     opmG_DBTable_ProductsToCategories := FNReg_ReadSetting ('OSCTable10', opmC_Def_DBTable_ProductsToCategories, opmC_RegistryKey, opmC_RKConfig);
0662:     opmG_DBTable_CategoriesDescription := FNReg_ReadSetting ('OSCTable11', opmC_Def_DBTable_CategoriesDescription, opmC_RegistryKey, opmC_RKConfig);
0663:     opmG_DBTable_TaxRates := FNReg_ReadSetting ('OSCTable13', opmC_Def_DBTable_TaxRates, opmC_RegistryKey, opmC_RKConfig);
0664:     opmG_DBTable_ManufacturersInfo := FNReg_ReadSetting ('OSCTable14', opmC_Def_DBTable_ManufacturersInfo, opmC_RegistryKey, opmC_RKConfig);
0665:     opmG_DBUsername := FNReg_ReadSetting ('OSCUsername', opmC_Def_Username, opmC_RegistryKey, opmC_RKConfig);
0666:     opmG_DBPassword := FNReg_ReadSetting ('OSCPassword', opmC_Def_Password, opmC_RegistryKey, opmC_RKConfig);
0667:     opmG_WBImgURL := FNReg_ReadSetting ('OSCImgURL', opmC_Def_ImgURL, opmC_RegistryKey, opmC_RKConfig);
0668:     opmG_WBUploadURL := FNReg_ReadSetting ('OSCUploadURL', opmC_Def_UploadURL, opmC_RegistryKey, opmC_RKConfig);
0669:     opmG_WBProxyHost := FNopm_CleanHostName (FNReg_ReadSetting ('OSCProxyHost', opmC_Def_ProxyHost, opmC_RegistryKey, opmC_RKConfig));
0670:     opmG_WBProxyPort := FNopm_StrToInt (FNReg_ReadSetting ('OSCProxyPort', INTTOSTR (opmC_Def_ProxyPort), opmC_RegistryKey, opmC_RKConfig));
0671:     opmG_DBConnWait := FNopm_StrToInt (FNReg_ReadSetting ('OSCDBConnWait', INTTOSTR (opmC_Def_DBConnWait), opmC_RegistryKey, opmC_RKConfig));
0672:     opmG_ModConnWait := FNopm_StrToInt (FNReg_ReadSetting ('OSCModConnWait', INTTOSTR (opmC_Def_ModConnWait), opmC_RegistryKey, opmC_RKConfig));
0673:     opmG_SSHConnWait := FNopm_StrToInt (FNReg_ReadSetting ('OSCSSHConnWait', INTTOSTR (opmC_Def_SSHConnWait), opmC_RegistryKey, opmC_RKConfig));
0674:     opmG_DBConnRetries := FNopm_StrToInt (FNReg_ReadSetting ('OSCDBConnRetries', INTTOSTR (opmC_Def_DBConnRetries), opmC_RegistryKey, opmC_RKConfig));
0675:     opmG_ModConnRetries := FNopm_StrToInt (FNReg_ReadSetting ('OSCModConnRetries', INTTOSTR (opmC_Def_ModConnRetries), opmC_RegistryKey, opmC_RKConfig));
0676:     opmG_WBImgX := FNopm_StrToInt (FNReg_ReadSetting ('OSCImgX', INTTOSTR (opmC_Def_ImgX), opmC_RegistryKey, opmC_RKConfig));
0677:     opmG_WBImgY := FNopm_StrToInt (FNReg_ReadSetting ('OSCImgY', INTTOSTR (opmC_Def_ImgY), opmC_RegistryKey, opmC_RKConfig));
0678:     opmG_WBImgQ := FNopm_StrToInt (FNReg_ReadSetting ('OSCImgQ', INTTOSTR (opmC_Def_ImgQ), opmC_RegistryKey, opmC_RKConfig));
0679:     opmG_WBPaddingColor := FNopm_StrToInt (FNReg_ReadSetting ('OSCPaddingColor', INTTOSTR (opmC_Def_PaddingColor), opmC_RegistryKey, opmC_RKConfig));
0680:     IF (opmG_WBImgURL[LENGTH (opmG_WBImgURL)] <> '/') THEN opmG_WBImgURL := opmG_WBImgURL + '/';
0681:     opm_CurrentLang := ABS (FNopm_StrToInt (FNReg_ReadSetting ('OSCLanguage', INTTOSTR (opmC_Def_DisplayLang), opmC_RegistryKey, opmC_RKRoot)));
0682:     opmG_UIHotTracking := FNopm_StrToInt (FNReg_ReadSetting ('OSCHotTracking', INTTOSTR (opmC_Def_HotTracking), opmC_RegistryKey, opmC_RKConfig));
0683:     opmG_UIClickLoad := FNopm_StrToInt (FNReg_ReadSetting ('OSCAutoLoad', INTTOSTR (opmC_Def_AutoLoad), opmC_RegistryKey, opmC_RKConfig));
0684:     opmG_UIDragDrop := FNopm_StrToInt (FNReg_ReadSetting ('OSCDragDrop', INTTOSTR (opmC_Def_DragDrop), opmC_RegistryKey, opmC_RKConfig));
0685:     opmG_UIImgDragDrop := FNopm_StrToInt (FNReg_ReadSetting ('OSCImgDragDrop', INTTOSTR (opmC_Def_ImgDragDrop), opmC_RegistryKey, opmC_RKConfig));
0686:     opmG_UIToolTips := FNopm_StrToInt (FNReg_ReadSetting ('OSCToolTips', INTTOSTR (opmC_Def_ToolTips), opmC_RegistryKey, opmC_RKConfig));
0687:     opmG_DBCompress := FNopm_StrToInt (FNReg_ReadSetting ('OSCCompress', INTTOSTR (opmC_Def_Compress), opmC_RegistryKey, opmC_RKConfig));
0688:     opmG_UseProxy := FNopm_StrToInt (FNReg_ReadSetting ('OSCUseProxy', INTTOSTR (opmC_Def_UseProxy), opmC_RegistryKey, opmC_RKConfig));
0689:     opmG_ProxyApply := FNopm_StrToInt (FNReg_ReadSetting ('OSCProxyApply', INTTOSTR (opmC_Def_ProxyApply), opmC_RegistryKey, opmC_RKConfig));
0690:     opmG_UseSSH := FNopm_StrToInt (FNReg_ReadSetting ('OSCUseSSH', INTTOSTR (opmC_Def_UseSSH), opmC_RegistryKey, opmC_RKConfig));
0691:     opmG_SSHUsername := FNReg_ReadSetting ('OSCSSHUsername', opmC_Def_SSHUsername, opmC_RegistryKey, opmC_RKConfig);
0692:     opmG_SSHPassword := FNReg_ReadSetting ('OSCSSHPassword', opmC_Def_SSHPassword, opmC_RegistryKey, opmC_RKConfig);
0693:     opmG_SSHLocalPort := FNopm_StrToInt (FNReg_ReadSetting ('OSCSSHLocalPort', INTTOSTR (opmC_Def_SSHLocalPort), opmC_RegistryKey, opmC_RKConfig));
0694:     opmG_DBStorePass := FNopm_StrToInt (FNReg_ReadSetting ('OSCStorePass', INTTOSTR (opmC_Def_StorePass), opmC_RegistryKey, opmC_RKConfig));
0695:     opmG_UISilent := FNopm_StrToInt (FNReg_ReadSetting ('OSCSilent', INTTOSTR (opmC_Def_Silent), opmC_RegistryKey, opmC_RKConfig));
0696:     opmG_UIConfirmDels := FNopm_StrToInt (FNReg_ReadSetting ('OSCConfirmDels', INTTOSTR (opmC_Def_ConfirmDels), opmC_RegistryKey, opmC_RKConfig));
0697:     opmG_UIConfirmDrag := FNopm_StrToInt (FNReg_ReadSetting ('OSCConfirmDrag', INTTOSTR (opmC_Def_ConfirmDrag), opmC_RegistryKey, opmC_RKConfig));
0698:     opmG_UIConfirmMods := FNopm_StrToInt (FNReg_ReadSetting ('OSCConfirmMods', INTTOSTR (opmC_Def_ConfirmMods), opmC_RegistryKey, opmC_RKConfig));
0699:     opmG_UIAllowZeroPrice := FNopm_StrToInt (FNReg_ReadSetting ('OSCAllowZeroPrice', INTTOSTR (opmC_Def_AllowZeroPrice), opmC_RegistryKey, opmC_RKConfig));
0700:     opmG_UIAllowEditImageName := FNopm_StrToInt (FNReg_ReadSetting ('OSCAllowEditImageName', INTTOSTR (opmC_Def_AllowEditImageName), opmC_RegistryKey, opmC_RKConfig));
0701:     opmG_UIAllowNegativeQuantity := FNopm_StrToInt (FNReg_ReadSetting ('OSCAllowNegativeQuantity', INTTOSTR (opmC_Def_AllowNegativeQuantity), opmC_RegistryKey, opmC_RKConfig));
0702:     opmG_UIAutoDownImg := FNopm_StrToInt (FNReg_ReadSetting ('OSCAutoDownImg', INTTOSTR (opmC_Def_AutoDownImg), opmC_RegistryKey, opmC_RKConfig));
0703:     opmG_UIFontName := FNReg_ReadSetting ('UIFontName', opmC_DefaultFont, opmC_RegistryKey, opmC_RKVisual);
0704:     opmG_UIFontHeight := FNopm_StrToInt (FNReg_ReadSetting ('UIFontHeight', INTTOSTR (opmC_DefaultFontHeight), opmC_RegistryKey, opmC_RKVisual));
0705:     opmG_UIFontCharset := FNopm_StrToInt (FNReg_ReadSetting ('UIFontCharset', INTTOSTR (opmC_DefaultFontCharset), opmC_RegistryKey, opmC_RKVisual));
0706:     opmG_Clip_ColSize := FNopm_StrToInt (FNReg_ReadSetting ('Clip_ColSize', INTTOSTR (opmC_Def_Clip_ColSize), opmC_RegistryKey, opmC_RKVisual));
0707:     opmG_PRNDirectPrint := FNopm_StrToInt (FNReg_ReadSetting ('PRNDirectPrint', INTTOSTR (opmC_Def_PRNDirectPrint), opmC_RegistryKey, opmC_RKVisual));
0708:     opmG_Past_PAvailDate := FNopm_StrToInt (FNReg_ReadSetting ('PastAvailDate', INTTOSTR (opmC_Def_Past_PAvailDate), opmC_RegistryKey, opmC_RKVisual));
0709:     opmG_Past_PManufacturer := FNopm_StrToInt (FNReg_ReadSetting ('PastManufacturer', INTTOSTR (opmC_Def_Past_PManufacturer), opmC_RegistryKey, opmC_RKVisual));
0710:     opmG_Past_PTaxClass := FNopm_StrToInt (FNReg_ReadSetting ('PastTaxClass', INTTOSTR (opmC_Def_Past_PTaxClass), opmC_RegistryKey, opmC_RKVisual));
0711:     opmG_Past_PImageDir := FNReg_ReadSetting ('PastImageDir', opmC_Def_Past_PImageDir, opmC_RegistryKey, opmC_RKVisual);
0712:     opmG_WBNoCacheImg := FNopm_StrToInt (FNReg_ReadSetting ('OSCNoCacheImg', INTTOSTR (opmC_Def_NoCacheImg), opmC_RegistryKey, opmC_RKConfig));
0713:     opmG_WBResizeImg := FNopm_StrToInt (FNReg_ReadSetting ('OSCResizeImg', INTTOSTR (opmC_Def_ResizeImg), opmC_RegistryKey, opmC_RKConfig));
0714:     opmG_WBPaddingImg := FNopm_StrToInt (FNReg_ReadSetting ('OSCPaddingImg', INTTOSTR (opmC_Def_PaddingImg), opmC_RegistryKey, opmC_RKConfig));
0715:     opmG_WBKeepARImg := FNopm_StrToInt (FNReg_ReadSetting ('OSCKeepARImg', INTTOSTR (opmC_Def_KeepARImg), opmC_RegistryKey, opmC_RKConfig));
0716:     opmG_WBSmartRename := FNopm_StrToInt (FNReg_ReadSetting ('OSCSmartRename', INTTOSTR (opmC_Def_SmartRename), opmC_RegistryKey, opmC_RKConfig));
0717:     opmG_UIConfirmExit := FNopm_StrToInt (FNReg_ReadSetting ('OSCConfirmExit', INTTOSTR (opmC_Def_ConfirmExit), opmC_RegistryKey, opmC_RKConfig));
0718:     opmG_DBDebugLog := FNopm_StrToInt (FNReg_ReadSetting ('OSCDBDebugLog', INTTOSTR (opmC_Def_DBDebugLog), opmC_RegistryKey, opmC_RKConfig));
0719:     opmG_UIDBDebug := FNopm_StrToInt (FNReg_ReadSetting ('OSCDBDebug', INTTOSTR (opmC_Def_DBDebug), opmC_RegistryKey, opmC_RKConfig));
0720:     opmG_UISSHDebug := FNopm_StrToInt (FNReg_ReadSetting ('OSCSSHDebug', INTTOSTR (opmC_Def_SSHDebug), opmC_RegistryKey, opmC_RKConfig));
0721:     opmG_UIWBDebug := FNopm_StrToInt (FNReg_ReadSetting ('OSCWBDebug', INTTOSTR (opmC_Def_WBDebug), opmC_RegistryKey, opmC_RKConfig));
0722:     opmG_UIGUILang := FNReg_ReadSetting ('OSCGUILang', opmC_Def_GUILang, opmC_RegistryKey, opmC_RKConfig);
0723:     IF (FNopm_CheckLanguage (opmG_UIGUILang) = FALSE) THEN opmG_UIGUILang := opmC_Def_GUILang;
0724:     opmG_UIRememberDisplay := FNopm_StrToInt (FNReg_ReadSetting ('OSCRememberPosition', INTTOSTR (opmC_Def_RememberDisplay), opmC_RegistryKey, opmC_RKConfig));
0725:     opmG_UIWindow_XSize := ABS (FNopm_StrToInt (FNReg_ReadSetting ('OSCWinX', INTTOSTR (opmC_DefWindow_XSize), opmC_RegistryKey, opmC_RKVisual)));
0726:     IF ((opmG_UIWindow_XSize < opmC_MinWindow_XSize) OR (opmG_UIWindow_XSize > opmC_MaxWindow_XSize)) THEN opmG_UIWindow_XSize := opmC_DefWindow_XSize;
0727:     opmG_UIWindow_YSize := ABS (FNopm_StrToInt (FNReg_ReadSetting ('OSCWinY', INTTOSTR (opmC_DefWindow_YSize), opmC_RegistryKey, opmC_RKVisual)));
0728:     IF ((opmG_UIWindow_YSize < opmC_MinWindow_YSize) OR (opmG_UIWindow_YSize > opmC_MaxWindow_YSize)) THEN opmG_UIWindow_YSize := opmC_DefWindow_YSize;
0729:     opmG_UICatList_XSize := ABS (FNopm_StrToInt (FNReg_ReadSetting ('OSCListX', INTTOSTR (opmC_DefCatList_Size), opmC_RegistryKey, opmC_RKVisual)));
0730:     IF ((opmG_UICatList_XSize < opmC_MinCatList_Size) OR (opmG_UICatList_XSize > opmC_MaxCatList_Size)) THEN opmG_UICatList_XSize := opmC_DefCatList_Size;
0731:     IF ((opmG_UICatList_XSize + 100) > opmG_UIWindow_XSize) THEN opmG_UIWindow_XSize := opmG_UICatList_XSize + 100;
0732:     opmG_UICol0X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col0X', INTTOSTR (opmC_Def_Col0X), opmC_RegistryKey, opmC_RKVisual)));
0733:     IF (opmG_UICol0X < opmC_MinColX) THEN opmG_UICol0X := opmC_MinColX;
0734:     opmG_UICol1X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col1X', INTTOSTR (opmC_Def_Col1X), opmC_RegistryKey, opmC_RKVisual)));
0735:     IF (opmG_UICol1X < opmC_MinColX) THEN opmG_UICol1X := opmC_MinColX;
0736:     opmG_UICol2X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col2X', INTTOSTR (opmC_Def_Col2X), opmC_RegistryKey, opmC_RKVisual)));
0737:     IF (opmG_UICol2X < opmC_MinColX) THEN opmG_UICol2X := opmC_MinColX;
0738:     opmG_UICol3X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col3X', INTTOSTR (opmC_Def_Col3X), opmC_RegistryKey, opmC_RKVisual)));
0739:     IF (opmG_UICol3X < opmC_MinColX) THEN opmG_UICol3X := opmC_MinColX;
0740:     opmG_UICol4X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col4X', INTTOSTR (opmC_Def_Col4X), opmC_RegistryKey, opmC_RKVisual)));
0741:     IF (opmG_UICol4X < opmC_MinColX) THEN opmG_UICol4X := opmC_MinColX;
0742:     opmG_UICol5X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col5X', INTTOSTR (opmC_Def_Col5X), opmC_RegistryKey, opmC_RKVisual)));
0743:     IF (opmG_UICol5X < opmC_MinColX) THEN opmG_UICol5X := opmC_MinColX;
0744:     opmG_UICol6X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col6X', INTTOSTR (opmC_Def_Col6X), opmC_RegistryKey, opmC_RKVisual)));
0745:     IF (opmG_UICol6X < opmC_MinColX) THEN opmG_UICol6X := opmC_MinColX;
0746:     opmG_UICol7X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col7X', INTTOSTR (opmC_Def_Col7X), opmC_RegistryKey, opmC_RKVisual)));
0747:     IF (opmG_UICol7X < opmC_MinColX) THEN opmG_UICol7X := opmC_MinColX;
0748:     opmG_UICol8X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col8X', INTTOSTR (opmC_Def_Col8X), opmC_RegistryKey, opmC_RKVisual)));
0749:     IF (opmG_UICol8X < opmC_MinColX) THEN opmG_UICol8X := opmC_MinColX;
0750:     opmG_UICol9X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col9X', INTTOSTR (opmC_Def_Col9X), opmC_RegistryKey, opmC_RKVisual)));
0751:     IF (opmG_UICol9X < opmC_MinColX) THEN opmG_UICol9X := opmC_MinColX;
0752:     opmG_UICol10X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col10X', INTTOSTR (opmC_Def_Col10X), opmC_RegistryKey, opmC_RKVisual)));
0753:     IF (opmG_UICol10X < opmC_MinColX) THEN opmG_UICol10X := opmC_MinColX;
0754:     opmG_UICol20X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col20X', INTTOSTR (opmC_Def_Col20X), opmC_RegistryKey, opmC_RKVisual)));
0755:     IF (opmG_UICol20X < opmC_MinColX) THEN opmG_UICol20X := opmC_MinColX;
0756:     opmG_UICol21X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col21X', INTTOSTR (opmC_Def_Col21X), opmC_RegistryKey, opmC_RKVisual)));
0757:     IF (opmG_UICol20X < opmC_MinColX) THEN opmG_UICol21X := opmC_MinColX;
0758:     opmG_UICol22X := ABS (FNopm_StrToInt (FNReg_ReadSetting ('Col22X', INTTOSTR (opmC_Def_Col22X), opmC_RegistryKey, opmC_RKVisual)));
0759:     IF (opmG_UICol20X < opmC_MinColX) THEN opmG_UICol22X := opmC_MinColX;
0760:     PRReg_ReadPastList ('Host', opmC_RegistryKey, opmC_RKServers, opmG_PastHost_BoxList, opmC_MaxPast_Servers);
0761:     PRReg_ReadPastList ('Database', opmC_RegistryKey, opmC_RKServers, opmG_PastDatabase_BoxList, opmC_MaxPast_Databases);
0762:     PRReg_ReadPastList ('Username', opmC_RegistryKey, opmC_RKServers, opmG_PastUsername_BoxList, opmC_MaxPast_Usernames);
0763:     PRReg_ReadPastList ('SSHUsername', opmC_RegistryKey, opmC_RKServers, opmG_PastSSHUsername_BoxList, opmC_MaxPast_SSHUsernames);
0764:     PRReg_ReadPastList ('ImgURL', opmC_RegistryKey, opmC_RKServers, opmG_PastImgURL_BoxList, opmC_MaxPast_ImgURL);
0765:     PRReg_ReadPastList ('UploadURL', opmC_RegistryKey, opmC_RKServers, opmG_PastUploadURL_BoxList, opmC_MaxPast_UploadURL);
0766:     PRReg_ReadPastList ('Proxy', opmC_RegistryKey, opmC_RKServers, opmG_PastProxy_BoxList, opmC_MaxPast_Proxy);
0767:   END;
0768:   
0769:   
0770:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0771:   Saves some configuration options to the Windows registry.
0772:   Only options about the user interface are stored here, other
0773:   options are stored when running the configuration form.
0774:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0775:   PROCEDURE Topm_Form_Main.PRopm_SaveConfiguration;
0776:   BEGIN
0777:     PRReg_WriteSetting ('OSCWinX', INTTOSTR (opm_Form_Main.Width), opmC_RegistryKey, opmC_RKVisual);
0778:     PRReg_WriteSetting ('OSCWinY', INTTOSTR (opm_Form_Main.Height), opmC_RegistryKey, opmC_RKVisual);
0779:     PRReg_WriteSetting ('OSCListX', INTTOSTR (opm_TreeView_Main.Width), opmC_RegistryKey, opmC_RKVisual);
0780:     PRReg_WriteSetting ('Col0X', INTTOSTR (opm_ListView_Main.Column[0].Width), opmC_RegistryKey, opmC_RKVisual);
0781:     PRReg_WriteSetting ('Col1X', INTTOSTR (opm_ListView_Main.Column[1].Width), opmC_RegistryKey, opmC_RKVisual);
0782:     PRReg_WriteSetting ('Col2X', INTTOSTR (opm_ListView_Main.Column[2].Width), opmC_RegistryKey, opmC_RKVisual);
0783:     PRReg_WriteSetting ('Col3X', INTTOSTR (opm_ListView_Main.Column[3].Width), opmC_RegistryKey, opmC_RKVisual);
0784:     PRReg_WriteSetting ('Col4X', INTTOSTR (opm_ListView_Main.Column[4].Width), opmC_RegistryKey, opmC_RKVisual);
0785:     PRReg_WriteSetting ('Col5X', INTTOSTR (opm_ListView_Main.Column[5].Width), opmC_RegistryKey, opmC_RKVisual);
0786:     PRReg_WriteSetting ('Col6X', INTTOSTR (opm_ListView_Main.Column[6].Width), opmC_RegistryKey, opmC_RKVisual);
0787:     PRReg_WriteSetting ('Col7X', INTTOSTR (opm_ListView_Main.Column[7].Width), opmC_RegistryKey, opmC_RKVisual);
0788:     PRReg_WriteSetting ('Col8X', INTTOSTR (opm_ListView_Main.Column[8].Width), opmC_RegistryKey, opmC_RKVisual);
0789:     PRReg_WriteSetting ('Col9X', INTTOSTR (opm_ListView_Main.Column[9].Width), opmC_RegistryKey, opmC_RKVisual);
0790:     PRReg_WriteSetting ('Col10X', INTTOSTR (opm_ListView_Main.Column[10].Width), opmC_RegistryKey, opmC_RKVisual);
0791:     PRReg_WriteSetting ('Col20X', INTTOSTR (opm_Form_Runmod.opm_ListView_RunmodConfirm.Column[1].Width), opmC_RegistryKey, opmC_RKVisual);
0792:     PRReg_WriteSetting ('Col21X', INTTOSTR (opm_Form_Runmod.opm_ListView_RunmodConfirm.Column[2].Width), opmC_RegistryKey, opmC_RKVisual);
0793:     PRReg_WriteSetting ('Col22X', INTTOSTR (opm_Form_Runmod.opm_ListView_RunmodConfirm.Column[3].Width), opmC_RegistryKey, opmC_RKVisual);
0794:     PRReg_WriteSetting ('OSCLanguage', INTTOSTR (opm_CurrentLang), opmC_RegistryKey, opmC_RKRoot);
0795:     PRReg_WriteSetting ('OSCGUILang', opmG_UIGUILang, opmC_RegistryKey, opmC_RKConfig);
0796:     PRReg_WriteSetting ('PastAvailDate', INTTOSTR (opmG_Past_PAvailDate), opmC_RegistryKey, opmC_RKVisual);
0797:     PRReg_WriteSetting ('PastManufacturer', INTTOSTR (opmG_Past_PManufacturer), opmC_RegistryKey, opmC_RKVisual);
0798:     PRReg_WriteSetting ('PastTaxClass', INTTOSTR (opmG_Past_PTaxClass), opmC_RegistryKey, opmC_RKVisual);
0799:     PRReg_WriteSetting ('PastImageDir', opmG_Past_PImageDir, opmC_RegistryKey, opmC_RKVisual);
0800:   END;
0801:   
0802:   
0803:   
0804:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0805:   Sets several parameters of the visual components before
0806:   starting.
0807:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0808:   PROCEDURE Topm_Form_Main.PRopm_SetDisplay (RememberVisual : WORD);
0809:   BEGIN
0810:     opm_Form_Main.DoubleBuffered := TRUE;
0811:     opm_Form_Main.Caption := opmC_AppName1 + ' ' + opmC_Version + ' (build ' + opmG_ExeBuildVersion + ')';
0812:     opm_Form_Main.Constraints.MinWidth := opmC_MinWindow_XSize;
0813:     opm_Form_Main.Constraints.MinHeight := opmC_MinWindow_YSize;
0814:     opm_Form_Main.Constraints.MaxWidth := opmC_MaxWindow_XSize;
0815:     opm_Form_Main.Constraints.MaxHeight := opmC_MaxWindow_YSize;
0816:   
0817:     opm_StatusBar_Main.Height := 16 + (opmC_Bevel_Size * 2);
0818:     opm_StatusBar_Main.Panels[0].Width := 16 + (opmC_Bevel_Size * 2);
0819:     opm_StatusBar_Main.Panels[1].Width := opmC_DefGauge_Size + (opmC_Bevel_Size * 2);
0820:     opm_StatusBar_Main.Panels[2].Width := opmC_DefGauge_Size + (opmC_Bevel_Size * 2);
0821:     opm_StatusBar_Main.Panels[3].Width := opmC_DefCatList_Size;
0822:     opm_StatusBar_Main.Panels[4].Width := opmC_DefCatList_Size;
0823:     opm_StatusBar_Main.Panels[5].Width := opmC_DefCurPan_Size;
0824:     opm_StatusBar_Main.Panels[6].Width := opmC_DefMemPan_Size;
0825:   
0826:     opm_ProgressBar_Main.Parent := opm_StatusBar_Main;
0827:     opm_ProgressBar_Main.Top := (opmC_Bevel_Size + 1);
0828:     opm_ProgressBar_Main.Left := 16 + (opmC_Bevel_Size * 2) + (opmC_Bevel_Size + 1);
0829:     opm_ProgressBar_Main.Height := (opm_StatusBar_Main.Height - (opmC_Bevel_Size * 2));
0830:     opm_ProgressBar_Main.Width := opmC_DefGauge_Size;
0831:     opm_ProgressBar_Main.Min := 0;
0832:     opm_ProgressBar_Main.Max := 100;
0833:   
0834:     opm_ProgressBar_Sec.Parent := opm_StatusBar_Main;
0835:     opm_ProgressBar_Sec.Top := (opmC_Bevel_Size + 1);
0836:     opm_ProgressBar_Sec.Left := 16 + (opmC_Bevel_Size * 4) + (opmC_Bevel_Size + 1) + opmC_DefGauge_Size;
0837:     opm_ProgressBar_Sec.Height := (opm_StatusBar_Main.Height - (opmC_Bevel_Size * 2));
0838:     opm_ProgressBar_Sec.Width := opmC_DefGauge_Size;
0839:     opm_ProgressBar_Sec.Min := 0;
0840:     opm_ProgressBar_Sec.Max := 100;
0841:   
0842:     opm_Image_Status.Parent := opm_StatusBar_Main;
0843:     opm_Image_Status.Top := (opmC_Bevel_Size + 1);
0844:     opm_Image_Status.Left := (opmC_Bevel_Size + 1);
0845:     opm_Image_Status.Height := (opm_StatusBar_Main.Height - (opmC_Bevel_Size * 2));
0846:     opm_Image_Status.Width := 16;
0847:     opm_ImageList_Status.GetIcon (0, opm_Image_Status.Picture.Icon);
0848:   
0849:     opm_TreeView_Main.ReadOnly := TRUE;
0850:     opm_TreeView_Main.DoubleBuffered := TRUE;
0851:     opm_TreeView_Main.Constraints.MinWidth := opmC_MinCatList_Size;
0852:     opm_ListView_Main.Columns.Clear;
0853:     opm_ListView_Main.Checkboxes := FALSE;
0854:     opm_ListView_Main.ReadOnly := TRUE;
0855:     opm_ListView_Main.RowSelect := TRUE;
0856:     opm_ListView_Main.MultiSelect := TRUE;
0857:     opm_ListView_Main.DoubleBuffered := TRUE;
0858:     opm_ListView_Main.ViewStyle := vsReport;
0859:     opm_ListView_Main.Columns.Add;
0860:     opm_ListView_Main.Columns.Add;
0861:     opm_ListView_Main.Columns.Add;
0862:     opm_ListView_Main.Columns.Add;
0863:     opm_ListView_Main.Columns.Add;
0864:     opm_ListView_Main.Columns.Add;
0865:     opm_ListView_Main.Columns.Add;
0866:     opm_ListView_Main.Columns.Add;
0867:     opm_ListView_Main.Columns.Add;
0868:     opm_ListView_Main.Columns.Add;
0869:     opm_ListView_Main.Columns.Add;
0870:     opm_ListView_Main.Columns.Items[0].Caption := _('Available');
0871:     opm_ListView_Main.Columns.Items[1].Caption := _('ID');
0872:     opm_ListView_Main.Columns.Items[2].Caption := _('Model');
0873:     opm_ListView_Main.Columns.Items[3].Caption := _('Category');
0874:     opm_ListView_Main.Columns.Items[4].Caption := _('Name');
0875:     opm_ListView_Main.Columns.Items[5].Caption := _('Manufacturer');
0876:     opm_ListView_Main.Columns.Items[6].Caption := _('Quantity');
0877:     opm_ListView_Main.Columns.Items[7].Caption := _('Price');
0878:     opm_ListView_Main.Columns.Items[8].Caption := _('Weight');
0879:     opm_ListView_Main.Columns.Items[9].Caption := _('Availability date');
0880:     opm_ListView_Main.Columns.Items[10].Caption := _('Image');
0881:     opm_ListView_Main.Columns.Items[0].Alignment := opmC_Def_Col0Align;
0882:     opm_ListView_Main.Columns.Items[1].Alignment := opmC_Def_Col1Align;
0883:     opm_ListView_Main.Columns.Items[2].Alignment := opmC_Def_Col2Align;
0884:     opm_ListView_Main.Columns.Items[3].Alignment := opmC_Def_Col3Align;
0885:     opm_ListView_Main.Columns.Items[4].Alignment := opmC_Def_Col4Align;
0886:     opm_ListView_Main.Columns.Items[5].Alignment := opmC_Def_Col5Align;
0887:     opm_ListView_Main.Columns.Items[6].Alignment := opmC_Def_Col6Align;
0888:     opm_ListView_Main.Columns.Items[7].Alignment := opmC_Def_Col7Align;
0889:     opm_ListView_Main.Columns.Items[8].Alignment := opmC_Def_Col8Align;
0890:     opm_ListView_Main.Columns.Items[9].Alignment := opmC_Def_Col9Align;
0891:     opm_ListView_Main.Columns.Items[10].Alignment := opmC_Def_Col10Align;
0892:     IF (opmG_UIHotTracking > 0) THEN
0893:       BEGIN
0894:         opm_TreeView_Main.HotTrack := TRUE;
0895:         opm_ListView_Main.HotTrack := FALSE;
0896:         opm_ListView_Main.HotTrackStyles := [htHandPoint, htUnderlineHot];
0897:       END
0898:     ELSE
0899:       BEGIN
0900:         opm_TreeView_Main.HotTrack := FALSE;
0901:         opm_ListView_Main.HotTrack := FALSE;
0902:         opm_ListView_Main.HotTrackStyles := [];
0903:       END;
0904:     IF (opmG_UIDragDrop > 0) THEN
0905:       opm_ListView_Main.DragMode := dmAutomatic
0906:     ELSE
0907:       opm_ListView_Main.DragMode := dmManual;
0908:   
0909:     IF (opmG_UIDBDebug > 0) THEN
0910:       BEGIN
0911:         opm_DataSource_DEBUG.Enabled := TRUE;
0912:         opm_DBGrid_DEBUG.Enabled := TRUE;
0913:         opm_DBGrid_DEBUG.Visible := TRUE;
0914:         opm_Panel_DEBUG.Visible := TRUE;
0915:       END
0916:     ELSE
0917:       BEGIN
0918:         opm_DataSource_DEBUG.Enabled := FALSE;
0919:         opm_DBGrid_DEBUG.Enabled := FALSE;
0920:         opm_DBGrid_DEBUG.Visible := FALSE;
0921:         opm_Panel_DEBUG.Visible := FALSE;
0922:       END;
0923:     IF (RememberVisual > 0) THEN
0924:       BEGIN
0925:         opm_Form_Main.Width := opmG_UIWindow_XSize;
0926:         opm_Form_Main.Height := opmG_UIWindow_YSize;
0927:         opm_TreeView_Main.Width := opmG_UICatList_XSize;
0928:         opm_ListView_Main.Column[0].Width := opmG_UICol0X;
0929:         opm_ListView_Main.Column[1].Width := opmG_UICol1X;
0930:         opm_ListView_Main.Column[2].Width := opmG_UICol2X;
0931:         opm_ListView_Main.Column[3].Width := opmG_UICol3X;
0932:         opm_ListView_Main.Column[4].Width := opmG_UICol4X;
0933:         opm_ListView_Main.Column[5].Width := opmG_UICol5X;
0934:         opm_ListView_Main.Column[6].Width := opmG_UICol6X;
0935:         opm_ListView_Main.Column[7].Width := opmG_UICol7X;
0936:         opm_ListView_Main.Column[8].Width := opmG_UICol8X;
0937:         opm_ListView_Main.Column[9].Width := opmG_UICol9X;
0938:         opm_ListView_Main.Column[10].Width := opmG_UICol10X;
0939:       END
0940:     ELSE
0941:       BEGIN
0942:         opm_Form_Main.Width := opmC_DefWindow_XSize;
0943:         opm_Form_Main.Height := opmC_DefWindow_YSize;
0944:         opm_TreeView_Main.Width := opmC_DefCatList_Size;
0945:         opm_ListView_Main.Column[0].Width := opmC_Def_Col0X;
0946:         opm_ListView_Main.Column[1].Width := opmC_Def_Col1X;
0947:         opm_ListView_Main.Column[2].Width := opmC_Def_Col2X;
0948:         opm_ListView_Main.Column[3].Width := opmC_Def_Col3X;
0949:         opm_ListView_Main.Column[4].Width := opmC_Def_Col4X;
0950:         opm_ListView_Main.Column[5].Width := opmC_Def_Col5X;
0951:         opm_ListView_Main.Column[6].Width := opmC_Def_Col6X;
0952:         opm_ListView_Main.Column[7].Width := opmC_Def_Col7X;
0953:         opm_ListView_Main.Column[8].Width := opmC_Def_Col8X;
0954:         opm_ListView_Main.Column[9].Width := opmC_Def_Col9X;
0955:         opm_ListView_Main.Column[10].Width := opmC_Def_Col10X;
0956:       END;
0957:   END;
0958:   
0959:   
0960:   
0961:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0962:   Updates the status bar information according to the parameters:
0963:   connection status (to change connection icon), main progress bar,
0964:   secondary progress bar, message caption and total products.
0965:   Any option can be left unchanged.
0966:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0967:   PROCEDURE Topm_Form_Main.PRopm_Update_StatusBar (ConnectedStat, ProgressStat, SecProgress : LONGINT; StatusString : STRING; ProductTotal : LONGINT; CurCurr : STRING);
0968:   BEGIN
0969:     IF (StatusString <> '') THEN
0970:       opm_StatusBar_Main.Panels[3].Text := StatusString;
0971:     IF (ProgressStat <> opmC_ProgressIgnore) THEN
0972:       BEGIN
0973:         opm_ProgressBar_Main.Position := ProgressStat;
0974:       END;
0975:     IF (SecProgress <> opmC_ProgressIgnore) THEN
0976:       BEGIN
0977:         opm_ProgressBar_Sec.Position := SecProgress;
0978:       END;
0979:     IF (ConnectedStat <> opmC_ConnStatIgnore) THEN
0980:       BEGIN
0981:         opm_ImageList_Status.GetIcon (ConnectedStat, opm_Image_Status.Picture.Icon);
0982:       END;
0983:     IF (ProductTotal <> opmC_PTotalIgnore) THEN
0984:       opm_StatusBar_Main.Panels[4].Text := INTTOSTR (ProductTotal) + ' ' + _('products');
0985:     IF (CurCurr <> '') THEN
0986:       opm_StatusBar_Main.Panels[5].Text := CurCurr
0987:     ELSE
0988:       opm_StatusBar_Main.Panels[5].Text := _('???');
0989:     opm_StatusBar_Main.Panels[6].Text := _('Mem:') + ' ' + INTTOSTR (FNopm_GetMemoryLoad) + '%';
0990:   END;
0991:   
0992:   
0993:   
0994:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0995:   Load the list of categories in memory and populate the
0996:   category boxlist.
0997:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0998:   PROCEDURE Topm_Form_Main.PRopm_LoadCategoryList (VAR CatList : opmT_CategoryList; VAR CatBoxList : TStringList);
0999:   VAR
1000:     CurCat : LONGINT;
1001:   BEGIN
1002:     CatList[0].ID := -1;
1003:     CatList[0].Parent := 0;
1004:     CatList[0].Name := '';
1005:     CurCat := 1;
1006:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting category list...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1007:     IF (FNopm_ExecQuery ('select ' + opmG_DBTable_Categories + '.categories_id, ' + opmG_DBTable_Categories + '.parent_id, ' + opmG_DBTable_CategoriesDescription + '.categories_name from ' + opmG_DBTable_Categories + ', ' + opmG_DBTable_CategoriesDescription + ' where ' + opmG_DBTable_CategoriesDescription + '.categories_id= ' + opmG_DBTable_Categories + '.categories_id and language_id=' + INTTOSTR (opm_CurrentLang) + ' ORDER BY ' + opmG_DBTable_CategoriesDescription + '.categories_name', opmC_SQLSelect) > 0) THEN
1008:       BEGIN
1009:         IF (opmG_DBQuery.Active = TRUE) THEN
1010:           BEGIN
1011:             Screen.Cursor := opmC_Wait_Mouse;
1012:             PRopm_WriteLog ('BEGIN record loading (LoadCatList)...');
1013:             opmG_DBQuery.First;
1014:             WHILE NOT opmG_DBQuery.EOF DO
1015:               BEGIN
1016:                 CatList[CurCat].ID := opmG_DBQuery.Fields[0].AsInteger;
1017:                 CatList[CurCat].Parent := opmG_DBQuery.Fields[1].AsInteger;
1018:                 CatList[CurCat].Name := FNopm_CleanString (opmG_DBQuery.Fields[2].AsString);
1019:                 IF (CatList[CurCat].Name = '') THEN CatList[CurCat].Name := opmC_Unamed_Cat;
1020:                 INC (CurCat);
1021:                 opmG_DBQuery.Next;
1022:               END;
1023:             PRopm_WriteLog ('END record loading.');
1024:             Screen.Cursor := opmC_Normal_Mouse;
1025:           END;
1026:       END;
1027:   
1028:   
1029:   
1030:   {
1031:    HERE GO THE VIRTUAL CATEGORIES DEFINITIONS...
1032:    
1033:     CatList[CurCat].ID := opmC_SC_TrashCanID;
1034:     CatList[CurCat].Parent := opmC_SC_Parent;
1035:     CatList[CurCat].Name := _('Deleted products');
1036:     CatList[CurCat].TreeIndex := opmC_SC_TrashCanIndex;
1037:     CatList[CurCat].ListIndex := opmC_SC_TrashCanIndex;
1038:     INC (CurCat);
1039:   
1040:   }
1041:   
1042:   
1043:   
1044:   
1045:   
1046:     opm_TotalCategories := CurCat;
1047:     CatBoxList.Clear;
1048:     PRopm_LoadCategoryBoxList (CatList, 0, 0, CurCat, CatBoxList);
1049:     CatList[0].ID := 0;
1050:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got category list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1051:   END;
1052:   
1053:   
1054:   
1055:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1056:   Scan the category list and recursively build the category boxlist.
1057:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1058:   PROCEDURE Topm_Form_Main.PRopm_LoadCategoryBoxList (VAR CatList : opmT_CategoryList; CatCurrentID, TreeDepth : LONGINT; VAR CatIndex : LONGINT; VAR CatBoxList : TStringList);
1059:   VAR
1060:     CurCat : LONGINT;
1061:   BEGIN
1062:     IF (CatCurrentID = 0) THEN CatIndex := 0;
1063:     FOR CurCat := 0 TO (opm_TotalCategories - 1) DO
1064:       BEGIN
1065:         IF ((CatList[CurCat].Parent = CatCurrentID) AND (CatList[CurCat].Parent < opmC_SC_Parent)) THEN
1066:           BEGIN
1067:             CatBoxList.Add (STRINGOFCHAR (opmC_CatList_Spacer, (TreeDepth * 2)) + CatList[CurCat].Name);
1068:             CatList[CurCat].ListIndex := CatIndex;
1069:             INC (CatIndex);
1070:             PRopm_LoadCategoryBoxList (CatList, CatList[CurCat].ID, (TreeDepth + 1), CatIndex, CatBoxList);
1071:           END;
1072:       END;
1073:   END;
1074:   
1075:   
1076:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1077:   Recursively build the category tree view.
1078:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1079:   PROCEDURE Topm_Form_Main.PRopm_AddCatTreeNode (VAR CatList : opmT_CategoryList; CatCurrentID : LONGINT; CurNode : TTreeNode; TreeDepth : INTEGER);
1080:   VAR
1081:     CurCat : LONGINT;
1082:     NewNode : TTreeNode;
1083:   BEGIN
1084:     FOR CurCat := 0 TO (opm_TotalCategories - 1) DO
1085:       BEGIN
1086:         IF ((CatList[CurCat].Parent = CatCurrentID) AND (CatList[CurCat].ID > 0) AND (CatList[CurCat].Parent < opmC_SC_Parent)) THEN
1087:           BEGIN
1088:             NewNode := opm_TreeView_Main.Items.AddChild (CurNode, CatList[CurCat].Name);
1089:             NewNode.ImageIndex := 2;
1090:             NewNode.SelectedIndex := 3;
1091:             CatList[CurCat].TreeIndex := NewNode.AbsoluteIndex;
1092:             PRopm_AddCatTreeNode (CatList, CatList[CurCat].ID, NewNode, (TreeDepth + 1));
1093:           END;
1094:       END;
1095:   END;
1096:   
1097:   
1098:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1099:   Loads the list of manufacturers and populate the
1100:   manufacturer boxlist.
1101:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1102:   PROCEDURE Topm_Form_Main.PRopm_LoadManufacturerList (VAR ManList : opmT_ManufacturerList; VAR ManBoxList : TStringList);
1103:   VAR
1104:     CurMan : LONGINT;
1105:   BEGIN
1106:     ManBoxList.Clear;
1107:     ManList[0].ID := 0;
1108:     ManList[0].Name := '';
1109:     ManList[0].ListIndex := 0;
1110:     ManBoxList.Add ('');
1111:     CurMan := 1;
1112:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting manufacturers list...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1113:     IF (FNopm_ExecQuery ('select manufacturers_id, manufacturers_name from ' + opmG_DBTable_Manufacturers + ' order by manufacturers_name', opmC_SQLSelect) > 0) THEN
1114:       BEGIN
1115:         IF (opmG_DBQuery.Active = TRUE) THEN
1116:           BEGIN
1117:             Screen.Cursor := opmC_Wait_Mouse;
1118:             PRopm_WriteLog ('BEGIN record loading (LoadManList)...');
1119:             opmG_DBQuery.First;
1120:             WHILE NOT opmG_DBQuery.EOF DO
1121:               BEGIN
1122:                 ManList[CurMan].ID := opmG_DBQuery.Fields[0].AsInteger;
1123:                 ManList[CurMan].Name := FNopm_CleanString (opmG_DBQuery.Fields[1].AsString);
1124:                 IF (ManList[CurMan].Name = '') THEN ManList[CurMan].Name := opmC_Unamed_Man;
1125:                 ManBoxList.Add (ManList[CurMan].Name);
1126:                 ManList[CurMan].ListIndex := CurMan;
1127:                 INC (CurMan);
1128:                 opmG_DBQuery.Next;
1129:               END;
1130:             PRopm_WriteLog ('END record loading.');
1131:             Screen.Cursor := opmC_Normal_Mouse;
1132:           END;
1133:       END;
1134:     opm_TotalManufacturers := CurMan;
1135:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got manufacturers list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1136:   END;
1137:   
1138:   
1139:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1140:   Loads the list of available languages and populate the
1141:   language boxlist.
1142:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1143:   PROCEDURE Topm_Form_Main.PRopm_LoadLanguageList (VAR LangList : opmT_LanguageList);
1144:   VAR
1145:     CurLang : LONGINT;
1146:     DisplayLangValid : BOOLEAN;
1147:   BEGIN
1148:     CurLang := 0;
1149:     DisplayLangValid := FALSE;
1150:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting languages list...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1151:     opmG_LanguageBoxList.Clear;
1152:     IF (FNopm_ExecQuery ('select languages_id, name from ' + opmG_DBTable_Languages + ' order by name', opmC_SQLSelect) > 0) THEN
1153:       BEGIN
1154:         IF (opmG_DBQuery.Active = TRUE) THEN
1155:           BEGIN
1156:             Screen.Cursor := opmC_Wait_Mouse;
1157:             PRopm_WriteLog ('BEGIN record loading (LoadLangList)...');
1158:             opmG_DBQuery.First;
1159:             WHILE NOT opmG_DBQuery.EOF DO
1160:               BEGIN
1161:                 LangList[CurLang].ID := opmG_DBQuery.Fields[0].AsInteger;
1162:                 LangList[CurLang].Name := FNopm_CleanString (opmG_DBQuery.Fields[1].AsString);
1163:                 IF (opm_CurrentLang = opmG_DBQuery.Fields[0].AsInteger) THEN DisplayLangValid := TRUE;
1164:                 LangList[CurLang].ListIndex := CurLang;
1165:                 opmG_LanguageBoxList.Add (LangList[CurLang].Name);
1166:                 INC (CurLang);
1167:                 opmG_DBQuery.Next;
1168:               END;
1169:             PRopm_WriteLog ('END record loading.');  
1170:             Screen.Cursor := opmC_Normal_Mouse;
1171:           END;
1172:       END;
1173:     opm_TotalLanguages := CurLang;
1174:     IF (DisplayLangValid = FALSE) THEN opm_CurrentLang := opmC_Def_DisplayLang;
1175:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got languages list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1176:   END;
1177:   
1178:   
1179:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1180:   Loads the product list according to the given category.
1181:   This routine don't modify the current display.
1182:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1183:   PROCEDURE Topm_Form_Main.PRopm_LoadProductListByCat (ProductCat : LONGINT; VAR ProdList : opmT_ProductList; VAR DescList : opmT_DescriptionList);
1184:   VAR
1185:     CurProd : LONGINT;
1186:     SQLStr : STRING;
1187:   BEGIN
1188:     BEGIN
1189:       CurProd := 0;
1190:       opm_WeAreSearching := FALSE;
1191:       PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting products list...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1192:       IF (opmG_Capa_MorePics6 = FALSE) THEN
1193:         BEGIN
1194:           IF (ProductCat > 0) THEN
1195:             SQLStr := 'select ' + opmG_DBTable_Products + '.products_id, ' + opmG_DBTable_Products + '.products_quantity, ' + opmG_DBTable_Products + '.products_model, ' +
1196:                        opmG_DBTable_Products + '.products_price, ' + opmG_DBTable_Products + '.products_weight, ' + opmG_DBTable_Products + '.manufacturers_id, ' +
1197:                        opmG_DBTable_ProductsDescription + '.products_name, ' + opmG_DBTable_Products + '.products_status, ' + opmG_DBTable_ProductsDescription + '.products_description, ' +
1198:                        opmG_DBTable_ProductsDescription + '.products_url, ' + opmG_DBTable_Products + '.products_image, ' +
1199:                        opmG_DBTable_Specials + '.specials_new_products_price, ' + opmG_DBTable_ProductsDescription + '.language_id, ' +
1200:                        opmG_DBTable_Products + '.products_tax_class_id, ' + opmG_DBTable_ProductsDescription + '.products_viewed, ' +
1201:                       'DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_available, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_added, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_last_modified, "%Y-%m-%d %H:%i:%S") ' +
1202:                       'from ' + opmG_DBTable_Products + ', ' + opmG_DBTable_ProductsDescription + ', ' + opmG_DBTable_ProductsToCategories + ' ' +
1203:                       'left join ' + opmG_DBTable_Specials + ' ON ' + opmG_DBTable_Products + '.products_id = ' + opmG_DBTable_Specials + '.products_id ' +
1204:                       'where ' + opmG_DBTable_Products + '.products_id=' + opmG_DBTable_ProductsDescription + '.products_id ' +
1205:                       'and ' + opmG_DBTable_ProductsToCategories + '.products_id=' + opmG_DBTable_Products + '.products_id and ' +
1206:                        opmG_DBTable_ProductsToCategories + '.categories_id=' + INTTOSTR (ProductCat) + ' ' +
1207:                       'order by ' + opmG_DBTable_ProductsDescription + '.products_name'
1208:           ELSE
1209:             SQLStr := 'select ' + opmG_DBTable_Products + '.products_id, ' + opmG_DBTable_Products + '.products_quantity, ' + opmG_DBTable_Products + '.products_model, ' +
1210:                        opmG_DBTable_Products + '.products_price, ' + opmG_DBTable_Products + '.products_weight, ' + opmG_DBTable_Products + '.manufacturers_id, ' +
1211:                        opmG_DBTable_ProductsDescription + '.products_name, ' + opmG_DBTable_Products + '.products_status, ' + opmG_DBTable_ProductsDescription + '.products_description, ' +
1212:                        opmG_DBTable_ProductsDescription + '.products_url, ' + opmG_DBTable_Products + '.products_image, ' +
1213:                        opmG_DBTable_Specials + '.specials_new_products_price, ' + opmG_DBTable_ProductsDescription + '.language_id, ' +
1214:                        opmG_DBTable_Products + '.products_tax_class_id, ' + opmG_DBTable_ProductsDescription + '.products_viewed, ' +
1215:                       'DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_available, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_added, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_last_modified, "%Y-%m-%d %H:%i:%S") ' +
1216:                       'from ' + opmG_DBTable_Products + ', ' + opmG_DBTable_ProductsDescription + ' ' +
1217:                       'left join ' + opmG_DBTable_Specials + ' ON ' + opmG_DBTable_Products + '.products_id = ' + opmG_DBTable_Specials + '.products_id ' +
1218:                       'LEFT JOIN ' + opmG_DBTable_ProductsToCategories + ' ON ' + opmG_DBTable_ProductsToCategories + '.products_id = ' + opmG_DBTable_Products + '.products_id  ' +
1219:                       'where ' + opmG_DBTable_Products + '.products_id=' + opmG_DBTable_ProductsDescription + '.products_id ' +
1220:                       'and (' + opmG_DBTable_ProductsToCategories + '.categories_id is null ' +
1221:                       'or ' + opmG_DBTable_ProductsToCategories + '.categories_id < 1) ' +
1222:                       'order by ' + opmG_DBTable_ProductsDescription + '.products_name';
1223:         END
1224:       ELSE
1225:         BEGIN
1226:           IF (ProductCat > 0) THEN
1227:             SQLStr := 'select ' + opmG_DBTable_Products + '.products_id, ' + opmG_DBTable_Products + '.products_quantity, ' + opmG_DBTable_Products + '.products_model, ' +
1228:                        opmG_DBTable_Products + '.products_price, ' + opmG_DBTable_Products + '.products_weight, ' + opmG_DBTable_Products + '.manufacturers_id, ' +
1229:                        opmG_DBTable_ProductsDescription + '.products_name, ' + opmG_DBTable_Products + '.products_status, ' + opmG_DBTable_ProductsDescription + '.products_description, ' +
1230:                        opmG_DBTable_ProductsDescription + '.products_url, ' + opmG_DBTable_Products + '.products_image, ' +
1231:                        opmG_DBTable_Specials + '.specials_new_products_price, ' + opmG_DBTable_ProductsDescription + '.language_id, ' +
1232:                        opmG_DBTable_Products + '.products_tax_class_id, ' + opmG_DBTable_ProductsDescription + '.products_viewed, ' +
1233:                       'DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_available, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_added, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_last_modified, "%Y-%m-%d %H:%i:%S") ' +
1234:                       ', products_subimage1, products_subimage2, products_subimage3, products_subimage4, products_subimage5, products_subimage6 ' +
1235:                       'from ' + opmG_DBTable_Products + ', ' + opmG_DBTable_ProductsDescription + ', ' + opmG_DBTable_ProductsToCategories + ' ' +
1236:                       'left join ' + opmG_DBTable_Specials + ' ON ' + opmG_DBTable_Products + '.products_id = ' + opmG_DBTable_Specials + '.products_id ' +
1237:                       'where ' + opmG_DBTable_Products + '.products_id=' + opmG_DBTable_ProductsDescription + '.products_id ' +
1238:                       'and ' + opmG_DBTable_ProductsToCategories + '.products_id=' + opmG_DBTable_Products + '.products_id and ' +
1239:                        opmG_DBTable_ProductsToCategories + '.categories_id=' + INTTOSTR (ProductCat) + ' ' +
1240:                       'order by ' + opmG_DBTable_ProductsDescription + '.products_name'
1241:           ELSE
1242:             SQLStr := 'select ' + opmG_DBTable_Products + '.products_id, ' + opmG_DBTable_Products + '.products_quantity, ' + opmG_DBTable_Products + '.products_model, ' +
1243:                        opmG_DBTable_Products + '.products_price, ' + opmG_DBTable_Products + '.products_weight, ' + opmG_DBTable_Products + '.manufacturers_id, ' +
1244:                        opmG_DBTable_ProductsDescription + '.products_name, ' + opmG_DBTable_Products + '.products_status, ' + opmG_DBTable_ProductsDescription + '.products_description, ' +
1245:                        opmG_DBTable_ProductsDescription + '.products_url, ' + opmG_DBTable_Products + '.products_image, ' +
1246:                        opmG_DBTable_Specials + '.specials_new_products_price, ' + opmG_DBTable_ProductsDescription + '.language_id, ' +
1247:                        opmG_DBTable_Products + '.products_tax_class_id, ' + opmG_DBTable_ProductsDescription + '.products_viewed, ' +
1248:                       'DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_available, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_added, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_last_modified, "%Y-%m-%d %H:%i:%S") ' +
1249:                       ', products_subimage1, products_subimage2, products_subimage3, products_subimage4, products_subimage5, products_subimage6 ' +
1250:                       'from ' + opmG_DBTable_Products + ', ' + opmG_DBTable_ProductsDescription + ' ' +
1251:                       'left join ' + opmG_DBTable_Specials + ' ON ' + opmG_DBTable_Products + '.products_id = ' + opmG_DBTable_Specials + '.products_id ' +
1252:                       'LEFT JOIN ' + opmG_DBTable_ProductsToCategories + ' ON ' + opmG_DBTable_ProductsToCategories + '.products_id = ' + opmG_DBTable_Products + '.products_id  ' +
1253:                       'where ' + opmG_DBTable_Products + '.products_id=' + opmG_DBTable_ProductsDescription + '.products_id ' +
1254:                       'and (' + opmG_DBTable_ProductsToCategories + '.categories_id is null ' +
1255:                       'or ' + opmG_DBTable_ProductsToCategories + '.categories_id < 1) ' +
1256:                       'order by ' + opmG_DBTable_ProductsDescription + '.products_name';
1257:         END;
1258:       IF (FNopm_ExecQuery (SQLStr, opmC_SQLSelect) > 0) THEN
1259:         BEGIN
1260:           IF (opmG_DBQuery.Active = TRUE) THEN
1261:             BEGIN
1262:               Screen.Cursor := opmC_Wait_Mouse;
1263:               PRopm_WriteLog ('BEGIN record loading (LoadProdList)...');
1264:               opmG_DBQuery.First;
1265:               WHILE NOT opmG_DBQuery.EOF DO
1266:                 BEGIN
1267:                   ProdList[CurProd].ID := opmG_DBQuery.Fields[0].AsInteger;
1268:                   ProdList[CurProd].Model := FNopm_CleanString (opmG_DBQuery.Fields[2].AsString);
1269:                   ProdList[CurProd].Quantity := opmG_DBQuery.Fields[1].AsInteger;
1270:                   ProdList[CurProd].Price := opmG_DBQuery.Fields[3].AsCurrency;
1271:                   ProdList[CurProd].Weight := opmG_DBQuery.Fields[4].AsFloat;
1272:                   ProdList[CurProd].ManufacturerID := opmG_DBQuery.Fields[5].AsInteger;
1273:                   ProdList[CurProd].CategoryID := ProductCat;
1274:                   ProdList[CurProd].DisplayName := FNopm_CleanString (opmG_DBQuery.Fields[6].AsString);
1275:                   IF (ProdList[CurProd].DisplayName = '') THEN ProdList[CurProd].DisplayName := opmC_Unamed_Prod;
1276:                   ProdList[CurProd].Available := opmG_DBQuery.Fields[7].AsInteger;
1277:                   ProdList[CurProd].ImageURL := FNopm_CleanString (opmG_DBQuery.Fields[10].AsString);
1278:                   ProdList[CurProd].Special := opmG_DBQuery.Fields[11].AsCurrency;
1279:                   ProdList[CurProd].LanguageID := opmG_DBQuery.Fields[12].AsInteger;
1280:                   ProdList[CurProd].Tax := opmG_DBQuery.Fields[13].AsInteger;
1281:   
1282:                   IF (opmG_Capa_MorePics6 = TRUE) THEN
1283:                     BEGIN
1284:                       ProdList[CurProd].ImageURL1 := FNopm_CleanString (opmG_DBQuery.Fields[18].AsString);
1285:                       ProdList[CurProd].ImageURL2 := FNopm_CleanString (opmG_DBQuery.Fields[19].AsString);
1286:                       ProdList[CurProd].ImageURL3 := FNopm_CleanString (opmG_DBQuery.Fields[20].AsString);
1287:                       ProdList[CurProd].ImageURL4 := FNopm_CleanString (opmG_DBQuery.Fields[21].AsString);
1288:                       ProdList[CurProd].ImageURL5 := FNopm_CleanString (opmG_DBQuery.Fields[22].AsString);
1289:                       ProdList[CurProd].ImageURL6 := FNopm_CleanString (opmG_DBQuery.Fields[23].AsString);
1290:                     END
1291:                   ELSE
1292:                     BEGIN
1293:                       ProdList[CurProd].ImageURL1 := '';
1294:                       ProdList[CurProd].ImageURL2 := '';
1295:                       ProdList[CurProd].ImageURL3 := '';
1296:                       ProdList[CurProd].ImageURL4 := '';
1297:                       ProdList[CurProd].ImageURL5 := '';
1298:                       ProdList[CurProd].ImageURL6 := '';
1299:                     END;
1300:   
1301:                   ProdList[CurProd].CreationDate := FNopm_StringToDate (opmG_DBQuery.Fields[16].AsString);
1302:                   IF (ProdList[CurProd].CreationDate < opmG_Fallback_DateTime) THEN
1303:                     ProdList[CurProd].CreationDate := opmG_Fallback_DateTime;
1304:                   ProdList[CurProd].ChangeDate := FNopm_StringToDate (opmG_DBQuery.Fields[17].AsString);
1305:                   IF (ProdList[CurProd].ChangeDate < ProdList[CurProd].CreationDate) THEN
1306:                     ProdList[CurProd].ChangeDate := ProdList[CurProd].CreationDate;
1307:                   ProdList[CurProd].AvailDate := FNopm_StringToDate (opmG_DBQuery.Fields[15].AsString);
1308:                   IF (ProdList[CurProd].AvailDate < ProdList[CurProd].CreationDate) THEN
1309:                     ProdList[CurProd].AvailDate := ProdList[CurProd].CreationDate;
1310:   
1311:                   DescList[CurProd].ID := opmG_DBQuery.Fields[0].AsInteger;
1312:                   DescList[CurProd].Name := FNopm_CleanString (opmG_DBQuery.Fields[6].AsString);
1313:                   IF (DescList[CurProd].Name = '') THEN DescList[CurProd].Name := opmC_Unamed_Prod;
1314:                   DescList[CurProd].Description := FNopm_CleanString (opmG_DBQuery.Fields[8].AsString);
1315:                   DescList[CurProd].URL := FNopm_CleanString (opmG_DBQuery.Fields[9].AsString);
1316:                   DescList[CurProd].Viewed := opmG_DBQuery.Fields[14].AsInteger;
1317:                   DescList[CurProd].LanguageID := opmG_DBQuery.Fields[12].AsInteger;
1318:                   INC (CurProd);
1319:                   opmG_DBQuery.Next;
1320:                 END;
1321:               PRopm_WriteLog ('END record loading.');  
1322:               Screen.Cursor := opmC_Normal_Mouse;
1323:             END;
1324:         END;
1325:       opm_TotalProducts := CurProd;
1326:       PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got products list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1327:     END;
1328:   END;
1329:   
1330:   
1331:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1332:   Loads the list of available tax classes into 
1333:   the taxes boxlist.
1334:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1335:   PROCEDURE Topm_Form_Main.PRopm_LoadTaxList (VAR TaxList : opmT_TaxList; VAR TaxBoxList : TStringList);
1336:   VAR
1337:     CurTax : LONGINT;
1338:   BEGIN
1339:     TaxBoxList.Clear;
1340:     TaxList[0].ID := 0;
1341:     TaxList[0].Name := '';
1342:     TaxList[0].ListIndex := 0;
1343:     TaxList[0].SumRate := 0;
1344:     TaxBoxList.Add ('');
1345:     CurTax := 1;
1346:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting taxes list...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1347:     IF (FNopm_ExecQuery ('select ' + opmG_DBTable_TaxClass + '.tax_class_id, tax_class_title, sum(tax_rate) from ' + opmG_DBTable_TaxClass + ' left join ' + opmG_DBTable_TaxRates + ' on ' + opmG_DBTable_TaxClass + '.tax_class_id=' + opmG_DBTable_TaxRates + '.tax_class_id group by tax_class_id order by tax_class_title', opmC_SQLSelect) > 0) THEN
1348:       BEGIN
1349:         IF (opmG_DBQuery.Active = TRUE) THEN
1350:           BEGIN
1351:             Screen.Cursor := opmC_Wait_Mouse;
1352:             PRopm_WriteLog ('BEGIN record loading (LoadTaxList)...');
1353:             opmG_DBQuery.First;
1354:             WHILE NOT opmG_DBQuery.EOF DO
1355:               BEGIN
1356:                 TaxList[CurTax].ID := opmG_DBQuery.Fields[0].AsInteger;
1357:                 TaxList[CurTax].Name := FNopm_CleanString (opmG_DBQuery.Fields[1].AsString);
1358:                 TaxList[CurTax].SumRate := opmG_DBQuery.Fields[2].AsFloat;
1359:                 IF (TaxList[CurTax].Name = '') THEN TaxList[CurTax].Name := opmC_Unamed_Tax;
1360:                 TaxList[CurTax].Name := TaxList[CurTax].Name + ' (' + CURRTOSTR (TaxList[CurTax].SumRate) + '%)';
1361:                 TaxBoxList.Add (TaxList[CurTax].Name);
1362:                 TaxList[CurTax].ListIndex := CurTax;
1363:                 INC (CurTax);
1364:                 opmG_DBQuery.Next;
1365:               END;
1366:             PRopm_WriteLog ('END record loading.');  
1367:             Screen.Cursor := opmC_Normal_Mouse;
1368:           END;
1369:       END;
1370:     opm_TotalTaxes := CurTax;
1371:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got taxes list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1372:   END;
1373:   
1374:   
1375:   
1376:   
1377:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1378:   Loads the current currency record
1379:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1380:   FUNCTION Topm_Form_Main.FNopm_LoadCurrency : opmR_Currency;
1381:   VAR
1382:     CurCurrR : opmR_Currency;
1383:   BEGIN
1384:     CurCurrR.Code := '';
1385:     CurCurrR.Left := '';
1386:     CurCurrR.Right := '';
1387:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting current currency...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1388:     IF (FNopm_ExecQuery ('select ' + opmG_DBTable_Currencies + '.code, ' + opmG_DBTable_Currencies + '.symbol_left, ' + opmG_DBTable_Currencies + '.symbol_right from ' +
1389:                           opmG_DBTable_Currencies + ', ' + opmG_DBTable_Configuration + ' where ' +
1390:                           opmG_DBTable_Configuration + '.configuration_key="DEFAULT_CURRENCY" and ' + 
1391:                           opmG_DBTable_Configuration + '.configuration_value=' + opmG_DBTable_Currencies + '.code', opmC_SQLSelect) > 0) THEN
1392:       BEGIN
1393:         IF (opmG_DBQuery.Active = TRUE) THEN
1394:           BEGIN
1395:             Screen.Cursor := opmC_Wait_Mouse;
1396:             opmG_DBQuery.First;
1397:             CurCurrR.Code := TRIM (opmG_DBQuery.Fields[0].AsString);
1398:             CurCurrR.Left := TRIM (opmG_DBQuery.Fields[1].AsString);
1399:             CurCurrR.Right := TRIM (opmG_DBQuery.Fields[2].AsString);
1400:             Screen.Cursor := opmC_Normal_Mouse;
1401:           END;
1402:       END;
1403:     FNopm_LoadCurrency := CurCurrR;
1404:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got current currency.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1405:   END;
1406:   
1407:   
1408:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1409:   Clears the current currency record
1410:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1411:   FUNCTION Topm_Form_Main.FNopm_ClearCurrency : opmR_Currency;
1412:   VAR
1413:     CurCurrR : opmR_Currency;
1414:   BEGIN
1415:     CurCurrR.Code := '';
1416:     CurCurrR.Left := '';
1417:     CurCurrR.Right := '';
1418:     FNopm_ClearCurrency := CurCurrR;
1419:   END;
1420:   
1421:   
1422:   
1423:   
1424:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1425:   Start the building of the category tree.
1426:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1427:   PROCEDURE Topm_Form_Main.PRopm_RenderCategoryDisplay (VAR CatList : opmT_CategoryList; VAR TreeControl : TTreeView; CurCatID : LONGINT);
1428:   VAR
1429:     MainNode, CurrentNode : TTreeNode;
1430:     CurCat : opmR_Category;
1431:     CatCount : LONGINT;
1432:   BEGIN
1433:     PRopm_WriteLog ('RenderCategoryDisplay BEGIN');
1434:     TreeControl.Items.BeginUpdate;
1435:     TreeControl.Items.Clear;
1436:     IF (opm_TotalCategories > 0) THEN
1437:       BEGIN
1438:         MainNode := TreeControl.Items.AddFirst (NIL, opmG_DBHost);
1439:         MainNode.ImageIndex := 0;
1440:         MainNode.SelectedIndex := 1;
1441:         PRopm_AddCatTreeNode (CatList, 0, MainNode, 0);
1442:         FOR CatCount := 0 TO (opm_TotalCategories - 1) DO
1443:           IF (CatList[CatCount].Parent = opmC_SC_Parent) THEN
1444:             BEGIN
1445:               CurrentNode := TreeControl.Items.Add (MainNode, CatList[CatCount].Name);
1446:               CatList[CatCount].TreeIndex := CurrentNode.AbsoluteIndex;
1447:               CurrentNode.ImageIndex := CatList[CatCount].ID - opmC_SC_BaseID + 3;
1448:               CurrentNode.SelectedIndex := CatList[CatCount].ID - opmC_SC_BaseID + 4;
1449:             END;
1450:         TreeControl.FullCollapse;
1451:         TreeControl.Items[0].Expand (FALSE);
1452:       END;
1453:     CurCat := FNopm_GetCategory (CatList, CurCatID, opmC_FindByID);
1454:     IF ((CurCat.TreeIndex > 0) AND (TreeControl.Items.Count >= CurCat.TreeIndex)) THEN
1455:       TreeControl.Items[CurCat.TreeIndex].Selected := TRUE;
1456:     TreeControl.Items.EndUpdate;
1457:     PRopm_WriteLog ('RenderCategoryDisplay END');
1458:   END;
1459:   
1460:   
1461:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1462:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1463:   PROCEDURE Topm_Form_Main.PRopm_RenderLanguageDisplay (VAR ListControl : TComboBox; VAR LangList : opmT_LanguageList);
1464:   VAR
1465:     CurLang : LONGINT;
1466:     DisplayLangIndex : LONGINT;
1467:   BEGIN
1468:     PRopm_WriteLog ('RenderLanguageDisplay BEGIN');
1469:     ListControl.Items.Clear;
1470:     ListControl.Items := opmG_LanguageBoxList;
1471:     DisplayLangIndex := -1;
1472:     FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
1473:       IF (opm_CurrentLang = LangList[CurLang].ID) THEN DisplayLangIndex := CurLang;
1474:     ListControl.ItemIndex := DisplayLangIndex;
1475:     PRopm_WriteLog ('RenderLanguageDisplay END');
1476:   END;
1477:   
1478:   
1479:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1480:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1481:   PROCEDURE Topm_Form_Main.PRopm_RenderProductDisplay (VAR CatList : opmT_CategoryList; VAR ManList : opmT_ManufacturerList; VAR ProdList : opmT_ProductList; VAR ListControl : TListView; CurProdID : LONGINT);
1482:   VAR
1483:     CurProd, DispProd : LONGINT;
1484:     CurItem : TListItem;
1485:     CurMan : opmR_Manufacturer;
1486:     CurCat : opmR_Category;
1487:   BEGIN
1488:     PRopm_WriteLog ('RenderProductDisplay BEGIN');
1489:     ListControl.Column[opmG_PList_LastOrderColumn].ImageIndex := -1;
1490:     ListControl.Items.BeginUpdate;
1491:     ListControl.Items.Clear;
1492:     DispProd := 0;
1493:     FOR CurProd := 0 TO (opm_TotalProducts - 1) DO
1494:       BEGIN
1495:         IF (ProdList[CurProd].LanguageID = opm_CurrentLang) THEN
1496:           BEGIN
1497:             CurItem := ListControl.Items.Add;
1498:             IF (ProdList[CurProd].Available > 0) THEN CurItem.ImageIndex := 0 ELSE CurItem.ImageIndex := 1;
1499:             CurItem.SubItems.Add (INTTOSTR (ProdList[CurProd].ID));
1500:             CurItem.SubItems.Add (ProdList[CurProd].Model);
1501:             CurCat := FNopm_GetCategory (CatList, ProdList[CurProd].CategoryID, opmC_FindByID);
1502:             CurItem.SubItems.Add (CurCat.Name);
1503:             CurItem.SubItems.Add (ProdList[CurProd].DisplayName);
1504:             CurMan := FNopm_GetManufacturer (ManList, ProdList[CurProd].ManufacturerID, opmC_FindByID);
1505:             CurItem.SubItems.Add (CurMan.Name);
1506:             CurItem.SubItems.Add (INTTOSTR (ProdList[CurProd].Quantity));
1507:             IF (ProdList[CurProd].Special > 0) THEN
1508:               CurItem.SubItems.Add (FNopm_CleanNumber (CURRTOSTR (ProdList[CurProd].Special), opmC_ValIsFloat))
1509:             ELSE
1510:               CurItem.SubItems.Add (FNopm_CleanNumber (CURRTOSTR (ProdList[CurProd].Price), opmC_ValIsFloat));
1511:             CurItem.SubItems.Add (FLOATTOSTR (ProdList[CurProd].Weight));
1512:             CurItem.SubItems.Add (FNopm_DateToString (ProdList[CurProd].AvailDate));
1513:             CurItem.SubItems.Add ('');
1514:             IF (ProdList[CurProd].Special > 0) THEN CurItem.SubItemImages[6] := 2;
1515:             IF ((ProdList[CurProd].ImageURL1 <> '') OR
1516:                 (ProdList[CurProd].ImageURL2 <> '') OR
1517:                 (ProdList[CurProd].ImageURL3 <> '') OR
1518:                 (ProdList[CurProd].ImageURL4 <> '') OR
1519:                 (ProdList[CurProd].ImageURL5 <> '') OR
1520:                 (ProdList[CurProd].ImageURL6 <> '')) THEN
1521:               CurItem.SubItemImages[9] := 10
1522:             ELSE IF (ProdList[CurProd].ImageURL <> '') THEN
1523:               CurItem.SubItemImages[9] := 6
1524:             ELSE
1525:               CurItem.SubItemImages[9] := 7;
1526:             INC (DispProd);
1527:             IF (CurProdID = ProdList[CurProd].ID) THEN
1528:               BEGIN
1529:                 ListControl.Selected := CurItem;
1530:                 ListControl.ItemFocused := CurItem;
1531:               END;
1532:           END;
1533:       END;
1534:     ListControl.Column[opmG_PList_LastOrderColumn].ImageIndex := 9;
1535:     ListControl.CustomSort (@FNopm_Sort_ProductList, opmG_PList_LastOrderColumn);
1536:     ListControl.Items.EndUpdate;
1537:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, opmC_ProgressIgnore, '', DispProd, opm_CurrentCurrency.Code);
1538:     PRopm_WriteLog ('RenderProductDisplay END');
1539:   END;
1540:   
1541:   
1542:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1543:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1544:   PROCEDURE Topm_Form_Main.PRopm_ClearCategoryList (VAR CatList : TStringList);
1545:   BEGIN
1546:     CatList.Clear;
1547:     opm_CurrentCategory := 0;
1548:     opm_TotalCategories := 0;
1549:   END;
1550:   
1551:   
1552:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1553:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1554:   PROCEDURE Topm_Form_Main.PRopm_ClearLanguageList (VAR LangList : TStringList);
1555:   BEGIN
1556:     LangList.Clear;
1557:     opm_TotalLanguages := 0;
1558:   END;
1559:   
1560:   
1561:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1562:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1563:   PROCEDURE Topm_Form_Main.PRopm_ClearManufacturerList (VAR ManList : TStringList);
1564:   BEGIN
1565:     ManList.Clear;
1566:     opm_TotalManufacturers := 0;
1567:   END;
1568:   
1569:   
1570:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1571:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1572:   PROCEDURE Topm_Form_Main.PRopm_ClearTaxList (VAR TaxList : TStringList);
1573:   BEGIN
1574:     TaxList.Clear;
1575:     opm_TotalTaxes := 0;
1576:   END;
1577:   
1578:   
1579:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1580:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1581:   PROCEDURE Topm_Form_Main.PRopm_ClearProductList (VAR ListView : TListView);
1582:   BEGIN
1583:     ListView.Items.BeginUpdate;
1584:     ListView.Items.Clear;
1585:     ListView.Items.EndUpdate;
1586:     opm_TotalProducts := 0;
1587:   END;
1588:   
1589:   
1590:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1591:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1592:   PROCEDURE Topm_Form_Main.PRopm_SearchProducts (PCategory, PManufacturer: LONGINT;
1593:                                                  PModel, PName, PDesc : STRING;
1594:                                                  PSPrice, PImgURL, PAvailable : LONGINT;
1595:                                                  VAR ProdList : opmT_ProductList;
1596:                                                  VAR DescList : opmT_DescriptionList;
1597:                                                  MultiString : STRING);
1598:   VAR
1599:     SelectStr, FromStr, WhereStr, OrderStr : STRING;
1600:     CurProd : LONGINT;
1601:   BEGIN
1602:     IF (opmG_Capa_MorePics6 = FALSE) THEN
1603:       SelectStr := 'select ' + opmG_DBTable_Products + '.products_id, ' + opmG_DBTable_Products + '.products_quantity, ' + opmG_DBTable_Products + '.products_model, ' + opmG_DBTable_Products + '.products_price, ' + opmG_DBTable_Products + '.products_weight, ' + opmG_DBTable_Products + '.manufacturers_id, ' +
1604:                    '' + opmG_DBTable_ProductsDescription + '.products_name, ' + opmG_DBTable_Products + '.products_status, ' + opmG_DBTable_ProductsDescription + '.products_description, ' + opmG_DBTable_ProductsDescription + '.products_url, ' + opmG_DBTable_Products + '.products_image, ' +
1605:                    '' + opmG_DBTable_Specials + '.specials_new_products_price, ' + opmG_DBTable_ProductsToCategories + '.categories_id, ' + opmG_DBTable_ProductsDescription + '.language_id, ' + opmG_DBTable_Products + '.products_tax_class_id, ' + opmG_DBTable_ProductsDescription + '.products_viewed, ' +
1606:                    'DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_available, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_added, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_last_modified, "%Y-%m-%d %H:%i:%S")'
1607:     ELSE
1608:       SelectStr := 'select ' + opmG_DBTable_Products + '.products_id, ' + opmG_DBTable_Products + '.products_quantity, ' + opmG_DBTable_Products + '.products_model, ' + opmG_DBTable_Products + '.products_price, ' + opmG_DBTable_Products + '.products_weight, ' + opmG_DBTable_Products + '.manufacturers_id, ' +
1609:                    '' + opmG_DBTable_ProductsDescription + '.products_name, ' + opmG_DBTable_Products + '.products_status, ' + opmG_DBTable_ProductsDescription + '.products_description, ' + opmG_DBTable_ProductsDescription + '.products_url, ' + opmG_DBTable_Products + '.products_image, ' +
1610:                    '' + opmG_DBTable_Specials + '.specials_new_products_price, ' + opmG_DBTable_ProductsToCategories + '.categories_id, ' + opmG_DBTable_ProductsDescription + '.language_id, ' + opmG_DBTable_Products + '.products_tax_class_id, ' + opmG_DBTable_ProductsDescription + '.products_viewed, ' +
1611:                    'DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_available, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_date_added, "%Y-%m-%d %H:%i:%S"), DATE_FORMAT(' + opmG_DBTable_Products + '.products_last_modified, "%Y-%m-%d %H:%i:%S"), ' +
1612:                    'products_subimage1, products_subimage2, products_subimage3, products_subimage4, products_subimage5, products_subimage6';
1613:     FromStr := ' from ' + opmG_DBTable_Products + ', ' + opmG_DBTable_ProductsDescription + ', ' + opmG_DBTable_ProductsToCategories + ' left join ' + opmG_DBTable_Specials + ' ON ' + opmG_DBTable_Products + '.products_id = ' + opmG_DBTable_Specials + '.products_id where';
1614:     OrderStr := ' order by ' + opmG_DBTable_ProductsDescription + '.products_name';
1615:     IF (PCategory > 0) THEN
1616:       WhereStr := WhereStr + ' ' + opmG_DBTable_ProductsToCategories + '.products_id=' + opmG_DBTable_Products + '.products_id and ' + opmG_DBTable_ProductsToCategories + '.categories_id=' + INTTOSTR (PCategory)
1617:     ELSE
1618:       WhereStr := WhereStr + ' ' + opmG_DBTable_ProductsToCategories + '.products_id=' + opmG_DBTable_Products + '.products_id';
1619:     IF (PManufacturer > 0) THEN
1620:       IF (WhereStr <> '')
1621:       THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_Products + '.manufacturers_id=' + INTTOSTR (PManufacturer)
1622:       ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_Products + '.manufacturers_id=' + INTTOSTR (PManufacturer);
1623:     IF (MultiString <> '') THEN
1624:       BEGIN
1625:           MultiString := FNopm_CleanSQLString (MultiString, TRUE);
1626:           IF (WhereStr <> '') THEN WhereStr := WhereStr + ' and ' ELSE WhereStr := WhereStr + ' ';
1627:           WhereStr := WhereStr + '(' + opmG_DBTable_Products + '.products_model like "%' + MultiString + '%"';
1628:           WhereStr := WhereStr + ' or ' + opmG_DBTable_ProductsDescription + '.products_name like "%' + MultiString + '%"';
1629:           WhereStr := WhereStr + ' or ' + opmG_DBTable_ProductsDescription + '.products_description like "%' + MultiString + '%")';
1630:       END
1631:     ELSE
1632:       BEGIN
1633:         IF (PModel <> '') THEN
1634:           IF (WhereStr <> '')
1635:           THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_Products + '.products_model like "%' + FNopm_CleanSQLString (PModel, TRUE) + '%"'
1636:           ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_Products + '.products_model like "%' + FNopm_CleanSQLString (PModel, TRUE) + '%"';
1637:         IF (PName <> '') THEN
1638:           IF (WhereStr <> '')
1639:           THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_ProductsDescription + '.products_name like "%' + FNopm_CleanSQLString (PName, TRUE) + '%"'
1640:           ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_ProductsDescription + '.products_name like "%' + FNopm_CleanSQLString (PName, TRUE) + '%"';
1641:         IF (PDesc <> '') THEN
1642:           IF (WhereStr <> '')
1643:           THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_ProductsDescription + '.products_description like "%' + FNopm_CleanSQLString (PDesc, TRUE) + '%"'
1644:           ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_ProductsDescription + '.products_description like "%' + FNopm_CleanSQLString (PDesc, TRUE) + '%"';
1645:       END;
1646:     IF (PAvailable = opmC_SearchYes) THEN
1647:       IF (WhereStr <> '')
1648:       THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_Products + '.products_status > 0'
1649:       ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_Products + '.products_status > 0'
1650:     ELSE IF (PAvailable = opmC_SearchNo) THEN
1651:       IF (WhereStr <> '')
1652:       THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_Products + '.products_status = 0'
1653:       ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_Products + '.products_status = 0';
1654:     IF (PImgURL = opmC_SearchYes) THEN
1655:       IF (WhereStr <> '')
1656:       THEN WhereStr := WhereStr + ' and ' + '(' + opmG_DBTable_Products + '.products_image <> "" and ' + opmG_DBTable_Products + '.products_image IS NOT NULL)'
1657:       ELSE WhereStr := WhereStr + ' (' + opmG_DBTable_Products + '.products_image <> "" and ' + opmG_DBTable_Products + '.products_image IS NOT NULL)'
1658:     ELSE IF (PImgURL = opmC_SearchNo) THEN
1659:       IF (WhereStr <> '')
1660:       THEN WhereStr := WhereStr + ' and ' + '(' + opmG_DBTable_Products + '.products_image = "" or ' + opmG_DBTable_Products + '.products_image IS NULL)'
1661:       ELSE WhereStr := WhereStr + ' (' + opmG_DBTable_Products + '.products_image = "" or ' + opmG_DBTable_Products + '.products_image IS NULL)';
1662:     IF (PSPrice = opmC_SearchYes) THEN
1663:       IF (WhereStr <> '')
1664:       THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_Specials + '.specials_new_products_price > 0'
1665:       ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_Specials + '.specials_new_products_price > 0'
1666:     ELSE IF (PSPrice = opmC_SearchNo) THEN
1667:       IF (WhereStr <> '')
1668:       THEN WhereStr := WhereStr + ' and (' + opmG_DBTable_Specials + '.specials_new_products_price = 0 or ' + opmG_DBTable_Specials + '.specials_new_products_price IS NULL)'
1669:       ELSE WhereStr := WhereStr + ' (' + opmG_DBTable_Specials + '.specials_new_products_price = 0 or ' + opmG_DBTable_Specials + '.specials_new_products_price IS NULL)';
1670:     IF (WhereStr <> '')
1671:     THEN WhereStr := WhereStr + ' and ' + opmG_DBTable_Products + '.products_id=' + opmG_DBTable_ProductsDescription + '.products_id'
1672:     ELSE WhereStr := WhereStr + ' ' + opmG_DBTable_Products + '.products_id=' + opmG_DBTable_ProductsDescription + '.products_id';
1673:     CurProd := 0;
1674:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting products list...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1675:     opm_WeAreSearching := TRUE;
1676:     IF (FNopm_ExecQuery (SelectStr + FromStr + WhereStr + OrderStr, opmC_SQLSelect) > 0) THEN
1677:       BEGIN
1678:         IF (opmG_DBQuery.Active = TRUE) THEN
1679:           BEGIN
1680:             Screen.Cursor := opmC_Wait_Mouse;
1681:             PRopm_WriteLog ('BEGIN record loading (LoadSearchList)...');
1682:             opmG_DBQuery.First;
1683:             WHILE NOT opmG_DBQuery.EOF DO
1684:               BEGIN
1685:                 ProdList[CurProd].ID := opmG_DBQuery.Fields[0].AsInteger;
1686:                 ProdList[CurProd].Model := FNopm_CleanString (opmG_DBQuery.Fields[2].AsString);
1687:                 ProdList[CurProd].Quantity := opmG_DBQuery.Fields[1].AsInteger;
1688:                 ProdList[CurProd].Price := opmG_DBQuery.Fields[3].AsCurrency;
1689:                 ProdList[CurProd].Weight := opmG_DBQuery.Fields[4].AsFloat;
1690:                 ProdList[CurProd].ManufacturerID := opmG_DBQuery.Fields[5].AsInteger;
1691:                 ProdList[CurProd].CategoryID := opmG_DBQuery.Fields[12].AsInteger;
1692:                 ProdList[CurProd].DisplayName := FNopm_CleanString (opmG_DBQuery.Fields[6].AsString);
1693:                 IF (TRIM (ProdList[CurProd].DisplayName) = '') THEN ProdList[CurProd].DisplayName := opmC_Unamed_Prod;
1694:                 ProdList[CurProd].Available := opmG_DBQuery.Fields[7].AsInteger;
1695:                 ProdList[CurProd].ImageURL := FNopm_CleanString (opmG_DBQuery.Fields[10].AsString);
1696:                 ProdList[CurProd].Special := opmG_DBQuery.Fields[11].AsCurrency;
1697:                 ProdList[CurProd].LanguageID := opmG_DBQuery.Fields[13].AsInteger;
1698:                 ProdList[CurProd].Tax := opmG_DBQuery.Fields[14].AsInteger;
1699:   
1700:                 ProdList[CurProd].CreationDate := FNopm_StringToDate (opmG_DBQuery.Fields[17].AsString);
1701:                 IF (ProdList[CurProd].CreationDate < opmG_Fallback_DateTime) THEN
1702:                   ProdList[CurProd].CreationDate := opmG_Fallback_DateTime;
1703:                 ProdList[CurProd].ChangeDate := FNopm_StringToDate (opmG_DBQuery.Fields[18].AsString);
1704:                 IF (ProdList[CurProd].ChangeDate < ProdList[CurProd].CreationDate) THEN
1705:                   ProdList[CurProd].ChangeDate := ProdList[CurProd].CreationDate;
1706:                 ProdList[CurProd].AvailDate := FNopm_StringToDate (opmG_DBQuery.Fields[16].AsString);
1707:                 IF (ProdList[CurProd].AvailDate < ProdList[CurProd].CreationDate) THEN
1708:                   ProdList[CurProd].AvailDate := ProdList[CurProd].CreationDate;
1709:   
1710:                 IF (opmG_Capa_MorePics6 = TRUE) THEN
1711:                   BEGIN
1712:                     ProdList[CurProd].ImageURL1 := FNopm_CleanString (opmG_DBQuery.Fields[19].AsString);
1713:                     ProdList[CurProd].ImageURL2 := FNopm_CleanString (opmG_DBQuery.Fields[20].AsString);
1714:                     ProdList[CurProd].ImageURL3 := FNopm_CleanString (opmG_DBQuery.Fields[21].AsString);
1715:                     ProdList[CurProd].ImageURL4 := FNopm_CleanString (opmG_DBQuery.Fields[22].AsString);
1716:                     ProdList[CurProd].ImageURL5 := FNopm_CleanString (opmG_DBQuery.Fields[23].AsString);
1717:                     ProdList[CurProd].ImageURL6 := FNopm_CleanString (opmG_DBQuery.Fields[24].AsString);
1718:                   END
1719:                 ELSE
1720:                   BEGIN
1721:                     ProdList[CurProd].ImageURL1 := '';
1722:                     ProdList[CurProd].ImageURL2 := '';
1723:                     ProdList[CurProd].ImageURL3 := '';
1724:                     ProdList[CurProd].ImageURL4 := '';
1725:                     ProdList[CurProd].ImageURL5 := '';
1726:                     ProdList[CurProd].ImageURL6 := '';
1727:                   END;
1728:   
1729:                 DescList[CurProd].ID := opmG_DBQuery.Fields[0].AsInteger;
1730:                 DescList[CurProd].Name := FNopm_CleanString (opmG_DBQuery.Fields[6].AsString);
1731:                 IF (TRIM (DescList[CurProd].Name) = '') THEN DescList[CurProd].Name := opmC_Unamed_Prod;
1732:                 DescList[CurProd].Description := FNopm_CleanString (opmG_DBQuery.Fields[8].AsString);
1733:                 DescList[CurProd].URL := FNopm_CleanString (opmG_DBQuery.Fields[9].AsString);
1734:                 DescList[CurProd].Viewed := opmG_DBQuery.Fields[15].AsInteger;
1735:                 DescList[CurProd].LanguageID := opmG_DBQuery.Fields[13].AsInteger;
1736:                 INC (CurProd);
1737:   
1738:                 opmG_DBQuery.Next;
1739:               END;
1740:             PRopm_WriteLog ('END record loading [' + INTTOSTR (CurProd) + '].');  
1741:             Screen.Cursor := opmC_Normal_Mouse;
1742:           END;
1743:       END;
1744:     opm_TotalProducts := CurProd;
1745:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got products list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1746:   END;
1747:   
1748:   
1749:   
1750:   
1751:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1752:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1753:   FUNCTION Topm_Form_Main.FNopm_GetCategory (VAR CatList : opmT_CategoryList; CatID : LONGINT; SearchBy : INTEGER) : opmR_Category;
1754:   VAR
1755:     CurCatR : opmR_Category;
1756:     CurCat : LONGINT;
1757:   BEGIN
1758:     CurCatR.ID := 0;
1759:     CurCatR.Parent := 0;
1760:     CurCatR.Name := '';
1761:     CurCatR.ListIndex := 0;
1762:     CurCatR.TreeIndex := 0;
1763:     FNopm_GetCategory := CurCatR;
1764:     IF (SearchBy = opmC_FindByID) THEN
1765:       FOR CurCat := 0 TO (opm_TotalCategories - 1) DO
1766:         BEGIN
1767:           IF (CatList[CurCat].ID = CatID) THEN
1768:             BEGIN
1769:               CurCatR.ID := CatList[CurCat].ID;
1770:               CurCatR.Parent := CatList[CurCat].Parent;
1771:               CurCatR.Name := CatList[CurCat].Name;
1772:               CurCatR.ListIndex := CatList[CurCat].ListIndex;
1773:               CurCatR.TreeIndex := CatList[CurCat].TreeIndex;
1774:               FNopm_GetCategory := CurCatR;
1775:               BREAK;
1776:             END;
1777:         END
1778:     ELSE IF (SearchBy = opmC_FindByIndex) THEN
1779:       FOR CurCat := 0 TO (opm_TotalCategories - 1) DO
1780:         BEGIN
1781:           IF (CatList[CurCat].ListIndex = CatID) THEN
1782:             BEGIN
1783:               CurCatR.ID := CatList[CurCat].ID;
1784:               CurCatR.Parent := CatList[CurCat].Parent;
1785:               CurCatR.Name := CatList[CurCat].Name;
1786:               CurCatR.ListIndex := CatList[CurCat].ListIndex;
1787:               CurCatR.TreeIndex := CatList[CurCat].TreeIndex;
1788:               FNopm_GetCategory := CurCatR;
1789:               BREAK;
1790:             END;
1791:         END
1792:     ELSE
1793:       FOR CurCat := 0 TO (opm_TotalCategories - 1) DO
1794:         BEGIN
1795:           IF (CatList[CurCat].TreeIndex = CatID) THEN
1796:             BEGIN
1797:               CurCatR.ID := CatList[CurCat].ID;
1798:               CurCatR.Parent := CatList[CurCat].Parent;
1799:               CurCatR.Name := CatList[CurCat].Name;
1800:               CurCatR.ListIndex := CatList[CurCat].ListIndex;
1801:               CurCatR.TreeIndex := CatList[CurCat].TreeIndex;
1802:               FNopm_GetCategory := CurCatR;
1803:               BREAK;
1804:             END;
1805:         END;
1806:   END;
1807:   
1808:   
1809:   
1810:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1811:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1812:   PROCEDURE Topm_Form_Main.PRopm_GetCategory_Data (CatID : LONGINT; VAR CatData : opmT_SingleCatList);
1813:   VAR
1814:     CurCat : LONGINT;
1815:     MaxCat : LONGINT;
1816:     CurLang : LONGINT;
1817:     TmpCatList : opmT_SingleCatList;
1818:   BEGIN
1819:     CatData[0].ID := -1;
1820:     CatData[0].Parent := 0;
1821:     CatData[0].Name := '';
1822:     CatData[0].LanguageID := -1;
1823:     CurCat := 0;
1824:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, _('Getting single category data...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1825:     IF (FNopm_ExecQuery ('select ' + opmG_DBTable_Categories + '.categories_id, ' + opmG_DBTable_Categories + '.parent_id, ' + opmG_DBTable_CategoriesDescription + '.categories_name, ' + opmG_DBTable_CategoriesDescription + '.language_id from ' + opmG_DBTable_Categories + ' left join ' + opmG_DBTable_CategoriesDescription + ' on ' + opmG_DBTable_Categories + '.categories_id=' + opmG_DBTable_CategoriesDescription + '.categories_id where ' + opmG_DBTable_Categories + '.categories_id=' + INTTOSTR (CatID) + ' ORDER BY ' + opmG_DBTable_CategoriesDescription + '.language_id', opmC_SQLSelect) > 0) THEN
1826:       BEGIN
1827:         IF (opmG_DBQuery.Active = TRUE) THEN
1828:           BEGIN
1829:             Screen.Cursor := opmC_Wait_Mouse;
1830:             PRopm_WriteLog ('BEGIN record loading (LoadCatDataList)...');
1831:             opmG_DBQuery.First;
1832:             WHILE NOT opmG_DBQuery.EOF DO
1833:               BEGIN
1834:                 CatData[CurCat].ID := opmG_DBQuery.Fields[0].AsInteger;
1835:                 CatData[CurCat].Parent := opmG_DBQuery.Fields[1].AsInteger;
1836:                 CatData[CurCat].Name := FNopm_CleanString (opmG_DBQuery.Fields[2].AsString);
1837:                 CatData[CurCat].LanguageID := opmG_DBQuery.Fields[3].AsInteger;
1838:                 IF (CatData[CurCat].Name = '') THEN CatData[CurCat].Name := opmC_Unamed_Cat;
1839:                 INC (CurCat);
1840:                 opmG_DBQuery.Next;
1841:               END;
1842:             PRopm_WriteLog ('END record loading.');  
1843:             Screen.Cursor := opmC_Normal_Mouse;
1844:           END;
1845:         MaxCat := (CurCat - 1);
1846:         FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
1847:           BEGIN
1848:             TmpCatList[CurLang].ID := -1;
1849:             TmpCatList[CurLang].Parent := 0;
1850:             TmpCatList[CurLang].Name := '';
1851:             TmpCatList[CurLang].LanguageID := -1;
1852:           END;
1853:         FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
1854:           BEGIN
1855:             FOR CurCat := 0 TO MaxCat DO
1856:               BEGIN
1857:                 IF (CatData[CurCat].LanguageID = opmG_LanguageList[CurLang].ID) THEN
1858:                   BEGIN
1859:                     TmpCatList[CurLang] := CatData[CurCat];
1860:                     BREAK;
1861:                   END;
1862:               END;
1863:           END;
1864:         CatData := TmpCatList;
1865:         { Sort the array... }
1866:   {      FOR CurCat := 0 TO (MaxCat) DO
1867:           BEGIN
1868:             CatIndex := CurCat;
1869:             FOR CatCount2 := (CurCat + 1) TO (MaxCat) DO
1870:               IF (CatData[CatIndex].LanguageID > CatData[CatCount2].LanguageID) THEN CatIndex := CatCount2;
1871:             opm_SwapCatRecord := CatData[CatIndex];
1872:             CatData[CatIndex] := CatData[CurCat];
1873:             CatData[CurCat] := opm_SwapCatRecord;
1874:           END;}
1875:       END;
1876:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got single category data.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
1877:   END;
1878:   
1879:   
1880:   
1881:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1882:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1883:   FUNCTION Topm_Form_Main.FNopm_GetRealLangIDByIndex (VAR LangList : opmT_LanguageList; LangIndex : LONGINT) : LONGINT;
1884:   VAR
1885:     CurLang : LONGINT;
1886:   BEGIN
1887:     FNopm_GetRealLangIDByIndex := 0;
1888:     FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
1889:       BEGIN
1890:         IF (LangList[CurLang].ListIndex = LangIndex) THEN
1891:           BEGIN
1892:             FNopm_GetRealLangIDByIndex := LangList[CurLang].ID;
1893:             BREAK;
1894:           END;
1895:       END;
1896:   END;
1897:   
1898:   
1899:   
1900:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1901:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1902:   FUNCTION Topm_Form_Main.FNopm_GetManufacturer (VAR ManList : opmT_ManufacturerList; ManID : LONGINT; SearchBy : INTEGER) : opmR_Manufacturer;
1903:   VAR
1904:     CurManR : opmR_Manufacturer;
1905:     CurMan : LONGINT;
1906:   BEGIN
1907:     CurManR.ID := 0;
1908:     CurManR.Name := '';
1909:     CurManR.ListIndex := 0;
1910:     FNopm_GetManufacturer := CurManR;
1911:     IF (SearchBy = opmC_FindByID) THEN
1912:       FOR CurMan := 0 TO (opm_TotalManufacturers - 1) DO
1913:         BEGIN
1914:           IF (ManList[CurMan].ID = ManID) THEN
1915:             BEGIN
1916:               CurManR.ID := ManList[CurMan].ID;
1917:               CurManR.Name := ManList[CurMan].Name;
1918:               CurManR.ListIndex := ManList[CurMan].ListIndex;
1919:               FNopm_GetManufacturer := CurManR;
1920:               BREAK;
1921:             END;
1922:         END
1923:     ELSE
1924:       FOR CurMan := 0 TO (opm_TotalManufacturers - 1) DO
1925:         BEGIN
1926:           IF (ManList[CurMan].ListIndex = ManID) THEN
1927:             BEGIN
1928:               CurManR.ID := ManList[CurMan].ID;
1929:               CurManR.Name := ManList[CurMan].Name;
1930:               CurManR.ListIndex := ManList[CurMan].ListIndex;
1931:               FNopm_GetManufacturer := CurManR;
1932:               BREAK;
1933:             END;
1934:         END;
1935:   END;
1936:   
1937:   
1938:   
1939:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1940:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1941:   FUNCTION Topm_Form_Main.FNopm_GetProductByID (ProdID, LangID : LONGINT; VAR ProdList : opmT_ProductList) : opmR_Product;
1942:   VAR
1943:     CurProdR : opmR_Product;
1944:     CurProd : LONGINT;
1945:   BEGIN
1946:     CurProdR.ID := -1;
1947:     FNopm_GetProductByID := CurProdR;
1948:     FOR CurProd := 0 TO (opm_TotalProducts - 1) DO
1949:       BEGIN
1950:         IF ((ProdList[CurProd].ID = ProdID) AND (ProdList[CurProd].LanguageID = LangID)) THEN
1951:           BEGIN
1952:             CurProdR.ID := ProdList[CurProd].ID;
1953:             CurProdR.Model := ProdList[CurProd].Model;
1954:             CurProdR.Quantity := ProdList[CurProd].Quantity;
1955:             CurProdR.Price := ProdList[CurProd].Price;
1956:             CurProdR.Weight := ProdList[CurProd].Weight;
1957:             CurProdR.ManufacturerID := ProdList[CurProd].ManufacturerID;
1958:             CurProdR.CategoryID := ProdList[CurProd].CategoryID;
1959:             CurProdR.DisplayName := ProdList[CurProd].DisplayName;
1960:             CurProdR.Available := ProdList[CurProd].Available;
1961:             CurProdR.ImageURL := ProdList[CurProd].ImageURL;
1962:             CurProdR.ImageURL1 := ProdList[CurProd].ImageURL1;
1963:             CurProdR.ImageURL2 := ProdList[CurProd].ImageURL2;
1964:             CurProdR.ImageURL3 := ProdList[CurProd].ImageURL3;
1965:             CurProdR.ImageURL4 := ProdList[CurProd].ImageURL4;
1966:             CurProdR.ImageURL5 := ProdList[CurProd].ImageURL5;
1967:             CurProdR.ImageURL6 := ProdList[CurProd].ImageURL6;
1968:             CurProdR.Special := ProdList[CurProd].Special;
1969:             CurProdR.LanguageID := ProdList[CurProd].LanguageID;
1970:             CurProdR.Tax := ProdList[CurProd].Tax;
1971:             CurProdR.CreationDate := ProdList[CurProd].CreationDate;
1972:             CurProdR.ChangeDate := ProdList[CurProd].ChangeDate;
1973:             CurProdR.AvailDate := ProdList[CurProd].AvailDate;
1974:             FNopm_GetProductByID := CurProdR;
1975:             BREAK;
1976:           END;
1977:       END;
1978:   END;
1979:   
1980:   
1981:   
1982:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1983:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
1984:   FUNCTION Topm_Form_Main.FNopm_GetDescriptionByID (ProdID, LangID : LONGINT; VAR DescList : opmT_DescriptionList) : opmR_Description;
1985:   VAR
1986:     CurDescR : opmR_Description;
1987:     CurDesc : LONGINT;
1988:   BEGIN
1989:     CurDescR.ID := -1;
1990:     FNopm_GetDescriptionByID := CurDescR;
1991:     FOR CurDesc := 0 TO (opm_TotalProducts - 1) DO
1992:       BEGIN
1993:         IF ((DescList[CurDesc].ID = ProdID) AND (DescList[CurDesc].LanguageID = LangID)) THEN
1994:           BEGIN
1995:             CurDescR.ID := DescList[CurDesc].ID;
1996:             CurDescR.Name := DescList[CurDesc].Name;
1997:             CurDescR.Description := DescList[CurDesc].Description;
1998:             CurDescR.URL := DescList[CurDesc].URL;
1999:             CurDescR.LanguageID := DescList[CurDesc].LanguageID;
2000:             CurDescR.Viewed := DescList[CurDesc].Viewed;
2001:             FNopm_GetDescriptionByID := CurDescR;
2002:             BREAK;
2003:           END;
2004:       END;
2005:   END;
2006:   
2007:   
2008:   
2009:   
2010:   
2011:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2012:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2013:   procedure Topm_Form_Main.opm_TreeView_MainChange(Sender: TObject; Node: TTreeNode);
2014:   begin
2015:     IF (opm_TreeView_Main.Selected <> NIL) THEN
2016:       BEGIN
2017:         opm_CurrentCatRecord := FNopm_GetCategory (opmG_CategoryList, Node.AbsoluteIndex, opmC_FindByNode);
2018:         opm_CurrentCategory := opm_CurrentCatRecord.ID;
2019:         IF (opm_CurrentCatRecord.ID < opmC_SC_BaseID) THEN
2020:           BEGIN
2021:             IF (opmG_UIClickLoad > 0) THEN
2022:               BEGIN
2023:                 PRopm_Sound ('MenuPopup', opmG_UISilent);
2024:                 PRopm_LoadProductListByCat (opm_CurrentCategory, opmG_ProductList, opmG_DescriptionList);
2025:                 PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
2026:                 IF (opm_CurrentCatRecord.ID > 0) THEN
2027:                   PRopm_Valid_CatOps (opm_WeAreConnected, opm_TreeView_Main.Selected)
2028:                 ELSE
2029:                   PRopm_Valid_CatOps (opm_WeAreConnected, NIL);
2030:                 PRopm_Valid_ProdOps (opm_WeAreConnected, opm_ListView_Main.Selected, opm_ListView_Main.SelCount, opm_TreeView_Main.Selected);
2031:               END;
2032:           END
2033:         ELSE
2034:           BEGIN
2035:             { CLICK IN SPECIAL NODE, PROCESS HERE... }
2036:             PRopm_Valid_CatOps (opm_WeAreConnected, NIL);
2037:             PRopm_Valid_ProdOps (opm_WeAreConnected, NIL, 0, NIL);
2038:           END
2039:       END
2040:     ELSE
2041:       BEGIN
2042:         PRopm_Valid_CatOps (opm_WeAreConnected, NIL);
2043:         PRopm_Valid_ProdOps (opm_WeAreConnected, NIL, 0, NIL);
2044:       END;
2045:   end;
2046:   
2047:   
2048:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2049:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2050:   procedure Topm_Form_Main.opm_MenuItem_RefreshCategoriesClick (Sender: TObject);
2051:   begin
2052:     PRopm_LoadLanguageList (opmG_LanguageList);
2053:     PRopm_LoadCategoryList (opmG_CategoryList, opmG_CategoryBoxList);
2054:     PRopm_LoadManufacturerList (opmG_ManufacturerList, opmG_ManufacturerBoxList);
2055:     PRopm_LoadTaxList (opmG_TaxList, opmG_TaxBoxList);
2056:     opm_CurrentCurrency := FNopm_LoadCurrency;
2057:     PRopm_RenderLanguageDisplay (opm_ComboBox_DisplayLang, opmG_LanguageList);
2058:     PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, opm_CurrentCategory);
2059:     PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
2060:   end;
2061:   
2062:   
2063:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2064:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2065:   procedure Topm_Form_Main.opm_MenuItem_RefreshProductsClick(Sender: TObject);
2066:   VAR
2067:     CurItem : TListItem;
2068:   BEGIN
2069:     CurItem := opm_ListView_Main.Selected;
2070:     IF (CurItem <> NIL) THEN opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2071:     PRopm_Reload_ProductList (opm_WeAreSearching);
2072:   end;
2073:   
2074:   
2075:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2076:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2077:   procedure Topm_Form_Main.opm_ComboBox_DisplayLangSelect(Sender: TObject);
2078:   begin
2079:     PRopm_Sound ('MenuPopup', opmG_UISilent);
2080:     opm_CurrentLang := FNopm_GetRealLangIDByIndex (opmG_LanguageList, opm_ComboBox_DisplayLang.ItemIndex);
2081:     PRopm_LoadLanguageList (opmG_LanguageList);
2082:     PRopm_LoadCategoryList (opmG_CategoryList, opmG_CategoryBoxList);
2083:     PRopm_LoadManufacturerList (opmG_ManufacturerList, opmG_ManufacturerBoxList);
2084:     PRopm_LoadTaxList (opmG_TaxList, opmG_TaxBoxList);
2085:     opm_CurrentCurrency := FNopm_LoadCurrency;
2086:     PRopm_RenderLanguageDisplay (opm_ComboBox_DisplayLang, opmG_LanguageList);
2087:     PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, opm_CurrentCategory);
2088:     PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
2089:   end;
2090:   
2091:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2092:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2093:   procedure Topm_Form_Main.opm_MenuItem_SearchProductClick(Sender: TObject);
2094:   begin
2095:     IF (opm_Form_SearchProduct.ShowModal = mrOk) THEN
2096:       BEGIN
2097:         PRopm_SearchProducts (opm_Search_PCategory, opm_Search_PManufacturer, opm_Search_PModel, opm_Search_PName, opm_Search_PDesc, opm_Search_PSPrice, opm_Search_PImagURL, opm_Search_PAvailable, opmG_ProductList, opmG_DescriptionList, '');
2098:         PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
2099:         PRopm_Valid_ProdOps (opm_WeAreConnected, opm_ListView_Main.Selected, opm_ListView_Main.SelCount, NIL);
2100:       END;
2101:   end;
2102:   
2103:   
2104:   
2105:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2106:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2107:   procedure Topm_Form_Main.opm_ListView_MainDblClick(Sender: TObject);
2108:   var
2109:      CurItem : TListItem;
2110:      CurLang : LONGINT;
2111:   begin
2112:     CurItem := opm_ListView_Main.Selected;
2113:     IF (CurItem <> NIL) THEN
2114:       BEGIN
2115:         opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2116:         opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
2117:         FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
2118:           opm_CurrentSingleDescList[CurLang] := FNopm_GetDescriptionByID (opm_CurrentProdRecord.ID, opmG_LanguageList[CurLang].ID, opmG_DescriptionList);
2119:         IF (opm_Form_PEdit.ShowModal = mrOk) THEN
2120:           BEGIN
2121:             PRopm_UpdateProduct (opm_CurrentProdRecord, opm_CurrentPEditRecord, opm_CurrentSingleDescList);
2122:           END;
2123:       END;
2124:   end;
2125:   
2126:   
2127:   
2128:   
2129:   
2130:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2131:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2132:   PROCEDURE Topm_Form_Main.PRopm_UpdateProduct (CurProdRecord, NewProdRecord : opmR_Product; SingleDescList : opmT_SingleDescList);
2133:   VAR
2134:     UStrProducts, UStrProdCats, IStrProdCats, DStrProdDesc, IStrProdDesc, DStrProdSpec, IStrProdSpec : STRING;
2135:     CurLang : LONGINT;
2136:   BEGIN
2137:     IF ((CurProdRecord.Model <> NewProdRecord.Model) OR
2138:         (CurProdRecord.Quantity <> NewProdRecord.Quantity) OR
2139:         (CurProdRecord.ManufacturerID <> NewProdRecord.ManufacturerID) OR
2140:         (CurProdRecord.CategoryID <> NewProdRecord.CategoryID) OR
2141:         (CurProdRecord.Price <> NewProdRecord.Price) OR
2142:         (CurProdRecord.Weight <> NewProdRecord.Weight) OR
2143:         (CurProdRecord.Available <> NewProdRecord.Available) OR
2144:         (CurProdRecord.Special <> NewProdRecord.Special) OR
2145:         (CurProdRecord.Tax <> NewProdRecord.Tax) OR
2146:         (CurProdRecord.AvailDate <> NewProdRecord.AvailDate) OR
2147:         (CurProdRecord.ImageURL <> NewProdRecord.ImageURL) OR
2148:         (CurProdRecord.ImageURL1 <> NewProdRecord.ImageURL1) OR
2149:         (CurProdRecord.ImageURL2 <> NewProdRecord.ImageURL2) OR
2150:         (CurProdRecord.ImageURL3 <> NewProdRecord.ImageURL3) OR
2151:         (CurProdRecord.ImageURL4 <> NewProdRecord.ImageURL4) OR
2152:         (CurProdRecord.ImageURL5 <> NewProdRecord.ImageURL5) OR
2153:         (CurProdRecord.ImageURL6 <> NewProdRecord.ImageURL6)) THEN
2154:       BEGIN
2155:         UStrProducts := '';
2156:         UStrProdCats := '';
2157:         IStrProdCats := '';
2158:         DStrProdSpec := '';
2159:         IStrProdSpec := '';
2160:         IF (opmG_UIConfirmMods = 0) OR ((opmG_UIConfirmMods > 0) AND (FNopm_Message (_('Do you really want to update this product?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
2161:           BEGIN
2162:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Updating product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2163:             IF (opmG_Capa_MorePics6 = FALSE) THEN
2164:               UStrProducts := 'update ' + opmG_DBTable_Products + ' set products_model="' + NewProdRecord.Model + '",'
2165:                             + ' products_quantity=' + INTTOSTR (NewProdRecord.Quantity) + ','
2166:                             + ' manufacturers_id=' + INTTOSTR (NewProdRecord.ManufacturerID) + ','
2167:                             + ' products_image="' + TRIM (NewProdRecord.ImageURL) + '",'
2168:                             + ' products_price=' + CURRTOSTR (NewProdRecord.Price) + ','
2169:                             + ' products_weight=' + FLOATTOSTR (NewProdRecord.Weight) + ','
2170:                             + ' products_status=' + INTTOSTR (NewProdRecord.Available) + ','
2171:                             + ' products_last_modified=now()' + ', '
2172:                             + ' products_tax_class_id=' + INTTOSTR (NewProdRecord.Tax) + ', '
2173:                             + ' products_date_available="' + FNopm_DateToString (NewProdRecord.AvailDate) + '"'
2174:                             + ' where products_id=' + INTTOSTR (NewProdRecord.ID)
2175:             ELSE
2176:               UStrProducts := 'update ' + opmG_DBTable_Products + ' set products_model="' + NewProdRecord.Model + '",'
2177:                             + ' products_quantity=' + INTTOSTR (NewProdRecord.Quantity) + ','
2178:                             + ' manufacturers_id=' + INTTOSTR (NewProdRecord.ManufacturerID) + ','
2179:                             + ' products_image="' + TRIM (NewProdRecord.ImageURL) + '",'
2180:                             + ' products_price=' + CURRTOSTR (NewProdRecord.Price) + ','
2181:                             + ' products_weight=' + FLOATTOSTR (NewProdRecord.Weight) + ','
2182:                             + ' products_status=' + INTTOSTR (NewProdRecord.Available) + ','
2183:                             + ' products_last_modified=now()' + ', '
2184:                             + ' products_tax_class_id=' + INTTOSTR (NewProdRecord.Tax) + ', '
2185:                             + ' products_date_available="' + FNopm_DateToString (NewProdRecord.AvailDate) + '", '
2186:                             + ' products_subimage1="' + TRIM (NewProdRecord.ImageURL1) + '",'
2187:                             + ' products_subimage2="' + TRIM (NewProdRecord.ImageURL2) + '",'
2188:                             + ' products_subimage3="' + TRIM (NewProdRecord.ImageURL3) + '",'
2189:                             + ' products_subimage4="' + TRIM (NewProdRecord.ImageURL4) + '",'
2190:                             + ' products_subimage5="' + TRIM (NewProdRecord.ImageURL5) + '",'
2191:                             + ' products_subimage6="' + TRIM (NewProdRecord.ImageURL6) + '"'
2192:                             + ' where products_id=' + INTTOSTR (NewProdRecord.ID);
2193:             IF (CurProdRecord.CategoryID <> NewProdRecord.CategoryID) THEN
2194:               BEGIN
2195:                 UStrProdCats := 'delete from ' + opmG_DBTable_ProductsToCategories + ''
2196:                               + ' where products_id=' + INTTOSTR (NewProdRecord.ID) + ' and categories_id=' + INTTOSTR (CurProdRecord.CategoryID);
2197:                 IStrProdCats := 'insert into ' + opmG_DBTable_ProductsToCategories + ' (products_id, categories_id)' + ''
2198:                               + ' values (' + INTTOSTR (CurProdRecord.ID) + ', ' + INTTOSTR (NewProdRecord.CategoryID) + ')';
2199:               END
2200:             ELSE
2201:               BEGIN
2202:                 UStrProdCats := '';
2203:                 IStrProdCats := '';
2204:               END;
2205:             IF (CurProdRecord.Special <> NewProdRecord.Special) THEN
2206:               DStrProdSpec := 'delete from ' + opmG_DBTable_Specials + ''  + ''
2207:                             + ' where products_id=' + INTTOSTR (NewProdRecord.ID)
2208:             ELSE
2209:               DStrProdSpec := '';
2210:             IF ((ROUND (NewProdRecord.Special) > 0) AND (CurProdRecord.Special <> NewProdRecord.Special)) THEN
2211:               IStrProdSpec := 'insert into ' + opmG_DBTable_Specials + ' (products_id, specials_new_products_price, specials_date_added, specials_last_modified)' + ''
2212:                             + ' values (' + INTTOSTR (NewProdRecord.ID) + ', ' + CURRTOSTR (NewProdRecord.Special) + ', now(), now())'
2213:             ELSE
2214:               IStrProdSpec := '';
2215:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 18, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2216:             IF (UStrProducts <> '') THEN FNopm_ExecQuery (UStrProducts, opmC_SQLUpdate);
2217:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 36, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2218:             IF (UStrProdCats <> '') THEN FNopm_ExecQuery (UStrProdCats, opmC_SQLUpdate);
2219:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 52, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2220:             IF (IStrProdCats <> '') THEN FNopm_ExecQuery (IStrProdCats, opmC_SQLInsert);
2221:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 70, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2222:             IF (DStrProdSpec <> '') THEN FNopm_ExecQuery (DStrProdSpec, opmC_SQLDelete);
2223:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 88, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2224:             IF (IStrProdSpec <> '') THEN FNopm_ExecQuery (IStrProdSpec, opmC_SQLInsert);
2225:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 100, opmC_ProgressNone, _('Product record updated.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2226:           END;
2227:       END;
2228:       DStrProdDesc := 'delete from ' + opmG_DBTable_ProductsDescription + ''
2229:                     + ' where products_id=' + INTTOSTR (NewProdRecord.ID);
2230:       FNopm_ExecQuery (DStrProdDesc, opmC_SQLDelete);
2231:       FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
2232:         IF (SingleDescList[CurLang].ID > 0) THEN
2233:           BEGIN
2234:             IStrProdDesc := 'insert into ' + opmG_DBTable_ProductsDescription + ' (products_name, products_description, products_url, products_id, language_id)' + ''
2235:                           + ' values ("' + FNopm_CleanSQLString (SingleDescList[CurLang].Name, FALSE) + '",'
2236:                           + ' "' + FNopm_CleanSQLString (SingleDescList[CurLang].Description, FALSE) + '",'
2237:                           + ' "' + FNopm_CleanSQLString (SingleDescList[CurLang].URL, FALSE) + '", '
2238:                           + INTTOSTR (SingleDescList[CurLang].ID) + ', ' + INTTOSTR (SingleDescList[CurLang].LanguageID) + ')';
2239:             FNopm_ExecQuery (IStrProdDesc, opmC_SQLInsert);
2240:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, (CurLang * ROUND (100 / opmC_Max_Languages_PerList)), opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2241:           END;
2242:       PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Reloading product list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2243:       opm_CurrentCategory := opm_CurrentCatRecord.ID;
2244:       PRopm_Reload_ProductList (opm_WeAreSearching);
2245:       PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Product list loaded.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2246:   END;
2247:   
2248:   
2249:   
2250:   
2251:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2252:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2253:   PROCEDURE Topm_Form_Main.PRopm_UpdateProdData (ProdID : LONGINT; ProdTable, ProdField, ProdDataStr : STRING;
2254:                                                  PDataIsNum : BOOLEAN; SecIDField, SecIDData : STRING;
2255:                                                  SQLQueryType : INTEGER);
2256:   VAR
2257:     UStrProducts, DStrProducts : STRING;
2258:   BEGIN
2259:     UStrProducts := '';
2260:     DStrProducts := '';
2261:     IF (ProdID > 0) AND (ProdTable <> '') AND (ProdField <> '') AND (ProdDataStr <> '') THEN
2262:       BEGIN
2263:         IF (opmG_UIConfirmMods = 0) OR ((opmG_UIConfirmMods > 0) AND (FNopm_Message (_('Do you really want to update this product?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
2264:           BEGIN
2265:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 0, opmC_ProgressIgnore, _('Updating product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2266:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressIgnore, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2267:             IF (SQLQueryType = opmC_SQLUpdate) THEN
2268:               BEGIN
2269:                 IF (PDataIsNum = TRUE) THEN
2270:                   UStrProducts := 'update ' + ProdTable + ' set ' + ProdField + '=' + ProdDataStr + ''
2271:                                 + ' where products_id=' + INTTOSTR (ProdID)
2272:                 ELSE
2273:                   UStrProducts := 'update ' + ProdTable + ' set ' + ProdField + '="' + FNopm_CleanSQLString (ProdDataStr, FALSE) + '"'
2274:                                 + ' where products_id=' + INTTOSTR (ProdID);
2275:                 IF (SecIDField <> '') THEN UStrProducts := UStrProducts + ' and ' + SecIDField + '=' + SecIDData;
2276:                 FNopm_ExecQuery (UStrProducts, opmC_SQLUpdate);
2277:               END;
2278:             IF ((SQLQueryType = opmC_SQLDelIns) OR (SQLQueryType = opmC_SQLDelInsNoZero)) THEN
2279:               BEGIN
2280:                 DStrProducts := 'delete from ' + ProdTable + '' + ' where products_id=' + INTTOSTR (ProdID);
2281:                 IF (PDataIsNum = TRUE) THEN
2282:                   BEGIN
2283:                     IF NOT ((SQLQueryType = opmC_SQLDelInsNoZero) AND (STRTOFLOAT (ProdDataStr) = 0)) THEN
2284:                       UStrProducts := 'insert into ' + ProdTable + ' (products_id, ' + ProdField + ')' + ''
2285:                                     + ' values (' + INTTOSTR (ProdID) + ', '  + FNopm_CleanSQLString (ProdDataStr, FALSE) + ')';
2286:                   END
2287:                 ELSE
2288:                   BEGIN
2289:                     IF NOT ((SQLQueryType = opmC_SQLDelInsNoZero) AND (ProdDataStr = '')) THEN
2290:                       UStrProducts := 'insert into ' + ProdTable + ' (products_id, ' + ProdField + ')' + ''
2291:                                     + ' values ('  + INTTOSTR (ProdID) + ', "' + FNopm_CleanSQLString (ProdDataStr, FALSE) + '")';
2292:                   END;
2293:                 FNopm_ExecQuery (DStrProducts, opmC_SQLUpdate);
2294:                 FNopm_ExecQuery (UStrProducts, opmC_SQLUpdate);
2295:               END;
2296:             IF (SQLQueryType = opmC_SQLInsert) THEN
2297:               BEGIN
2298:                 IF (PDataIsNum = TRUE) THEN
2299:                   UStrProducts := 'insert into ' + ProdTable + ' (products_id, ' + ProdField + ')' + ''
2300:                                 + ' values (' + INTTOSTR (ProdID) + ', '  + FNopm_CleanSQLString (ProdDataStr, FALSE) + ')'
2301:                 ELSE
2302:                   UStrProducts := 'insert into ' + ProdTable + ' (products_id, ' + ProdField + ')' + ''
2303:                                 + ' values ('  + INTTOSTR (ProdID) + ', "' + FNopm_CleanSQLString (ProdDataStr, FALSE) + '")';
2304:                 FNopm_ExecQuery (UStrProducts, opmC_SQLUpdate);
2305:               END;
2306:           END;
2307:       END;
2308:   END;
2309:   
2310:   
2311:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2312:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2313:   PROCEDURE Topm_Form_Main.PRopm_DeleteProduct (ProdID : LONGINT);
2314:   VAR
2315:     DStrProducts, DStrProdDesc, DStrProdSpec, DStrProdCats : STRING;
2316:     ResStr : STRING;
2317:   BEGIN
2318:     IF (ProdID > 0) THEN
2319:       BEGIN
2320:         opm_CurrentProdRecord := FNopm_GetProductByID (ProdID, opm_CurrentLang, opmG_ProductList);
2321:         IF (opmG_UIConfirmDels = 0) OR ((opmG_UIConfirmDels > 0) AND (FNopm_Message (_('Do you really want to delete this product?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
2322:           BEGIN
2323:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 18, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2324:             PRopm_Prepare_HTTPClient (NIL, NIL, ((opmG_UseProxy > 0) AND (opmG_ProxyApply IN [0, 1])));
2325:             DStrProducts := 'delete from ' + opmG_DBTable_Products + ' where products_id=' + INTTOSTR (ProdID);
2326:             DStrProdCats := 'delete from ' + opmG_DBTable_ProductsToCategories + ' where products_id=' + INTTOSTR (ProdID);
2327:             DStrProdSpec := 'delete from ' + opmG_DBTable_Specials + ' where products_id=' + INTTOSTR (ProdID);
2328:             DStrProdDesc := 'delete from ' + opmG_DBTable_ProductsDescription + ' where products_id=' + INTTOSTR (ProdID);
2329:             IF (FNopm_ExecQuery (DStrProducts, opmC_SQLUpdate) >= 0) THEN
2330:               BEGIN
2331:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 36, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2332:                 FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL, ResStr);
2333:                 IF (opmG_Capa_MorePics6 = TRUE) THEN
2334:                   BEGIN
2335:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 38, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2336:                     FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL1, ResStr);
2337:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 41, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2338:                     FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL2, ResStr);
2339:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 43, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2340:                     FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL3, ResStr);
2341:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 46, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2342:                     FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL4, ResStr);
2343:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 48, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2344:                     FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL5, ResStr);
2345:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 51, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2346:                     FNopm_Send_Command (opmG_WBUploadURL, 'delete', opm_CurrentProdRecord.ImageURL6, ResStr);
2347:                   END;
2348:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 54, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2349:                 FNopm_ExecQuery (DStrProdCats, opmC_SQLUpdate);
2350:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 72, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2351:                 FNopm_ExecQuery (DStrProdSpec, opmC_SQLUpdate);
2352:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 90, opmC_ProgressIgnore, _('Deleting product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2353:                 FNopm_ExecQuery (DStrProdDesc, opmC_SQLUpdate);
2354:               END;
2355:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 0, opmC_ProgressIgnore, _('Product deleted.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2356:           END;
2357:       END;
2358:   END;
2359:   
2360:   
2361:   
2362:   
2363:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2364:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2365:   PROCEDURE Topm_Form_Main.PRopm_AddProduct (NewProdRecord : opmR_Product; SingleDescList : opmT_SingleDescList);
2366:   VAR
2367:     IStrProducts, IStrProdCats, IStrProdDesc, IStrProdSpec, IStrCheckID : STRING;
2368:     LastID : LONGINT;
2369:     CurLang : LONGINT;
2370:   BEGIN
2371:     LastID := 0;
2372:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Adding product record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2373:     IF (opmG_Capa_MorePics6 = FALSE) THEN
2374:       IStrProducts := 'insert into ' + opmG_DBTable_Products + ' (products_model, products_quantity, manufacturers_id, products_price, products_weight, products_status, products_last_modified, products_date_added, products_tax_class_id, products_date_available, products_image)' + ''
2375:                     + ' values ("' + NewProdRecord.Model + '", '
2376:                     + INTTOSTR (NewProdRecord.Quantity) + ', ' + INTTOSTR (NewProdRecord.ManufacturerID) + ', '
2377:                     + CURRTOSTR (NewProdRecord.Price) + ', ' + FLOATTOSTR (NewProdRecord.Weight) + ', '
2378:                     + INTTOSTR (NewProdRecord.Available) + ', ' + 'now(), now(), '
2379:                     + INTTOSTR (NewProdRecord.Tax) + ', "' + FNopm_DateToString (NewProdRecord.AvailDate) + '", "' + TRIM (NewProdRecord.ImageURL) + '")'
2380:     ELSE
2381:       IStrProducts := 'insert into ' + opmG_DBTable_Products + ' (products_model, products_quantity, manufacturers_id, products_price, products_weight, products_status, products_last_modified, products_date_added, products_tax_class_id, products_date_available, products_image, '
2382:                     + 'products_subimage1, products_subimage2, products_subimage3, products_subimage4, products_subimage5, products_subimage6)' + ''
2383:                     + ' values ("' + NewProdRecord.Model + '", '
2384:                     + INTTOSTR (NewProdRecord.Quantity) + ', ' + INTTOSTR (NewProdRecord.ManufacturerID) + ', '
2385:                     + CURRTOSTR (NewProdRecord.Price) + ', ' + FLOATTOSTR (NewProdRecord.Weight) + ', '
2386:                     + INTTOSTR (NewProdRecord.Available) + ', ' + 'now(), now(), '
2387:                     + INTTOSTR (NewProdRecord.Tax) + ', "' + FNopm_DateToString (NewProdRecord.AvailDate) + '", "' + TRIM (NewProdRecord.ImageURL) + '", "' 
2388:                     + TRIM (NewProdRecord.ImageURL1) + '", "' + TRIM (NewProdRecord.ImageURL2) + '", "' + TRIM (NewProdRecord.ImageURL3) + '", "'
2389:                     + TRIM (NewProdRecord.ImageURL4) + '", "' + TRIM (NewProdRecord.ImageURL3) + '", "' + TRIM (NewProdRecord.ImageURL6) + '")';
2390:     IStrCheckID := 'select products_id from ' + opmG_DBTable_Products + ' where products_id=last_insert_id()';
2391:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 30, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2392:     FNopm_ExecQuery (IStrProducts, opmC_SQLInsert);
2393:     IF (FNopm_ExecQuery (IStrCheckID, opmC_SQLSelect) > 0) THEN
2394:       IF (opmG_DBQuery.Active = TRUE) THEN
2395:         BEGIN
2396:           opmG_DBQuery.First;
2397:           LastID := opmG_DBQuery.Fields[0].AsInteger;
2398:         END;
2399:     IF (LastID > 0) THEN
2400:       BEGIN
2401:         IF (NewProdRecord.CategoryID >= 0) THEN
2402:           IStrProdCats := 'insert into ' + opmG_DBTable_ProductsToCategories + ' (products_id, categories_id)' + ''
2403:                         + ' values (' + INTTOSTR (LastID) + ', ' + INTTOSTR (NewProdRecord.CategoryID) + ')'
2404:         ELSE IStrProdCats := '';
2405:         IF (ROUND (NewProdRecord.Special) > 0) THEN
2406:           IStrProdSpec := 'insert into ' + opmG_DBTable_Specials + ' (products_id, specials_new_products_price, specials_date_added, specials_last_modified)' + ''
2407:                         + ' values (' + INTTOSTR (LastID) + ', ' + CURRTOSTR (NewProdRecord.Special) + ', now(), now())'
2408:         ELSE
2409:           IStrProdSpec := '';
2410:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, 60, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2411:         FNopm_ExecQuery (IStrProdCats, opmC_SQLInsert);
2412:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, 90, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2413:         IF (IStrProdSpec <> '') THEN FNopm_ExecQuery (IStrProdSpec, opmC_SQLInsert);
2414:       END;
2415:       FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
2416:         IF (SingleDescList[CurLang].ID = opmC_InsertProdID) THEN
2417:           BEGIN
2418:             IStrProdDesc := 'insert into ' + opmG_DBTable_ProductsDescription + ' (products_name, products_description, products_url, products_id, language_id, products_viewed)' + ''
2419:                           + ' values ("' + FNopm_CleanSQLString (SingleDescList[CurLang].Name, FALSE) + '",'
2420:                           + ' "' + FNopm_CleanSQLString (SingleDescList[CurLang].Description, FALSE) + '",'
2421:                           + ' "' + FNopm_CleanSQLString (SingleDescList[CurLang].URL, FALSE) + '", '
2422:                           + INTTOSTR (LastID) + ', ' + INTTOSTR (SingleDescList[CurLang].LanguageID) + ', 0)';
2423:             FNopm_ExecQuery (IStrProdDesc, opmC_SQLInsert);
2424:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, (CurLang * ROUND (100 / opmC_Max_Languages_PerList)), opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2425:           END;
2426:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 100, opmC_ProgressNone, _('Product record added.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2427:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Reloading product list.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2428:     opm_CurrentCategory := opm_CurrentCatRecord.ID;
2429:     PRopm_Reload_ProductList (opm_WeAreSearching);
2430:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Product list loaded.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2431:   END;
2432:   
2433:   
2434:   
2435:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2436:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2437:   PROCEDURE Topm_Form_Main.PRopm_Valid_CatOps (WeAreConnected : BOOLEAN; SelectedCat : TTreeNode);
2438:   BEGIN
2439:     IF (WeAreConnected = TRUE) THEN
2440:       BEGIN
2441:         opm_MenuItem_RefreshCategories.Enabled := TRUE;
2442:         opm_MenuItem_ManAdd.Enabled := TRUE;
2443:         opm_MenuItem_ManRename.Enabled := TRUE;
2444:         opm_MenuItem_ManDelete.Enabled := TRUE;
2445:         opm_MenuItem_SearchProduct.Enabled := TRUE;
2446:         opm_MenuItem_Backup.Enabled := TRUE;
2447:         opm_ToolButton_Search.Enabled := TRUE;
2448:         opm_Edit_QuickSearch.Enabled := TRUE;
2449:         opm_SpeedButton_QuickSearch.Enabled := TRUE;
2450:         IF (SelectedCat <> NIL) THEN
2451:           BEGIN
2452:             opm_MenuItem_CategoryAdd.Enabled := TRUE;
2453:             opm_ToolButton_AddCat.Enabled := TRUE;
2454:             opm_PopMenuItem_CatAdd.Enabled := TRUE;
2455:             opm_MenuItem_CategoryRename.Enabled := TRUE;
2456:             opm_ToolButton_RenCat.Enabled := TRUE;
2457:             opm_PopMenuItem_CatRename.Enabled := TRUE;
2458:             opm_MenuItem_CategoryDelete.Enabled := TRUE;
2459:             opm_ToolButton_DelCat.Enabled := TRUE;
2460:             opm_PopMenuItem_CatDelete.Enabled := TRUE;
2461:             opm_PopMenuItem_CatExpand2.Enabled := TRUE;
2462:             opm_PopMenuItem_CatCollapse2.Enabled := TRUE;
2463:             opm_PopMenuItem_CatExpand.Enabled := TRUE;
2464:             opm_PopMenuItem_CatCollapse.Enabled := TRUE;
2465:           END
2466:         ELSE
2467:           BEGIN
2468:             opm_MenuItem_CategoryAdd.Enabled := FALSE;
2469:             opm_ToolButton_AddCat.Enabled := FALSE;
2470:             opm_PopMenuItem_CatAdd.Enabled := FALSE;
2471:             opm_MenuItem_CategoryRename.Enabled := FALSE;
2472:             opm_ToolButton_RenCat.Enabled := FALSE;
2473:             opm_PopMenuItem_CatRename.Enabled := FALSE;
2474:             opm_MenuItem_CategoryDelete.Enabled := FALSE;
2475:             opm_ToolButton_DelCat.Enabled := FALSE;
2476:             opm_PopMenuItem_CatDelete.Enabled := FALSE;
2477:             opm_PopMenuItem_CatExpand2.Enabled := FALSE;
2478:             opm_PopMenuItem_CatCollapse2.Enabled := FALSE;
2479:             opm_PopMenuItem_CatExpand.Enabled := FALSE;
2480:             opm_PopMenuItem_CatCollapse.Enabled := FALSE;
2481:           END;
2482:       END
2483:     ELSE
2484:       BEGIN
2485:         opm_MenuItem_RefreshCategories.Enabled := FALSE;
2486:         opm_MenuItem_ManAdd.Enabled := FALSE;
2487:         opm_MenuItem_ManRename.Enabled := FALSE;
2488:         opm_MenuItem_ManDelete.Enabled := FALSE;
2489:         opm_MenuItem_SearchProduct.Enabled := FALSE;
2490:         opm_MenuItem_Backup.Enabled := FALSE;
2491:         opm_ToolButton_Search.Enabled := FALSE;
2492:         opm_Edit_QuickSearch.Enabled := FALSE;
2493:         opm_SpeedButton_QuickSearch.Enabled := FALSE;
2494:         opm_MenuItem_CategoryAdd.Enabled := FALSE;
2495:         opm_ToolButton_AddCat.Enabled := FALSE;
2496:         opm_PopMenuItem_CatAdd.Enabled := FALSE;
2497:         opm_MenuItem_CategoryRename.Enabled := FALSE;
2498:         opm_ToolButton_RenCat.Enabled := FALSE;
2499:         opm_PopMenuItem_CatRename.Enabled := FALSE;
2500:         opm_MenuItem_CategoryDelete.Enabled := FALSE;
2501:         opm_ToolButton_DelCat.Enabled := FALSE;
2502:         opm_PopMenuItem_CatDelete.Enabled := FALSE;
2503:         opm_PopMenuItem_CatExpand2.Enabled := FALSE;
2504:         opm_PopMenuItem_CatCollapse2.Enabled := FALSE;
2505:         opm_PopMenuItem_CatExpand.Enabled := FALSE;
2506:         opm_PopMenuItem_CatCollapse.Enabled := FALSE;
2507:       END;
2508:   END;
2509:   
2510:   
2511:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2512:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2513:   PROCEDURE Topm_Form_Main.PRopm_Valid_ProdOps (WeAreConnected : BOOLEAN; SelectedProduct : TListItem; SelectedProds : LONGINT; SelectedCat : TTreeNode);
2514:   BEGIN
2515:     IF (WeAreConnected = TRUE) THEN
2516:       BEGIN
2517:         IF (((SelectedCat <> NIL) OR (SelectedProduct <> NIL)) AND (SelectedProds < 2)) THEN
2518:           BEGIN
2519:             opm_MenuItem_ProductAdd.Enabled := TRUE;
2520:             opm_ToolButton_AddProduct.Enabled := TRUE;
2521:             opm_PopMenuItem_PAdd.Enabled := TRUE;
2522:           END
2523:         ELSE
2524:           BEGIN
2525:             opm_MenuItem_ProductAdd.Enabled := FALSE;
2526:             opm_ToolButton_AddProduct.Enabled := FALSE;
2527:             opm_PopMenuItem_PAdd.Enabled := FALSE;
2528:           END;
2529:         IF (SelectedCat <> NIL) THEN
2530:           BEGIN
2531:             opm_MenuItem_RefreshProducts.Enabled := TRUE;
2532:             opm_MenuItem_ProductSelAll.Enabled := TRUE;
2533:             opm_PopMenuItem_PSelAll.Enabled := TRUE;
2534:             opm_ToolButton_Refresh.Enabled := TRUE;
2535:           END
2536:         ELSE
2537:           BEGIN
2538:             opm_MenuItem_RefreshProducts.Enabled := FALSE;
2539:             opm_MenuItem_ProductSelAll.Enabled := FALSE;
2540:             opm_PopMenuItem_PSelAll.Enabled := FALSE;
2541:             opm_ToolButton_Refresh.Enabled := FALSE;
2542:           END;
2543:         IF (SelectedProduct <> NIL) THEN
2544:           BEGIN
2545:             IF (SelectedProds > 1) THEN
2546:               BEGIN
2547:                 opm_MenuItem_ProductEdit.Enabled := FALSE;
2548:                 opm_ToolButton_EditProduct.Enabled := FALSE;
2549:                 opm_PopMenuItem_PEdit.Enabled := FALSE;
2550:                 opm_PopMenuItem_PModel.Enabled := FALSE;
2551:                 opm_PopMenuItem_PWeight.Enabled := FALSE;
2552:               END
2553:             ELSE
2554:               BEGIN
2555:                 opm_MenuItem_ProductEdit.Enabled := TRUE;
2556:                 opm_ToolButton_EditProduct.Enabled := TRUE;
2557:                 opm_PopMenuItem_PEdit.Enabled := TRUE;
2558:                 opm_PopMenuItem_PModel.Enabled := TRUE;
2559:                 opm_PopMenuItem_PWeight.Enabled := TRUE;
2560:               END;
2561:             opm_MenuItem_ProductDel.Enabled := TRUE;
2562:             opm_MenuItem_ProductCopy.Enabled := TRUE;
2563:             opm_MenuItem_ProductCopyAsText.Enabled := TRUE;
2564:             opm_MenuItem_ProductCopyAsPre.Enabled := TRUE;
2565:             opm_MenuItem_ProductExport.Enabled := TRUE;
2566:             opm_MenuItem_ProductPrint.Enabled := TRUE;
2567:             opm_ToolButton_DeleteProduct.Enabled := TRUE;
2568:             opm_ToolButton_ExportProduct.Enabled := TRUE;
2569:             opm_ToolButton_PrintProduct.Enabled := TRUE;
2570:             opm_PopMenuItem_PMod.Enabled := TRUE;
2571:             opm_PopMenuItem_PAvailability.Enabled := TRUE;
2572:             opm_PopMenuItem_PAvailable.Enabled := TRUE;
2573:             opm_PopMenuItem_PNotAvailable.Enabled := TRUE;
2574:             opm_PopMenuItem_PPrice.Enabled := TRUE;
2575:             opm_PopMenuItem_PSpecial.Enabled := TRUE;
2576:             opm_PopMenuItem_PQuantity.Enabled := TRUE;
2577:             opm_PopMenuItem_PCat.Enabled := TRUE;
2578:             opm_PopMenuItem_PMan.Enabled := TRUE;
2579:             opm_PopMenuItem_PDelete.Enabled := TRUE;
2580:             opm_PopMenuItem_PCopy.Enabled := TRUE;
2581:             opm_PopMenuItem_PCopyAsText.Enabled := TRUE;
2582:             opm_PopMenuItem_PCopyAsPre.Enabled := TRUE;
2583:             opm_PopMenuItem_PExport.Enabled := TRUE;
2584:             opm_PopMenuItem_PPrint.Enabled := TRUE;
2585:           END
2586:         ELSE
2587:           BEGIN
2588:             opm_MenuItem_ProductEdit.Enabled := FALSE;
2589:             opm_MenuItem_ProductDel.Enabled := FALSE;
2590:             opm_MenuItem_ProductCopy.Enabled := FALSE;
2591:             opm_MenuItem_ProductCopyAsText.Enabled := FALSE;
2592:             opm_MenuItem_ProductCopyAsPre.Enabled := FALSE;
2593:             opm_MenuItem_ProductExport.Enabled := FALSE;
2594:             opm_MenuItem_ProductPrint.Enabled := FALSE;
2595:             opm_ToolButton_EditProduct.Enabled := FALSE;
2596:             opm_ToolButton_DeleteProduct.Enabled := FALSE;
2597:             opm_ToolButton_ExportProduct.Enabled := FALSE;
2598:             opm_ToolButton_PrintProduct.Enabled := FALSE;
2599:             opm_PopMenuItem_PEdit.Enabled := FALSE;
2600:             opm_PopMenuItem_PMod.Enabled := FALSE;
2601:             opm_PopMenuItem_PAvailability.Enabled := FALSE;
2602:             opm_PopMenuItem_PAvailable.Enabled := FALSE;
2603:             opm_PopMenuItem_PNotAvailable.Enabled := FALSE;
2604:             opm_PopMenuItem_PPrice.Enabled := FALSE;
2605:             opm_PopMenuItem_PSpecial.Enabled := FALSE;
2606:             opm_PopMenuItem_PQuantity.Enabled := FALSE;
2607:             opm_PopMenuItem_PCat.Enabled := FALSE;
2608:             opm_PopMenuItem_PMan.Enabled := FALSE;
2609:             opm_PopMenuItem_PModel.Enabled := FALSE;
2610:             opm_PopMenuItem_PWeight.Enabled := FALSE;
2611:             opm_PopMenuItem_PDelete.Enabled := FALSE;
2612:             opm_PopMenuItem_PCopy.Enabled := FALSE;
2613:             opm_PopMenuItem_PCopyAsText.Enabled := FALSE;
2614:             opm_PopMenuItem_PCopyAsPre.Enabled := FALSE;
2615:             opm_PopMenuItem_PExport.Enabled := FALSE;
2616:             opm_PopMenuItem_PPrint.Enabled := FALSE;
2617:           END;
2618:       END
2619:     ELSE
2620:       BEGIN
2621:         opm_MenuItem_RefreshProducts.Enabled := FALSE;
2622:         opm_MenuItem_ProductAdd.Enabled := FALSE;
2623:         opm_MenuItem_ProductEdit.Enabled := FALSE;
2624:         opm_MenuItem_ProductDel.Enabled := FALSE;
2625:         opm_MenuItem_ProductSelAll.Enabled := FALSE;
2626:         opm_MenuItem_ProductCopy.Enabled := FALSE;
2627:         opm_MenuItem_ProductCopyAsText.Enabled := FALSE;
2628:         opm_MenuItem_ProductCopyAsPre.Enabled := FALSE;
2629:         opm_MenuItem_ProductExport.Enabled := FALSE;
2630:         opm_MenuItem_ProductPrint.Enabled := FALSE;
2631:         opm_ToolButton_Refresh.Enabled := FALSE;
2632:         opm_ToolButton_AddProduct.Enabled := FALSE;
2633:         opm_ToolButton_EditProduct.Enabled := FALSE;
2634:         opm_ToolButton_DeleteProduct.Enabled := FALSE;
2635:         opm_ToolButton_ExportProduct.Enabled := FALSE;
2636:         opm_ToolButton_PrintProduct.Enabled := FALSE;
2637:         opm_PopMenuItem_PEdit.Enabled := FALSE;
2638:         opm_PopMenuItem_PMod.Enabled := FALSE;
2639:         opm_PopMenuItem_PAvailability.Enabled := FALSE;
2640:         opm_PopMenuItem_PAvailable.Enabled := FALSE;
2641:         opm_PopMenuItem_PNotAvailable.Enabled := FALSE;
2642:         opm_PopMenuItem_PPrice.Enabled := FALSE;
2643:         opm_PopMenuItem_PSpecial.Enabled := FALSE;
2644:         opm_PopMenuItem_PQuantity.Enabled := FALSE;
2645:         opm_PopMenuItem_PCat.Enabled := FALSE;
2646:         opm_PopMenuItem_PMan.Enabled := FALSE;
2647:         opm_PopMenuItem_PModel.Enabled := FALSE;
2648:         opm_PopMenuItem_PWeight.Enabled := FALSE;
2649:         opm_PopMenuItem_PAdd.Enabled := FALSE;
2650:         opm_PopMenuItem_PDelete.Enabled := FALSE;
2651:         opm_PopMenuItem_PSelAll.Enabled := FALSE;
2652:         opm_PopMenuItem_PCopy.Enabled := FALSE;
2653:         opm_PopMenuItem_PCopyAsText.Enabled := FALSE;
2654:         opm_PopMenuItem_PCopyAsPre.Enabled := FALSE;
2655:         opm_PopMenuItem_PExport.Enabled := FALSE;
2656:         opm_PopMenuItem_PPrint.Enabled := FALSE;
2657:       END;
2658:   END;
2659:   
2660:   
2661:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2662:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2663:   PROCEDURE Topm_Form_Main.PRopm_Valid_GralOps (WeAreConnected : BOOLEAN);
2664:   BEGIN
2665:     IF (WeAreConnected = TRUE) THEN
2666:       BEGIN
2667:         opm_MenuItem_Connect.Enabled := FALSE;
2668:         opm_ToolButton_Connect.Enabled := FALSE;
2669:         opm_PopMenuItem_ConnConn.Enabled := FALSE;
2670:         opm_MenuItem_Disconnect.Enabled := TRUE;
2671:         opm_ToolButton_Disconnect.Enabled := TRUE;
2672:         opm_PopMenuItem_ConnDisconn.Enabled := TRUE;
2673:       END
2674:     ELSE
2675:       BEGIN
2676:         opm_MenuItem_Connect.Enabled := TRUE;
2677:         opm_ToolButton_Connect.Enabled := TRUE;
2678:         opm_PopMenuItem_ConnConn.Enabled := TRUE;
2679:         opm_MenuItem_Disconnect.Enabled := FALSE;
2680:         opm_ToolButton_Disconnect.Enabled := FALSE;
2681:         opm_PopMenuItem_ConnDisconn.Enabled := FALSE;
2682:       END;
2683:   END;
2684:   
2685:   
2686:   
2687:   
2688:   
2689:   
2690:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2691:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2692:   procedure Topm_Form_Main.opm_ListView_MainChange(Sender: TObject; Item: TListItem; Change: TItemChange);
2693:   begin
2694:     PRopm_Valid_ProdOps (opm_WeAreConnected, opm_ListView_Main.Selected, opm_ListView_Main.SelCount, opm_TreeView_Main.Selected);
2695:   end;
2696:   
2697:   
2698:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2699:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2700:   PROCEDURE Topm_Form_Main.PRopm_Reload_ProductList (SearchLoad : BOOLEAN);
2701:   BEGIN
2702:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Reloading product list.'), 0, opm_CurrentCurrency.Code);
2703:     IF (SearchLoad = FALSE) THEN
2704:       BEGIN
2705:         opm_CurrentCategory := opm_CurrentCatRecord.ID;
2706:         PRopm_LoadProductListByCat (opm_CurrentCategory, opmG_ProductList, opmG_DescriptionList);
2707:       END
2708:     ELSE
2709:       BEGIN
2710:         PRopm_SearchProducts (opm_Search_PCategory, opm_Search_PManufacturer, opm_Search_PModel, opm_Search_PName, opm_Search_PDesc, opm_Search_PSPrice, opm_Search_PImagURL, opm_Search_PAvailable, opmG_ProductList, opmG_DescriptionList, '');
2711:       END;
2712:     PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
2713:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Product list loaded.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2714:   END;
2715:   
2716:   
2717:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2718:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2719:   procedure Topm_Form_Main.opm_PopMenuItem_PAvailableClick(Sender: TObject);
2720:   VAR
2721:     CurItem : TListItem;
2722:     ProgStep, Progress : LONGINT;
2723:   BEGIN
2724:     CurItem := opm_ListView_Main.Selected;
2725:     Progress := 0;
2726:     IF (CurItem <> NIL) THEN
2727:       BEGIN
2728:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
2729:         opm_ListView_Main.Enabled := FALSE;
2730:         WHILE (CurItem <> NIL) DO
2731:           BEGIN
2732:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating availability...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2733:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2734:             PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'products_status', '1', TRUE, '', '', opmC_SQLUpdate);
2735:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
2736:             INC (Progress, ProgStep);
2737:           END;
2738:         PRopm_Reload_ProductList (opm_WeAreSearching);
2739:         opm_ListView_Main.Enabled := TRUE;
2740:         opm_Form_Main.FocusControl (opm_ListView_Main);
2741:       END;
2742:   END;
2743:   
2744:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2745:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2746:   procedure Topm_Form_Main.opm_PopMenuItem_PNotAvailableClick(Sender: TObject);
2747:   VAR
2748:     CurItem : TListItem;
2749:     ProgStep, Progress : LONGINT;
2750:   BEGIN
2751:     CurItem := opm_ListView_Main.Selected;
2752:     Progress := 0;
2753:     IF (CurItem <> NIL) THEN
2754:       BEGIN
2755:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
2756:         opm_ListView_Main.Enabled := FALSE;
2757:         WHILE (CurItem <> NIL) DO
2758:           BEGIN
2759:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating availability...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2760:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2761:             PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'products_status', '0', TRUE, '', '', opmC_SQLUpdate);
2762:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
2763:             INC (Progress, ProgStep);
2764:           END;
2765:         PRopm_Reload_ProductList (opm_WeAreSearching);
2766:         opm_ListView_Main.Enabled := TRUE;
2767:         opm_Form_Main.FocusControl (opm_ListView_Main);
2768:       END;
2769:   END;
2770:   
2771:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2772:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2773:   procedure Topm_Form_Main.opm_PopMenuItem_PPriceClick(Sender: TObject);
2774:   VAR
2775:     CurItem : TListItem;
2776:     Operand, NewPrice : STRING;
2777:     FirstPass, CanContinue : BOOLEAN;
2778:     ProgStep, Progress : LONGINT;
2779:   BEGIN
2780:     CurItem := opm_ListView_Main.Selected;
2781:     FirstPass := TRUE;
2782:     CanContinue := TRUE;
2783:     Progress := 0;
2784:     IF (CurItem <> NIL) THEN
2785:       BEGIN
2786:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
2787:         opm_ListView_Main.Enabled := FALSE;
2788:         WHILE (CurItem <> NIL) DO
2789:           BEGIN
2790:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating prices...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2791:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2792:             opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
2793:             IF (FirstPass = TRUE) THEN
2794:               BEGIN
2795:                 IF (opm_ListView_Main.SelCount > 1) THEN
2796:                   BEGIN
2797:                     opm_Form_AskUser.AU_Title := _('Change price for products');
2798:                     opm_Form_AskUser.AU_DataText := '0.00';
2799:                   END
2800:                 ELSE
2801:                   BEGIN
2802:                     opm_Form_AskUser.AU_Title := _('Change price for product ') + opm_CurrentProdRecord.DisplayName;
2803:                     opm_Form_AskUser.AU_DataText := CURRTOSTR (opm_CurrentProdRecord.Price);
2804:                   END;
2805:                 opm_Form_AskUser.AU_Directions := _('Type the new price (xxx, -xxx, +xxx, -xxx%, +xxx%):') + ' [' + TRIM (opm_CurrentCurrency.Code + ' ' + opm_CurrentCurrency.Left + ' ' + opm_CurrentCurrency.Right) + ']';
2806:                 opm_Form_AskUser.AU_TextOrList := TRUE;
2807:                 opm_Form_AskUser.AU_PassChar := #0;
2808:                 opm_Form_AskUser.AU_MaxLen := opmC_ProdPrice_MaxLen;
2809:                 FirstPass := FALSE;
2810:                 IF (opm_Form_AskUser.ShowModal = mrOk) THEN CanContinue := TRUE ELSE CanContinue := FALSE;
2811:                 Operand := FNopm_CleanNumber (opm_Form_AskUser.AU_DataText, opmC_ValIsNumOp);
2812:               END;
2813:             IF (CanContinue = TRUE) THEN
2814:               BEGIN
2815:                 NewPrice := FNopm_Apply_Operation (CURRTOSTR (opm_CurrentProdRecord.Price), Operand, opmC_ValIsFloat, FALSE);
2816:                 IF ((STRTOCURR (NewPrice) = 0) AND (opmG_UIAllowZeroPrice = 0)) THEN
2817:                   FNopm_Message (_('Zero value not allowed.'), mtError, [mbOk], opmG_UISilent)
2818:                 ELSE
2819:                   PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'products_price', NewPrice, TRUE, '', '', opmC_SQLUpdate);
2820:               END
2821:             ELSE BREAK;
2822:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
2823:             INC (Progress, ProgStep);
2824:           END;
2825:         IF (CanContinue = TRUE) THEN PRopm_Reload_ProductList (opm_WeAreSearching);
2826:         opm_ListView_Main.Enabled := TRUE;
2827:         opm_Form_Main.FocusControl (opm_ListView_Main);
2828:       END;
2829:   END;
2830:   
2831:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2832:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2833:   procedure Topm_Form_Main.opm_PopMenuItem_PSpecialClick(Sender: TObject);
2834:   VAR
2835:     CurItem : TListItem;
2836:     NewSpecial : STRING;
2837:     FirstPass, CanContinue : BOOLEAN;
2838:     ProgStep, Progress : LONGINT;
2839:   BEGIN
2840:     CurItem := opm_ListView_Main.Selected;
2841:     FirstPass := TRUE;
2842:     CanContinue := TRUE;
2843:     Progress := 0;
2844:     IF (CurItem <> NIL) THEN
2845:       BEGIN
2846:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
2847:         opm_ListView_Main.Enabled := FALSE;
2848:         WHILE (CurItem <> NIL) DO
2849:           BEGIN
2850:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating special prices...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2851:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2852:             opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
2853:             IF (FirstPass = TRUE) THEN
2854:               BEGIN
2855:                 IF (opm_ListView_Main.SelCount > 1) THEN
2856:                   BEGIN
2857:                     opm_Form_AskUser.AU_Title := _('Change special price for products');
2858:                     opm_Form_AskUser.AU_DataText := '0.00';
2859:                   END
2860:                 ELSE
2861:                   BEGIN
2862:                     opm_Form_AskUser.AU_Title := _('Change special price for product ') + opm_CurrentProdRecord.DisplayName;
2863:                     opm_Form_AskUser.AU_DataText := CURRTOSTR (opm_CurrentProdRecord.Price);
2864:                   END;
2865:                 opm_Form_AskUser.AU_Directions := _('Type the new special price (xxx, -xxx, +xxx, -xxx%, +xxx%, 0 to disable):') + ' [' + TRIM (opm_CurrentCurrency.Code + ' ' + opm_CurrentCurrency.Left + ' ' + opm_CurrentCurrency.Right) + ']';
2866:                 opm_Form_AskUser.AU_TextOrList := TRUE;
2867:                 opm_Form_AskUser.AU_PassChar := #0;
2868:                 opm_Form_AskUser.AU_MaxLen := opmC_ProdSpecial_MaxLen;
2869:                 FirstPass := FALSE;
2870:                 IF (opm_Form_AskUser.ShowModal = mrOk) THEN CanContinue := TRUE ELSE CanContinue := FALSE;
2871:                 NewSpecial := FNopm_CleanNumber (opm_Form_AskUser.AU_DataText, opmC_ValIsNumOp);
2872:               END;
2873:             IF (CanContinue = TRUE) THEN PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Specials, 'specials_new_products_price', FNopm_Apply_Operation (CURRTOSTR (opm_CurrentProdRecord.Price), NewSpecial, opmC_ValIsFloat, FALSE), TRUE, '', '', opmC_SQLDelInsNoZero) ELSE BREAK;
2874:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
2875:             INC (Progress, ProgStep);
2876:           END;
2877:         IF (CanContinue = TRUE) THEN PRopm_Reload_ProductList (opm_WeAreSearching);
2878:         opm_ListView_Main.Enabled := TRUE;
2879:         opm_Form_Main.FocusControl (opm_ListView_Main);
2880:       END;
2881:   END;
2882:   
2883:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2884:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2885:   procedure Topm_Form_Main.opm_PopMenuItem_PQuantityClick(Sender: TObject);
2886:   VAR
2887:     CurItem : TListItem;
2888:     Operand, NewQuantity : STRING;
2889:     FirstPass, CanContinue : BOOLEAN;
2890:     ProgStep, Progress : LONGINT;
2891:   BEGIN
2892:     CurItem := opm_ListView_Main.Selected;
2893:     FirstPass := TRUE;
2894:     CanContinue := TRUE;
2895:     Progress := 0;
2896:     IF (CurItem <> NIL) THEN
2897:       BEGIN
2898:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
2899:         opm_ListView_Main.Enabled := FALSE;
2900:         WHILE (CurItem <> NIL) DO
2901:           BEGIN
2902:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating quantity...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2903:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2904:             opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
2905:             IF (FirstPass = TRUE) THEN
2906:               BEGIN
2907:                 IF (opm_ListView_Main.SelCount > 1) THEN
2908:                   BEGIN
2909:                     opm_Form_AskUser.AU_Title := _('Change quantity for products');
2910:                     opm_Form_AskUser.AU_DataText := '0';
2911:                   END
2912:                 ELSE
2913:                   BEGIN
2914:                     opm_Form_AskUser.AU_Title := _('Change quantity for product ') + opm_CurrentProdRecord.DisplayName;
2915:                     opm_Form_AskUser.AU_DataText := INTTOSTR (opm_CurrentProdRecord.Quantity);
2916:                   END;
2917:                 opm_Form_AskUser.AU_Directions := _('Type the new quantity (xxx, -xxx, +xxx, -xxx%, +xxx%):');
2918:                 opm_Form_AskUser.AU_TextOrList := TRUE;
2919:                 opm_Form_AskUser.AU_PassChar := #0;
2920:                 opm_Form_AskUser.AU_MaxLen := opmC_ProdQuantity_MaxLen;
2921:                 FirstPass := FALSE;
2922:                 IF (opm_Form_AskUser.ShowModal = mrOk) THEN CanContinue := TRUE ELSE CanContinue := FALSE;
2923:                 Operand := FNopm_CleanNumber (opm_Form_AskUser.AU_DataText, opmC_ValIsNumOp);
2924:               END;
2925:             IF (CanContinue = TRUE) THEN
2926:               BEGIN
2927:                 NewQuantity := FNopm_Apply_Operation (INTTOSTR (opm_CurrentProdRecord.Quantity), Operand, opmC_ValIsInteger, (opmG_UIAllowNegativeQuantity = 1));
2928:                 IF ((STRTOINT (NewQuantity) < 0) AND (opmG_UIAllowNegativeQuantity = 0)) THEN
2929:                   FNopm_Message (_('Negative value not allowed.'), mtError, [mbOk], opmG_UISilent)
2930:                 ELSE
2931:                   PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'products_quantity', NewQuantity, TRUE, '', '', opmC_SQLUpdate);
2932:   	    END
2933:             ELSE BREAK;
2934:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
2935:             INC (Progress, ProgStep);
2936:           END;
2937:         IF (CanContinue = TRUE) THEN PRopm_Reload_ProductList (opm_WeAreSearching);
2938:         opm_ListView_Main.Enabled := TRUE;
2939:         opm_Form_Main.FocusControl (opm_ListView_Main);
2940:       END;
2941:   END;
2942:   
2943:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2944:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2945:   procedure Topm_Form_Main.opm_PopMenuItem_PManClick(Sender: TObject);
2946:   VAR
2947:     CurItem : TListItem;
2948:     CurMan : opmR_Manufacturer;
2949:     FirstPass, CanContinue : BOOLEAN;
2950:     ProgStep, Progress : LONGINT;
2951:   begin
2952:     CurItem := opm_ListView_Main.Selected;
2953:     FirstPass := TRUE;
2954:     CanContinue := TRUE;
2955:     Progress := 0;
2956:     IF (CurItem <> NIL) THEN
2957:       BEGIN
2958:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
2959:         opm_ListView_Main.Enabled := FALSE;
2960:         WHILE (CurItem <> NIL) DO
2961:           BEGIN
2962:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating manufacturer...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
2963:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
2964:             opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
2965:             IF (FirstPass = TRUE) THEN
2966:               BEGIN
2967:                 opm_CurrentManRecord := FNopm_GetManufacturer (opmG_ManufacturerList, opm_CurrentProdRecord.ManufacturerID, opmC_FindByID);
2968:                 opm_Form_AskUser.AU_DataList := opmG_ManufacturerBoxList;
2969:                 IF (opm_ListView_Main.SelCount > 1) THEN
2970:                   BEGIN
2971:                     opm_Form_AskUser.AU_Title := _('Change manufacturer for products');
2972:                     opm_Form_AskUser.AU_ListItem := 0;
2973:                   END
2974:                 ELSE
2975:                   BEGIN
2976:                     opm_Form_AskUser.AU_Title := _('Change manufacturer for product ') + opm_CurrentProdRecord.DisplayName;
2977:                     opm_Form_AskUser.AU_ListItem := opm_CurrentManRecord.ListIndex;
2978:                   END;
2979:                 opm_Form_AskUser.AU_Directions := _('Select the new manufacturer:');
2980:                 opm_Form_AskUser.AU_TextOrList := FALSE;
2981:                 FirstPass := FALSE;
2982:                 IF (opm_Form_AskUser.ShowModal = mrOk) THEN CanContinue := TRUE ELSE CanContinue := FALSE;
2983:                 CurMan := FNopm_GetManufacturer (opmG_ManufacturerList, opm_Form_AskUser.AU_ListItem, opmC_FindByIndex);
2984:               END;
2985:             IF (CanContinue = TRUE) THEN PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'manufacturers_id', INTTOSTR (CurMan.ID), TRUE, '', '', opmC_SQLUpdate) ELSE BREAK;
2986:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
2987:             INC (Progress, ProgStep);
2988:           END;
2989:         IF (CanContinue = TRUE) THEN PRopm_Reload_ProductList (opm_WeAreSearching);
2990:         opm_ListView_Main.Enabled := TRUE;
2991:         opm_Form_Main.FocusControl (opm_ListView_Main);
2992:       END;
2993:   end;
2994:   
2995:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2996:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
2997:   procedure Topm_Form_Main.opm_PopMenuItem_PCatClick(Sender: TObject);
2998:   VAR
2999:     CurItem : TListItem;
3000:     CurCat : opmR_Category;
3001:     FirstPass, CanContinue : BOOLEAN;
3002:     ProgStep, Progress : LONGINT;
3003:   BEGIN
3004:     CurItem := opm_ListView_Main.Selected;
3005:     FirstPass := TRUE;
3006:     CanContinue := TRUE;
3007:     Progress := 0;
3008:     IF (CurItem <> NIL) THEN
3009:       BEGIN
3010:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
3011:         opm_ListView_Main.Enabled := FALSE;
3012:         WHILE (CurItem <> NIL) DO
3013:           BEGIN
3014:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating category...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
3015:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3016:             opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3017:             IF (FirstPass = TRUE) THEN
3018:               BEGIN
3019:                 opm_CurrentCatRecord := FNopm_GetCategory (opmG_CategoryList, opm_CurrentProdRecord.CategoryID, opmC_FindByID);
3020:                 opm_Form_AskUser.AU_DataList := opmG_CategoryBoxList;
3021:                 IF (opm_ListView_Main.SelCount > 1) THEN
3022:                   BEGIN
3023:                     opm_Form_AskUser.AU_Title := _('Change category for products');
3024:                     opm_Form_AskUser.AU_ListItem := opm_CurrentCatRecord.ListIndex;
3025:                   END
3026:                 ELSE
3027:                   BEGIN
3028:                     opm_Form_AskUser.AU_Title := _('Change category for product ') + opm_CurrentProdRecord.DisplayName;
3029:                     opm_Form_AskUser.AU_ListItem := opm_CurrentCatRecord.ListIndex;
3030:                   END;
3031:                 opm_Form_AskUser.AU_Directions := _('Select the new category:');
3032:                 opm_Form_AskUser.AU_TextOrList := FALSE;
3033:                 FirstPass := FALSE;
3034:                 IF (opm_Form_AskUser.ShowModal = mrOk) THEN CanContinue := TRUE ELSE CanContinue := FALSE;
3035:                 CurCat := FNopm_GetCategory (opmG_CategoryList, opm_Form_AskUser.AU_ListItem, opmC_FindByIndex);
3036:               END;
3037:               IF (CanContinue = TRUE) THEN
3038:                 PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_ProductsToCategories, 'categories_id', INTTOSTR (CurCat.ID), TRUE, 'categories_id', INTTOSTR (opm_CurrentProdRecord.CategoryID), opmC_SQLUpdate)
3039:               ELSE BREAK;
3040:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
3041:             INC (Progress, ProgStep);
3042:           END;
3043:         IF (CanContinue = TRUE) THEN PRopm_Reload_ProductList (opm_WeAreSearching);
3044:         opm_ListView_Main.Enabled := TRUE;
3045:         opm_Form_Main.FocusControl (opm_ListView_Main);
3046:       END;
3047:   end;
3048:   
3049:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3050:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3051:   procedure Topm_Form_Main.opm_TreeView_MainDragDrop (Sender, Source: TObject; X, Y: Integer);
3052:   VAR
3053:     DropNode : TTreeNode;
3054:     CurCat : opmR_Category;
3055:     CurProdR : opmR_Product;
3056:     CurProd : LONGINT;
3057:     CurItem : TListItem;
3058:     FirstPass, CanContinue : BOOLEAN;
3059:     ProgStep, Progress : LONGINT;
3060:   begin
3061:     IF ((Source IS TListView) AND (opmG_UIDragDrop > 0) AND (opm_TreeView_Main.Selected <> NIL)) THEN
3062:       BEGIN
3063:         DropNode := opm_TreeView_Main.GetNodeAt (X, Y);
3064:         CurItem := opm_ListView_Main.Selected;
3065:         FirstPass := TRUE;
3066:         CanContinue := TRUE;
3067:         Progress := 0;
3068:         IF ((CurItem <> NIL) AND (DropNode <> NIL)) THEN
3069:           BEGIN
3070:             ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
3071:             opm_ListView_Main.Enabled := FALSE;
3072:             WHILE (CurItem <> NIL) DO
3073:               BEGIN
3074:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Updating category...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
3075:                 CurProd := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3076:                 CurProdR := FNopm_GetProductByID (CurProd, opm_CurrentLang, opmG_ProductList);
3077:                 CurCat := FNopm_GetCategory (opmG_CategoryList, DropNode.AbsoluteIndex, opmC_FindByNode);
3078:                 IF (CurCat.ID < opmC_SC_BaseID) THEN
3079:                   BEGIN
3080:                     IF (FirstPass = TRUE) THEN
3081:                       BEGIN
3082:                         IF (opmG_UIConfirmDrag > 0) THEN
3083:                           IF (FNopm_Message (_('Do you want to move these products to category ') + CurCat.Name + '?', mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes) THEN
3084:                             CanContinue := TRUE
3085:                           ELSE
3086:                             CanContinue := FALSE;
3087:                         FirstPass := FALSE;
3088:                       END;
3089:                     IF (CurCat.ID > 0) THEN
3090:                       IF (CanContinue = TRUE) THEN
3091:                         IF (CurProdR.CategoryID > 0) THEN
3092:                           BEGIN
3093:                             PRopm_UpdateProdData (CurProdR.ID, opmG_DBTable_ProductsToCategories, 'categories_id', INTTOSTR (CurCat.ID), TRUE, 'categories_id', INTTOSTR (CurProdR.CategoryID), opmC_SQLUpdate);
3094:                           END
3095:                         ELSE
3096:                           BEGIN
3097:                             PRopm_UpdateProdData (CurProdR.ID, opmG_DBTable_ProductsToCategories, 'categories_id', INTTOSTR (CurCat.ID), TRUE, 'categories_id', INTTOSTR (CurProdR.CategoryID), opmC_SQLDelIns);
3098:                           END
3099:                       ELSE BREAK;
3100:                   END;
3101:                 CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
3102:                 INC (Progress, ProgStep);
3103:               END;
3104:           END;
3105:         IF (CanContinue = TRUE) THEN PRopm_Reload_ProductList (opm_WeAreSearching);
3106:         opm_ListView_Main.Enabled := TRUE;
3107:         opm_Form_Main.FocusControl (opm_ListView_Main);
3108:       END;
3109:   end;
3110:   
3111:   
3112:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3113:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3114:   procedure Topm_Form_Main.opm_PopMenuItem_PModelClick(Sender: TObject);
3115:   VAR
3116:     CurItem : TListItem;
3117:   BEGIN
3118:     CurItem := opm_ListView_Main.Selected;
3119:     IF (CurItem <> NIL) THEN
3120:       BEGIN
3121:         opm_ListView_Main.Enabled := FALSE;
3122:         opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3123:         opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3124:         opm_Form_AskUser.AU_Title := _('Change model for product ') + opm_CurrentProdRecord.DisplayName;
3125:         opm_Form_AskUser.AU_Directions := _('Type the new model:');
3126:         opm_Form_AskUser.AU_TextOrList := TRUE;
3127:         opm_Form_AskUser.AU_PassChar := #0;
3128:         opm_Form_AskUser.AU_MaxLen := opmC_ProdModel_MaxLen;
3129:         opm_Form_AskUser.AU_DataText := FNopm_CleanString (opm_CurrentProdRecord.Model);
3130:         IF (opm_Form_AskUser.ShowModal = mrOk) THEN
3131:           BEGIN
3132:             PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'products_model', FNopm_CleanSQLString (opm_Form_AskUser.AU_DataText, FALSE), FALSE, '', '', opmC_SQLUpdate);
3133:           END;
3134:         PRopm_Reload_ProductList (opm_WeAreSearching);
3135:         opm_ListView_Main.Enabled := TRUE;
3136:         opm_Form_Main.FocusControl (opm_ListView_Main);
3137:       END;
3138:   END;
3139:   
3140:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3141:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3142:   procedure Topm_Form_Main.opm_PopMenuItem_PWeightClick(Sender: TObject);
3143:   VAR
3144:     CurItem : TListItem;
3145:     NewWeight : STRING;
3146:   BEGIN
3147:     CurItem := opm_ListView_Main.Selected;
3148:     IF (CurItem <> NIL) THEN
3149:       BEGIN
3150:         opm_ListView_Main.Enabled := FALSE;
3151:         opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3152:         opm_CurrentProdRecord := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3153:         opm_Form_AskUser.AU_Title := _('Change weight for product ') + opm_CurrentProdRecord.DisplayName;
3154:         opm_Form_AskUser.AU_Directions := _('Type the new weight:');
3155:         opm_Form_AskUser.AU_TextOrList := TRUE;
3156:         opm_Form_AskUser.AU_PassChar := #0;
3157:         opm_Form_AskUser.AU_MaxLen := opmC_ProdWeight_MaxLen;
3158:         opm_Form_AskUser.AU_DataText := FLOATTOSTR (opm_CurrentProdRecord.Weight);
3159:         IF (opm_Form_AskUser.ShowModal = mrOk) THEN
3160:           BEGIN
3161:             NewWeight := FNopm_CleanNumber (opm_Form_AskUser.AU_DataText, opmC_ValIsNumOp);
3162:             PRopm_UpdateProdData (opm_CurrentProdID, opmG_DBTable_Products, 'products_weight', FNopm_Apply_Operation (FLOATTOSTR (opm_CurrentProdRecord.Weight), NewWeight, opmC_ValIsFloat, FALSE), TRUE, '', '', opmC_SQLUpdate);
3163:           END;
3164:         PRopm_Reload_ProductList (opm_WeAreSearching);
3165:         opm_ListView_Main.Enabled := TRUE;
3166:         opm_Form_Main.FocusControl (opm_ListView_Main);
3167:       END;
3168:   END;
3169:   
3170:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3171:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3172:   procedure Topm_Form_Main.opm_PopMenuItem_CatExpandClick(Sender: TObject);
3173:   begin
3174:     opm_TreeView_Main.FullExpand;
3175:   end;
3176:   
3177:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3178:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3179:   procedure Topm_Form_Main.opm_PopMenuItem_CatCollapseClick(Sender: TObject);
3180:   begin
3181:     opm_TreeView_Main.FullCollapse;
3182:   end;
3183:   
3184:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3185:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3186:   procedure Topm_Form_Main.opm_PopMenuItem_CatExpand2Click(Sender: TObject);
3187:   begin
3188:     opm_TreeView_Main.Selected.Expanded := TRUE;
3189:   end;
3190:   
3191:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3192:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3193:   procedure Topm_Form_Main.opm_PopMenuItem_CatCollapse2Click(Sender: TObject);
3194:   begin
3195:     opm_TreeView_Main.Selected.Expanded := FALSE;
3196:   end;
3197:   
3198:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3199:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3200:   procedure Topm_Form_Main.opm_TreeView_MainContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
3201:   begin
3202:     opm_TreeView_Main.Selected := opm_TreeView_Main.GetNodeAt (MousePos.X, MousePos.Y);
3203:   end;
3204:   
3205:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3206:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3207:   procedure Topm_Form_Main.opm_TreeView_MainKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
3208:   begin
3209:     CASE Key OF
3210:       VK_SPACE, VK_RETURN : opm_TreeView_Main.Selected.Expanded := NOT (opm_TreeView_Main.Selected.Expanded);
3211:       VK_DELETE : opm_PopMenuItem_CatDeleteClick (Sender);
3212:       VK_INSERT : opm_PopMenuItem_CatAddClick (Sender);
3213:     END;
3214:   end;
3215:   
3216:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3217:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3218:   procedure Topm_Form_Main.opm_TreeView_MainKeyPress(Sender: TObject; var Key: Char);
3219:   begin
3220:     IF ((Key = ' ') OR (Key = #13)) THEN
3221:       Key := #0;
3222:   end;
3223:   
3224:   
3225:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3226:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3227:   procedure Topm_Form_Main.opm_TreeView_MainDragOver (Sender, Source: TObject;
3228:                                                       X, Y: Integer; State: TDragState;
3229:                                                       var Accept: Boolean);
3230:   begin
3231:     IF ((Source IS TListView) AND (opmG_UIDragDrop > 0)) THEN
3232:       BEGIN
3233:         Accept := TRUE;
3234:       END
3235:     ELSE
3236:       BEGIN
3237:         Accept := FALSE;
3238:       END;
3239:   end;
3240:   
3241:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3242:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3243:   procedure Topm_Form_Main.opm_MenuItem_LicenseClick(Sender: TObject);
3244:   begin
3245:     opm_Form_License.ShowModal;
3246:   end;
3247:   
3248:   
3249:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3250:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3251:   procedure Topm_Form_Main.opm_MenuItem_AboutClick(Sender: TObject);
3252:   begin
3253:     opm_Form_About.ShowModal;
3254:   {$IFDEF OSCPMDEBUG}
3255:     FNopm_Message (_('THIS IS A SPECIAL DEBUG-VERSION. Use it only to report crashes and fatal errors. DO NOT DISTRIBUTE. The full open-source version can be found in the website.'), mtInformation, [mbOk], opmG_UISilent);
3256:   {$ENDIF}
3257:   end;
3258:   
3259:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3260:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3261:   procedure Topm_Form_Main.opm_PopMenuItem_HideDebugClick(Sender: TObject);
3262:   begin
3263:     opmG_UIDBDebug := 0;
3264:     PRReg_WriteSetting ('OSCDBDebug', INTTOSTR (opmG_UIDBDebug), opmC_RegistryKey, opmC_RKConfig);
3265:     opm_DataSource_DEBUG.Enabled := FALSE;
3266:     opm_DBGrid_DEBUG.Enabled := FALSE;
3267:     opm_DBGrid_DEBUG.Visible := FALSE;
3268:     opm_Panel_DEBUG.Visible := FALSE;
3269:   end;
3270:   
3271:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3272:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3273:   procedure Topm_Form_Main.FormClose(Sender: TObject; var Action: TCloseAction);
3274:   begin
3275:     IF (opmG_UIConfirmExit > 0) THEN
3276:       BEGIN
3277:         IF (FNopm_Message (_('Do you really want to quit the ') + opmC_AppName1 +'?', mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes) THEN
3278:           BEGIN
3279:             Application.HelpCommand (HELP_QUIT, 0);
3280:             Action := caFree;
3281:             FNopm_CloseDBConnection;
3282:             PRopm_CloseSSHTunnel;
3283:             PRopm_SaveConfiguration;
3284:           END
3285:         ELSE
3286:           Action := caNone;
3287:       END
3288:     ELSE
3289:       BEGIN
3290:         FNopm_CloseDBConnection;
3291:         PRopm_CloseSSHTunnel;
3292:         PRopm_SaveConfiguration;
3293:       END;
3294:   end;
3295:   
3296:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3297:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3298:   procedure Topm_Form_Main.opm_TreeView_MainDblClick(Sender: TObject);
3299:   begin
3300:     IF (opm_CurrentCatRecord.ID < opmC_SC_BaseID) THEN
3301:       IF (opmG_UIClickLoad <= 0) THEN
3302:         BEGIN
3303:           PRopm_LoadProductListByCat (opm_CurrentCategory, opmG_ProductList, opmG_DescriptionList);
3304:           PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
3305:           PRopm_Valid_CatOps (opm_WeAreConnected, opm_TreeView_Main.Selected);
3306:           PRopm_Valid_ProdOps (opm_WeAreConnected, opm_ListView_Main.Selected, opm_ListView_Main.SelCount, opm_TreeView_Main.Selected);
3307:         END;
3308:   end;
3309:   
3310:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3311:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3312:   procedure Topm_Form_Main.opm_TreeView_MainExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
3313:   begin
3314:     AllowExpansion := opm_CanExpandTree_Flag;
3315:     opm_CanExpandTree_Flag := TRUE;
3316:   end;
3317:   
3318:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3319:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3320:   procedure Topm_Form_Main.opm_TreeView_MainCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
3321:   begin
3322:     AllowCollapse := opm_CanExpandTree_Flag;
3323:     opm_CanExpandTree_Flag := TRUE;
3324:   end;
3325:   
3326:   
3327:   
3328:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3329:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3330:   PROCEDURE Topm_Form_Main.PRopm_SetUILang (LangISOID : STRING);
3331:   BEGIN
3332:     IF (FNopm_CheckLanguage (LangISOID) = FALSE) THEN LangISOID := opmC_Def_GUILang;
3333:     UseLanguage(LangISOID);
3334:     TranslateComponent (opm_Form_Main);
3335:     TranslateComponent (opm_Form_License);
3336:     TranslateComponent (opm_Form_About);
3337:     TranslateComponent (opm_Form_PEdit);
3338:     TranslateComponent (opm_Form_ImageZoom);
3339:     TranslateComponent (opm_Form_SearchProduct);
3340:     TranslateComponent (opm_Form_UploadImage);
3341:     TranslateComponent (opm_Form_AskUser);
3342:     TranslateComponent (opm_Form_Config);
3343:     TranslateComponent (opm_Form_Runmod);
3344:     TranslateComponent (opm_Form_Colorsel);
3345:   END;
3346:   
3347:   
3348:   
3349:   
3350:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3351:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3352:   procedure Topm_Form_Main.opm_PopMenuItem_PDeleteClick(Sender: TObject);
3353:   VAR
3354:     CurItem : TListItem;
3355:     ProgStep, Progress : LONGINT;
3356:   BEGIN
3357:     CurItem := opm_ListView_Main.Selected;
3358:     Progress := 0;
3359:     IF (CurItem <> NIL) THEN
3360:       BEGIN
3361:         ProgStep := ROUND (100 / opm_ListView_Main.SelCount);
3362:         opm_ListView_Main.Enabled := FALSE;
3363:         WHILE (CurItem <> NIL) DO
3364:           BEGIN
3365:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressIgnore, Progress, _('Deleting product...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
3366:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3367:             PRopm_DeleteProduct (opm_CurrentProdID);
3368:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
3369:             INC (Progress, ProgStep);
3370:           END;
3371:         PRopm_Reload_ProductList (opm_WeAreSearching);
3372:         opm_ListView_Main.Enabled := TRUE;
3373:         opm_Form_Main.FocusControl (opm_ListView_Main);
3374:       END;
3375:   end;
3376:   
3377:   
3378:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3379:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3380:   procedure Topm_Form_Main.opm_PopMenuItem_PAddClick(Sender: TObject);
3381:   VAR
3382:     CurLang : LONGINT;
3383:   begin
3384:     opm_CurrentPEditRecord.ID := 0;
3385:     opm_CurrentPEditRecord.Model := '';
3386:     opm_CurrentPEditRecord.Quantity := 0;
3387:     opm_CurrentPEditRecord.Price := 0;
3388:     opm_CurrentPEditRecord.Weight := 0;
3389:     opm_CurrentPEditRecord.ManufacturerID := opmG_Past_PManufacturer;
3390:     opm_CurrentPEditRecord.CategoryID := opm_CurrentCategory;
3391:     opm_CurrentPEditRecord.DisplayName := '';
3392:     opm_CurrentPEditRecord.Available := 1;
3393:     opm_CurrentPEditRecord.ImageURL := '';
3394:     opm_CurrentPEditRecord.ImageURL1 := '';
3395:     opm_CurrentPEditRecord.ImageURL2 := '';
3396:     opm_CurrentPEditRecord.ImageURL3 := '';
3397:     opm_CurrentPEditRecord.ImageURL4 := '';
3398:     opm_CurrentPEditRecord.ImageURL5 := '';
3399:     opm_CurrentPEditRecord.ImageURL6 := '';
3400:     opm_CurrentPEditRecord.Special := 0;
3401:     opm_CurrentPEditRecord.LanguageID := opm_CurrentLang;
3402:     opm_CurrentPEditRecord.Tax := opmG_Past_PTaxClass;
3403:     opm_CurrentPEditRecord.AvailDate := opmG_Past_PAvailDate;
3404:     opm_CurrentPEditRecord.CreationDate := opmG_Past_PAvailDate;
3405:     opm_CurrentPEditRecord.ChangeDate := opmG_Past_PAvailDate;
3406:     opm_CurrentProdRecord := opm_CurrentPEditRecord;
3407:     FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
3408:       BEGIN
3409:         opm_CurrentSingleDescList[CurLang].ID := opmC_InsertProdID;
3410:         opm_CurrentSingleDescList[CurLang].Name := '';
3411:         opm_CurrentSingleDescList[CurLang].Description := '';
3412:         opm_CurrentSingleDescList[CurLang].URL := '';
3413:         opm_CurrentSingleDescList[CurLang].LanguageID := opmG_LanguageList[CurLang].ID;
3414:         opm_CurrentSingleDescList[CurLang].Viewed := 0;
3415:       END;
3416:     FOR CurLang := opm_TotalLanguages TO opmC_Max_Languages_PerList DO
3417:       BEGIN
3418:         opm_CurrentSingleDescList[CurLang].ID := 0;
3419:         opm_CurrentSingleDescList[CurLang].Name := '';
3420:         opm_CurrentSingleDescList[CurLang].Description := '';
3421:         opm_CurrentSingleDescList[CurLang].URL := '';
3422:         opm_CurrentSingleDescList[CurLang].LanguageID := 0;
3423:         opm_CurrentSingleDescList[CurLang].Viewed := 0;
3424:       END;
3425:     IF (opm_Form_PEdit.ShowModal = mrOk) THEN
3426:       BEGIN
3427:         PRopm_AddProduct (opm_CurrentPEditRecord, opm_CurrentSingleDescList);
3428:         opmG_Past_PAvailDate := ROUND (opm_CurrentPEditRecord.AvailDate);
3429:         opmG_Past_PManufacturer := opm_CurrentPEditRecord.ManufacturerID;
3430:         opmG_Past_PTaxClass := opm_CurrentPEditRecord.Tax;
3431:       END;
3432:   end;
3433:   
3434:   
3435:   
3436:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3437:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3438:   PROCEDURE Topm_Form_Main.PRopm_Create_ExportList (VAR ExportString : STRING; VAR CatList : opmT_CategoryList; VAR ManList : opmT_ManufacturerList; JustifyCols : BOOLEAN);
3439:   VAR
3440:     CurItem : TListItem;
3441:     ExportLine : STRING;
3442:     CurProd : opmR_Product;
3443:     CurCat : opmR_Category;
3444:     CurMan : opmR_Manufacturer;
3445:     CurDesc : opmR_Description;
3446:     MaxWidths : ARRAY [0..20] OF LONGINT;
3447:     FmtString : ARRAY [0..20] OF STRING;
3448:   BEGIN
3449:     ExportString := '';
3450:     opm_ListView_Main.Enabled := FALSE;
3451:     IF (JustifyCols = TRUE) THEN
3452:       BEGIN
3453:         CurItem := opm_ListView_Main.Selected;
3454:         WHILE (CurItem <> NIL) DO
3455:           BEGIN
3456:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3457:             CurProd := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3458:             CurCat := FNopm_GetCategory (CatList, CurProd.CategoryID, opmC_FindByID);
3459:             CurMan := FNopm_GetManufacturer (ManList, CurProd.ManufacturerID, opmC_FindByID);
3460:             CurDesc := FNopm_GetDescriptionByID (opm_CurrentProdID, opm_CurrentLang, opmG_DescriptionList);
3461:             MaxWidths [0] := MAX (LENGTH (INTTOSTR (CurProd.ID)), MaxWidths [0]);
3462:             MaxWidths [1] := MAX (LENGTH (FNopm_NumToYesNo (CurProd.Available)), MaxWidths [1]);
3463:             MaxWidths [2] := MAX (LENGTH (FNopm_CleanString (CurProd.Model)), MaxWidths [2]);
3464:             MaxWidths [3] := MAX (LENGTH (INTTOSTR (CurProd.CategoryID)), MaxWidths [3]);
3465:             MaxWidths [4] := MAX (LENGTH (FNopm_CleanString (CurCat.Name)), MaxWidths [4]);
3466:             MaxWidths [5] := MAX (LENGTH (INTTOSTR (CurProd.ManufacturerID)), MaxWidths [5]);
3467:             MaxWidths [6] := MAX (LENGTH (FNopm_CleanString (CurMan.Name)), MaxWidths [6]);
3468:             MaxWidths [7] := MAX (LENGTH (FNopm_CleanString (CurProd.DisplayName)), MaxWidths [7]);
3469:             MaxWidths [8] := MAX (LENGTH (INTTOSTR (CurProd.Quantity)), MaxWidths [8]);
3470:             MaxWidths [9] := MAX (LENGTH (FNopm_CleanNumber (CURRTOSTR (CurProd.Price), opmC_ValIsFloat)), MaxWidths [9]);
3471:             MaxWidths [10] := MAX (LENGTH (FNopm_CleanNumber (CURRTOSTR (CurProd.Special), opmC_ValIsFloat)), MaxWidths [10]);
3472:             MaxWidths [11] := MAX (LENGTH (FNopm_CleanNumber (CURRTOSTR (CurProd.Weight), opmC_ValIsFloat)), MaxWidths [11]);
3473:             MaxWidths [12] := MAX (LENGTH (FNopm_CleanString (FNopm_NoCRLF (CurDesc.Description))), MaxWidths [12]);
3474:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
3475:           END;
3476:         MaxWidths [0] := MIN (opmG_Clip_ColSize, MaxWidths [0]);
3477:         MaxWidths [1] := MIN (opmG_Clip_ColSize, MaxWidths [1]);
3478:         MaxWidths [2] := MIN (opmG_Clip_ColSize, MaxWidths [2]);
3479:         MaxWidths [3] := MIN (opmG_Clip_ColSize, MaxWidths [3]);
3480:         MaxWidths [4] := MIN (opmG_Clip_ColSize, MaxWidths [4]);
3481:         MaxWidths [5] := MIN (opmG_Clip_ColSize, MaxWidths [5]);
3482:         MaxWidths [6] := MIN (opmG_Clip_ColSize, MaxWidths [6]);
3483:         MaxWidths [7] := MIN (opmG_Clip_ColSize, MaxWidths [7]);
3484:         MaxWidths [8] := MIN (opmG_Clip_ColSize, MaxWidths [8]);
3485:         MaxWidths [9] := MIN (opmG_Clip_ColSize, MaxWidths [9]);
3486:         MaxWidths [10] := MIN (opmG_Clip_ColSize, MaxWidths [10]);
3487:         MaxWidths [11] := MIN (opmG_Clip_ColSize, MaxWidths [11]);
3488:         MaxWidths [12] := MIN (opmG_Clip_ColSize, MaxWidths [12]);
3489:         FmtString [0] := '%' + INTTOSTR (MaxWidths [0]) + '.' + INTTOSTR (MaxWidths [0]) + 's' + opmC_ExportJSeparator;
3490:         FmtString [1] := '%-' + INTTOSTR (MaxWidths [1]) + '.' + INTTOSTR (MaxWidths [1]) + 's' + opmC_ExportJSeparator;
3491:         FmtString [2] := '%-' + INTTOSTR (MaxWidths [2]) + '.' + INTTOSTR (MaxWidths [2]) + 's' + opmC_ExportJSeparator;
3492:         FmtString [3] := '%' + INTTOSTR (MaxWidths [3]) + '.' + INTTOSTR (MaxWidths [3]) + 's' + opmC_ExportJSeparator;
3493:         FmtString [4] := '%-' + INTTOSTR (MaxWidths [4]) + '.' + INTTOSTR (MaxWidths [4]) + 's' + opmC_ExportJSeparator;
3494:         FmtString [5] := '%' + INTTOSTR (MaxWidths [5]) + '.' + INTTOSTR (MaxWidths [5]) + 's' + opmC_ExportJSeparator;
3495:         FmtString [6] := '%-' + INTTOSTR (MaxWidths [6]) + '.' + INTTOSTR (MaxWidths [6]) + 's' + opmC_ExportJSeparator;
3496:         FmtString [7] := '%-' + INTTOSTR (MaxWidths [7]) + '.' + INTTOSTR (MaxWidths [7]) + 's' + opmC_ExportJSeparator;
3497:         FmtString [8] := '%' + INTTOSTR (MaxWidths [8]) + '.' + INTTOSTR (MaxWidths [8]) + 's' + opmC_ExportJSeparator;
3498:         FmtString [9] := '%' + INTTOSTR (MaxWidths [9]) + '.' + INTTOSTR (MaxWidths [9]) + 's' + opmC_ExportJSeparator;
3499:         FmtString [10] := '%' + INTTOSTR (MaxWidths [10]) + '.' + INTTOSTR (MaxWidths [10]) + 's' + opmC_ExportJSeparator;
3500:         FmtString [11] := '%' + INTTOSTR (MaxWidths [11]) + '.' + INTTOSTR (MaxWidths [11]) + 's' + opmC_ExportJSeparator;
3501:         FmtString [12] := '%-' + INTTOSTR (MaxWidths [12]) + '.' + INTTOSTR (MaxWidths [12]) + 's' + opmC_ExportJSeparator;
3502:       END;
3503:     CurItem := opm_ListView_Main.Selected;
3504:     IF (CurItem <> NIL) THEN
3505:       BEGIN
3506:         ExportLine := '';
3507:         IF (JustifyCols = TRUE) THEN
3508:           BEGIN
3509:             ExportLine := ExportLine + FORMAT (FmtString [0], [_('Product ID')]);
3510:             ExportLine := ExportLine + FORMAT (FmtString [1], [_('Available')]);
3511:             ExportLine := ExportLine + FORMAT (FmtString [2], [_('Model')]);
3512:             ExportLine := ExportLine + FORMAT (FmtString [3], [_('Category ID')]);
3513:             ExportLine := ExportLine + FORMAT (FmtString [4], [_('Category name')]);
3514:             ExportLine := ExportLine + FORMAT (FmtString [5], [_('Manufacturer ID')]);
3515:             ExportLine := ExportLine + FORMAT (FmtString [6], [_('Manufacturer name')]);
3516:             ExportLine := ExportLine + FORMAT (FmtString [7], [_('Product name')]);
3517:             ExportLine := ExportLine + FORMAT (FmtString [8], [_('Quantity')]);
3518:             ExportLine := ExportLine + FORMAT (FmtString [9], [_('Price')]);
3519:             ExportLine := ExportLine + FORMAT (FmtString [10], [_('Special price')]);
3520:             ExportLine := ExportLine + FORMAT (FmtString [11], [_('Weight')]);
3521:             ExportLine := ExportLine + FORMAT (FmtString [12], [_('Description')]);
3522:             ExportString := ExportString + opmC_ExportJSeparator + ExportLine + #13#10;
3523:             ExportString := ExportString + DUPESTRING (opmC_ExportJHSeparator, LENGTH (opmC_ExportJSeparator + ExportLine)) + #13#10;
3524:           END
3525:         ELSE
3526:           BEGIN
3527:             ExportLine := ExportLine + _('Product ID') + opmC_ExportSeparator;
3528:             ExportLine := ExportLine + _('Available') + opmC_ExportSeparator;
3529:             ExportLine := ExportLine + _('Model') + opmC_ExportSeparator;
3530:             ExportLine := ExportLine + _('Category ID') + opmC_ExportSeparator;
3531:             ExportLine := ExportLine + _('Category name') + opmC_ExportSeparator;
3532:             ExportLine := ExportLine + _('Manufacturer ID') + opmC_ExportSeparator;
3533:             ExportLine := ExportLine + _('Manufacturer name') + opmC_ExportSeparator;
3534:             ExportLine := ExportLine + _('Product name') + opmC_ExportSeparator;
3535:             ExportLine := ExportLine + _('Quantity') + opmC_ExportSeparator;
3536:             ExportLine := ExportLine + _('Price') + opmC_ExportSeparator;
3537:             ExportLine := ExportLine + _('Special price') + opmC_ExportSeparator;
3538:             ExportLine := ExportLine + _('Weight') + opmC_ExportSeparator;
3539:             ExportLine := ExportLine + _('Description') + opmC_ExportSeparator;
3540:             ExportString := ExportString + ExportLine + #13#10;
3541:           END;
3542:         ExportLine := '';
3543:         WHILE (CurItem <> NIL) DO
3544:           BEGIN
3545:             IF (JustifyCols = TRUE) THEN
3546:               BEGIN
3547:                 opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3548:                 CurProd := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3549:                 CurCat := FNopm_GetCategory (CatList, CurProd.CategoryID, opmC_FindByID);
3550:                 CurMan := FNopm_GetManufacturer (ManList, CurProd.ManufacturerID, opmC_FindByID);
3551:                 CurDesc := FNopm_GetDescriptionByID (opm_CurrentProdID, opm_CurrentLang, opmG_DescriptionList);
3552:                 ExportLine := ExportLine + FORMAT (FmtString [0], [INTTOSTR (CurProd.ID)]);
3553:                 ExportLine := ExportLine + FORMAT (FmtString [1], [FNopm_NumToYesNo (CurProd.Available)]);
3554:                 ExportLine := ExportLine + FORMAT (FmtString [2], [FNopm_CleanString (CurProd.Model)]);
3555:                 ExportLine := ExportLine + FORMAT (FmtString [3], [INTTOSTR (CurProd.CategoryID)]);
3556:                 ExportLine := ExportLine + FORMAT (FmtString [4], [FNopm_CleanString (CurCat.Name)]);
3557:                 ExportLine := ExportLine + FORMAT (FmtString [5], [INTTOSTR (CurProd.ManufacturerID)]);
3558:                 ExportLine := ExportLine + FORMAT (FmtString [6], [FNopm_CleanString (CurMan.Name)]);
3559:                 ExportLine := ExportLine + FORMAT (FmtString [7], [FNopm_CleanString (CurProd.DisplayName)]);
3560:                 ExportLine := ExportLine + FORMAT (FmtString [8], [INTTOSTR (CurProd.Quantity)]);
3561:                 ExportLine := ExportLine + FORMAT (FmtString [9], [FNopm_CleanNumber (CURRTOSTR (CurProd.Price), opmC_ValIsFloat)]);
3562:                 ExportLine := ExportLine + FORMAT (FmtString [10], [FNopm_CleanNumber (CURRTOSTR (CurProd.Special), opmC_ValIsFloat)]);
3563:                 ExportLine := ExportLine + FORMAT (FmtString [11], [FNopm_CleanNumber (CURRTOSTR (CurProd.Weight), opmC_ValIsFloat)]);
3564:                 ExportLine := ExportLine + FORMAT (FmtString [12], [FNopm_CleanString (FNopm_NoCRLF (FNopm_StripHTML (CurDesc.Description)))]);
3565:                 ExportString := ExportString + opmC_ExportJSeparator + ExportLine + #13#10;
3566:               END
3567:             ELSE
3568:               BEGIN
3569:                 opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3570:                 CurProd := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3571:                 CurCat := FNopm_GetCategory (CatList, CurProd.CategoryID, opmC_FindByID);
3572:                 CurMan := FNopm_GetManufacturer (ManList, CurProd.ManufacturerID, opmC_FindByID);
3573:                 CurDesc := FNopm_GetDescriptionByID (opm_CurrentProdID, opm_CurrentLang, opmG_DescriptionList);
3574:                 ExportLine := ExportLine + INTTOSTR (CurProd.ID) + opmC_ExportSeparator;
3575:                 ExportLine := ExportLine + INTTOSTR (CurProd.Available) + opmC_ExportSeparator;
3576:                 ExportLine := ExportLine + FNopm_CleanString (CurProd.Model) + opmC_ExportSeparator;
3577:                 ExportLine := ExportLine + INTTOSTR (CurProd.CategoryID) + opmC_ExportSeparator;
3578:                 ExportLine := ExportLine + FNopm_CleanString (CurCat.Name) + opmC_ExportSeparator;
3579:                 ExportLine := ExportLine + INTTOSTR (CurProd.ManufacturerID) + opmC_ExportSeparator;
3580:                 ExportLine := ExportLine + FNopm_CleanString (CurMan.Name) + opmC_ExportSeparator;
3581:                 ExportLine := ExportLine + FNopm_CleanString (CurProd.DisplayName) + opmC_ExportSeparator;
3582:                 ExportLine := ExportLine + INTTOSTR (CurProd.Quantity) + opmC_ExportSeparator;
3583:                 ExportLine := ExportLine + FNopm_CleanNumber (CURRTOSTR (CurProd.Price), opmC_ValIsFloat) + opmC_ExportSeparator;
3584:                 ExportLine := ExportLine + FNopm_CleanNumber (CURRTOSTR (CurProd.Special), opmC_ValIsFloat) + opmC_ExportSeparator;
3585:                 ExportLine := ExportLine + FNopm_CleanNumber (CURRTOSTR (CurProd.Weight), opmC_ValIsFloat) + opmC_ExportSeparator;
3586:                 ExportLine := ExportLine + FNopm_CleanString (FNopm_NoCRLF (FNopm_StripHTML (CurDesc.Description))) + opmC_ExportSeparator;
3587:                 ExportString := ExportString + ExportLine + #13#10;
3588:               END;
3589:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
3590:             ExportLine := '';
3591:           END;
3592:       END;
3593:     opm_ListView_Main.Enabled := TRUE;
3594:     opm_Form_Main.FocusControl (opm_ListView_Main);
3595:   END;
3596:   
3597:   
3598:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3599:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3600:   procedure Topm_Form_Main.opm_PopMenuItem_PExportClick(Sender: TObject);
3601:   VAR
3602:     ExportFile : TEXTFILE;
3603:     ExportText : STRING;
3604:   BEGIN
3605:       opm_SaveDialog_Export.DefaultExt := opmC_Def_ExportExt;
3606:       opm_SaveDialog_Export.FileName := opmC_Def_ExportFilename;
3607:       opm_SaveDialog_Export.Filter := _('Text record files') + ' (' + opmC_Def_ExportFilter + ')|' + opmC_Def_ExportFilter + '|' + _('All files (*.*)');
3608:       opm_SaveDialog_Export.Title := _('Exporting product list...');
3609:       IF (opm_SaveDialog_Export.Execute = TRUE) THEN
3610:         BEGIN
3611:           PRopm_Create_ExportList (ExportText, opmG_CategoryList, opmG_ManufacturerList, FALSE);
3612:           TRY
3613:             AssignFile (ExportFile, opm_SaveDialog_Export.FileName);
3614:             Rewrite (ExportFile);
3615:             WRITELN (ExportFile, ExportText);
3616:             CloseFile (ExportFile);
3617:           EXCEPT
3618:             ON E : Exception DO
3619:               BEGIN
3620:                 FNopm_Message (_('Error while exporting product list') + #13#10 + opm_SaveDialog_Export.FileName + #13#10 + E.Message, mtError, [mbOk], opmG_UISilent);
3621:               END;
3622:           END;
3623:           SHAddToRecentDocs (SHARD_PATH, PCHAR (opm_SaveDialog_Export.FileName));
3624:         END;
3625:   END;
3626:   
3627:   
3628:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3629:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3630:   procedure Topm_Form_Main.opm_PopMenuItem_PCopyAsTextClick(Sender: TObject);
3631:   VAR
3632:     ExportText : STRING;
3633:   BEGIN
3634:     PRopm_Create_ExportList (ExportText, opmG_CategoryList, opmG_ManufacturerList, FALSE);
3635:     Clipboard.AsText := ExportText;
3636:   END;
3637:   
3638:   
3639:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3640:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3641:   procedure Topm_Form_Main.opm_PopMenuItem_PCopyAsPreClick(Sender: TObject);
3642:   VAR
3643:     ExportText : STRING;
3644:   BEGIN
3645:     PRopm_Create_ExportList (ExportText, opmG_CategoryList, opmG_ManufacturerList, TRUE);
3646:     Clipboard.AsText := ExportText;
3647:   END;
3648:   
3649:   
3650:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3651:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3652:   procedure Topm_Form_Main.opm_PopMenuItem_PSelAllClick(Sender: TObject);
3653:   begin
3654:     opm_ListView_Main.SelectAll;
3655:   end;
3656:   
3657:   
3658:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3659:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3660:   FUNCTION Topm_Form_Main.FNopm_Create_ExchangeList (VAR ExchangeList : opmT_ExchangeList;
3661:                                                      IndexData, TargetData : STRING) : LONGINT;
3662:   VAR
3663:     CurItem : TListItem;
3664:     CurProd : opmR_Product;
3665:     ProdCount : LONGINT;
3666:   BEGIN
3667:     CurItem := opm_ListView_Main.Selected;
3668:     ProdCount := 0;
3669:     IF (CurItem <> NIL) THEN
3670:       BEGIN
3671:         opm_ListView_Main.Enabled := FALSE;
3672:         WHILE (CurItem <> NIL) DO
3673:           BEGIN
3674:             opm_CurrentProdID := STRTOINT (TRIM (CurItem.SubItems.Strings[0]));
3675:             CurProd := FNopm_GetProductByID (opm_CurrentProdID, opm_CurrentLang, opmG_ProductList);
3676:             IF (IndexData = opmC_SyncField_ProductID) THEN
3677:               ExchangeList[ProdCount].IndexString := INTTOSTR (CurProd.ID)
3678:             ELSE
3679:               ExchangeList[ProdCount].IndexString := CurProd.Model;
3680:             IF (TargetData = opmC_SyncField_ProductQuantity) THEN
3681:               ExchangeList[ProdCount].CurrentString := INTTOSTR (CurProd.Quantity)
3682:             ELSE IF (TargetData = opmC_SyncField_ProductPrice) THEN
3683:               ExchangeList[ProdCount].CurrentString := CURRTOSTR (CurProd.Price)
3684:             ELSE IF (TargetData = opmC_SyncField_ProductImage) THEN
3685:               ExchangeList[ProdCount].CurrentString := CurProd.ImageURL
3686:             ELSE IF (TargetData = opmC_SyncField_ProductWeight) THEN
3687:               ExchangeList[ProdCount].CurrentString := FLOATTOSTR (CurProd.Weight)
3688:             ELSE IF (TargetData = opmC_SyncField_ProductStatus) THEN
3689:               ExchangeList[ProdCount].CurrentString := INTTOSTR (CurProd.Available)
3690:             ELSE ExchangeList[ProdCount].CurrentString := '';
3691:             ExchangeList[ProdCount].ResultString := '';
3692:             CurItem := opm_ListView_Main.GetNextItem (CurItem, sdAll, [isSelected]);
3693:             INC (ProdCount);
3694:           END;
3695:         opm_ListView_Main.Enabled := TRUE;
3696:         opm_Form_Main.FocusControl (opm_ListView_Main);
3697:       END;
3698:     FNopm_Create_ExchangeList := ProdCount;
3699:   END;
3700:   
3701:   
3702:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3703:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3704:   procedure Topm_Form_Main.opm_MenuItem_ExternalModulesClick (Sender: TObject);
3705:   begin
3706:     opm_PRSetValidModules (opm_MenuItem_ExternalModules, opm_ListView_Main.SelCount);
3707:   end;
3708:   
3709:   
3710:   
3711:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3712:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3713:   procedure Topm_Form_Main.opm_TreeView_MainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3714:   begin
3715:   end;
3716:   
3717:   
3718:   
3719:   
3720:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3721:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3722:   FUNCTION FNopm_Sort_ProductList (Item1, Item2: TListItem; Column: INTEGER) : INTEGER; STDCALL;
3723:   BEGIN
3724:     CASE Column OF
3725:     1, 6, 7, 8 :
3726:       IF (opmG_PList_LastOrderType = FALSE) THEN
3727:         FNopm_Sort_ProductList := ROUND ((STRTOFLOAT (Item1.SubItems[Column - 1]) - STRTOFLOAT (Item2.SubItems[Column - 1])))
3728:       ELSE
3729:         FNopm_Sort_ProductList := ROUND ((STRTOFLOAT (Item1.SubItems[Column - 1]) - STRTOFLOAT (Item2.SubItems[Column - 1])) * -1);
3730:     0 :
3731:       IF (opmG_PList_LastOrderType = FALSE) THEN
3732:         FNopm_Sort_ProductList := ROUND ((Item1.ImageIndex - Item2.ImageIndex))
3733:       ELSE
3734:         FNopm_Sort_ProductList := ROUND ((Item1.ImageIndex - Item2.ImageIndex) * -1);
3735:     ELSE
3736:       IF (opmG_PList_LastOrderType = FALSE) THEN
3737:         FNopm_Sort_ProductList := AnsiCompareText (Item1.SubItems[Column - 1], Item2.SubItems[Column - 1])
3738:       ELSE
3739:         FNopm_Sort_ProductList := ((AnsiCompareText (Item1.SubItems[Column - 1], Item2.SubItems[Column - 1])) * -1);
3740:     END;
3741:   END;
3742:   
3743:   
3744:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3745:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3746:   procedure Topm_Form_Main.opm_ListView_MainColumnClick(Sender: TObject; Column: TListColumn);
3747:   begin
3748:     IF (Column.Index >= 0) AND (Column.Index < 10) THEN
3749:       BEGIN
3750:         opm_ListView_Main.Column[opmG_PList_LastOrderColumn].ImageIndex := -1;
3751:         IF (opmG_PList_LastOrderColumn = Column.Index) THEN
3752:           opmG_PList_LastOrderType := NOT (opmG_PList_LastOrderType)
3753:         ELSE
3754:           opmG_PList_LastOrderType := FALSE;
3755:         IF (opmG_PList_LastOrderType = TRUE) THEN
3756:           Column.ImageIndex := 8
3757:         ELSE
3758:           Column.ImageIndex := 9;
3759:         opmG_PList_LastOrderColumn := Column.Index;
3760:         TListView (Sender).CustomSort (@FNopm_Sort_ProductList, Column.Index);
3761:       END;
3762:   end;
3763:   
3764:   
3765:   
3766:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3767:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3768:   procedure Topm_Form_Main.opm_PopMenuItem_PPrintClick(Sender: TObject);
3769:   BEGIN
3770:     opmG_Cur_PPrintEOF := FALSE;
3771:     opmG_Cur_PPrintTitle := opmC_AppName1 + ' ' + opmC_AppName2 + ' (' + opmC_AppShortName + ') ' + opmC_Version + ' (build ' + opmG_ExeBuildVersion + ')';
3772:     opmG_Cur_PPrintTitle2 := DATETIMETOSTR (NOW) + ' ' + opmG_DBHost + ' / ' + opmG_DBDatabase;
3773:     TRY
3774:       opm_frReport_ProdList.LoadFromFile (ExtractFilePath (Application.Exename) + opmC_DirReports + '/' + opmC_Report_ProdList1);
3775:       IF (opmG_PRNDirectPrint > 0) THEN
3776:         BEGIN
3777:           opm_frReport_ProdList.PrepareReport;
3778:           opm_frReport_ProdList.PrintPreparedReport('', 1);
3779:         END
3780:       ELSE opm_frReport_ProdList.ShowReport;
3781:     EXCEPT
3782:       ON E : Exception DO
3783:         BEGIN
3784:           FNopm_Message (_('Error while printing product list') + #13#10 + E.Message, mtError, [mbOk], opmG_UISilent);
3785:         END;
3786:     END;
3787:   END;
3788:   
3789:   
3790:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3791:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3792:   procedure Topm_Form_Main.opm_frReport_ProdListGetValue (const ParName: String; var ParValue: Variant);
3793:   VAR
3794:     CurCat : opmR_Category;
3795:     CurMan : opmR_Manufacturer;
3796:     CurDescR : opmR_Description;
3797:   begin
3798:     IF (ParName = 'RepTitle') THEN ParValue := opmG_Cur_PPrintTitle
3799:     ELSE IF (ParName = 'RepSubtitle') THEN ParValue := opmG_Cur_PPrintTitle2
3800:     ELSE IF (ParName = 'RepHeadID') THEN ParValue := _('Product ID')
3801:     ELSE IF (ParName = 'RepHeadAvailable') THEN ParValue := _('Available')
3802:     ELSE IF (ParName = 'RepHeadModel') THEN ParValue := _('Model')
3803:     ELSE IF (ParName = 'RepHeadCategory') THEN ParValue := _('Category name')
3804:     ELSE IF (ParName = 'RepHeadManufacturer') THEN ParValue := _('Manufacturer name')
3805:     ELSE IF (ParName = 'RepHeadName') THEN ParValue := _('Product name')
3806:     ELSE IF (ParName = 'RepHeadQuantity') THEN ParValue := _('Quantity')
3807:     ELSE IF (ParName = 'RepHeadPrice') THEN ParValue := _('Price')
3808:     ELSE IF (ParName = 'RepHeadSpecial') THEN ParValue := _('Special price')
3809:     ELSE IF (ParName = 'RepHeadWeight') THEN ParValue := _('Weight')
3810:     ELSE IF (ParName = 'RepHeadImage') THEN ParValue := _('URL')
3811:     ELSE IF (ParName = 'RepHeadTax') THEN ParValue := _('Weight')
3812:     ELSE IF (ParName = 'RepHeadAvailDate') THEN ParValue := _('Availability date')
3813:     ELSE IF (ParName = 'RepHeadCreatDate') THEN ParValue := _('Creation date')
3814:     ELSE IF (ParName = 'RepHeadChangeDate') THEN ParValue := _('Change date')
3815:     ELSE IF (ParName = 'RepHeadDescription') THEN ParValue := _('Description')
3816:     ELSE IF (ParName = 'RepHeadURL') THEN ParValue := _('URL')
3817:     ELSE IF (ParName = 'RepHeadViewed') THEN ParValue := _('Times viewed')
3818:     ELSE IF (ParName = 'ProdID') THEN ParValue := opmG_Cur_PPrintRecord.ID
3819:     ELSE IF (ParName = 'ProdAvailable') THEN ParValue := FNopm_NumToYesNo (opmG_Cur_PPrintRecord.Available)
3820:     ELSE IF (ParName = 'ProdModel') THEN ParValue := opmG_Cur_PPrintRecord.Model
3821:     ELSE IF (ParName = 'ProdCategory') THEN
3822:            BEGIN
3823:              CurCat := FNopm_GetCategory (opmG_CategoryList, opmG_Cur_PPrintRecord.CategoryID, opmC_FindByID);
3824:              ParValue := CurCat.Name;
3825:            END
3826:     ELSE IF (ParName = 'ProdManufacturer') THEN
3827:            BEGIN
3828:              CurMan := FNopm_GetManufacturer (opmG_ManufacturerList, opmG_Cur_PPrintRecord.ManufacturerID, opmC_FindByID);
3829:              ParValue := CurMan.Name;
3830:            END
3831:     ELSE IF (ParName = 'ProdName') THEN ParValue := opmG_Cur_PPrintRecord.DisplayName
3832:     ELSE IF (ParName = 'ProdQuantity') THEN ParValue := opmG_Cur_PPrintRecord.Quantity
3833:     ELSE IF (ParName = 'ProdPrice') THEN ParValue := opmG_Cur_PPrintRecord.Price
3834:     ELSE IF (ParName = 'ProdSpecial') THEN ParValue := opmG_Cur_PPrintRecord.Special
3835:     ELSE IF (ParName = 'ProdWeight') THEN ParValue := opmG_Cur_PPrintRecord.Weight
3836:     ELSE IF (ParName = 'ProdImage') THEN ParValue := opmG_Cur_PPrintRecord.ImageURL
3837:     ELSE IF (ParName = 'ProdTax') THEN ParValue := opmG_Cur_PPrintRecord.Tax
3838:     ELSE IF (ParName = 'ProdAvailDate') THEN ParValue := DATETIMETOSTR (opmG_Cur_PPrintRecord.AvailDate)
3839:     ELSE IF (ParName = 'ProdCreatDate') THEN ParValue := DATETIMETOSTR (opmG_Cur_PPrintRecord.CreationDate)
3840:     ELSE IF (ParName = 'ProdChangeDate') THEN ParValue := DATETIMETOSTR (opmG_Cur_PPrintRecord.ChangeDate)
3841:     ELSE IF (ParName = 'ProdDescription') THEN
3842:            BEGIN
3843:              CurDescR := FNopm_GetDescriptionByID (opmG_Cur_PPrintRecord.ID, opm_CurrentLang, opmG_DescriptionList);
3844:              ParValue := CurDescR.Description;
3845:            END
3846:     ELSE IF (ParName = 'ProdURL') THEN
3847:            BEGIN
3848:              CurDescR := FNopm_GetDescriptionByID (opmG_Cur_PPrintRecord.ID, opm_CurrentLang, opmG_DescriptionList);
3849:              ParValue := CurDescR.URL;
3850:            END
3851:     ELSE IF (ParName = 'ProdViewed') THEN
3852:            BEGIN
3853:              CurDescR := FNopm_GetDescriptionByID (opmG_Cur_PPrintRecord.ID, opm_CurrentLang, opmG_DescriptionList);
3854:              ParValue := CurDescR.Viewed;
3855:            END;
3856:   end;
3857:   
3858:   
3859:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3860:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3861:   procedure Topm_Form_Main.opm_frUserDataset_ProdListCheckEOF(Sender: TObject; var Eof: Boolean);
3862:   begin
3863:     EOF := opmG_Cur_PPrintEOF;
3864:   end;
3865:   
3866:   
3867:   
3868:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3869:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3870:   procedure Topm_Form_Main.opm_frUserDataset_ProdListFirst(Sender: TObject);
3871:   BEGIN
3872:     opmG_Cur_PPrintEOF := FALSE;
3873:     opmG_Cur_PrintListItem := opm_ListView_Main.Selected;
3874:     IF (opmG_Cur_PrintListItem <> NIL) THEN
3875:       BEGIN
3876:         opmG_Cur_PPrintID := STRTOINT (TRIM (opmG_Cur_PrintListItem.SubItems.Strings[0]));
3877:         opmG_Cur_PPrintRecord := FNopm_GetProductByID (opmG_Cur_PPrintID, opm_CurrentLang, opmG_ProductList);
3878:       END
3879:     ELSE opmG_Cur_PPrintEOF := TRUE;
3880:   end;
3881:   
3882:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3883:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3884:   procedure Topm_Form_Main.opm_frUserDataset_ProdListNext(Sender: TObject);
3885:   begin
3886:     opmG_Cur_PrintListItem := opm_ListView_Main.GetNextItem (opmG_Cur_PrintListItem, sdAll, [isSelected]);
3887:     IF (opmG_Cur_PrintListItem <> NIL) THEN
3888:       BEGIN
3889:         opmG_Cur_PPrintID := STRTOINT (TRIM (opmG_Cur_PrintListItem.SubItems.Strings[0]));
3890:         opmG_Cur_PPrintRecord := FNopm_GetProductByID (opmG_Cur_PPrintID, opm_CurrentLang, opmG_ProductList);
3891:       END
3892:     ELSE opmG_Cur_PPrintEOF := TRUE;
3893:   end;
3894:   
3895:   
3896:   procedure Topm_Form_Main.FormShow(Sender: TObject);
3897:   begin
3898:   {$IFDEF OSCPMDEBUG}
3899:     FNopm_Message (_('THIS IS A SPECIAL DEBUG-VERSION. Use it only to report crashes and fatal errors. DO NOT DISTRIBUTE. The full open-source version can be found in the website.'), mtInformation, [mbOk], opmG_UISilent);
3900:   {$ENDIF}
3901:   end;
3902:   
3903:   
3904:   
3905:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3906:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3907:   procedure Topm_Form_Main.opm_PopMenuItem_CatDeleteClick (Sender: TObject);
3908:   begin
3909:     IF ((opm_CurrentCategory > 0) AND (opm_CurrentCatRecord.ID < opmC_SC_BaseID)) THEN
3910:       BEGIN
3911:         PRopm_DeleteCategory (opm_CurrentCategory);
3912:       END;
3913:   end;
3914:   
3915:   
3916:   
3917:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3918:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3919:   procedure Topm_Form_Main.opm_PopMenuItem_CatAddClick(Sender: TObject);
3920:   VAR
3921:     CatParent : LONGINT;
3922:   begin
3923:     IF ((opm_CurrentCategory >= 0) AND (opm_CurrentCatRecord.ID < opmC_SC_BaseID)) THEN
3924:       BEGIN
3925:         CatParent := opm_CurrentCatRecord.ID;
3926:         opm_Form_AskCat.AC_Title := _('Add new category');
3927:         opm_Form_AskCat.AC_Directions := _('Enter the name of the new category and its translations.');
3928:         opm_Form_AskCat.AC_MaxLen := opmC_CatName_MaxLen;
3929:         opm_Form_AskCat.AC_ClearCats := TRUE;
3930:         IF (opm_Form_AskCat.ShowModal = mrOk) THEN PRopm_AddCategory (opm_Form_AskCat.AC_CategoryData, opm_TotalLanguages, CatParent);
3931:       END;
3932:   end;
3933:   
3934:   
3935:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3936:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3937:   procedure Topm_Form_Main.opm_PopMenuItem_CatRenameClick (Sender: TObject);
3938:   begin
3939:     IF ((opm_CurrentCategory > 0) AND (opm_CurrentCatRecord.ID < opmC_SC_BaseID)) THEN
3940:       BEGIN
3941:       opm_Form_AskCat.AC_Title := _('Rename category') + ' ' + opm_CurrentCatRecord.Name;
3942:       opm_Form_AskCat.AC_Directions := _('Enter the new name of the category and its translations.');
3943:       opm_Form_AskCat.AC_MaxLen := opmC_CatName_MaxLen;
3944:       opm_Form_AskCat.AC_ClearCats := FALSE;
3945:       PRopm_GetCategory_Data (opm_CurrentCategory, opm_Form_AskCat.AC_CategoryData);
3946:       IF (opm_Form_AskCat.ShowModal = mrOk) THEN PRopm_UpdateCatName (opm_Form_AskCat.AC_CategoryData, opm_TotalLanguages);
3947:     END;
3948:   end;
3949:   
3950:   
3951:   
3952:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3953:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3954:   PROCEDURE Topm_Form_Main.PRopm_UpdateCatName (CatData : opmT_SingleCatList; TotalCats : LONGINT);
3955:   VAR
3956:     CurCat : LONGINT;
3957:     UStrCatName : STRING;
3958:     Progress, ProgStep : LONGINT;
3959:   BEGIN
3960:     Progress := 0;
3961:     ProgStep := ROUND (100 / TotalCats);
3962:     IF (opmG_UIConfirmMods = 0) OR ((opmG_UIConfirmMods > 0) AND (FNopm_Message (_('Do you really want to update this category name?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
3963:       BEGIN
3964:         FOR CurCat := 0 TO (TotalCats - 1) DO
3965:           BEGIN
3966:             IF ((CatData[CurCat].ID > 0) AND (CatData[CurCat].Parent >= 0) AND
3967:                 (CatData[CurCat].Name <> '') AND (CatData[CurCat].LanguageID >= 0)) THEN
3968:               BEGIN
3969:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, Progress, opmC_ProgressNone, _('Updating category record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
3970:                 UStrCatName := 'update ' + opmG_DBTable_CategoriesDescription + ' set categories_name="' + CatData[CurCat].Name + '"'
3971:                              + ' where categories_id=' + INTTOSTR (CatData[CurCat].ID) + ' and language_id=' + INTTOSTR (CatData[CurCat].LanguageID);
3972:                 FNopm_ExecQuery (UStrCatName, opmC_SQLUpdate);
3973:               END;
3974:             INC (Progress, ProgStep);
3975:           END;
3976:         PRopm_LoadCategoryList (opmG_CategoryList, opmG_CategoryBoxList);
3977:         PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, opm_CurrentCategory);
3978:         PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
3979:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Category record updated.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
3980:       END;
3981:   END;
3982:   
3983:   
3984:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3985:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
3986:   PROCEDURE Topm_Form_Main.PRopm_AddCategory (CatData : opmT_SingleCatList; TotalCats : LONGINT; ParentCat : LONGINT);
3987:   VAR
3988:     CurCat : LONGINT;
3989:     IStrCat, IStrCatDesc, IStrCheckID : STRING;
3990:     Progress, ProgStep : LONGINT;
3991:     LastID : LONGINT;
3992:   BEGIN
3993:     Progress := 10;
3994:     ProgStep := ROUND (90 / TotalCats);
3995:     LastID := 0;
3996:     IF (ParentCat >= 0) THEN
3997:       BEGIN
3998:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, Progress, opmC_ProgressNone, _('Adding category record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
3999:         IStrCat := 'insert into ' + opmG_DBTable_Categories + ' (parent_id, date_added) values (' + INTTOSTR (ParentCat) + ', now())';
4000:         IStrCheckID := 'select categories_id from ' + opmG_DBTable_Categories + ' where categories_id=last_insert_id()';
4001:         FNopm_ExecQuery (IStrCat, opmC_SQLInsert);
4002:         IF (FNopm_ExecQuery (IStrCheckID, opmC_SQLSelect) > 0) THEN
4003:           IF (opmG_DBQuery.Active = TRUE) THEN
4004:             BEGIN
4005:               opmG_DBQuery.First;
4006:               LastID := opmG_DBQuery.Fields[0].AsInteger;
4007:             END;
4008:       END;
4009:     IF (LastID > 0) THEN
4010:       FOR CurCat := 0 TO (TotalCats - 1) DO
4011:         BEGIN
4012:           IF (CatData[CurCat].LanguageID >= 0) THEN
4013:             BEGIN
4014:               PRopm_Update_StatusBar (opmC_ConnStatIgnore, Progress, opmC_ProgressNone, _('Adding category record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4015:               IStrCatDesc := 'insert into ' + opmG_DBTable_CategoriesDescription + ' (categories_id, language_id, categories_name)'
4016:                            + ' values (' + INTTOSTR (LastID) + ', ' + INTTOSTR (CatData[CurCat].LanguageID) + ', "' + CatData[CurCat].Name + '")';
4017:               FNopm_ExecQuery (IStrCatDesc, opmC_SQLInsert);
4018:             END;
4019:           INC (Progress, ProgStep);
4020:         END;
4021:     PRopm_LoadCategoryList (opmG_CategoryList, opmG_CategoryBoxList);
4022:     PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, opm_CurrentCategory);
4023:     PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
4024:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Category records added.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4025:   END;
4026:   
4027:   
4028:   
4029:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4030:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4031:   PROCEDURE Topm_Form_Main.PRopm_DeleteCategory (CatID : LONGINT);
4032:   VAR
4033:     DStrCat, UStrCat, DStrCatDesc, UProdCats, SParentCat : STRING;
4034:     ParentCat : LONGINT;
4035:   BEGIN
4036:     ParentCat := opm_CurrentCategory;
4037:     IF (CatID > 0) THEN
4038:       BEGIN
4039:         IF (opmG_UIConfirmDels = 0) OR ((opmG_UIConfirmDels > 0) AND (FNopm_Message (_('Do you really want to delete this category?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
4040:           BEGIN
4041:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 20, opmC_ProgressIgnore, _('Deleting category...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4042:             ParentCat := 0;
4043:             SParentCat := 'select parent_id from ' + opmG_DBTable_Categories + ' where categories_id=' + INTTOSTR (CatID);
4044:             IF (FNopm_ExecQuery (SParentCat, opmC_SQLSelect) > 0) THEN
4045:               IF (opmG_DBQuery.Active = TRUE) THEN
4046:                 BEGIN
4047:                   opmG_DBQuery.First;
4048:                   ParentCat := opmG_DBQuery.Fields[0].AsInteger;
4049:                   IF (ParentCat < 0) THEN ParentCat := 0;
4050:                 END;
4051:             DStrCat := 'delete from ' + opmG_DBTable_Categories + ' where categories_id=' + INTTOSTR (CatID);
4052:             UStrCat := 'update ' + opmG_DBTable_Categories + ' set parent_id=' + INTTOSTR (ParentCat) + ' where parent_id=' + INTTOSTR (CatID);
4053:             DStrCatDesc := 'delete from ' + opmG_DBTable_CategoriesDescription + ' where categories_id=' + INTTOSTR (CatID);
4054:             UProdCats := 'update ' + opmG_DBTable_ProductsToCategories + ' set categories_id=' + INTTOSTR (ParentCat) + ' where categories_id=' + INTTOSTR (CatID);
4055:             IF (FNopm_ExecQuery (DStrCat, opmC_SQLUpdate) >= 0) THEN
4056:               BEGIN
4057:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 40, opmC_ProgressIgnore, _('Moving categories from category...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4058:                 FNopm_ExecQuery (UStrCat, opmC_SQLUpdate);
4059:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 60, opmC_ProgressIgnore, _('Deleting category record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4060:                 FNopm_ExecQuery (DStrCatDesc, opmC_SQLUpdate);
4061:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 80, opmC_ProgressIgnore, _('Deleting category descriptions...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4062:                 FNopm_ExecQuery (UProdCats, opmC_SQLUpdate);
4063:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 100, opmC_ProgressIgnore, _('Moving products from category...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4064:               END;
4065:             PRopm_Update_StatusBar (opmC_ConnStatIgnore, 0, opmC_ProgressIgnore, _('Category deleted.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4066:           END;
4067:       END;
4068:     PRopm_LoadCategoryList (opmG_CategoryList, opmG_CategoryBoxList);
4069:     PRopm_RenderCategoryDisplay (opmG_CategoryList, opm_TreeView_Main, ParentCat);
4070:     PRopm_ClearProductList (opm_ListView_Main);
4071:     PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
4072:     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Category records added.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4073:   END;
4074:   
4075:   
4076:   
4077:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4078:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4079:   procedure Topm_Form_Main.opm_ListView_MainKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState);
4080:   begin
4081:     CASE Key OF
4082:       VK_RETURN : opm_ListView_MainDblClick (Sender);
4083:       VK_DELETE : opm_PopMenuItem_PDeleteClick (Sender);
4084:       VK_INSERT : opm_PopMenuItem_PAddClick (Sender);
4085:     END;
4086:   
4087:   end;
4088:   
4089:   
4090:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4091:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4092:   PROCEDURE Topm_Form_Main.QuickSearch (QSString : STRING);
4093:   BEGIN
4094:      QSString := TRIM (QSString);
4095:     IF (QSString <> '') THEN
4096:       BEGIN
4097:         opm_Search_PCategory := 0;
4098:         opm_Search_PManufacturer := 0;
4099:         opm_Search_PModel := '';
4100:         opm_Search_PName := '';
4101:         opm_Search_PDesc := '';
4102:         opm_Search_PSPrice := 0;
4103:         opm_Search_PImagURL := 0;
4104:         opm_Search_PAvailable := 0;
4105:         PRopm_SearchProducts (opm_Search_PCategory, opm_Search_PManufacturer, opm_Search_PModel, opm_Search_PName, opm_Search_PDesc, opm_Search_PSPrice, opm_Search_PImagURL, opm_Search_PAvailable, opmG_ProductList, opmG_DescriptionList, QSString);
4106:         PRopm_RenderProductDisplay (opmG_CategoryList, opmG_ManufacturerList, opmG_ProductList, opm_ListView_Main, opm_CurrentProdID);
4107:         PRopm_Valid_ProdOps (opm_WeAreConnected, opm_ListView_Main.Selected, opm_ListView_Main.SelCount, NIL);
4108:       END;
4109:   END;
4110:   
4111:   
4112:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4113:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4114:   procedure Topm_Form_Main.opm_SpeedButton_QuickSearchClick(Sender: TObject);
4115:   BEGIN
4116:     QuickSearch (opm_Edit_QuickSearch.Text);
4117:   END;
4118:   
4119:   
4120:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4121:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4122:   procedure Topm_Form_Main.opm_Edit_QuickSearchKeyPress(Sender: TObject; var Key: Char);
4123:   BEGIN
4124:     IF (ORD (Key) = VK_RETURN) THEN QuickSearch (opm_Edit_QuickSearch.Text);
4125:   END;
4126:   
4127:   
4128:   
4129:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4130:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4131:   procedure Topm_Form_Main.opm_MenuItem_CheckUpdatesClick(Sender: TObject);
4132:   VAR
4133:     ResStr : STRING;
4134:     RemoteVer, RemoteURL : STRING;
4135:     CompRes : LONGINT;
4136:   BEGIN
4137:     RemoteVer := '';
4138:     PRopm_Prepare_HTTPClient (NIL, NIL, ((opmG_UseProxy > 0) AND (opmG_ProxyApply IN [0, 2])));
4139:     Screen.Cursor := opmC_Wait_Mouse;
4140:     IF (FNopm_Send_SimpleCommand (opmC_CheckUpdates_URL, 'check', opmC_Version + '.' + opmG_ExeBuildVersion, ResStr) = TRUE) THEN
4141:       BEGIN
4142:         Screen.Cursor := opmC_Normal_Mouse;
4143:         RemoteVer := TRIM (COPY (ResStr, (POS (opmC_WebScriptOKCode, ResStr) + LENGTH (opmC_WebScriptOKCode)), (POS (' http', ResStr) - LENGTH (opmC_WebScriptOKCode))));
4144:         RemoteURL := TRIM (COPY (ResStr, POS (' http', ResStr), LENGTH (ResStr)));
4145:         CompRes := FNopm_CompareVersions (opmC_Version + '.' + opmG_ExeBuildVersion, RemoteVer);
4146:         IF (CompRes = opmC_VersionIsOlder) THEN
4147:           BEGIN
4148:             IF (FNopm_Message (_('There is a new version available. Do you want to download it?') + ' [' + RemoteVer + ']', mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes) THEN
4149:               ShellExecute (handle,'Open', PCHAR (RemoteURL), NIL, NIL, SW_NORMAL);
4150:           END
4151:         ELSE
4152:           FNopm_Message (_('There is not a new version available.'), mtInformation, [mbOk], opmG_UISilent);
4153:       END
4154:     ELSE
4155:       BEGIN
4156:         Screen.Cursor := opmC_Normal_Mouse;
4157:         FNopm_Message (_('Cannot contact the software website. Check your network connection and proxy settings.'), mtWarning, [mbOk], opmG_UISilent);
4158:       END;
4159:   END;
4160:   
4161:   
4162:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4163:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4164:   procedure Topm_Form_Main.opm_MenuItem_ManAddClick(Sender: TObject);
4165:   VAR
4166:     ManName : STRING;
4167:     LastID : LONGINT;
4168:     IStrMans, IStrCheckID, IStrManInfo : STRING;
4169:     CurLang : LONGINT;
4170:   BEGIN
4171:     opm_Form_AskUser.AU_Title := _('Add new manufacturer');
4172:     opm_Form_AskUser.AU_DataText := '';
4173:     opm_Form_AskUser.AU_Directions := _('Type the name of the new manufacturer (avoid using HTML tags):');
4174:     opm_Form_AskUser.AU_TextOrList := TRUE;
4175:     opm_Form_AskUser.AU_PassChar := #0;
4176:     opm_Form_AskUser.AU_MaxLen := opmC_ManName_MaxLen;
4177:     IF (opm_Form_AskUser.ShowModal = mrOk) THEN
4178:       BEGIN
4179:         ManName := FNopm_CleanString (opm_Form_AskUser.AU_DataText);
4180:         IF (ManName = '') THEN ManName := opmC_Unamed_Man;
4181:         LastID := 0;
4182:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Adding manufacturer record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4183:         IStrMans := 'insert into ' + opmG_DBTable_Manufacturers + ' (manufacturers_name, date_added, last_modified)' + ''
4184:                   + ' values ("' + FNopm_CleanSQLString (ManName, FALSE) + '", now(), now())';
4185:         IStrCheckID := 'select manufacturers_id from ' + opmG_DBTable_Manufacturers + ' where manufacturers_id=last_insert_id()';
4186:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4187:         FNopm_ExecQuery (IStrMans, opmC_SQLInsert);
4188:         IF (FNopm_ExecQuery (IStrCheckID, opmC_SQLSelect) > 0) THEN
4189:           IF (opmG_DBQuery.Active = TRUE) THEN
4190:             BEGIN
4191:               opmG_DBQuery.First;
4192:               LastID := opmG_DBQuery.Fields[0].AsInteger;
4193:             END;
4194:         IF (LastID > 0) THEN
4195:           BEGIN
4196:             FOR CurLang := 0 TO (opm_TotalLanguages - 1) DO
4197:               BEGIN
4198:                 IStrManInfo := 'insert into ' + opmG_DBTable_ManufacturersInfo + ' (manufacturers_id, languages_id, manufacturers_url, url_clicked)' + ''
4199:                              + ' values (' + INTTOSTR (LastID) + ', ' + INTTOSTR (opmG_LanguageList[CurLang].ID) + ', "", 0)';
4200:                 FNopm_ExecQuery (IStrManInfo, opmC_SQLInsert);
4201:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, (CurLang * ROUND (100 / opmC_Max_Languages_PerList)), opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4202:               END;
4203:           END;
4204:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, 100, opmC_ProgressNone, _('Manufacturer record added.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4205:         PRopm_LoadManufacturerList (opmG_ManufacturerList, opmG_ManufacturerBoxList);
4206:         PRopm_Reload_ProductList (opm_WeAreSearching);
4207:       END;
4208:   END;
4209:   
4210:   
4211:   
4212:   
4213:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4214:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4215:   procedure Topm_Form_Main.opm_MenuItem_ManRenameClick(Sender: TObject);
4216:   VAR
4217:     CurMan : opmR_Manufacturer;
4218:     ManName : STRING;
4219:     UStrMans : STRING;
4220:   BEGIN
4221:     opm_Form_AskUser.AU_DataList := opmG_ManufacturerBoxList;
4222:     opm_Form_AskUser.AU_Title := _('Rename manufacturer');
4223:     opm_Form_AskUser.AU_ListItem := 0;
4224:     opm_Form_AskUser.AU_Directions := _('Select the manufacturer to rename:');
4225:     opm_Form_AskUser.AU_TextOrList := FALSE;
4226:     IF (opm_Form_AskUser.ShowModal = mrOk) THEN
4227:       BEGIN
4228:         CurMan := FNopm_GetManufacturer (opmG_ManufacturerList, opm_Form_AskUser.AU_ListItem, opmC_FindByIndex);
4229:         IF (CurMan.ID > 0) THEN
4230:           BEGIN
4231:             opm_Form_AskUser.AU_Title := _('Rename manufacturer');
4232:             opm_Form_AskUser.AU_DataText := CurMan.Name;
4233:             opm_Form_AskUser.AU_Directions := _('Edit the name of the manufacturer (avoid using HTML tags):');
4234:             opm_Form_AskUser.AU_TextOrList := TRUE;
4235:             opm_Form_AskUser.AU_PassChar := #0;
4236:             opm_Form_AskUser.AU_MaxLen := opmC_ManName_MaxLen;
4237:             IF (opm_Form_AskUser.ShowModal = mrOk) THEN
4238:               BEGIN
4239:                 IF (opmG_UIConfirmMods = 0) OR ((opmG_UIConfirmMods > 0) AND (FNopm_Message (_('Do you really want to update this manufacturer name?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
4240:                   BEGIN
4241:                     ManName := FNopm_CleanString (opm_Form_AskUser.AU_DataText);
4242:                     IF (ManName = '') THEN ManName := opmC_Unamed_Man;
4243:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Adding manufacturer record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4244:                     UStrMans := 'update ' + opmG_DBTable_Manufacturers + ' set manufacturers_name="' + FNopm_CleanSQLString (ManName, FALSE) + '" where manufacturers_id=' + INTTOSTR (CurMan.ID);
4245:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4246:                     FNopm_ExecQuery (UStrMans, opmC_SQLUpdate);
4247:                     PRopm_Update_StatusBar (opmC_ConnStatIgnore, 100, opmC_ProgressNone, _('Manufacturer record deleted.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4248:                     PRopm_LoadManufacturerList (opmG_ManufacturerList, opmG_ManufacturerBoxList);
4249:                     PRopm_Reload_ProductList (opm_WeAreSearching);
4250:                   END;
4251:               END;
4252:           END
4253:         ELSE FNopm_Message (_('You must select a valid manufacturer.'), mtWarning, [mbOk], opmG_UISilent);
4254:       END;
4255:   END;
4256:   
4257:   
4258:   
4259:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4260:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4261:   procedure Topm_Form_Main.opm_MenuItem_ManDeleteClick(Sender: TObject);
4262:   VAR
4263:     CurMan : opmR_Manufacturer;
4264:     DStrMans, DStrMansInfo, UStrProdMan : STRING;
4265:   BEGIN
4266:     opm_Form_AskUser.AU_DataList := opmG_ManufacturerBoxList;
4267:     opm_Form_AskUser.AU_Title := _('Delete manufacturer');
4268:     opm_Form_AskUser.AU_ListItem := 0;
4269:     opm_Form_AskUser.AU_Directions := _('Select the manufacturer to delete (all products by this manufacturer will be reassigned to a null manufacturer):');
4270:     opm_Form_AskUser.AU_TextOrList := FALSE;
4271:     IF (opm_Form_AskUser.ShowModal = mrOk) THEN
4272:       BEGIN
4273:         CurMan := FNopm_GetManufacturer (opmG_ManufacturerList, opm_Form_AskUser.AU_ListItem, opmC_FindByIndex);
4274:         IF (CurMan.ID > 0) THEN
4275:           BEGIN
4276:             IF (opmG_UIConfirmDels = 0) OR ((opmG_UIConfirmDels > 0) AND (FNopm_Message (_('Do you really want to delete this manufacturer?'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes)) THEN
4277:               BEGIN
4278:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Adding manufacturer record...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4279:                 DStrMans := 'delete from ' + opmG_DBTable_Manufacturers + ' where manufacturers_id=' + INTTOSTR (CurMan.ID);
4280:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 25, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4281:                 FNopm_ExecQuery (DStrMans, opmC_SQLInsert);
4282:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 50, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4283:                 DStrMansInfo := 'delete from ' + opmG_DBTable_ManufacturersInfo + ' where manufacturers_id=' + INTTOSTR (CurMan.ID);
4284:                 FNopm_ExecQuery (DStrMansInfo, opmC_SQLInsert);
4285:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 75, opmC_ProgressNone, '', opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4286:                 UStrProdMan := 'update ' + opmG_DBTable_Products + ' set manufacturers_id=0 where manufacturers_id=' + INTTOSTR (CurMan.ID);
4287:                 FNopm_ExecQuery (UStrProdMan, opmC_SQLUpdate);
4288:                 PRopm_Update_StatusBar (opmC_ConnStatIgnore, 100, opmC_ProgressNone, _('Manufacturer record deleted.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4289:                 PRopm_LoadManufacturerList (opmG_ManufacturerList, opmG_ManufacturerBoxList);
4290:                 PRopm_Reload_ProductList (opm_WeAreSearching);
4291:               END;
4292:           END
4293:         ELSE FNopm_Message (_('You must select a valid manufacturer.'), mtWarning, [mbOk], opmG_UISilent);
4294:       END;
4295:   END;
4296:   
4297:   
4298:   
4299:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4300:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
4301:   procedure Topm_Form_Main.opm_MenuItem_BackupClick(Sender: TObject);
4302:   VAR
4303:     RecFileName : STRING;
4304:     ResStr : STRING;
4305:   BEGIN
4306:     IF (FNopm_Message (_('Do you really want to download a database backup of the store?') + #13#10 + _('This operation may take a few minutes.'), mtConfirmation, [mbYes, mbNo], opmG_UISilent) = mrYes) THEN
4307:       BEGIN
4308:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Getting database backup...'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4309:         PRopm_Prepare_HTTPClient (opm_ProgressBar_Main, NIL, ((opmG_UseProxy > 0) AND (opmG_ProxyApply IN [0, 1])));
4310:         IF (FNopm_Send_Command (opmG_WBUploadURL, 'noop', '', ResStr)) THEN
4311:           BEGIN
4312:             Screen.Cursor := opmC_Wait_Mouse;
4313:             PRopm_Prepare_HTTPClient (NIL, NIL, ((opmG_UseProxy > 0) AND (opmG_ProxyApply IN [0, 1])));
4314:             RecFileName := FNopm_Receive_File (opmG_WBUploadURL, 'backup', opmG_TMPPath + opmC_TmpBak_Filename);
4315:             IF (RecFileName <> '') THEN
4316:               BEGIN
4317:                 opm_SaveDialog_Export.DefaultExt := opmC_Def_BackupExt;
4318:                 opm_SaveDialog_Export.FileName := RecFileName;
4319:                 opm_SaveDialog_Export.Filter := _('Backup files') + ' (' + opmC_Def_BackupFilter + ')|' + opmC_Def_BackupFilter + '|' + _('All files (*.*)');
4320:                 opm_SaveDialog_Export.Title := _('Saving database backup...');
4321:                 IF (opm_SaveDialog_Export.Execute = TRUE) THEN
4322:                   BEGIN
4323:                     IF (MoveFile (PCHAR (opmG_TMPPath + opmC_TmpBak_Filename), PCHAR (opm_SaveDialog_Export.FileName)) = TRUE) THEN
4324:                       SHAddToRecentDocs (SHARD_PATH, PCHAR (opm_SaveDialog_Export.FileName))
4325:                     ELSE
4326:                       BEGIN
4327:                         Screen.Cursor := opmC_Normal_Mouse;
4328:                         FNopm_Message ('Error while downloading the database backup file.', mtError, [mbOk], opmG_UISilent);
4329:                       END;
4330:                   END;
4331:               END
4332:             ELSE
4333:               BEGIN
4334:                 Screen.Cursor := opmC_Normal_Mouse;
4335:                 FNopm_Message ('Error while downloading the database backup file.', mtError, [mbOk], opmG_UISilent);
4336:               END;
4337:             Screen.Cursor := opmC_Normal_Mouse;
4338:           END;
4339:         PRopm_Update_StatusBar (opmC_ConnStatIgnore, opmC_ProgressNone, opmC_ProgressNone, _('Got database backup.'), opmC_PTotalIgnore, opm_CurrentCurrency.Code);
4340:       END;
4341:   end;
4342:   
4343:   
4344:   END.
4345:   
4346:   
4347:   
 
 
NA fum/lmd: 2007.07.15
Copyright ©1994-2017 by Mario A. Valdez-Ramírez.
no siga este enlace / do not follow this link