report - see inside for more details...

[Former Member]

Hi guru's,

i need to get multiple batches instead of getting only the 1st batch it's an production issue need to solve asap.pls provide me the solution

my block of code given below :

DATA : l_venum LIKE vekp-venum,

l_vepos LIKE vepo-vepos,

l_obknr LIKE ser06-obknr,

l_svepos LIKE ser06-vepos.

ldata1[] = ldata[].

DELETE ldata1 WHERE vbelv EQ ' '.

LOOP AT ldata1 WHERE status EQ 'CLOSED'.

MOVE-CORRESPONDING ldata1 TO ldatal.

SELECT SINGLE charg FROM lips INTO ldatal-charg

WHERE vbeln EQ ldata1-vbelv

AND matnr EQ ldata1-matnr

AND charg NE ' '.

• Function Module to get batch classification details.

CALL FUNCTION 'ZSD_BATCH_CLASSIFICATION_DATA'

EXPORTING

ch_charg = ldatal-charg

ch_matnr = ldatal-matnr

ch_werks = ldatal-werks

TABLES

t_clobjdat = lclobjdat[]

EXCEPTIONS

no_classification = 1

no_classtypes = 2

OTHERS = 3.

IF sy-subrc <> 0.

ENDIF.

Thanks and Regards,

shahshi

Edited by: Julius Bussche on Sep 8, 2008 10:56 PM

[Former Member]

Make changes in your select statement

Instead of select single

SELECT charg FROM lips INTO table it_charg ( Pls declare this internal table )

WHERE vbeln EQ ldata1-vbelv

AND matnr EQ ldata1-matnr

AND charg NE ' '.

Now it_charg will have multiple batches.

[Former Member]

hi karthik

thanks for u r ans

but i have one more doubt

SELECT charg FROM lips INTO table it_charg ( Pls declare this internal table )

WHERE vbeln EQ ldata1-vbelv

AND matnr EQ ldata1-matnr

AND charg NE ' '.

Now it_charg will have multiple batches.

but instead of this it_charg already i have declared a it-table as

ldatal so cani make it as ldatal-charg.

Regards,

Shashi

[Former Member]

SELECT charg FROM lips INTO CORRESPONDING FIELDS OF TABLE ldatal

WHERE vbeln EQ ldata1-vbelv

AND matnr EQ ldata1-matnr

AND charg NE ' '.

[Former Member]

hi,

i have declared this as :

DATA: ldatas LIKE TABLE OF ldata WITH HEADER LINE.

DATA : ldatal LIKE TABLE OF ldata WITH HEADER LINE.

DATA : ldata1 LIKE TABLE OF ldata WITH HEADER LINE.

DATA : ldatasr LIKE TABLE OF ldata WITH HEADER LINE,

ldatal1 LIKE TABLE OF ldata WITH HEADER LINE.

DATA : ldata_count LIKE TABLE OF ldata WITH HEADER LINE.

pls help me out.

Regards,

Shashi

[Former Member]

okay fine what is the structure of ldata , my guess should be correct you would have not declared charg as the first field that why i adviced into coreesponding , hope your issue is sloved by now.

[Former Member]

Hi Karthik,

The tables has declared the above i have given earlier and again iam giving the peice of code below coz the select query is not working as u given pls help me out.

DATA : l_venum LIKE vekp-venum,

l_vepos LIKE vepo-vepos,

l_obknr LIKE ser06-obknr,

l_svepos LIKE ser06-vepos.

ldata1[] = ldata[].

DELETE ldata1 WHERE vbelv EQ ' '.

LOOP AT ldata1 WHERE status EQ 'CLOSED'.

MOVE-CORRESPONDING ldata1 TO ldatal.

• SELECT charg FROM lips INTO ldatal

• WHERE vbeln EQ ldata1-vbelv

• AND matnr EQ ldata1-matnr

• AND charg NE ' '.

***SELECT SINGLE charg FROM lips INTO ldatal-charg

