Prev
Next
Forums Financial Management Lawson S3 Financials

adding comment to asset numbers in the report

 5 Replies
 0 Subscribed to this topic
 43 Subscribed to this forum
Sort:
Author
Messages
Vijay S
Veteran Member
Posts: 174
Veteran Member
5/19/2011 12:47 PM
    I need to add comments on Asset numbers in the report via using Lawson API for comments. I just figured out that the table used for comments for Asset is L_HAST and L_DAST. Has anyone done it before ? I am bit confused as notb sure from where to start it. Could anyone suggest.
    Ragu Raghavan
    Veteran Member
    Posts: 476
    Veteran Member
    5/19/2011 2:21 PM
      Are you asking how to use 4GL routines to add comments ?
      Vijay S
      Veteran Member
      Posts: 174
      Veteran Member
      5/22/2011 10:51 AM
        Can i use normal Lawson API's to pull data from these tables and write to report or there is another workaround i need to do ?
        Ragu Raghavan
        Veteran Member
        Posts: 476
        Veteran Member
        5/22/2011 3:05 PM
          You need to use getattachrec, I think
          Vijay S
          Veteran Member
          Posts: 174
          Veteran Member
          5/25/2011 6:23 AM
            Thanks Raghu.... I need to add it via Cobol Code. I got hola hold of some API's Related to comment processing.......
            Vijay S
            Veteran Member
            Posts: 174
            Veteran Member
            5/27/2011 6:11 AM
              This is the piece of code that actually worked and ultimately i was able to print the comments just below asset numbers.

              Call this code just after printing assets numbers. In the report for AM260 you will find all the comments printed via AM20.2

              023220****************************************************************
              4000-PRINT-COMMENTS SECTION 50.
              ****************************************************************
              4000-START.

              INITIALIZE G5-COMMENTS.
              MOVE SF-ASB-ASSET TO DB-ASSET.
              PERFORM 840-FIND-ASTSET1.
              IF (AMASSET-NOTFOUND)
              GO TO 4000-END.

              DISPLAY "ASSET " AST-ASSET.
              INITIALIZE WS-CMTAST.
              MOVE SPACES TO CMTAST-TYPE.
              SET CMTAST-SOFT-RTN TO TRUE.
              SET CMTAST-FIND TO TRUE.
              PERFORM 900-FIND-BEGRNG-CMT-AMASSET.
              PERFORM
              UNTIL (CMTAST-NOTFOUND)
              * IF (CMTAST-TYPE NOT = "N")

              MOVE WS-CMT-EXT-TEXT-SZ TO CMTAST-EXT-TEXT-SZ
              PERFORM 900-GET-TEXT-CMT-AMASSET
              PERFORM
              UNTIL (CMTAST-EOT)
              INSPECT CMTAST-EXT-TEXT REPLACING ALL
              WS-HEX-A
              BY SPACES
              DISPLAY "COMMENTS CMTAST-EXT-TEXT " CMTAST-EXT-TEXT
              MOVE CMTAST-EXT-TEXT TO G5-COMMENTS
              MOVE GN5-COMMENTS TO RPT-GROUP-REQUEST
              PERFORM 700-PRINT-RPT-GRP
              PERFORM 900-GET-TEXT-CMT-AMASSET
              END-PERFORM

              * END-IF

              MOVE SPACES TO CMTAST-TYPE
              PERFORM 900-FIND-NXTRNG-CMT-AMASSET
              END-PERFORM.
              4000-END.

              Thanks - Vijay