copy startdate and enddate to other line

Dynamics 365 Business Central/NAV Developers Forum
1

And I want to copy the startDate and Enddate copiing to the other line,

I have this:

GetDates(Bom : Record "BOM Component";VAR StartDateItem : Date;VAR EndDateItem : Date;RegelkortingItem : Decimal)

IF GET(Bom."Parent Item No.",Bom."Line No.") THEN BEGIN
StartDateItem :=StartDate2;
EndDateItem := EndDate2;
RegelkortingItem := Regelkorting;
END;

SetDates(Bom : Record "BOM Component";VAR StartDateItem : Date;VAR EndDateItem : Date;RegelkortingItem : Decimal)
"Parent Item No." := Bom."Parent Item No.";
"Line No." := Bom."Line No.";
StartDate2 := StartDateItem;
EndDate2 := EndDateItem;
Regelkorting := RegelkortingItem;

IF NOT MODIFY THEN 
INSERT;

And this is a image

Copiieng Date.png
Copiieng Date.png1280×984 77 KB

The black marker line - there the same date has to be copiied

Thank you

And this is the onvalidate:

BeginDate - OnValidate()
SetDates(Rec, StartDate2, EndDate2, Regelkorting);
2

I try it like this:


SetDates(Rec, StartDate2, EndDate2, Regelkorting);
StartDate2.COPY(StartDate2);
3

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.EndDate) THEN BEGIN
    RecSalesHeaderQuote.FncCheckBOM(salesLine.Description);
  END;
 }

Form - OnAfterGetCurrRecord()

Form - OnBeforePutRecord()
{InputDateStart := 0D;
InputDateEnd := 0D;
InputDiscount := 0;}

Form - OnNewRecord(BelowxRec : Boolean)
//CurrForm.UPDATE;

Form - OnInsertRecord(BelowxRec : Boolean) : Boolean
//ItemAddition.GetDates(Rec,ItemAddition.BeginDate,ItemAddition.EndDate);

Form - OnModifyRecord() : Boolean

Form - OnDeleteRecord() : Boolean

Form - OnTimer()

Form - OnCreateHyperlink(VAR URL : Text[1024])

Form - OnHyperlink(URL : Text[1024])

SetRecFilters()

IsFirstDocLine() : Boolean
{TempBom.RESET;
TempBom.COPYFILTERS(Rec);
TempBom.SETRANGE("Parent Item No.",BOM."Parent Item No.");
TempBom.SETRANGE("Line No.",BOM."Line No.");


IF NOT TempBom.FIND('-') THEN BEGIN
  BOM.COPYFILTERS(Rec);
  BOM.SETRANGE("Parent Item No.",BOM."Parent Item No.");
  BOM.SETRANGE(BOM."Line No.",BOM."Line No.");
  //salesLine.SETRANGE(salesLine."Line No.",ItemAddition."Line No.");
  //ItemAddition.GET("Parent Item No.","Parent Item No.");

  IF (NOT Rec.ASCENDING) THEN
    BOMLocal.ASCENDING(FALSE);

  BOMLocal.FIND('-');
  //TempBom :=BOMLocal;
  //CLEAR(TempBom);
  TempBom.INSERT;
END;

IF "Line No." = TempBom."Line No." THEN
  EXIT(TRUE);
}

CheckDates(BeginDate : Date;EndDate : Date)
  {
  IF (TODAY >=  ItemAddition.BeginDate) AND (TODAY <=  ItemAddition.EndDate) THEN BEGIN  
    RecSalesHeaderQuote.FncCheckBOM(salesLine.Description);
    MESSAGE(FORMAT(BeginDate));
    MESSAGE(salesLine.Description);
  END;
  }