Customer Comment Conversion (ARICOMMENT)?

 2 Replies
 0 Subscribed to this topic
 11 Subscribed to this forum
Sort:
Author
Messages
Garth Gerwing
Basic Member Send Private Message
Posts: 27
Basic Member
I see that Lawson has provided a staging table to support comment conversion (ARICOMMENT - consumed by AR506) - and that by leaving the "transaction/invoice-related" elements blank, the process will interpret these comments as "Customer" comments.  However: - there are appears to be no on-line dialogue to support conversion corrections (as per other conversion constructs) - the ARICOMMENT table has a single "Comment" element of 40 CHARS (which is less apace than desired) Does anyone have any experience with converting comments through these constructs? - How would you go about converting a comment that is larger than 40 chars?......or - How would you go about actively populating the Attachments Title/Text?
John Henley
Send Private Message
Posts: 3351
I believe you can use the SEQ-NBR field to add multiple 40-character comments.
Thanks for using the LawsonGuru.com forums!
John
Ragu Raghavan
Veteran Member Send Private Message
Posts: 477
Veteran Member
I have not done this, but from what I see in the code, if the keys are the same, it appends, 02 ARCMTWS-PREV-KEYS. 03 ARCMTWS-PREV-COMPANY PIC 9(04) VALUE ZEROES. 03 ARCMTWS-PREV-CUSTOMER PIC X(09) VALUE SPACES. 03 ARCMTWS-PREV-TRANS-TYPE PIC X(01) VALUE SPACES. 03 ARCMTWS-PREV-INVOICE PIC X(22) VALUE SPACES. 03 ARCMTWS-PREV-CMMT-TYPE PIC X(01) VALUE SPACES. 03 ARCMTWS-PREV-BEG-DATE PIC 9(08) VALUE ZEROES. 03 ARCMTWS-PREV-END-DATE PIC 9(08) VALUE ZEROES. 03 ARCMTWS-PREV-SYS-DATE PIC 9(08) VALUE ZEROES. 03 ARCMTWS-PREV-SYS-TIME PIC 9(06) VALUE ZEROES. 03 ARCMTWS-PREV-PRINT-CODE PIC X(01) VALUE SPACES. * INPUT/OUTPUT: * FUNCTION CODES FOR ARI1F1: * * A = ADD ARCOMMENT AND ATTACHMENT * B = * C = * C = * D = * E = APPEND ATTACHMENT * F = * G = * H = * ****************************************************************** 700-CONVERT-ARCOMMENT-80 SECTION. ****************************************************************** 700-START. IF (ARCMTWS-FC = SPACES) IF (ARCMTWS-COMP-KEYS NOT = ARCMTWS-PREV-KEYS) MOVE "A" TO ARI1F1-FC ELSE MOVE "E" TO ARI1F1-FC END-IF