SAP Note 21997 - Modification of picking list by telefax

Symptom:

The shipping of picking lists by telefax in the message application V4 is not planned as a default

Cause and prerequisites

The functions are not programmed.

Solution
Implement the following modification indicated with <--- in the member FV50XF0B in the FORM routine BELEG_KOMMILISTE_ANSTOSSEN. FORM BELEG_KOMMILISTE_ANSTOSSEN.TABLES: VBLKK,
SADR. <---
DATA: BEGIN OF TVBLKP OCCURS 0. INCLUDE STRUCTURE VBLKP.
DATA: END OF TVBLKP.
DATA: BKA_POS TYPE C.
DATA: NRIV_NUMBER(10).

* beschaffen der Druckparameter
IF TVST-NACHA = '1'. <---
IF TVST-KSCHL NE TNAD5-KSCHL OR
LIKP-VSTEL NE TNAD5-VSTEL.

SELECT SINGLE * FROM TNAD5 WHERE KAPPL = 'V4' AND
KSCHL = TVST-KSCHL AND
VSTEL = LIKP-VSTEL.
IF SY-SUBRC NE 0.
CLEAR: TNAD5.
EXIT.
ENDIF.
ENDIF.
ELSE. <---
CLEAR TNAD5. < ---
ENDIF. <---
IF TVST-NACHA = '2'. <---
SELECT SINGLE * FROM SADR WHERE ADRNR = TVST-ADRNR <---
AND NATIO = SPACE. <---
IF SY_SUBRC NE 0. <---
CLEAR SADR. <---
EXIT. <---
ENDIF. <---
IF SADR-TELFX IS INITIAL. <---
EXIT. <---
ENDIF. < ---
ENDIF. <---

* erzeugen NAST-Satz
CLEAR NAT.
MOVE-CORRESPONDING TVST TO NAT.
IF TVST-NACHA = '1'. <---
MOVE-CORRESPONDING TNAD5 TO NAT.
NAT-TDARMOD = T685B-TDARMOD.
ENDIF. <---
IF TVST-NACHA = '2'. <---
MOVE SADR-TELFX TO NAT-TELFX. <---
ENDIF. <---
NAT-MANDT = XLIKP-MANDT.
NAT-KAPPL = 'V4'.
NAT-OBJKY = XLIKP-VBELN.
LIKP = XLIKP.