• WHERE vbeln EQ ldata1-vbelv

• AND matnr EQ ldata1-matnr

• AND charg NE ' '.

***

SELECT single charg FROM lips INTO ldatal-charg

WHERE vbeln EQ ldata1-vbelv

AND matnr EQ ldata1-matnr

AND charg NE ' '.

• endselect.

• Function Module to get batch classification details.

CALL FUNCTION 'ZSD_BATCH_CLASSIFICATION_DATA'

EXPORTING

ch_charg = ldatal-charg

ch_matnr = ldatal-matnr

ch_werks = ldatal-werks

TABLES

t_clobjdat = lclobjdat[]

EXCEPTIONS

no_classification = 1

no_classtypes = 2

OTHERS = 3.

IF sy-subrc <> 0.

ENDIF.

READ TABLE lclobjdat WITH KEY atnam = 'Z_BATCH_610_NUMBER'.

IF lclobjdat-ausp1 NE '?'.

ldatal-atwrt = lclobjdat-ausp1.

ENDIF.

READ TABLE lclobjdat WITH KEY atnam = 'Z_BATCH_OWNERSHIP'.

IF lclobjdat-ausp1 NE '?'.

ldatal-owner = lclobjdat-ausp1.

ENDIF.

APPEND ldatal.

CLEAR :lclobjdat[],lclobjdat.

ENDLOOP.

CLEAR ldata[].

ldata[] = ldatal[].

refresh: ldata1, ldatal.

Regards,

Shashi

[Former Member]

still i havent got the structure of ldata ??????????? Can you pls provide that so i can help you be little faster

[Former Member]

come on you are yet to change the select query !!!!!

[Former Member]

hi karthik,

pls give me more clarity on this and give me the select query

which can work for this bunch of code.

help me out..

Regards,

Shashi

[Former Member]

This will work pls replace this query and test it

SELECT charg FROM lips INTO CORRESPONDING FIELDS OF TABLE ldatal

WHERE vbeln EQ ldata1-vbelv

AND matnr EQ ldata1-matnr

AND charg NE ' '.

[Former Member]

Hi Karthik,

sorry yaar, actually this was developped by some one else but iam working on the issue.iam giving you the declaration of ldata

as below mentioned and pls help me out.just now i got a call ineed close with in 15 mins plssssss help me

DATA: BEGIN OF ldata OCCURS 0,

vkorg LIKE vbak-vkorg,

vbeln LIKE vbak-vbeln,

posnr LIKE vbap-posnr,

venum LIKE vekp-venum,

vepos LIKE vepo-vepos,

kunnr LIKE vbak-kunnr,

erdat4 LIKE vbak-erdat, "Apple file date

erzet4 LIKE vbak-erzet, "Apple file time

erdat LIKE vbak-erdat,

erzet2 LIKE vbak-erzet,

lifsk LIKE vbak-lifsk,

vbelv LIKE likp-vbeln,

erdat3 LIKE likp-erdat,

erzet3 LIKE likp-erzet,

vsbed LIKE likp-vsbed,

kunwe TYPE kunwe,

carrier LIKE tvsbt-vtext,

bstkd LIKE vbkd-bstkd,

bstkd_e LIKE vbkd-bstkd_e,

ihrez LIKE vbkd-ihrez,

wadat_ist LIKE likp-wadat_ist,

lifsk2 LIKE likp-lifsk,

knump LIKE likp-knump,

erzet LIKE vbfa-erzet,

status TYPE char8,

shpto TYPE vbpa-kunnr,

name1 LIKE adrc-name1,

name2 LIKE adrc-name2,

name3 LIKE adrc-name3,

street LIKE adrc-street,

str_suppl1 LIKE adrc-str_suppl1,

city1 LIKE adrc-city1,

region LIKE adrc-region,

post_code1 LIKE adrc-post_code1,

country LIKE adrc-country,

tel_number LIKE adrc-tel_number,

fax_number LIKE adrc-fax_number,

