Klasse TSonderpreise

Unit

Deklaration

type TSonderpreise = class(TMdiChildForm)

Beschreibung

Hierarchie

Übersicht

Felder

Public IB_Transaction1: TIB_Transaction;
Public IB_DataSource1: TIB_DataSource;
Public IBP_Query1: TIBP_Query;
Public FormStorage1: TFormStorage;
Public IBP_Query2: TIBP_Query;
Public IB_DataSource2: TIB_DataSource;
Public MainMenu1: TMainMenu;
Public Sonderpreise1: TMenuItem;
Public ZeigeKunde1: TMenuItem;
Public ZeigeArtikel1: TMenuItem;
Public N1: TMenuItem;
Public Kopieren1: TMenuItem;
Public N2: TMenuItem;
Public PreisAktualisierung1: TMenuItem;
Public IBP_Query3: TIBP_Query;
Public IB_DataSource3: TIB_DataSource;
Public AuftrgezumSonderpreis1: TMenuItem;
Public IBP_Query4: TIBP_Query;
Public IB_DataSource4: TIB_DataSource;
Public OpenPictureDialog1: TOpenPictureDialog;
Public FontDialog1: TFontDialog;
Public Twainy1: TTwainy;
Public IBP_Query5: TIBP_Query;
Public IB_DataSource5: TIB_DataSource;
Public SavePictureDialog1: TSavePictureDialog;
Public N3: TMenuItem;
Public ArtikelSet1: TMenuItem;
Public IBP_Query6: TIBP_Query;
Public IB_DataSource6: TIB_DataSource;
Public GroundPanel: Tibp_Panel;
Public Panel3: TPanel;
Public IBP_Grid1: TIBP_Grid;
Public Panel4: TPanel;
Public Panel5: TPanel;
Public Externe_Vermerke: TLabel;
Public Label2: TLabel;
Public Label3: TLabel;
Public Label4: TLabel;
Public Panel7: TPanel;
Public Label5: TLabel;
Public IBP_SearchPanel2: TIBP_SearchPanel;
Public IBP_Grid2: TIBP_Grid;
Public IBP_SearchPanel3: TIBP_SearchPanel;
Public IBP_Grid3: TIBP_Grid;
Public Panel18: TPanel;
Public Panel19: TPanel;
Public Panel17: TPanel;
Public Label1: TLabel;
Public Label7: TLabel;
Public Label6: TLabel;
Public Label8: TLabel;
Public Label11: TLabel;
Public hcm: TIB_Edit;
Public bcm: TIB_Edit;
Public IB_CheckBox1: TIB_CheckBox;
Public Datum: TIB_Date;
Public rg1: TIB_RadioGroup;
Public IB_Edit4: TIB_Edit;
Public IB_CheckBox2: TIB_CheckBox;
Public IB_CheckBox3: TIB_CheckBox;
Public IB_CheckBox4: TIB_CheckBox;
Public IB_CheckBox5: TIB_CheckBox;
Public Panel13: TPanel;
Public Label9: TLabel;
Public B1: TSpeedButton;
Public B3: TSpeedButton;
Public B4: TSpeedButton;
Public Panel14: TPanel;
Public IB_Memo5: TIB_RichEdit;
Public Panel20: TPanel;
Public rg2: TIB_RadioGroup;
Public IBP_SearchPanel5: TIBP_SearchPanel;
Public IBP_Grid5: TIBP_Grid;
Public Panel21: TPanel;
Public IB_RadioGroup1: TIB_RadioGroup;
Public RxSplitter18: TRxSplitter;
Public Panel8: TPanel;
Public ToolBarPanel: TPanel;
Public SpeedButton1: TSpeedButton;
Public SpeedButton2: TSpeedButton;
Public SpeedButton3: TSpeedButton;
Public SpeedButton4: TSpeedButton;
Public RulerBtn: TSpeedButton;
Public RxSpeedButton2: TSpeedButton;
Public RxSpeedButton3: TSpeedButton;
Public RxSpeedButton1: TSpeedButton;
Public RxSpeedButton4: TSpeedButton;
Public HPanel: TPanel;
Public Panel15: TPanel;
Public Label10: TLabel;
Public Panel16: TPanel;
Public HFrRUL1: THFrRUL;
Public PicSize: TPanel;
Public ScrollBox1: TScrollBox;
Public Image1: TImage;
Public IB_Memo4: TIB_Memo;
Public IB_Memo6: TIB_RichEdit;
Public VPanel: TPanel;
Public VFrRUL1: TVFrRUL;
Public RxSplitter3: TRxSplitter;
Public Panel12: TPanel;
Public IB_Edit7: TIB_Edit;
Public Label16: TLabel;
Public IB_Memo7: TIB_Memo;
Public Label14: TLabel;
Public Label15: TLabel;
Public Label17: TLabel;
Public Panel6: TPanel;
Public IB_Memo2: TIB_Memo;
Public IBP_SearchPanel7: TIBP_SearchPanel;
Public IBP_Query7: TIBP_Query;
Public IB_DataSource7: TIB_DataSource;
Public Label25: TLabel;
Public IB_DataSource8: TIB_DataSource;
Public IBP_Query8: TIBP_Query;
Public Panel22: TPanel;
Public Label23: TLabel;
Public Label24: TLabel;
Public rb1: TRadioButton;
Public rb2: TRadioButton;
Public IB_Date1: TIB_Date;
Public IB_Date2: TIB_Date;
Public ToolPanel: TToolBar;
Public Panel1: TPanel;
Public ToolButton2: TToolButton;
Public Drucken: TToolButton;
Public ToolButton3: TToolButton;
Public Edit1: TEditEnh;
Public ToolButton1: TToolButton;
Public TableButton: TToolButton;
Public Panel2: TPanel;
Public Label22: TLabel;
Public Label26: TLabel;
Public IBP_Grid9: TIBP_Grid;
Public IBP_Query9: TIBP_Query;
Public IB_DataSource9: TIB_DataSource;
Public IBP_SearchPanel9: TIBP_SearchPanel;
Public SuchenundErsetzen1: TMenuItem;
Public ZumRahmenauftrag1: TMenuItem;
Public IBP_Grid10: TIBP_Grid;
Public Panel9: TPanel;
Public Label27: TLabel;
Public Label28: TLabel;
Public SBtn: TRadioButton;
Public RadioButton2: TRadioButton;
Public Dvon: TDateTimePicker;
Public Dbis: TDateTimePicker;
Public IBP_Query10: TIBP_Query;
Public IB_DataSource10: TIB_DataSource;
Public IBP_Query11: TIBP_Query;
Public IB_DataSource11: TIB_DataSource;
Public IBP_Grid11: TIBP_Grid;
Public Panel10: TPanel;
Public nr2: TIB_Edit;
Public nr1: TIB_Edit;
Public Panel23: TPanel;
Public LinkSpeedButton: TSpeedButton;
Public IBP_SearchPanel11: TIBP_SearchPanel;
Public Panel24: TPanel;
Public Panel25: TPanel;
Public Edit2: TEditEnh;
Public Label32: TLabel;
Public Label33: TLabel;
Public RxSplitter11: TRxSplitter;
Public IBP_SearchPanel1: TibpScrollBox;
Public MaskPanel11: TPanel;
Public MPanel1_1: TPanel;
Public Panel26: TPanel;
Public Label34: TLabel;
Public Label35: TLabel;
Public IB_EditNr: TIB_Edit;
Public TopPanel1: TPanel;
Public Shape7: TShape;
Public Shape4: TShape;
Public MPanel1_3: TPanel;
Public Panel27: TPanel;
Public Label36: TLabel;
Public Label37: TLabel;
Public Label38: TLabel;
Public Label39: TLabel;
Public IB_NameEdit: TIB_Edit;
Public IB_Edit13: TIB_Edit;
Public IB_Edit17: TIB_Edit;
Public IB_Edit18: TIB_Edit;
Public IB_Edit19: TIB_Edit;
Public IB_Edit20: TIB_Edit;
Public IB_Edit21: TIB_Edit;
Public IB_Edit22: TIB_Edit;
Public Panel28: TPanel;
Public Shape2: TShape;
Public Shape5: TShape;
Public MPanel1_5: TPanel;
Public Panel29: TPanel;
Public Label40: TLabel;
Public IB_Memo8: TIB_Memo;
Public Panel30: TPanel;
Public Shape9: TShape;
Public Shape10: TShape;
Public MaskPanel12: TPanel;
Public MPanel1_4: TPanel;
Public Panel31: TPanel;
Public Label43: TLabel;
Public Label44: TLabel;
Public Label45: TLabel;
Public IB_Edit24: TIB_Edit;
Public IB_Edit25: TIB_Edit;
Public IB_Edit26: TIB_Edit;
Public IB_Edit27: TIB_Edit;
Public IB_Edit48: TIB_Edit;
Public IB_Edit29: TIB_Edit;
Public Panel32: TPanel;
Public Shape3: TShape;
Public Shape8: TShape;
Public MPanel1_2: TPanel;
Public Panel33: TPanel;
Public Label47: TLabel;
Public Label49: TLabel;
Public Label50: TLabel;
Public IB_Edit_AGH: TIB_Edit;
Public IB_KdArtBezEdit: TIB_Edit;
Public IB_Edit55: TIB_Edit;
Public IB_KdArtnrEdit: TIB_Edit;
Public TopPanel2: TPanel;
Public Shape1: TShape;
Public Shape6: TShape;
Public MPanel1_6: TPanel;
Public Panel34: TPanel;
Public Label51: TLabel;
Public IB_Memo9: TIB_Memo;
Public Panel35: TPanel;
Public Shape11: TShape;
Public Shape12: TShape;
Public RxSplitter1: TRxSplitter;
Public Label52: TLabel;
Public IB_EditKdnr: TIB_Edit;
Public IB_KdNameEdit: TIB_Edit;
Public IB_Edit35: TIB_Edit;
Public IB_EditArtikelnr: TIB_Edit;
Public IB_Edit37: TIB_Edit;
Public IB_Edit38: TIB_Edit;
Public IB_CheckBox9: TIB_CheckBox;
Public IB_Edit23: TIB_Edit;
Public Label41: TLabel;
Public IB_Bestellnr: TIB_Edit;
Public IB_Edit30: TIB_Edit;
Public IB_Edit32: TIB_Edit;
Public IB_CheckBox10: TIB_CheckBox;
Public IB_CheckBox8: TIB_CheckBox;
Public IB_CheckBox6: TIB_CheckBox;
Public IB_CheckBox11: TIB_CheckBox;
Public IB_CheckBox12: TIB_CheckBox;
Public Label18: TLabel;
Public IB_Edit1: TIB_Edit;
Public IB_Edit2: TIB_Edit;
Public Panel36: TPanel;
Public Edit3: TEditEnh;
Public Panel37: TPanel;
Public Edit4: TEditEnh;
Public Label19: TLabel;
Public IB_CheckBox7: TIB_CheckBox;
Public Active_only: TToolButton;
Public ToolButton5: TToolButton;
Public ToolButton4: TToolButton;
Public ToolButton6: TToolButton;
Public ToolButton7: TToolButton;
Public Background2: TShape;
Public Background3: TShape;
Public Background5: TShape;
Public Background4: TShape;
Public Background1: TShape;
Public Background6: TShape;
Public IB_KdNameEdit1: TIB_Edit;
Public Edit_Referenzen: TURLLabel;
Public Label12: TLabel;
Public IB_CheckBox13: TIB_CheckBox;
Public AktualisierungStueckgewicht: TMenuItem;
Public Label13: TLabel;
Public IB_Edit3: TIB_Edit;
Public Label20: TLabel;
Public ArtikeltextBPanel: TPanel;
Public IB_Memo1: TIB_Memo;
Public Panel38: TPanel;
Public Shape25: TShape;
Public Shape26: TShape;
Public KreditauskunftBPanel: TPanel;
Public Panel39: TPanel;
Public Shape27: TShape;
Public Shape28: TShape;
Public Artikeltextvorschau: TJvMemo;
Public IB_ComboBox1: TIB_ComboBox;
Public Vorschau_ArtTextCombobox: TJvComboBox;
Public Label46: TLabel;
Public IB_Edit8: TIB_Edit;
Public IB_Edit9: TIB_Edit;
Public Label53: TLabel;
Public Label54: TLabel;
Public IB_Date3: TIB_Date;
Public IB_Edit10: TIB_Edit;
Public IBP_Query12: TIBP_Query;
Public IB_DataSource12: TIB_DataSource;
Public IBP_Grid12: TIBP_Grid;
Public IBP_SearchPanel12: TIBP_SearchPanel;
Public Panel11: TPanel;
Public IBP_SearchPanel6: TIBP_SearchPanel;
Public IBP_Grid6: TIBP_Grid;
Public Panel40: TPanel;
Public Label21: TLabel;
Public Label29: TLabel;
Public Label30: TLabel;
Public Label31: TLabel;
Public IB_Edit5: TIB_Edit;
Public IB_Edit6: TIB_Edit;
Public IB_ComboBox2: TIB_ComboBox;
Public IB_ComboBox3: TIB_ComboBox;
Public Panel41: TPanel;
Public Label55: TLabel;
Public IB_Memo3: TIB_Memo;
Public IBP_Grid4: TIBP_Grid;
Public IBP_Query13: TIBP_Query;
Public IB_DataSource13: TIB_DataSource;
Public IB_Edit11: TIB_Edit;
Public Label57: TLabel;
Public letztePreisAktualisierungzurcknehmen1: TMenuItem;
Public Label56: TLabel;
Public IB_ComboBox4: TIB_ComboBox;
Public Panel42: TPanel;
Public Panel43: TPanel;
Public RxSplitter4: TRxSplitter;
Public Label59: TLabel;
Public IB_Memo10: TIB_Memo;
Public RxSplitter5: TRxSplitter;
Public Panel44: TPanel;
Public Panel46: TPanel;
Public RxSplitter7: TRxSplitter;
Public JvMemo1: TJvMemo;
Public Label58: TLabel;
Public Label60: TLabel;
Public Panel47: TPanel;
Public Bevel1: TBevel;
Public Bevel2: TBevel;
Public Bevel3: TBevel;
Public Panel45: TPanel;
Public RxSplitter9: TRxSplitter;
Public RxSplitter10: TRxSplitter;
Public RxSplitter2: TRxSplitter;
Public RxSplitter6: TRxSplitter;
Public RxSplitter8: TRxSplitter;
Public JvEmbeddedFormPanel1: TJvEmbeddedFormPanel;
Public IBP_Query14: TIBP_Query;
Public IB_DataSource14: TIB_DataSource;
Public IB_Edit12: TIB_Edit;
Public IB_Edit15: TIB_Edit;
Public IB_Memo11: TIB_Memo;
Public IB_CheckBox14: TIB_CheckBox;
Public IB_CheckBox15: TIB_CheckBox;
Public IB_CheckBox16: TIB_CheckBox;
Public IB_CheckBox17: TIB_CheckBox;
Public Label61: TLabel;
Public Label63: TLabel;
Public Label64: TLabel;
Public Label66: TLabel;
Public ibpScrollBox1: TibpScrollBox;
Public DOKOpenDialog: TJvOpenDialog;
Public DokDirDialog: TJvBrowseForFolderDialog;
Public DOKListBox: TJvFileListBox;
Public Label62: TLabel;
Public Label65: TLabel;
Public Label67: TLabel;
Public IB_Edit14: TIB_Edit;
Public IB_Edit16: TIB_Edit;
Public IB_Edit28: TIB_Edit;
Public Edit5: TEdit;
Public Edit6: TEdit;
Public Edit7: TEdit;
Public JvPageControl2: TJvPageControl;
Public Prodplan1: TTabSheet;
Public Verarbeitung1: TTabSheet;
Public JvPageControl1: TJvPageControl;
Public Artikelangaben1: TTabSheet;
Public ArtikelLink1: TTabSheet;
Public Artikelset11: TTabSheet;
Public ArtikelText1: TTabSheet;
Public Bilder1: TTabSheet;
Public Disposition1: TTabSheet;
Public Dokumente1: TTabSheet;
Public Lohnschein1: TTabSheet;
Public Preisakt1: TTabSheet;
Public Preise1: TTabSheet;
Public Rahmenauftrag1: TTabSheet;
Public Umsatz1: TTabSheet;
Public Weiteres1: TTabSheet;
Public WebBrowser1: TWebBrowser;
Public JvLabel1: TJvLabel;
Public JvLabel2: TJvLabel;
Public N4: TMenuItem;
Public beliefVersandadressen1: TMenuItem;
Public IBP_QueryINF: TIBP_Query;
Public IB_DataSourceINF: TIB_DataSource;
Public Label42: TLabel;
Public IB_Edit31: TIB_Edit;
Private Replace_Data: TReplaceData;
Private Stammblatt: TForm;
Private PICTField: TIB_ColumnBlob;
Private breite: TIB_Column;
Private hoehe: TIB_Column;
Private FImg: TJPEGImage;
Private FIsLoading: Boolean;
Public status: Integer;
Public ArtikelEdit: Boolean;
Public ArtikelBearbeiten: Boolean;
Public PVEdit: Boolean;

