07-27-2006 8:23 PM
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..
07-27-2006 8:38 PM
Hi,
r u writing this way?
/: &itab-matnum&,&itab-cust num&
regards,
keerthi.
07-27-2006 8:47 PM
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)&