how to insert 6 months contract period data when click action

Answers

• Options

  KTA8 Member Posts: 389

  2022-09-16 Answer ✓

  I don't get you. I guess that you've a custom page where the user indicates the customer and the period of the contract and you want to insert in another table the first day of that month until the contract period expires. Am I right?

  0
• Options

  Shivasai Member Posts: 16

  2022-09-16

  Yes, i want to insert in another table the first day of that month until the contract period expires

  0
• Options

  KTA8 Member Posts: 389

  2022-09-16

  The user indicates the number of months in period -> ContractPeriod, ContractDate (maybe by user or taken from the system)
  int ContractPeriod := given by user;
  date ContractDate:= given by user or today;
  currentMonth:=DATE2DMY(ContractDate,2);
  currentYear:=DATE2DMY(ContractDate,3);
  newDate:=DMY2DATE(1, currentMonth, currentYear); //first day of current month
  FOR i:=1 to ContractPeriod DO BEGIN
  newDate:=CALCDATE('<+1M>', newDate);
  tableContractDates.INIT;
  tableContractDates.Customer:=Customer; //given by user
  tableContractDates.Contract:=Contract; //given by user
  tableContractDates.Date:=newDate;
  tableContractDates.INSERT(TRUE);
  END;

  0
• Options

  kriki Member, Moderator Posts: 9,096

  2022-09-22 Answer ✓

  [Topic moved from 'NAV Tips & Tricks' forum to 'NAV Three Tier' forum]
  
  

  Regards,Alain Krikilion
  No PM,please use the forum. || May the <SOLVED>-attribute be in your title!
  
  

  0