HPOMSAP 6.1 Delivering documents to SAPconnect nodes in SAP R/3

30 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
EXPORTING
ELEMENT = 'ITEM_BILLING_SCHEDULE_PERIODIC'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
* bei periodischen nur eine Zeile
EXIT.
ELSEIF FPLTDR-FAREG CA '14'.
* prozentuale Teilfakturierung
IF NOT FIRST_LINE IS INITIAL.
CLEAR FIRST_LINE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_BILLING_SCHEDULE_PERCENT_HEADER'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_BILLING_SCHEDULE_PERCENT'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ELSEIF FPLTDR-FAREG CA '235'.
* wertmäßige Teilfakturierung
IF NOT FIRST_LINE IS INITIAL.
CLEAR FIRST_LINE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_BILLING_SCHEDULE_VALUE_HEADER'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_BILLING_SCHEDULE_VALUE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.