Methoden

Public procedure FormClose(Sender: TObject; var Action: TCloseAction);
Public procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Public procedure IB_EditKdnrButtonClick(Sender: TObject);
Public procedure IBP_Query2AfterPost(IB_Dataset: TIB_Dataset);
Public procedure CoolBar1Click(Sender: TObject);
Public procedure ZeigeKunde1Click(Sender: TObject);
Public procedure PanelResize(Sender: TObject);
Public procedure IBP_Query2BeforeInsert(IB_Dataset: TIB_Dataset);
Public procedure IBP_Query1ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
Public procedure IBP_Query2ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
Public procedure IBP_SearchPanel1DblClick(Sender: TObject);
Public procedure IB_DataSource1GainFocus(Sender: TIB_DataSource; ADataset: TIB_Dataset);
Public procedure IB_DataSource1StateChanged(Sender: TIB_DataSource; ADataset: TIB_Dataset);
Public procedure Kopieren1Click(Sender: TObject);
Public procedure IBP_Grid1BorderClick(Sender: TObject; ACol, ARow: Integer; AButton: TMouseButton; AShift: TShiftState);
Public procedure PreisAktualisierung1Click(Sender: TObject);
Public procedure ReplaceData(ds1, ds2: TIB_Dataset);
Public procedure IBP_Query2BeforePost(IB_Dataset: TIB_Dataset);
Public procedure RadioGroup1Click(Sender: TObject);
Public procedure Page95Control1Chang(Sender: TObject);
Public procedure IBP_Query1AfterPost(IB_Dataset: TIB_Dataset);
Public procedure FormCreate(Sender: TObject);
Public procedure FormDestroy(Sender: TObject);
Public procedure IBP_Query4AfterScroll(IB_Dataset: TIB_Dataset);
Public procedure SpeedButton1Click(Sender: TObject);
Public procedure SpeedButton2Click(Sender: TObject);
Public procedure SpeedButton3Click(Sender: TObject);
Public procedure SpeedButton4Click(Sender: TObject);
Public procedure rg1Click(Sender: TObject);
Public procedure IBP_Query4AfterPrepare(Sender: TIB_Statement);
Public procedure RxSpeedButton3Click(Sender: TObject);
Public procedure RxSpeedButton2Click(Sender: TObject);
Public procedure IBP_Query4AfterOpen(IB_Dataset: TIB_Dataset);
Public procedure IBP_Query4ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
Public procedure IB_Memo5SelectionChange(Sender: TObject);
Public procedure IB_Memo5KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Public procedure B1Click(Sender: TObject);
Public procedure IBP_Query4AfterUnprepare(Sender: TIB_Statement);
Public procedure Twainy1ChangeBitmap(Sender: TObject);
Public procedure RxSpeedButton1Click(Sender: TObject);
Public procedure RxSpeedButton4Click(Sender: TObject);
Public procedure ArtikelSet1Click(Sender: TObject);
Public procedure IBP_Query5ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
Public procedure TableButtonClick(Sender: TObject);
Public procedure TileVertButtonClick(Sender: TObject);
Public procedure IB_DataSource4DataChange(Sender: TIB_StatementLink; Statement: TIB_Statement; Field: TIB_Column);
Public procedure IBP_Query1AfterEdit(IB_Dataset: TIB_Dataset);
Public procedure GroundPanelResize(Sender: TObject);
Public procedure IBP_Grid2GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; const AFont: TFont);
Public procedure Edit1Button1(Sender: TObject);
Public procedure Edit1KeyPress(Sender: TObject; var Key: Char);
Public procedure BackPanelResize(Sender: TObject);
Public procedure SuchenundErsetzen1Click(Sender: TObject);
Public procedure FormActivate(Sender: TObject);
Public procedure IBP_Query1BeforePost(IB_Dataset: TIB_Dataset);
Public procedure IB_Memo1DblClick(Sender: TObject);
Public procedure IBP_Query5LookupFields0IBPAssignQueryEvent(sender: TObject; var Query: TIBP_Query);
Public procedure IBP_Grid5EditButtonClick(Sender: TObject);
Public procedure IBP_Grid6EditButtonClick(Sender: TObject);
Public procedure SBtnClick(Sender: TObject);
Public procedure IBP_Grid11EditButtonClick(Sender: TObject);
Public procedure IBP_Query11AfterInsert(IB_Dataset: TIB_Dataset);
Public procedure IBP_Query11CalculateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
Public procedure IBP_Grid11CellDblClick(Sender: TObject; ACol, ARow: Integer; AButton: TMouseButton; AShift: TShiftState);
Public procedure LinkSpeedButtonClick(Sender: TObject);
Public procedure IBP_Query1AfterScroll(IB_Dataset: TIB_Dataset);
Public procedure IBP_Query2AfterOpen(IB_Dataset: TIB_Dataset);
Public procedure IBP_Query2BeforeOpen(IB_Dataset: TIB_Dataset);
Public function CanOpenDataSet(IB_Dataset: TIB_Dataset): Boolean;
Public procedure IBP_Query1GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);
Public procedure IBP_SearchPanelResize(Sender: TObject);
Public procedure IBP_SearchPanel1Resize(Sender: TObject);
Public procedure TopPanelClick(Sender: TObject);
Public procedure IBP_Query1BeforeSearch(IB_Dataset: TIB_Dataset);
Public procedure Active_onlyClick(Sender: TObject);
Public procedure IBP_Grid1GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; const AFont: TFont);
Public procedure DruckenClick(Sender: TObject);
Public procedure IBP_Grid6GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: TFont);
Public procedure AktualisierungStueckgewichtClick(Sender: TObject);
Public procedure IBP_Query6AfterEdit(IB_Dataset: TIB_Dataset);
Public procedure SetVorgabeZeit(modus: TVorgabeEditTyp);
Public procedure IBP_Query6GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);
Public procedure IBP_Query6AfterInsert(IB_Dataset: TIB_Dataset);
Public procedure Vorschau_ArtTextComboboxChange(Sender: TObject);
Public procedure IB_Edit8Change(Sender: TObject);
Public procedure IBP_Grid12GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: TFont);
Public procedure IBP_Grid12DblClick(Sender: TObject);
Public procedure IBP_Query1LookupFields6IBPAssignQueryEvent(sender: TObject; var Query: TIBP_Query);
Public procedure letztePreisAktualisierungzurcknehmen1Click(Sender: TObject);
Public procedure IBP_Query2CalculateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
Public procedure IBP_Query1AfterDelete(IB_Dataset: TIB_Dataset);
Public procedure Label48Click(Sender: TObject);
Public procedure ShowDokument;
Public procedure IBP_Query14AfterScroll(IB_Dataset: TIB_Dataset);
Public procedure IBP_Query14AfterInsert(IB_Dataset: TIB_Dataset);
Public procedure ibpScrollBox1Resize(Sender: TObject);
Public procedure IB_Edit15ButtonClick(Sender: TObject);
Public procedure IB_Edit15Change(Sender: TObject);
Public procedure DOKListBoxChange(Sender: TObject);
Public procedure Setze_LM_Abmessung(pLM: string; pAct: Integer);
Public function getLM_Abmessung(pLMKurz: string): string;
Public procedure BelVAdressen1Click(Sender: TObject);
Public procedure IB_DataSource1DataChange(Sender: TIB_StatementLink; Statement: TIB_Statement; Field: TIB_Column);
Private procedure ErasePicture;
Private procedure DoRefresh;
Private procedure DoCheckSetSpecialField;
Private procedure DoCheckLinkedOrderPos;
Public procedure DoSucheNr(aNr: string);
Public procedure DoInsertSearchExpression(aSearchText, aSearchEdit: string; aSpecialChars: Boolean = false);

