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