topic Re: ALV...I need solution in Application Development and Automation Discussions

ALV...I need solution

Former Member — Fri, 27 Jul 2007 13:26:11 GMT

hi,

these are steps..

Based on selection parameters first fetch the required fields data from VBRK and VBRP using join condition excluding cancelled invoices.

Fetch the description data from the following:

Customer Group Desc-T151T.

Material Group Desc-T028T.

Material Long Description-MAKT-MAKTX, SPRAS = ‘EN’.

Now for each line item the following needs to be done.

Check out the Display weight unit value in table MARM. If exist then calculate the Display weight quantity with the formula = (MARM-UMREZ* Item Sales qty)/ MARM-UMREN.

Similarly fetch the Pricing conditions for each line item using Standard FM and populate the appropriate Condition value in internal table.

After fetching all the data for items of table display the data in the specified format.

plz go ahead ur code but i need out like these....

Customer Group,

Customer Group Description,

Material group,

Material group Description,

Material,

Material Short Description,

Material Long Description,

Customer,

Customer Name,

Sales Quantity (Invoice Qty),

Unit of Measure(invoice Qty),

Quantity in Wt,

Unit of Measure(Quantity in Wt),

All Pricing Conditions.

REPORT ZTT.

TYPE-POOLS: SLIS.

TABLES : vbrk, " Billing Document Header

vbrp, " Billing Document Item

t151t," Customers: Customer groups

t023t," Material Group Descriptions

makt, " Material Descriptions

marm, " Units of Measure for Material

kna1. " Custmer Master (General Data)

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat,

s_matkl FOR vbrp-matkl,

s_werks FOR vbrp-werks,

s_kunrg FOR vbrk-kunrg,

s_matnr FOR vbrp-matnr,

s_fkart FOR vbrk-fkart.

PARAMETERS : p_meins LIKE vbrp-meins DEFAULT 'TO'.

PARAMETERS : p_var LIKE disvariant-variant. " obligatory.

SELECTION-SCREEN END OF BLOCK b1.

CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

DATA: BEGIN OF INV OCCURS 0,

vbeln TYPE vbrk-vbeln,

fkart TYPE vbrk-fkart,

kunrg TYPE vbrk-kunrg, " Customer

kdgrp TYPE vbrk-kdgrp, " Customer Group

matkl TYPE vbrp-matkl, " Material Group

matnr TYPE vbrp-matnr, " Material

meins TYPE vbrp-meins,

knumv TYPE vbrk-knumv,

arktx TYPE vbrp-arktx, " Material Short Description

vrkme TYPE vbrp-vrkme, " Sales Quantity Unit

fkimg TYPE vbrp-fkimg, " Sales Quantity

ktext TYPE t151t-ktext, " Customer Group Description

wgbez TYPE t023t-wgbez, " Material Group Description

maktx TYPE makt-maktx, " Material Long Description

name1 TYPE kna1-name1, " Customer Name

umrez TYPE marm-umrez,

umren TYPE marm-umren,

gewei TYPE marm-gewei,

meinh TYPE marm-meinh,

kschl1 TYPE konv-kschl,

kbetr1 TYPE konv-kbetr,

kwert1 TYPE konv-kwert,

kschl2 TYPE konv-kschl,

kbetr2 TYPE konv-kbetr,

kwert2 TYPE konv-kwert,

kschl3 TYPE konv-kschl,

kbetr3 TYPE konv-kbetr,

kwert3 TYPE konv-kwert,

kschl4 TYPE konv-kschl,

kbetr4 TYPE konv-kbetr,

kwert4 TYPE konv-kwert,

kschl5 TYPE konv-kschl,

kbetr5 TYPE konv-kbetr,

kwert5 TYPE konv-kwert,

W_QUANT TYPE VBRP-FKIMG,

P_QUANT LIKE VBRP-fkimg,

posnr type vbrp-posnr,

w_cond type n,

w_valu LIKE vbrp-fkimg,

END OF INV.

DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

HEADING TYPE SLIS_T_LISTHEADER,

LAYOUT TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT,

REPNAME LIKE SY-REPID,

F2CODE LIKE SY-UCOMM VALUE '&ETA',

G_SAVE(1) TYPE C,

G_EXIT(1) TYPE C,

G_VARIANT LIKE DISVARIANT,

GX_VARIANT LIKE DISVARIANT.

INITIALIZATION.

REPNAME = SY-REPID.

PERFORM INITIALIZE_FIELDCAT USING FIELDTAB[].

PERFORM BUILD_EVENTTAB USING EVENTS[].

PERFORM BUILD_COMMENT USING HEADING[].

PERFORM INITIALIZE_VARIANT.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VAR.

PERFORM F4_FOR_VARIANT.

AT SELECTION-SCREEN.

PERFORM PAI_OF_SELECTION_SCREEN.

START-OF-SELECTION.

PERFORM GET_T_FINAL.

PERFORM GET_T151T.

PERFORM GET_KNA1.

PERFORM GET_MARM.

PERFORM GET_MAKT.

PERFORM GET_T023T.

PERFORM GET_PRICE.

END-OF-SELECTION.

PERFORM BUILD_LAYOUT USING LAYOUT.

PERFORM WRITE_OUTPUT.

&----

*& Form INITIALIZE_FIELDCAT

&----

text

----

-->P_FIELDTAB[] text *

----

FORM INITIALIZE_FIELDCAT USING P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.

DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

CLEAR L_FIELDCAT.

L_FIELDCAT-TABNAME = 'INV'.

L_FIELDCAT-col_pos = 1.

L_FIELDCAT-fieldname = 'KDGRP'.

L_FIELDCAT-seltext_m = 'Customer Group'.