name1_re LIKE adrc-name1,

name2_re LIKE adrc-name2,

name3_re LIKE adrc-name3,

street_re LIKE adrc-street,

str_suppl1_re LIKE adrc-str_suppl1,

city1_re LIKE adrc-city1,

region_re LIKE adrc-region,

post_code1_re LIKE adrc-post_code1,

country_re LIKE adrc-country,

tel_number_re LIKE adrc-tel_number,

fax_number_re LIKE adrc-fax_number,

nambe LIKE komv-kwert,

inhalt LIKE vekp-inhalt,

filename LIKE vbak-zzfilename,

cmpnm LIKE vbak-zzbillto_name,

bname LIKE vbak-bname,

posex LIKE vbap-posex,

werks LIKE vbap-werks,

matnr LIKE vbap-matnr,

arktx LIKE vbap-arktx,

pstyv LIKE vbap-pstyv,

kwmeng(6) TYPE p DECIMALS 0, "like vbap-kwmeng,

vmsta LIKE mvke-vmsta,

dismm LIKE marc-dismm,

matkl LIKE vbap-matkl,

mvgr1 LIKE vbap-mvgr1,

mvgr2 LIKE vbap-mvgr2,

mvgr3 LIKE vbap-mvgr3,

mvgr4 LIKE vbap-mvgr4,

mvgr5 LIKE vbap-mvgr5,

absta LIKE vbup-absta,

gbstk LIKE vbuk-gbstk,

abstk LIKE vbuk-abstk,

sammg LIKE vbsk-sammg,

sortf LIKE vbss-sortf,

ernam LIKE vbsk-ernam,

erdat_g LIKE vbsk-erdat,

uzeit_g LIKE vbsk-uzeit,

vbnum LIKE vbsk-vbnum,

vtext_g LIKE vbsk-vtext,

posnl LIKE lips-posnr,

kbetr LIKE konv-kbetr,

kwert LIKE konv-kwert,

submi LIKE vbak-submi,

currncy TYPE char3,

customamt TYPE char10,

dele TYPE char1, "Deletion Indicator

charg TYPE lips-charg, "Batch Number

sernr TYPE equi-sernr, "Serial Number

atwrt TYPE ausp-atwrt, " Manufacturer number

vhilm TYPE vekp-vhilm, "Packing Material

brgew TYPE lips-brgew, " Line item weight

site TYPE char20,

netwr TYPE vbak-netwr,

parcelwt TYPE lips-brgew,

augru TYPE vbak-augru,

sshpdate(15) TYPE c,

trsta TYPE vbuk-trsta,

exti1 TYPE vttk-exti1,

track(40) TYPE c,

custref TYPE vbkd-bstkd,

wbstk TYPE vbuk-wbstk,

shpcar TYPE zscac_vsbed-scacd,

shpc TYPE vbak-vsbed,

namecmp TYPE adrc-name3,

knumv TYPE konv-knumv,

ordsub TYPE konv-kwert,

count TYPE i,

owner type char30,

cogs like konv-kwert,

verpr like mbew-verpr,

END OF ldata.

Thanks and Regards,

Shashi

[Former Member]

total code is a mess

How can they declare this

charg TYPE lips-charg, "Batch Number

sernr TYPE equi-sernr, "Serial Number

atwrt TYPE ausp-atwrt, " Manufacturer number

vhilm TYPE vekp-vhilm, "Packing Material

brgew TYPE lips-brgew, " Line item weight

Type reference should to DE

[Former Member]

on studying your code completely

but instead of this it_charg already i have declared a it-table as

ldatal so cani make it as ldatal-charg.

The above request made by you cannot be done as Idatal has records in it ( MOVE-CORRESPONDING ldata1 TO ldatal. )

.

[Former Member]

Please use more descriptive subject titles. Normally such threads are simply deleted.

Please read [the rules|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement] => rule # 2 will help you find an answer faster. Rule # 1 is also very good.

Cheers,

Julius