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

ManualsBrandsHP ManualsSoftwareHP Output Management Services Software

Technical Note 33

Sample Programs

Sample Program YRVADOR01 (Example 1)

* In this routine the price data for the item is fetched from *

* the database. *

*---------------------------------------------------------------------*

FORM GET_ITEM_PRICES.

CLEAR: KOMP,

TKOMV.

IF KOMK-KNUMV NE VBDKA-KNUMV OR

KOMK-KNUMV IS INITIAL.

CLEAR KOMK.

KOMK-MANDT = SY-MANDT.

KOMK-KALSM = VBDKA-KALSM.

KOMK-KAPPL = PR_KAPPL.

KOMK-WAERK = VBDKA-WAERK.

KOMK-KNUMV = VBDKA-KNUMV.

KOMK-VBTYP = VBDKA-VBTYP.

KOMK-LAND1 = VBDKA-LAND1.

KOMK-VKORG = VBDKA-VKORG.

KOMK-VTWEG = VBDKA-VTWEG.

KOMK-SPART = VBDKA-SPART.

KOMK-BUKRS = VBDKA-BUKRS_VF.

KOMK-HWAER = VBDKA-WAERS.

KOMK-PRSDT = VBDKA-ERDAT.

KOMK-KURST = VBDKA-KURST.

KOMK-KURRF = VBDKA-KURRF.

KOMK-KURRF_DAT = VBDKA-KURRF_DAT.

ENDIF.

KOMP-KPOSN = VBDPA-POSNR.

KOMP-KURSK = VBDPA-KURSK.

KOMP-KURSK_DAT = VBDPA-KURSK_DAT.

IF PRICE_PRINT_MODE EQ CHARA.

CALL FUNCTION 'RV_PRICE_PRINT_ITEM'

EXPORTING

COMM_HEAD_I = KOMK

COMM_ITEM_I = KOMP

LANGUAGE = NAST-SPRAS

IMPORTING

COMM_HEAD_E = KOMK

COMM_ITEM_E = KOMP

TABLES

TKOMV = TKOMV

TKOMVD = TKOMVD.

ELSE.

CALL FUNCTION 'RV_PRICE_PRINT_ITEM_BUFFER'