Beschreibung

Felder

Public IB_Transaction1: TIB_Transaction;
 
Public IB_DataSource1: TIB_DataSource;
 
Public IBP_Query1: TIBP_Query;
 
Public FormStorage1: TFormStorage;
 
Public IBP_Query2: TIBP_Query;
 
Public IB_DataSource2: TIB_DataSource;
 
Public MainMenu1: TMainMenu;
 
Public Sonderpreise1: TMenuItem;
 
Public ZeigeKunde1: TMenuItem;
 
Public ZeigeArtikel1: TMenuItem;
 
Public N1: TMenuItem;
 
Public Kopieren1: TMenuItem;
 
Public N2: TMenuItem;
 
Public PreisAktualisierung1: TMenuItem;
 
Public IBP_Query3: TIBP_Query;
 
Public IB_DataSource3: TIB_DataSource;
 
Public AuftrgezumSonderpreis1: TMenuItem;
 
Public IBP_Query4: TIBP_Query;
 
Public IB_DataSource4: TIB_DataSource;
 
Public OpenPictureDialog1: TOpenPictureDialog;
 
Public FontDialog1: TFontDialog;
 
Public Twainy1: TTwainy;
 
Public IBP_Query5: TIBP_Query;
 
Public IB_DataSource5: TIB_DataSource;
 
