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

20 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_DELIVERY_DATE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM DIFFERENT_CONSIGNEE *
*---------------------------------------------------------------------*
* If the consignee in the item is different to the header con- *
* signee, it is printed by this routine. *
*---------------------------------------------------------------------*
FORM DIFFERENT_CONSIGNEE.
CHECK VBDKA-NAME1_WE NE VBDPA-NAME1_WE
OR VBDKA-NAME2_WE NE VBDPA-NAME2_WE
OR VBDKA-NAME3_WE NE VBDPA-NAME3_WE
OR VBDKA-NAME4_WE NE VBDPA-NAME4_WE.
CHECK VBDPA-NAME1_WE NE SPACE
OR VBDPA-NAME2_WE NE SPACE
OR VBDPA-NAME3_WE NE SPACE
OR VBDPA-NAME4_WE NE SPACE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_CONSIGNEE'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM DIFFERENT_REFERENCE_NO *
*---------------------------------------------------------------------*
* If the reference number in the item is different to the header*
* reference number, it is printed by this routine. *
*---------------------------------------------------------------------*
FORM DIFFERENT_REFERENCE_NO.
CHECK VBDPA-VBELN_VANG NE VBDKA-VBELN_VANG
OR VBDPA-VBTYP_VANG NE VBDKA-VBTYP_VANG.
CALL FUNCTION 'WRITE_FORM'