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

40 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
KOMVD-KSCHL = SPACE ).
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE_PRICE_QUANTITY'.
ELSE.
IF KOMVD-KNTYP NE 'f'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE_PRICE_TEXT'.
ELSE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_LINE_REBATE_IN_KIND'.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
*---------------------------------------------------------------------*
* FORM ITEM_PRINT *
*---------------------------------------------------------------------*
* Printout of the items *
*---------------------------------------------------------------------*
FORM ITEM_PRINT.
DATA: DA_SUBRC LIKE SY-SUBRC,
DA_DRAGR LIKE TVAG-DRAGR.
DATA: DA_GANF(1) TYPE C, "Print flag for billing correction
DA_LANF(1) TYPE C. "Print flag for billing correction
CALL FUNCTION 'WRITE_FORM' "First header
EXPORTING ELEMENT = 'ITEM_HEADER'
EXCEPTIONS OTHERS = 1.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
CALL FUNCTION 'WRITE_FORM' "Activate header
EXPORTING ELEMENT = 'ITEM_HEADER'
TYPE = 'TOP'
EXCEPTIONS OTHERS = 1.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
LOOP AT TVBDPA.
VBDPA = TVBDPA.
IF VBDPA-DRAGR EQ SPACE. "Print rejected item?
IF VBDPA-POSNR_NEU NE SPACE. "Item
PERFORM ITEM_BILLING_CORRECTION_HEADER USING DA_GANF DA_LANF.
PERFORM GET_ITEM_SERIALS.
PERFORM GET_ITEM_CHARACTERISTICS.