Public SavePictureDialog1: TSavePictureDialog;
 
Public N3: TMenuItem;
 
Public ArtikelSet1: TMenuItem;
 
Public IBP_Query6: TIBP_Query;
 
Public IB_DataSource6: TIB_DataSource;
 
Public GroundPanel: Tibp_Panel;
 
Public Panel3: TPanel;
 
Public IBP_Grid1: TIBP_Grid;
 
Public Panel4: TPanel;
 
Public Panel5: TPanel;
 
Public Externe_Vermerke: TLabel;
 
Public Label2: TLabel;
 
Public Label3: TLabel;
 
Public Label4: TLabel;
 
Public Panel7: TPanel;
 
Public Label5: TLabel;
 
Public IBP_SearchPanel2: TIBP_SearchPanel;
 
Public IBP_Grid2: TIBP_Grid;
 
Public IBP_SearchPanel3: TIBP_SearchPanel;
 
Public IBP_Grid3: TIBP_Grid;
 
Public Panel18: TPanel;
 
Public Panel19: TPanel;
 
Public Panel17: TPanel;
 
Public Label1: TLabel;
 
Public Label7: TLabel;
 
Public Label6: TLabel;
 
Public Label8: TLabel;
 
Public Label11: TLabel;
 
Public hcm: TIB_Edit;
 
