topic Re: Code help in writing report Program in Application Development and Automation Discussions

Code help in writing report Program

Former Member — Fri, 06 Oct 2006 17:30:22 GMT

Hello experts

I have to write a selection screen program based on the following requirements (only for sales Org:5090, plant:9000, Outbound delivery type= "LF")

Selection parameters:

Material (lips-matnr)

Sold to party(likp-kunag): can hardcode it to 5090

Sales Org(likp-vkorg)

Plant(lips-werks) : hard code it to plant:9000

Sales order(likp-vbeln)

Actual goods movement dates(likp-wadat_ist)

Invoice number

Sales order

Output

material numberlips~matnr ( should Display only S* materials and material type FERT)

Serial number of the device shipped (objk-sernr)

Delivery number (lips~vbeln)
Invoice number (vbrp-vbeln)
Invoice price=Vbrp-vbeln/quantity (invoice price)

Notification number (Viqmel-QMNUm)

KBB Repair Level(VIQMEL-QMTXT from QMCOD )

KBC Repair level(VIQMMA-MNCOD from KBC-SM07 code group(VIQMMA-MNGRP))

code help is higly appreciated,

Thanks

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 17:37:23 GMT

Sorry

the field

<b>KBB Repair Level(VIQMEL-QMTXT from VIQMEL-QMCOD)</b>

Thanks

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:01:48 GMT

Need couple of clarrification...

U said for sales org 5090 and you have shown as hard code that for sold-to-party. Secondly you say sales order but refer to the delivery note field ?

So do you need to get the sales order and the subsequent delivery and invoice ??

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:10:50 GMT

Yes anurag, exactly

Thanks

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:22:36 GMT

Hi anurag,

Code is going like this, i could able to display it but when i run it ABAP Dump is coming.

what could be the reason?

Tahnks

&----

*& Report ZSDR_PRICING_KSE_RPT *

*& *

&----

*& *

&----

REPORT ZSDR_PRICING_KSE_RPT .

************************************************************************

TABLES: likp, lips, vbfa, vbak.

TYPE-POOLS: slis.

*/ Selection and Input Parameters

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-003.

SELECT-OPTIONS: s_matnr FOR lips-matnr,

s_kunag FOR likp-kunag.

SELECT-OPTIONS: s_vkorg FOR likp-vkorg NO INTERVALS,

s_werks FOR lips-werks.

SELECT-OPTIONS: s_vbeln FOR likp-vbeln,

s_waist FOR likp-wadat_ist.

SELECT-OPTIONS: s_vgbel FOR lips-vgbel.

SELECTION-SCREEN END OF BLOCK block2.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.

TYPES: BEGIN OF ty_data,

matnr TYPE lips-matnr,

sernr TYPE equi-sernr,

vbeln TYPE lips-vbeln,

invno TYPE vbfa-vbeln,

qmnum TYPE vbak-qmnum,

netwr type vbrp-netwr,

END OF ty_data.

DATA: gt_data TYPE TABLE OF ty_data WITH HEADER LINE.

TYPES: BEGIN OF ty_lips,

vbeln TYPE likp-vbeln,

matnr TYPE lips-matnr,

wersk TYPE lips-werks,

vgbel TYPE lips-vgbel,

END OF ty_lips.

DATA: gt_lips TYPE TABLE OF ty_lips WITH HEADER LINE.

DATA: gt_vbfa TYPE TABLE OF vbfa WITH HEADER LINE.

DATA: gt_vbrp TYPE TABLE OF vbrp WITH HEADER LINE.

TYPES: BEGIN OF ty_ser01,

lief_nr TYPE ser01-lief_nr,

obknr TYPE ser01-obknr,

sernr TYPE objk-obknr,

END OF ty_ser01.

DATA: gt_ser01 TYPE TABLE OF ty_ser01 WITH HEADER LINE.

START-OF-SELECTION.

PERFORM get_data.

PERFORM display_data.

&----

*& Form get_data

&----

FORM get_data.

SELECT likp_{vbeln lips}matnr lips_{werks lips}vgbel

INTO CORRESPONDING FIELDS OF TABLE gt_lips

FROM likp INNER JOIN lips ON lips_{vbeln = likp}vbeln

WHERE lips~matnr IN s_matnr

AND lips~werks IN s_werks

AND likp~kunag IN s_kunag

AND likp~wadat_ist IN s_waist

AND lips~vgbel IN s_vgbel

AND likp~vkorg IN s_vkorg.

IF NOT gt_lips[] IS INITIAL.

SELECT vbeln vbelv INTO CORRESPONDING FIELDS OF TABLE gt_vbfa

FROM vbfa

FOR ALL ENTRIES IN gt_lips

WHERE vbelv = gt_lips-vgbel

AND vbtyp_n = 'M'.

IF NOT gt_vbfa[] IS INITIAL.

SELECT vbeln matnr netwr

INTO CORRESPONDING FIELDS OF TABLE gt_vbrp

FROM vbrp FOR ALL ENTRIES IN gt_vbfa

WHERE vbeln = gt_vbfa-vbeln.

