Scripts

[Former Member]

Hi,

In Invoice form for commercial .I'm trying to get the data for materail description.

like

deliver number:XXX,PO.Num.XXX.PO.DATE.XXX

I need to break and subtotal on del.num and po num if they r different.

After that i need to display

matnum,

cust matnum,

matdesc.. all these are declared in main window.with respective text elements with vbdpr and vbdkr.

But still I'm unable to get the data in main window.

can any body help in this regard..

[Former Member]

Hi,

r u writing this way?

/: &itab-matnum&,&itab-cust num&

regards,

keerthi.

[Former Member]

Hi,

This is the whole logic for main window I'm using..chack at material description..

SET COUNTRY 'USA'

SPACE_LINE

HEADER_DATA

K > CONDITIONS < / > , , &'<k>Currency</> 'VBDKR-WAERK&

IF &VBDKR-VBTYP& NE 'O' AND &VBDKR-P_SPLIT& = &SPACE& .

&' Terms of payment: 'VBDKR-ZTERM_BEZ&

&' 'VBDKR-ZTERM_TX1&

&' 'VBDKR-ZTERM_TX2&

&' 'VBDKR-ZTERM_TX3&

ENDIF

&' Terms of delivery: 'VBDKR-INCO1& &VBDKR-INCO2& , ,

K > WEIGHTS ( GROSS/NET ) - VOLUME - MARKING < / >

PR > &'Gross weight: 'VBDKR-BRGEW(13)' &VBDKR-GEWEI& '& < / >

PR > &'Net weight: 'VBDKR-NTGEW(13)' &VBDKR-GEWEI& '& < / >

PR > &'Volume: 'VBDKR-VOLUM(13)' &VBDKR-VOLEH& '& < / >

HEADER_TEXT

INCLUDE 'SD_RVADIN01' OBJECT TEXT ID SDVD PARAGRAPH HT

INCLUDE &VBDKR-TDNAME& OBJECT VBBK ID 0001 PARAGRAPH HT

ITEM_HEADER

&ULINE(71)&

K > ITEM,,MATERIAL,,,,DESCRIPTION < / >

K > , , , , COUNTRY,,,,OF ORIGIN,,,,SHIPPED,,,,UNIT PRICE , , , , AMOUNT < / >

&ULINE(71)&

ITEM_LINE

&VBDPR-POSNR& , , &VBDPR-MATNR& , , &VBDPR-ARKTX&

&' Cust. Material No.: 'VBDPR-IDNKD' '& &'Item: 'VBDPR-POSEX&

ITEM_LINE_BATCH

&'Batch: 'VBDPR-CHARG&

ITEM_LINE_PRICE_QUANTITY

PROTECT

&VBDPR-POSNR(Z)& &VBDPR-MATNR& &VBDPR-FKIMG(I12)& &VBDPR-VRKME& &KOMVD-KBETR(I12)& &KOMVD-KWERT(I14)& &KOMVD-MWSKZ&

&VBDPR-ARKTX&

&'Cust. Material No.: 'VBDPR-IDNKD' '&

PERFORM ZPOSEX IN PROGRAM ZINVOICE_FORM

USING &VBDKR-VBELN&

USING &VBDPR-POSNR&

CHANGING &ZPOSEX&

ENDPERFORM

&'Line Item: 'ZPOSEX' '&

PERFORM ZSERIAL IN PROGRAM ZINVOICE_FORM

USING &VBDPR-VGBEL&

USING &VBDPR-VGPOS&

CHANGING &ZSERIAL1&

CHANGING &ZSERIAL2&

CHANGING &ZSERIAL3&

CHANGING &ZSERIAL4&

ENDPERFORM

&ZSERIAL1&

&ZSERIAL2&

&ZSERIAL3&

&ZSERIAL4&

PERFORM ZSUB IN PROGRAM ZINVOICE_FORM

USING &KOMVD-KWERT&

USING &ZSUBTOT&

CHANGING &ZSUBTOT&

ENDPERFORM

,,,,&'Cust. Material No.: 'VBDPR-IDNKD' '&&'Item: 'VBDPR-POSEX&

ENDPROTECT

ITEM_LINE_PRICE_TEXT

,,&KOMVD-VTEXT(17)&,,,,,,&KOMVD-KBETR(I12)&,,&KOMVD-KOEIN&

