x Want to participate? Join the group to interact
  • State Not Answered
  • Replies 5 replies
  • Subscribers 139 subscribers
  • Views 455 views
  • Users 0 members are here
Browse Forums
Announcements
238
topics
29
replies
General Discussion
5k
topics
13k
replies
Sage Data & Analytics
56
topics
95
replies
Sage Enterprise Intelligence
212
topics
422
replies
Sage Intelligence Reporting
121
topics
322
replies
N2XF3

I need your help with a small SPESDH modification

Posted By

Hello,

I added the small piece of code below in SPESDH. The purpose is to calculate a field on the lines when the delivery is saved and/or validated.
it only works if the delivery contains one single line.

If I add a second line, the fields are calculated correctly, and I can see the lines being updated thanks to the AFFZO.
However, once the loop is complete and the delivery is saved, only the first line's field is saved, and the second line's field returns to 0.

$MYCODE

Local Integer X
If !clalev([ZITM]): Local File ITMMASTER[ZITM] : Endif

For X = 0 to [M:SDH1]NBLIG - 1
    Read [F:ZITM]ITM0=[M:SDH1]ITMREF([L]X)
    If [M:SDH1]Z_MYFIELD([L]X) = 0 Then
        [M:SDH1]Z_MYFIELD([L]X) = [M:SDH1]QTY([L]X)/[F:ZITM]Z_PDS
        [F:SDD]Z_MYFIELD = [M:SDH1]Z_MYFIELD([L]X)
        affzo [M:SDH1]Z_MYFIELD([L]X)
    Endif
Next

Rewrite [F:SDD]

Close File [ZITM]

Return


Do you have any idea why the second line does not retain the value?

Thank you for your help.

Parents
  • 0

    Instead or rewriting the Table, why dont you pass the calculated values on the table grid before saving, then that way the values on the table grid will be transalated to the table in a standard way.

    I would suggest you call the VERIF_CRE or VERIF_MOD actions and do the following. (Just removed the [F]=[M] part as well as the rewrite)

    For X = 0 to [M:SDH1]NBLIG - 1
    Read [F:ZITM]ITM0=[M:SDH1]ITMREF([L]X)
    If [M:SDH1]Z_MYFIELD([L]X) = 0 Then
    [M:SDH1]Z_MYFIELD([L]X) = [M:SDH1]QTY([L]X)/[F:ZITM]Z_PDS
    affzo [M:SDH1]Z_MYFIELD([L]X)
    Endif
    Next

Reply
  • 0

    Instead or rewriting the Table, why dont you pass the calculated values on the table grid before saving, then that way the values on the table grid will be transalated to the table in a standard way.

    I would suggest you call the VERIF_CRE or VERIF_MOD actions and do the following. (Just removed the [F]=[M] part as well as the rewrite)

    For X = 0 to [M:SDH1]NBLIG - 1
    Read [F:ZITM]ITM0=[M:SDH1]ITMREF([L]X)
    If [M:SDH1]Z_MYFIELD([L]X) = 0 Then
    [M:SDH1]Z_MYFIELD([L]X) = [M:SDH1]QTY([L]X)/[F:ZITM]Z_PDS
    affzo [M:SDH1]Z_MYFIELD([L]X)
    Endif
    Next

Children

*Community Hub is the new name for Sage City