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

66 Technical Note
Sample Programs
Sample layout set YRVORDER01 (Example 1)
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
LINEAS&'Terms of payment 'VBDKA-ZTERM_TX1&
LINE/ &' 'VBDKA-ZTERM_TX2&
LINE/ &' 'VBDKA-ZTERM_TX3&
LINE/:ELSE
LINE/:INCLUDE &VBDKA-ZTERM& OBJECT TEXT ID SDTP PARAGRAPH L
LINE/:ENDIF
LINEAS&'Terms of delivery 'VBDKA-INCO1& &VBDKA-INCO2&,,
LINE/
LINEAS<k>Weights (gross/net) - Volume - Mark</>
LINE/=<PR>&'Gross weight 'VBDKA-BRGEW(13)' &VBDKA-GEWEI& '&</>
LINE= <PR>&'Net weight 'VBDKA-NTGEW(13)' &VBDKA-GEWEI& '&</>
LINE= <PR>&'Volume 'VBDKA-VOLUM(13)' &VBDKA-VOLEH& '&</>
LINE/
LINE/EHEADER_TEXT
LINE/:INCLUDE 'SD_RVADOR01' OBJECT TEXT ID SDVD PARAGRAPH HT
LINE/:INCLUDE &VBDKA-TDNAME& OBJECT VBBK ID 0001 PARAGRAPH HT
LINE/EITEM_HEADER
LINEUL&ULINE(71)&
LINEIL<k>Item,,Material,,Description</>
LINEIP<k>,,,,Qty,,,,Price,,Price unit,,,,,,Value</>
LINEUL&ULINE(71)&
LINE/
LINE/EITEM_LINE
LINEIL&VBDPA-POSNR&,,&VBDPA-MATNR&,,&VBDPA-ARKTX&
LINE/*,,&'Customer mat. no. 'VBDPA-IDNKD&&'Item 'VBDPA-POSEX&
LINE/*,,&'Purch.ord.no. /Item 'VBDPA-BSTKD&&' /'VBDPA-POSEX&
LINE/*,,&'Purch.ord.no. GR/Item 'VBDPA-BSTKD_E&&' /'VBDPA-POSEX_E&
LINE/*,,&'Batch 'VBDPA-CHARG&
LINE/EITEM_LINE_PRICE_QUANTITY
LINEIP,,,,&VBDPA-KWMENG(I12)&,,&VBDPA-VRKME&,,&KOMVD-KBETR(I12)& ,,
LINE=
&KOMVD-KOEIN&,,&KOMVD-KPEIN(I)&,,&KOMVD-KMEIN&,,&KOMVD-KWERT(I14)&
LINE/EITEM_LINE_PRICE_TEXT
LINEIP,,&KOMVD-VTEXT(17)&,,,,,,&KOMVD-KBETR(I12)&,,&KOMVD-KOEIN& ,,
LINE= &KOMVD-KPEIN(I)&,,&KOMVD-KMEIN&,,&KOMVD-KWERT(I14)&
LINE/EITEM_TEXT
LINE/:INCLUDE &VBDPA-TDNAME& OBJECT VBBP ID 0001 PARAGRAPH IT
LINE/EITEM_TERMS_OF_PAYMENT
LINE/:PROTECT
LINE/:IF &VBDPA-ZTERM_TX1& NE &SPACE& OR &VBDPA-ZTERM_TX2& NE &SPACE& OR
&VBDP
LINEID&'Terms of payment 'VBDPA-ZTERM_TX1&
LINE/ &' 'VBDPA-ZTERM_TX2&
LINE/ &' 'VBDPA-ZTERM_TX3&
LINE/:ELSE
LINE/:INCLUDE &VBDPA-ZTERM& OBJECT TEXT ID SDTP PARAGRAPH ID
LINE/:ENDIF
LINE/:ENDPROTECT
LINE/EITEM_TERMS_OF_DELIVERY
LINEIDAlternative terms of delivery: &VBDPA-INCO1& &VBDPA-INCO2&
LINE/EITEM_REFERENCE_NO
LINE/:IF &VBDPA-VBTYP_VANG& = 'B'
LINE/:IF &VBDKA-VBELN_VANG& NE &SPACE&
LINEIL,,Quotat. &VBDPA-VBELN_VANG&&'from 'VBDPA-AUDAT_VANG&