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