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