Public bcm: TIB_Edit;
 
Public IB_CheckBox1: TIB_CheckBox;
 
Public Datum: TIB_Date;
 
Public rg1: TIB_RadioGroup;
 
Public IB_Edit4: TIB_Edit;
 
Public IB_CheckBox2: TIB_CheckBox;
 
Public IB_CheckBox3: TIB_CheckBox;
 
Public IB_CheckBox4: TIB_CheckBox;
 
Public IB_CheckBox5: TIB_CheckBox;
 
Public Panel13: TPanel;
 
Public Label9: TLabel;
 
Public B1: TSpeedButton;
 
Public B3: TSpeedButton;
 
Public B4: TSpeedButton;
 
Public Panel14: TPanel;
 
Public IB_Memo5: TIB_RichEdit;
 
Public Panel20: TPanel;
 
Public rg2: TIB_RadioGroup;
 
Public IBP_SearchPanel5: TIBP_SearchPanel;
 
Public IBP_Grid5: TIBP_Grid;
 
Public Panel21: TPanel;
 
Public IB_RadioGroup1: TIB_RadioGroup;
 
Public RxSplitter18: TRxSplitter;
 
Public Panel8: TPanel;
 
Public ToolBarPanel: TPanel;
 
Public SpeedButton1: TSpeedButton;
 
Public SpeedButton2: TSpeedButton;
 
Public SpeedButton3: TSpeedButton;
 
Public SpeedButton4: TSpeedButton;
 
Public RulerBtn: TSpeedButton;
 
Public RxSpeedButton2: TSpeedButton;
 
Public RxSpeedButton3: TSpeedButton;
 
Public RxSpeedButton1: TSpeedButton;
 
Public RxSpeedButton4: TSpeedButton;
 
Public HPanel: TPanel;
 
Public Panel15: TPanel;
 
Public Label10: TLabel;
 
Public Panel16: TPanel;
 
Public HFrRUL1: THFrRUL;
 
Public PicSize: TPanel;
 
Public ScrollBox1: TScrollBox;
 
Public Image1: TImage;
 
Public IB_Memo4: TIB_Memo;
 
Public IB_Memo6: TIB_RichEdit;
 
Public VPanel: TPanel;
 
Public VFrRUL1: TVFrRUL;
 
Public RxSplitter3: TRxSplitter;
 
Public Panel12: TPanel;
 
Public IB_Edit7: TIB_Edit;
 
Public Label16: TLabel;
 
Public IB_Memo7: TIB_Memo;
 
Public Label14: TLabel;
 
Public Label15: TLabel;
 
Public Label17: TLabel;
 
Public Panel6: TPanel;
 
Public IB_Memo2: TIB_Memo;
 
Public IBP_SearchPanel7: TIBP_SearchPanel;
 
Public IBP_Query7: TIBP_Query;
 
Public IB_DataSource7: TIB_DataSource;
 
Public Label25: TLabel;
 
Public IB_DataSource8: TIB_DataSource;
 
Public IBP_Query8: TIBP_Query;
 
Public Panel22: TPanel;
 
Public Label23: TLabel;
 
Public Label24: TLabel;
 
Public rb1: TRadioButton;
 
Public rb2: TRadioButton;
 
Public IB_Date1: TIB_Date;
 
Public IB_Date2: TIB_Date;
 
Public ToolPanel: TToolBar;
 
Public Panel1: TPanel;
 
Public ToolButton2: TToolButton;
 
Public Drucken: TToolButton;
 
Public ToolButton3: TToolButton;
 
Public Edit1: TEditEnh;
 
Public ToolButton1: TToolButton;
 
Public TableButton: TToolButton;
 
Public Panel2: TPanel;
 
Public Label22: TLabel;
 
Public Label26: TLabel;
 
Public IBP_Grid9: TIBP_Grid;
 
Public IBP_Query9: TIBP_Query;
 
Public IB_DataSource9: TIB_DataSource;
 
Public IBP_SearchPanel9: TIBP_SearchPanel;
 
Public SuchenundErsetzen1: TMenuItem;
 
Public ZumRahmenauftrag1: TMenuItem;
 
Public IBP_Grid10: TIBP_Grid;
 
Public Panel9: TPanel;
 
Public Label27: TLabel;
 
Public Label28: TLabel;
 
Public SBtn: TRadioButton;
 
Public RadioButton2: TRadioButton;
 
Public Dvon: TDateTimePicker;
 
Public Dbis: TDateTimePicker;
 
Public IBP_Query10: TIBP_Query;
 
Public IB_DataSource10: TIB_DataSource;
 
Public IBP_Query11: TIBP_Query;
 
Public IB_DataSource11: TIB_DataSource;
 
Public IBP_Grid11: TIBP_Grid;
 
Public Panel10: TPanel;
 
Public nr2: TIB_Edit;
 
Public nr1: TIB_Edit;
 
Public Panel23: TPanel;
 
Public LinkSpeedButton: TSpeedButton;
 
Public IBP_SearchPanel11: TIBP_SearchPanel;
 
Public Panel24: TPanel;
 
Public Panel25: TPanel;
 
Public Edit2: TEditEnh;
 
Public Label32: TLabel;
 
Public Label33: TLabel;
 
Public RxSplitter11: TRxSplitter;
 
Public IBP_SearchPanel1: TibpScrollBox;
 
Public MaskPanel11: TPanel;
 
Public MPanel1_1: TPanel;
 
Public Panel26: TPanel;
 
Public Label34: TLabel;
 
Public Label35: TLabel;
 
Public IB_EditNr: TIB_Edit;
 
Public TopPanel1: TPanel;
 
Public Shape7: TShape;
 
