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

58 Technical Note
Sample Programs
Sample layout set YRVORDER01 (Example 1)
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
LINE*
LINE*
LINE/WMAIN
LINE/*POSITION XORIGIN '-0.1' CH YORIGIN '-35' LN
LINE/*SIZE WIDTH 71 CH HEIGHT +39 LN
LINE/*BOX FRAME 20 TW
LINE/*BOX WIDTH '+5' CH HEIGHT '72' LN INTENSITY 10
LINE/ESPACE_LINE
LINE/
LINE/EUNDER_LINE
LINEUL&ULINE(71)&
LINE/EHEADER_DATA
LINECN<k>We deliver according to the following conditions:</>
LINE= ,,&'<k>Currency</> 'VBDKA-WAERK&
LINE/:IF &VBDKA-ZTERM_TX1& NE &SPACE& OR &VBDKA-ZTERM_TX2& NE &SPACE& OR
&VBDK
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