SELECT ser01_{lief_nr ser01}obknr objk~sernr

INTO CORRESPONDING FIELDS OF TABLE gt_ser01

FROM ser01 INNER JOIN objk ON objk_{obknr = ser01}obknr

FOR ALL entries IN gt_vbfa

WHERE ser01~lief_nr = gt_vbfa-vbeln

AND taser EQ 'SER01'.

ENDIF.

clear: gt_data[].

LOOP AT gt_lips.

LOOP AT gt_vbfa WHERE vbelv = gt_lips-vgbel.

READ TABLE gt_vbrp WITH KEY vbeln = gt_vbfa-vbeln

matnr = gt_lips-matnr.

LOOP AT gt_ser01 WHERE lief_nr = gt_vbfa-vbeln.

gt_data-matnr = gt_lips-matnr.

gt_data-sernr = gt_ser01-sernr.

gt_data-vbeln = gt_lips-vbeln.

gt_data-invno = gt_vbfa-vbeln.

gt_data-netwr = gt_vbrp-netwr.

APPEND gt_data.

ENDLOOP.

ENDFORM. " get_data

&----

*& Form display_data

&----

FORM display_data.

DATA: lv_repid TYPE sy-repid.

lv_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = lv_repid

I_INTERNAL_TABNAME =

i_structure_name = gt_data

I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

ct_fieldcat = gt_fieldcat

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

i_callback_program = lv_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =

it_fieldcat = gt_fieldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = gt_data

EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM.

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:34:03 GMT

select-options : smatnr for mara-matnr,

skunag for likp-kunag,

*similarly define for others.

Sales Org(likp-vkorg)

Plant(lips-werks) : hard code it to plant:9000

Sales order(likp-vbeln)

Actual goods movement dates(likp-wadat_ist)

Invoice number

Sales order.

initialization.

move 'I' to svkorg-sign.

move 'EQ' to svkorg-option.

move '5090' to svkorg-low.

append svkorg.

similarly initialize the other select options as needed.

start-of-selection.

*get sales order data from VBAP.

select vbeln kunag vkorg werks matnr

into table itab

from vbap inner join mara on vbap_{matnr = mara}matnr

where mara~matnr in smatnr and

mara~fert like 'S%'....and other filters.

*Using the above internal table get data from vbfa for delivery notes.

select vbelv into idelv

from vbfa for all entries in itab

where vbeln = itab-vbeln and vgabe = '8'.

*check vgabe=8, i think it points to delivery note

*similarly get the information using idelv and read table vbfa to get invoice.

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:47:10 GMT

Whatz the error ..can you cut-paste the error !!

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:54:24 GMT

anurag

Error anlysis

The call to the function module "REUSE_ALV_FIELDCATALOG_MERGE" is incorrect:

The function module interface allows you to specify only fields

of a particular type under "I_STRUCTURE_NAME". The field "GT_DATA" specified

here

has a different field type.

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:56:44 GMT

ABAP runtime errors CALL_FUNCTION_CONFLICT_TYPE

Occurred on 06.10.2006 at 11:51:50

Source code extract

001320

001330 ENDFORM. " get_data

001340

001350 *& *

001360

001370 *& Form display_data

001380

001390 *& *

001400

001410 FORM display_data.

001420

001430 DATA: lv_repid TYPE sy-repid.

001440 lv_repid = sy-repid.

001450 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

001460 EXPORTING

001470 i_program_name = lv_repid

001480 * I_INTERNAL_TABNAME =

001490 i_structure_name = gt_data

001500 * I_CLIENT_NEVER_DISPLAY = 'X'

001510 * I_INCLNAME =

001520 * I_BYPASSING_BUFFER =

001530 * I_BUFFER_ACTIVE =

001540

001550 CHANGING

001560 ct_fieldcat = gt_fieldcat

001570

001580 * EXCEPTIONS

001590 * INCONSISTENT_INTERFACE =

1 001590 * INCONSISTENT_INTERFACE = 1

001600 * PROGRAM_ERROR = 2

001610 * OTHERS = 3

> .

001630 IF sy-subrc <> 0.

001640

001650 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER

001660 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4

001670

001680 ENDIF.

001690

001700 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

001710

001720 EXPORTING

001730

001740 * I_INTERFACE_CHECK = ' '

001750 * I_BYPASSING_BUFFER =

001760 * I_BUFFER_ACTIVE = ' '

001770 i_callback_program = lv_repid

001780 * I_CALLBACK_PF_STATUS_SET = ' '

001790 * I_CALLBACK_USER_COMMAND = ' '

001800 * I_STRUCTURE_NAME =

001810 * IS_LAYOUT =

Re: Code help in writing report Program

Former Member — Fri, 06 Oct 2006 18:58:52 GMT

I am not connected to SAP at the moment but you can try to pass the structure of gt_data..ie ty_data instead of gt_data.

Re: Code help in writing report Program

Former Member — Mon, 09 Oct 2006 16:56:34 GMT

Hello experts,

Could you please put the above in a code format..

Thanks