,,&KOMVD-KPEIN(I)&,,&KOMVD-KMEIN&,,&KOMVD-KWERT(I14)&,,&KOMVD-MWSKZ&

&KOMVD-VTEXT(30)& &KOMVD-KWERT(I12)&

ITEM_TEXT

INCLUDE &VBDPR-TDNAME& OBJECT VBBP ID 0001 PARAGRAPH IT

ITEM_LINE_CONFIGURATION_HEADER

With the following configuration:

&CONF_OUT-ATBEZ& &CONF_OUT-ATWTB&

ITEM_LINE_CONFIGURATION

&CONF_OUT-ATBEZ& &CONF_OUT-ATWTB&

ITEM_CONSIGNEE

Ship-to party

ADDRESS PARAGRAPH AS LINES 4 DELIVERY

NAME &VBDPR-NAME1_WE& , &VBDPR-NAME2_WE&

STREET &VBDPR-STRAS_WE&

POBOX &VBDPR-PFACH_WE& CODE &VBDPR-PSTL2_WE&

CITY &VBDPR-ORT01_WE& , &VBDPR-ORT02_WE&

POSTCODE &VBDPR-PSTLZ_WE&

COUNTRY &VBDPR-LAND1_WE&

FROMCOUNTRY &VBDPR-SLAND&

REGION &VBDPR-REGIO_WE&

ENDADDRESS

ITEM_ORDER_NO

Order &VBDPR-VBELN_VAUF& &'from 'VBDPR-AUDAT&

ITEM_DELIVERY_NO

Delivery note &VBDPR-VBELN_VL& &'from 'VBDPR-LEDAT&

ITEM_EXTERN_NO

External document &VBDPR-VGBEL&

ITEM_PURCHASE_ORDER_NO

Purchase order number &VBDPR-BSTNK& &'from 'VBDPR-BSTDK&

ITEM_REFERENCE_NO

IF &VBDKR-VBTYP& EQ 'O' OR &VBDKR-VBTYP& EQ 'P' .

IF &VBDKR-VBELN_VG2& NE &SPACE& .

IF &VBDKR-VGTYP& EQ 'M' .

Invoice number &VBDPR-VBELN_VG2& &'from 'VBDPR-G2DAT&

ENDIF

IF &VBDKR-VGTYP& EQ 'C' .

Order number &VBDPR-VBELN_VG2& &'from 'VBDPR-G2DAT&

ENDIF

ENDIF

ENDIF

ITEM_SUM

Subtotal $&ZSUBTOT&

-

---

PERFORM ZSUB_CLEAR IN PROGRAM ZINVOICE_FORM

USING &ZSUBTOT&

CHANGING &ZSUBTOT&

ENDPERFORM

SUM_LINE

&KOMVD-VTEXT(15)& , , , , , , &KOMVD-KBETR(I12)& , , &KOMVD-KOEIN&

&KOMVD-KPEIN(I)& , , &KOMVD-KMEIN& , , &KOMVD-KAWRT(I12)&

&KOMVD-KWERT(I13)& , , &KOMVD-MWSKZ&

&KOMVD-VTEXT(15)& &KOMVD-KWERT(13)&

IF &KOMVD-VTEXT(15)& = 'Total Discount '

,,,,,,----

---

ENDIF

TAX_LINE

&KOMVD-VTEXT(15)& , , , , , , &KOMVD-KBETR(12)& , , &KOMVD-KOEIN&

&KOMVD-KPEIN(I)& , , &KOMVD-KMEIN& , , &KOMVD-KAWRT(I12)&

Tax Amount &KOMVD-KWERT(13)&

END_VALUES

-

---

Total Amount $&KOMK-FKWRT(I)&

PAYMENTCARDS

<B>Charge to: &CCNAME&</>

SUPPLEMENT_TEXT

INCLUDE &VBDKR-TDNAME& OBJECT VBBK ID 0010 PARAGRAPH HT

TERMS_OF_PAYMENT_SPLIT_HEADER

Payment due dates

TERMS_OF_PAYMENT_SPLIT

IF &VBDKR-VBTYP& NE 'O' AND &VBDKR-P_SPLIT& NE &SPACE& .

&VBDKR-TEXT&

ENDIF

AMOUNT_QUALIFYING_FOR_CASH_DIS

Use paragraph SU for the following line

AMOUNT QUALIFYING FOR CASH DISCOUNT,,,,,,,,,,,,,,,, &VBDKR-SKFBK(13)&