Writing A comment

(0) Share

Report

Posted on by Community Member

I have a function which assigns a batch (See below) I want to create a separate function which adds a comment to the item Tracking Comments. In this comment it needs to add today's date and some text I can fill in.

This shows an example of the comment and the filters used to show which record it's relating to. The line number needs to Find which number it's on and make sure the next entry is on a unique line.

Here are the primary keys for the comment page.

Any feedback on how to create this would be appreciated!

*This post is locked for comments

I have the same question (0)

All responses (4)

Answers (1)

Sort by

Community Member on at

Like (0)

Report
Copy link

Link copied!

Here' the code which assigns the batch with variable names etc.

The yellow shows at which stage the comment function will be added!

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report
Copy link

Link copied!

Progress so far

I've filtered the Item tracking Comments page and added a method to increment the line number.

I need a method of automatically adding the date and text into the comment area.

Was this reply helpful? Yes No
Verified answer

Nareshwar Raju Vane... 5,596 on at

Like (1)

Report
Copy link

Link copied!

Hi,

This code will help you. GetNextNo() function will retrieve you the next number you can insert. Return type will be Integer

recItemTrackingComment.INIT;
recItemTrackingComment."Line No." := GetNextNo;
recItemTrackingComment.Type := recSerialNoInformation.Type;
recItemTrackingComment."Item No." := recSerialNoInformation."Item No.";
recItemTrackingComment."Variant Code" := recSerialNoInformation."Variant Code";
recItemTrackingComment."Serial/Lot No." := recSerialNoInformation."Serial No.";
recItemTrackingComment.Date := TODAY;
recItemTrackingComment.Comment := FORMAT(TODAY) + ' ' + 'SOME TEXT THAT YOU WANT TO SAVE';
recItemTrackingComment.INSERT;

GetNextNo--

recItemTrackingComment1.RESET;
recItemTrackingComment1.SETRANGE(Type, recSerialNoInformation.Type)
recItemTrackingComment1.SETRANGE("Item No.", recSerialNoInformation."Item No.");
recItemTrackingComment1.SETRANGE("Variant Code", recSerialNoInformation."Variant Code");
recItemTrackingComment1.SETRANGE("Serial/Lot No.", recSerialNoInformation."Serial No.");
IF recItemTrackingComment1.FIND('+') THEN
EXIT(recItemTrackingComment1."Line No." + 10000)
ELSE EXIT(10000);

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report
Copy link

Link copied!

Thank you! That's great

Was this reply helpful? Yes No