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

72 Technical Note
Sample Programs
Sample program YHP_POFORM (Example 3)
endif.
Land = lfa1-land1.
number = lfa1-telfx.
************************************************************************
* Sender (BOR-Objekt-ID) *
************************************************************************
* Creation of Receipent
SWC_CREATE_OBJECT SENDER 'RECIPIENT' SPACE.
* clear Container
SWC_CLEAR_CONTAINER CONTAINER.
* Address String
SWC_SET_ELEMENT CONTAINER 'AddressString' SY-UNAME.
* Adreßtyp (interner Benutzer)
SWC_SET_ELEMENT CONTAINER 'TypeId' 'B'.
SWC_CALL_METHOD SENDER 'FindAddress' CONTAINER.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO.
ENDIF.
SWC_OBJECT_TO_PERSISTENT SENDER SENDER_ID.
************************************************************************
*FAX *
************************************************************************
IF FAX = 'X'.
* Receipent
SWC_CREATE_OBJECT RECIPIENT 'RECIPIENT' SPACE.
* Container leeren
SWC_CLEAR_CONTAINER CONTAINER.
* Type Fax
SWC_SET_ELEMENT CONTAINER 'TypeId' 'F'.
* importing: FAX-Nummer
MOVE: LAND TO ADDRESS_STRING,
NUMBER TO ADDRESS_STRING+3.
SWC_SET_ELEMENT CONTAINER 'AddressString' ADDRESS_STRING.
* Using recipient.CreateAddress
SWC_CALL_METHOD RECIPIENT 'CreateAddress' CONTAINER.
IF SY-SUBRC NE 0.
MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO.
ENDIF.
Endif.
************************************************************************
* Internet *
************************************************************************
IF INTERNET = 'X'.
* Receipent
SWC_CREATE_OBJECT RECIPIENT 'RECIPIENT' SPACE.