Public Shape4: TShape;
 
Public MPanel1_3: TPanel;
 
Public Panel27: TPanel;
 
Public Label36: TLabel;
 
Public Label37: TLabel;
 
Public Label38: TLabel;
 
Public Label39: TLabel;
 
Public IB_NameEdit: TIB_Edit;
 
Public IB_Edit13: TIB_Edit;
 
Public IB_Edit17: TIB_Edit;
 
Public IB_Edit18: TIB_Edit;
 
Public IB_Edit19: TIB_Edit;
 
Public IB_Edit20: TIB_Edit;
 
Public IB_Edit21: TIB_Edit;
 
Public IB_Edit22: TIB_Edit;
 
Public Panel28: TPanel;
 
Public Shape2: TShape;
 
Public Shape5: TShape;
 
Public MPanel1_5: TPanel;
 
Public Panel29: TPanel;
 
Public Label40: TLabel;
 
Public IB_Memo8: TIB_Memo;
 
Public Panel30: TPanel;
 
Public Shape9: TShape;
 
Public Shape10: TShape;
 
Public MaskPanel12: TPanel;
 
Public MPanel1_4: TPanel;
 
Public Panel31: TPanel;
 
Public Label43: TLabel;
 
Public Label44: TLabel;
 
Public Label45: TLabel;
 
Public IB_Edit24: TIB_Edit;
 
Public IB_Edit25: TIB_Edit;
 
Public IB_Edit26: TIB_Edit;
 
Public IB_Edit27: TIB_Edit;
 
Public IB_Edit48: TIB_Edit;
 
Public IB_Edit29: TIB_Edit;
 
Public Panel32: TPanel;
 
Public Shape3: TShape;
 
Public Shape8: TShape;
 
Public MPanel1_2: TPanel;
 
Public Panel33: TPanel;
 
Public Label47: TLabel;
 
Public Label49: TLabel;
 
Public Label50: TLabel;
 
Public IB_Edit_AGH: TIB_Edit;
 
Public IB_KdArtBezEdit: TIB_Edit;
 
Public IB_Edit55: TIB_Edit;
 
Public IB_KdArtnrEdit: TIB_Edit;
 
Public TopPanel2: TPanel;
 
Public Shape1: TShape;
 
Public Shape6: TShape;
 
Public MPanel1_6: TPanel;
 
Public Panel34: TPanel;
 
Public Label51: TLabel;
 
Public IB_Memo9: TIB_Memo;
 
Public Panel35: TPanel;
 
Public Shape11: TShape;
 
Public Shape12: TShape;
 
Public RxSplitter1: TRxSplitter;
 
Public Label52: TLabel;
 
Public IB_EditKdnr: TIB_Edit;
 
Public IB_KdNameEdit: TIB_Edit;
 
Public IB_Edit35: TIB_Edit;
 
Public IB_EditArtikelnr: TIB_Edit;
 
Public IB_Edit37: TIB_Edit;
 
Public IB_Edit38: TIB_Edit;
 
Public IB_CheckBox9: TIB_CheckBox;
 
Public IB_Edit23: TIB_Edit;
 
Public Label41: TLabel;
 
Public IB_Bestellnr: TIB_Edit;
 
Public IB_Edit30: TIB_Edit;
 
Public IB_Edit32: TIB_Edit;
 
Public IB_CheckBox10: TIB_CheckBox;
 
Public IB_CheckBox8: TIB_CheckBox;
 
Public IB_CheckBox6: TIB_CheckBox;
 
Public IB_CheckBox11: TIB_CheckBox;
 
Public IB_CheckBox12: TIB_CheckBox;
 
Public Label18: TLabel;
 
Public IB_Edit1: TIB_Edit;
 
Public IB_Edit2: TIB_Edit;
 
Public Panel36: TPanel;
 
Public Edit3: TEditEnh;
 
Public Panel37: TPanel;
 
Public Edit4: TEditEnh;
 
Public Label19: TLabel;
 
Public IB_CheckBox7: TIB_CheckBox;
 
Public Active_only: TToolButton;
 
Public ToolButton5: TToolButton;
 
Public ToolButton4: TToolButton;
 
Public ToolButton6: TToolButton;
 
Public ToolButton7: TToolButton;
 
Public Background2: TShape;
 
Public Background3: TShape;
 
Public Background5: TShape;
 
Public Background4: TShape;
 
Public Background1: TShape;
 
Public Background6: TShape;
 
Public IB_KdNameEdit1: TIB_Edit;
 
Public Edit_Referenzen: TURLLabel;
 
Public Label12: TLabel;
 
Public IB_CheckBox13: TIB_CheckBox;
 
Public AktualisierungStueckgewicht: TMenuItem;
 
Public Label13: TLabel;
 
Public IB_Edit3: TIB_Edit;
 
Public Label20: TLabel;
 
Public ArtikeltextBPanel: TPanel;
 
Public IB_Memo1: TIB_Memo;
 
Public Panel38: TPanel;
 
Public Shape25: TShape;
 
Public Shape26: TShape;
 
Public KreditauskunftBPanel: TPanel;
 
Public Panel39: TPanel;
 
Public Shape27: TShape;
 
Public Shape28: TShape;
 
Public Artikeltextvorschau: TJvMemo;
 
Public IB_ComboBox1: TIB_ComboBox;
 
Public Vorschau_ArtTextCombobox: TJvComboBox;
 
Public Label46: TLabel;
 
Public IB_Edit8: TIB_Edit;
 
Public IB_Edit9: TIB_Edit;
 
Public Label53: TLabel;
 
Public Label54: TLabel;
 
Public IB_Date3: TIB_Date;
 
Public IB_Edit10: TIB_Edit;
 
Public IBP_Query12: TIBP_Query;
 
Public IB_DataSource12: TIB_DataSource;
 
Public IBP_Grid12: TIBP_Grid;
 
Public IBP_SearchPanel12: TIBP_SearchPanel;
 
Public Panel11: TPanel;
 
Public IBP_SearchPanel6: TIBP_SearchPanel;
 
Public IBP_Grid6: TIBP_Grid;
 
Public Panel40: TPanel;
 
Public Label21: TLabel;
 
Public Label29: TLabel;
 
Public Label30: TLabel;
 
Public Label31: TLabel;
 
Public IB_Edit5: TIB_Edit;
 
Public IB_Edit6: TIB_Edit;
 
Public IB_ComboBox2: TIB_ComboBox;
 
Public IB_ComboBox3: TIB_ComboBox;
 
Public Panel41: TPanel;
 
Public Label55: TLabel;
 
Public IB_Memo3: TIB_Memo;
 
Public IBP_Grid4: TIBP_Grid;
 
