1) The statament AT NEW <FIELD> runs when a value of a field at the right of <FIELD> is changed. All values of these fields are replace by '*'.
For example:
FIELD1 FIELD2 FIELD3 FIELD4 FIELD5
A B C D E
A B C D E
A C C D E
A C C D E
AT NEW FIELD3
It runs on first loop, becouse header line was initial and runs on 3rd row, becouse in the first and second rows the field1 and field2 have the same values A B.
It's as if the systems saw a string created concatenating the values of all fields at the left of FIELD3, so it says:
- First loop: string = FIELD1 + FIELD2 + FIELD3 = ABC
=> ABC <> initial => AT NEW runs
- Second loop: string = FIELD1 + FIELD2 + FIELD3 = ABC
- Third loop: string = FIELD1 + FIELD2 + FIELD3 = ACC
=> ACC <> ABC => AT NEW runs
.....
When it is in AT NEW/ENDAT the header line is
- First loop: ABC**
- Third loop: ACC**
So you should save the values of fields at the right of <FIELD> in a workarea before going into AT NEW/ENDAT:
MOVE ITAB TO WA.
AT NEW...
ENDAT.
2) You can use event AT END OF <FIELD> instead of AT NEW, it runs when the last value is changed.
For example:
- First loop: string = FIELD1 + FIELD2 + FIELD3 = ABC
- Second loop: string = FIELD1 + FIELD2 + FIELD3 = ABC
AT END OF FIELD3 runs
- Third loop: string = FIELD1 + FIELD2 + FIELD3 = ACC
.....
So, when you are in the event AT END, the data of customer,that are in header line of table, are data you have to print.
If you this event you should update your code as:
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = P_FORM
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
LOOP AT FINAL_ACCITAB.
IF FINAL_ACCITAB-ZSORTGROUP <> SORT.
SORT = FINAL_ACCITAB-ZSORTGROUP.
IF NOT E_SSFCOMPOP IS INITIAL.
SSFCTRLOP_OPEN-NO_DIALOG = 'X'.
ENDIF.
IF FL_OPEN = 'X'.
CALL FUNCTION 'SSF_CLOSE'.
ENDIF.
CALL FUNCTION 'SSF_OPEN'
EXPORTING
USER_SETTINGS = SPACE
OUTPUT_OPTIONS = E_SSFCOMPOP
CONTROL_PARAMETERS = SSFCTRLOP_OPEN
IMPORTING
JOB_OUTPUT_OPTIONS = SSFCRESOP
EXCEPTIONS
.........................
SSFCTRLOP-NO_OPEN = 'X'.
SSFCTRLOP-NO_CLOSE = 'X'.
INSERT FINAL_ACCITAB INTO TABLE T_CUSTOMER.
Remember: when you execute a print, you are printin the data of previous customer,
so here save his parameters:
ZTOTALAMOUNT = ....
SCAN_NUMBER = ....
E_DATE = .....
.............
AT END advertiser.
CALL FUNCTION FM_NAME
..............
REFRESH T_CUSTOMER.
CLEAR: ZTOTALAMOUNT, .......
ENDAT.
ENDLOOP.
It doesn't need to write the code to print last customer, now you can print all into LOOP/ENDLOOP
Max
Message was edited by: max bianchi
Message was edited by: max bianchi
Bluesky
