and this is my form: Documentation() Form - OnInit() Form - OnOpenForm() Form - OnCloseForm() Form - OnQueryCloseForm() : Boolean Form - OnActivateForm() Form - OnDeactivateForm() Form - OnFindRecord(Which : Text[1024]) : Boolean Form - OnNextRecord(Steps : Integer) : Integer Form - OnAfterGetRecord() GetDates(Rec, StartDate2, EndDate2,Regelkorting ); { StartDate2:= InputDateStart; EndDate2 := InputDateEnd; } {ItemAdditionBeginDate := 0D; //ItemAdditionBeginDate := ItemAdditionHallo.BeginDate; ItemAdditionEndDate := 0D; ItemAdditionRegelKorting := 0; //ItemAdditionEndDate := ItemAdditionHallo.EndDate; InputDateStart := 0D; InputDateEnd := 0D; InputDiscount := 0;} { //IF ItemAddition.GET(ItemAddition."Parent Item No.") IF "No." <> '' THEN BEGIN ItemAddition.GetDates(Rec,InputDateStart,InputDateEnd); ItemAddition.GetRegelkorting(Rec, InputDiscount); END; } { IF (TODAY >= ItemAddition.BeginDate) AND (TODAY = ItemAddition.BeginDate) AND (TODAY <= ItemAddition.EndDate) THEN BEGIN RecSalesHeaderQuote.FncCheckBOM(salesLine.Description); MESSAGE(FORMAT(BeginDate)); MESSAGE(salesLine.Description); END; }
↧