Public IBP_Query13: TIBP_Query;
 
Public IB_DataSource13: TIB_DataSource;
 
Public IB_Edit11: TIB_Edit;
 
Public Label57: TLabel;
 
Public letztePreisAktualisierungzurcknehmen1: TMenuItem;
 
Public Label56: TLabel;
 
Public IB_ComboBox4: TIB_ComboBox;
 
Public Panel42: TPanel;
 
Public Panel43: TPanel;
 
Public RxSplitter4: TRxSplitter;
 
Public Label59: TLabel;
 
Public IB_Memo10: TIB_Memo;
 
Public RxSplitter5: TRxSplitter;
 
Public Panel44: TPanel;
 
Public Panel46: TPanel;
 
Public RxSplitter7: TRxSplitter;
 
Public JvMemo1: TJvMemo;
 
Public Label58: TLabel;
 
Public Label60: TLabel;
 
Public Panel47: TPanel;
 
Public Bevel1: TBevel;
 
Public Bevel2: TBevel;
 
Public Bevel3: TBevel;
 
Public Panel45: TPanel;
 
Public RxSplitter9: TRxSplitter;

Müller 23.07.2013

Public RxSplitter10: TRxSplitter;
 
Public RxSplitter2: TRxSplitter;
 
Public RxSplitter6: TRxSplitter;
 
Public RxSplitter8: TRxSplitter;

Müller 14.05.2014 >>

Public JvEmbeddedFormPanel1: TJvEmbeddedFormPanel;
 
Public IBP_Query14: TIBP_Query;
 
Public IB_DataSource14: TIB_DataSource;
 
Public IB_Edit12: TIB_Edit;
 
Public IB_Edit15: TIB_Edit;
 
Public IB_Memo11: TIB_Memo;
 
Public IB_CheckBox14: TIB_CheckBox;
 
Public IB_CheckBox15: TIB_CheckBox;
 
Public IB_CheckBox16: TIB_CheckBox;
 
Public IB_CheckBox17: TIB_CheckBox;
 
Public Label61: TLabel;
 
Public Label63: TLabel;
 
Public Label64: TLabel;
 
Public Label66: TLabel;
 
Public ibpScrollBox1: TibpScrollBox;
 
Public DOKOpenDialog: TJvOpenDialog;
 
Public DokDirDialog: TJvBrowseForFolderDialog;
 
Public DOKListBox: TJvFileListBox;
 
Public Label62: TLabel;
 
Public Label65: TLabel;
 
Public Label67: TLabel;
 
Public IB_Edit14: TIB_Edit;
 
Public IB_Edit16: TIB_Edit;
 
Public IB_Edit28: TIB_Edit;
 
Public Edit5: TEdit;
 
Public Edit6: TEdit;
 
Public Edit7: TEdit;
 
Public JvPageControl2: TJvPageControl;
 
Public Prodplan1: TTabSheet;
 
Public Verarbeitung1: TTabSheet;
 
Public JvPageControl1: TJvPageControl;
 
Public Artikelangaben1: TTabSheet;
 
Public ArtikelLink1: TTabSheet;
 
Public Artikelset11: TTabSheet;
 
Public ArtikelText1: TTabSheet;
 
Public Bilder1: TTabSheet;
 
Public Disposition1: TTabSheet;
 
Public Dokumente1: TTabSheet;
 
Public Lohnschein1: TTabSheet;
 
Public Preisakt1: TTabSheet;
 
Public Preise1: TTabSheet;
 
Public Rahmenauftrag1: TTabSheet;
 
Public Umsatz1: TTabSheet;
 
Public Weiteres1: TTabSheet;
 
Public WebBrowser1: TWebBrowser;
 
Public JvLabel1: TJvLabel;
 
Public JvLabel2: TJvLabel;
 
Public N4: TMenuItem;
 
Public beliefVersandadressen1: TMenuItem;
 
Public IBP_QueryINF: TIBP_Query;
 
Public IB_DataSourceINF: TIB_DataSource;
 
Public Label42: TLabel;
 
Public IB_Edit31: TIB_Edit;
 
Private Replace_Data: TReplaceData;

Private-Deklarationen

Private Stammblatt: TForm;
 
Private PICTField: TIB_ColumnBlob;

Müller 24.03.2011

Private breite: TIB_Column;
 
Private hoehe: TIB_Column;
 
Private FImg: TJPEGImage;
 
Private FIsLoading: Boolean;
 
Public status: Integer;
 
Public ArtikelEdit: Boolean;
 
Public ArtikelBearbeiten: Boolean;
 
Public PVEdit: Boolean;
 

Methoden

Public procedure FormClose(Sender: TObject; var Action: TCloseAction);

Müller 14.05.2014 <<

Public procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 
Public procedure IB_EditKdnrButtonClick(Sender: TObject);
 
Public procedure IBP_Query2AfterPost(IB_Dataset: TIB_Dataset);
 
Public procedure CoolBar1Click(Sender: TObject);
 
Public procedure ZeigeKunde1Click(Sender: TObject);
 
Public procedure PanelResize(Sender: TObject);
 
Public procedure IBP_Query2BeforeInsert(IB_Dataset: TIB_Dataset);
 
Public procedure IBP_Query1ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
 
Public procedure IBP_Query2ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
 
Public procedure IBP_SearchPanel1DblClick(Sender: TObject);
 
Public procedure IB_DataSource1GainFocus(Sender: TIB_DataSource; ADataset: TIB_Dataset);
 
Public procedure IB_DataSource1StateChanged(Sender: TIB_DataSource; ADataset: TIB_Dataset);
 
Public procedure Kopieren1Click(Sender: TObject);
 
Public procedure IBP_Grid1BorderClick(Sender: TObject; ACol, ARow: Integer; AButton: TMouseButton; AShift: TShiftState);
 
Public procedure PreisAktualisierung1Click(Sender: TObject);
 
Public procedure ReplaceData(ds1, ds2: TIB_Dataset);
 
Public procedure IBP_Query2BeforePost(IB_Dataset: TIB_Dataset);
 
Public procedure RadioGroup1Click(Sender: TObject);
 
Public procedure Page95Control1Chang(Sender: TObject);
 
Public procedure IBP_Query1AfterPost(IB_Dataset: TIB_Dataset);
 
Public procedure FormCreate(Sender: TObject);
 
Public procedure FormDestroy(Sender: TObject);
 
Public procedure IBP_Query4AfterScroll(IB_Dataset: TIB_Dataset);
 
Public procedure SpeedButton1Click(Sender: TObject);
 
Public procedure SpeedButton2Click(Sender: TObject);
 
Public procedure SpeedButton3Click(Sender: TObject);
 
