ALV codeing...plz help urgent

[Former Member]

Hi Experts,

I am new to Abap.i hav a simple spec but i need to do it in ALV so plz help me.

Sales organization LIKP VKORG

Shipping point/receiving pt LIKP VSTEL

Delivery LIKP VBELN

Delivery date LIKP LFDAT

Delivery type LIKP LFART

Pland gds mvmnt date LIKP WADAT

Actual gds mvmet date LIKP WADAT_IST

Ship-to party LIKP KUNNR

Sold-to party LIKP KUNAG

Posting Status Customized fields ZCHK

If LIKP-WADAT = WADAT_IST, then print "OK", else " Posting Error"

this is a small requirment.plz help me in this it should be in ALV format.

correct answers will will given full points.

Thnaks & Regards

Sunita.

• PLz Experts plz help me.

[Former Member]

Hi Experts,

I am new to Abap.i hav a simple spec but i need to do it in ALV so plz help me.

Sales organization LIKP VKORG

Shipping point/receiving pt LIKP VSTEL

Delivery LIKP VBELN

Delivery date LIKP LFDAT

Delivery type LIKP LFART

Pland gds mvmnt date LIKP WADAT

Actual gds mvmet date LIKP WADAT_IST

Ship-to party LIKP KUNNR

Sold-to party LIKP KUNAG

Posting Status Customized fields ZCHK

If LIKP-WADAT = WADAT_IST, then print "OK", else " Posting Error"

this is a small requirment.plz help me in this it should be in ALV format.

correct answers will will given full points.

Thnaks & Regards

Sunita.

• PLz Experts plz help me.

[Former Member]

hi

what is ur actuall requirement.What i have understood from ur question after retriving data from likp u need to check whether the dates or equal or not if dates r eq then o/p should be displayed else a message should be raised.is it so.

Hi Experts,

I am new to Abap.i hav a simple spec but i need to do it in ALV so plz help me.

Sales organization LIKP VKORG

Shipping point/receiving pt LIKP VSTEL

Delivery LIKP VBELN

Delivery date LIKP LFDAT

Delivery type LIKP LFART

Pland gds mvmnt date LIKP WADAT

Actual gds mvmet date LIKP WADAT_IST

Ship-to party LIKP KUNNR

Sold-to party LIKP KUNAG

Posting Status Customized fields ZCHK

If LIKP-WADAT = WADAT_IST, then print "OK", else " Posting Error"

this is a small requirment.plz help me in this it should be in ALV format.

[Former Member]

Hi Kiran ,

i want the coding for this small spec . in alv. can u plz do it for me? plz help me kiran.

[Former Member]

hi .Have u finished ur object. i think from the answers u get u can find it out.

regards

kkr

[Former Member]

Hi,

First get the a data into internal table first then fill the field catalog and give it to FM.

For futher reference <b>Goto to se80 and givepackage slis and see the programs in

slis.</b>type-pools: slis.

data:

i_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat LIKE LINE OF i_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.----

---

> internal-table fieldaname

wa_fieldcat-tabname = 'I_MARA'.-------> Internal table name

wa_fieldcat-reptext_ddic = 'Material no.'.

wa_fieldcat-outputlen = '18'.

APPEND wa_fieldcat TO i_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ERSDA'.

wa_fieldcat-tabname = 'I_MARA'.

wa_fieldcat-reptext_ddic = 'Creation date'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO i_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'ERNAM'.

wa_fieldcat-tabname = 'I_MARA'.

wa_fieldcat-reptext_ddic = 'Name of Person'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO i_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'LAEDA'.

wa_fieldcat-tabname = 'I_MARA'.

wa_fieldcat-reptext_ddic = ' Last Change'.

wa_fieldcat-outputlen = '10'.

APPEND wa_fieldcat TO i_fieldcat.

ENDFORM. " prepare_fieldcatalog

&----

---

*& Form display_alv

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM display_alv .

• Call ABAP List Viewer (ALV)

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

it_fieldcat = i_fieldcat----->fieldcat name

tables

t_outtab = i_mara.------> internal table

ENDFORM. " display_alv

<b> plzzzz reward points if it is useful.</b>

[rajesh_akarte2]

as ur data is comming from a single table u can try the following code:

DATA: I_LIKP TYPE TABLE OF LIKP WITH HEADER LINE.

SELECT vkorg vstel vbeln lfdat lfart wadat wadat_ist kunnr kunag INTO CORRESPONDING FIELDS OF i_likp from LIKP.

*Code to display simple grid dispaly

• Call ABAP List Viewer (ALV)

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_STRUCTURE_NAME = 'LIKP'

TABLES

T_OUTTAB = I_LIKP.

plz arrange the order of fields in internal order as u want.

Reard the points if useful.

Regards,

Rajesh Akarte

[Former Member]

HI Sunita,

Try this code. Dont forget to assign points if useful.

TABLES : likp.

TYPE-POOLS: slis.

SELECTION-SCREEN BEGIN OF BLOCK b1.

SELECT-OPTIONS: s_vkorg FOR likp-vkorg,

s_vstel FOR likp-vstel,

s_vbeln FOR likp-vbeln,

s_lfdat FOR likp-lfdat,

s_lfart FOR likp-lfart ,

s_wadat FOR likp-wadat,

s_wa_ist FOR likp-wadat_ist,

s_kunnr FOR likp-kunnr,

s_kunag FOR likp-kunag.

SELECTION-SCREEN END OF BLOCK b1.

DATA: BEGIN OF itab OCCURS 0.

INCLUDE STRUCTURE likp.

DATA: zchk(20),

END OF itab.

DATA: gt_fcat type slis_t_fieldcat_alv.

SELECT * FROM likp

INTO CORRESPONDING FIELDS OF TABLE itab

WHERE vkorg IN s_vkorg

AND vstel IN s_vstel

AND vbeln IN s_vbeln

AND lfdat IN s_lfdat

AND lfart IN s_lfart

AND wadat IN s_wadat

AND wadat_ist IN s_wa_ist

AND kunnr IN s_kunnr

AND kunag IN s_kunag.

LOOP AT itab.

IF itab-wadat = itab-wadat_ist.

itab-zchk = 'OK'.

ELSE.

itab-zchk = 'Posting Error'.

ENDIF.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = itab

CHANGING

ct_fieldcat = gt_fcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

it_fieldcat = gt_fcat

is_reprep_id = sy-repid

TABLES

t_outtab = itab.