Public procedure SpeedButton4Click(Sender: TObject);
 
Public procedure rg1Click(Sender: TObject);
 
Public procedure IBP_Query4AfterPrepare(Sender: TIB_Statement);
 
Public procedure RxSpeedButton3Click(Sender: TObject);
 
Public procedure RxSpeedButton2Click(Sender: TObject);
 
Public procedure IBP_Query4AfterOpen(IB_Dataset: TIB_Dataset);
 
Public procedure IBP_Query4ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
 
Public procedure IB_Memo5SelectionChange(Sender: TObject);
 
Public procedure IB_Memo5KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 
Public procedure B1Click(Sender: TObject);
 
Public procedure IBP_Query4AfterUnprepare(Sender: TIB_Statement);
 
Public procedure Twainy1ChangeBitmap(Sender: TObject);
 
Public procedure RxSpeedButton1Click(Sender: TObject);
 
Public procedure RxSpeedButton4Click(Sender: TObject);
 
Public procedure ArtikelSet1Click(Sender: TObject);
 
Public procedure IBP_Query5ValidateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
 
Public procedure TableButtonClick(Sender: TObject);
 
Public procedure TileVertButtonClick(Sender: TObject);
 
Public procedure IB_DataSource4DataChange(Sender: TIB_StatementLink; Statement: TIB_Statement; Field: TIB_Column);
 
Public procedure IBP_Query1AfterEdit(IB_Dataset: TIB_Dataset);
 
Public procedure GroundPanelResize(Sender: TObject);
 
Public procedure IBP_Grid2GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; const AFont: TFont);
 
Public procedure Edit1Button1(Sender: TObject);
 
Public procedure Edit1KeyPress(Sender: TObject; var Key: Char);
 
Public procedure BackPanelResize(Sender: TObject);
 
Public procedure SuchenundErsetzen1Click(Sender: TObject);
 
Public procedure FormActivate(Sender: TObject);
 
Public procedure IBP_Query1BeforePost(IB_Dataset: TIB_Dataset);
 
Public procedure IB_Memo1DblClick(Sender: TObject);
 
Public procedure IBP_Query5LookupFields0IBPAssignQueryEvent(sender: TObject; var Query: TIBP_Query);
 
Public procedure IBP_Grid5EditButtonClick(Sender: TObject);
 
Public procedure IBP_Grid6EditButtonClick(Sender: TObject);
 
Public procedure SBtnClick(Sender: TObject);
 
Public procedure IBP_Grid11EditButtonClick(Sender: TObject);
 
Public procedure IBP_Query11AfterInsert(IB_Dataset: TIB_Dataset);
 
Public procedure IBP_Query11CalculateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);
 
Public procedure IBP_Grid11CellDblClick(Sender: TObject; ACol, ARow: Integer; AButton: TMouseButton; AShift: TShiftState);
 
Public procedure LinkSpeedButtonClick(Sender: TObject);
 
Public procedure IBP_Query1AfterScroll(IB_Dataset: TIB_Dataset);
 
Public procedure IBP_Query2AfterOpen(IB_Dataset: TIB_Dataset);
 
Public procedure IBP_Query2BeforeOpen(IB_Dataset: TIB_Dataset);
 
Public function CanOpenDataSet(IB_Dataset: TIB_Dataset): Boolean;
 
Public procedure IBP_Query1GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);
 
Public procedure IBP_SearchPanelResize(Sender: TObject);
 
Public procedure IBP_SearchPanel1Resize(Sender: TObject);
 
Public procedure TopPanelClick(Sender: TObject);
 
Public procedure IBP_Query1BeforeSearch(IB_Dataset: TIB_Dataset);
 
Public procedure Active_onlyClick(Sender: TObject);
 
Public procedure IBP_Grid1GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; const AFont: TFont);
 
Public procedure DruckenClick(Sender: TObject);
 
Public procedure IBP_Grid6GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: TFont);
 
Public procedure AktualisierungStueckgewichtClick(Sender: TObject);
 
Public procedure IBP_Query6AfterEdit(IB_Dataset: TIB_Dataset);
 
Public procedure SetVorgabeZeit(modus: TVorgabeEditTyp);
 
Public procedure IBP_Query6GetCanModify(Sender: TIB_Dataset; Action: TIB_DatasetCanModify; var CanModify: Boolean);
 
Public procedure IBP_Query6AfterInsert(IB_Dataset: TIB_Dataset);
 
Public procedure Vorschau_ArtTextComboboxChange(Sender: TObject);
 
Public procedure IB_Edit8Change(Sender: TObject);
 
Public procedure IBP_Grid12GetCellProps(Sender: TObject; ACol, ARow: Integer; AState: TGridDrawState; var AColor: TColor; AFont: TFont);
 
Public procedure IBP_Grid12DblClick(Sender: TObject);
 
Public procedure IBP_Query1LookupFields6IBPAssignQueryEvent(sender: TObject; var Query: TIBP_Query);
 
Public procedure letztePreisAktualisierungzurcknehmen1Click(Sender: TObject);
 
Public procedure IBP_Query2CalculateField(Sender: TIB_Statement; ARow: TIB_Row; AField: TIB_Column);

Müller 06.05.2011

Public procedure IBP_Query1AfterDelete(IB_Dataset: TIB_Dataset);
 
Public procedure Label48Click(Sender: TObject);
 
Public procedure ShowDokument;
 
Public procedure IBP_Query14AfterScroll(IB_Dataset: TIB_Dataset);

Müller 14.05.2014 >>

Public procedure IBP_Query14AfterInsert(IB_Dataset: TIB_Dataset);
 
Public procedure ibpScrollBox1Resize(Sender: TObject);
 
Public procedure IB_Edit15ButtonClick(Sender: TObject);
 
Public procedure IB_Edit15Change(Sender: TObject);
 
Public procedure DOKListBoxChange(Sender: TObject);
 
Public procedure Setze_LM_Abmessung(pLM: string; pAct: Integer);

Müller 14.05.2014 <<

Public function getLM_Abmessung(pLMKurz: string): string;

Mü 15.02.2017

Public procedure BelVAdressen1Click(Sender: TObject);

Mü 15.02.2017

Public procedure IB_DataSource1DataChange(Sender: TIB_StatementLink; Statement: TIB_Statement; Field: TIB_Column);
 
Private procedure ErasePicture;
 
Private procedure DoRefresh;
 
Private procedure DoCheckSetSpecialField;
 
Private procedure DoCheckLinkedOrderPos;
 
Public procedure DoSucheNr(aNr: string);
 
Public procedure DoInsertSearchExpression(aSearchText, aSearchEdit: string; aSpecialChars: Boolean = false);
 

Erstellt mit PasDoc 0.16.0.