topic Re: Help, something wrong in this simple code. in Application Development and Automation Discussions

Help, something wrong in this simple code.

Former Member — Thu, 20 Sep 2007 21:51:38 GMT

Hi, im not an ABAP developer, and i dont have to who ask...

I know that the problem is when i multiply KONV-KWERT * 100.

but i dont konw how to solve this... please..someone.

REPORT Z_GESTION_CONDIC.

type-pools: slis.

DATA: BEGIN OF i_full,

vbeln TYPE vbak-vbeln,

posnr TYPE vbap-posnr,

knumv TYPE vbak-knumv,

name1 type kna1-name1,"nombre cLiente

ernam type vbak-ernam,"nombre usuario creador

erdat type vbak-erdat,"fechade creacion

vdatu type vbak-vdatu,"fecha preferente entrega

auart type vbak-auart,"clase de documento

pstyv type vbap-pstyv,"tipo de posicion

netwr type vbap-netwr,"valor neto de la posicion

matnr type vbap-matnr,"codigo de material

arktx type vbap-arktx,"descripcion del material

kwmeng type vbap-kwmeng,"cantidad de pedido

vrkme type vbap-vrkme,"unidad de medidad de venta

kschl type konv-kschl,"clase de condicion

kwert type konv-kwert,

kposn type konv-kposn,"posicion del Doc. de ventas.

kunnr type kna1-kunnr,"ni idea.

vkorg type vbak-vkorg,

vtweg type vbak-vtweg,

spart type vbak-spart,

waers TYPE konv-waers,

END OF i_full.

DATA: it_join LIKE TABLE OF i_full,

LI_join LIKE LINE OF it_join.

DATA: BEGIN OF i_kondition,

vbeln TYPE vbap-vbeln,

posnr TYPE vbap-posnr,

knumv TYPE vbak-knumv,

name1 type kna1-name1,"nombre cLiente

ernam type vbak-ernam,"nombre usuario creador

erdat type vbak-erdat,"fechade creacion

vdatu type vbak-vdatu,"fecha preferente entrega

auart type vbak-auart,"clase de documento

pstyv type vbap-pstyv,"tipo de posicion

netwr type vbap-netwr,"valor neto de la posicion

matnr type vbap-matnr,"codigo de material

arktx type vbap-arktx,"descripcion del material

kwmeng type vbap-kwmeng,"cantidad de pedido

vrkme type vbap-vrkme,"unidad de medidad de venta

kschl type konv-kschl,"clase de condicion

kwert type konv-kwert,

kposn type konv-kposn,"posicion del Doc. de ventas.

kunnr type kna1-kunnr,"ni idea.

vkorg type vbak-vkorg,

vtweg type vbak-vtweg,

spart type vbak-spart,

waers TYPE konv-waers,

END OF i_kondition.

DATA: it_kondition LIKE TABLE OF i_kondition,

it_konv LIKE TABLE OF i_kondition,

it_final LIKE TABLE OF i_kondition,

LI_konv LIKE LINE OF it_kondition.

Heading of the report.

data: t_heading type slis_t_listheader.

**=======================================================================

Selection screen

**=======================================================================

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS:s_vbeln for LI_join-vbeln, "Documento de ventas

s_posnr for LI_join-posnr, "Posicion del doc de ventas

s_auart for LI_join-auart, "clase de doc.

s_vkorg for LI_join-vkorg, "org. de ventas

s_vtweg for LI_join-vtweg, "Canal

s_spart for LI_join-spart, "sector

s_pstyv for LI_join-pstyv, "tipo de posicion

s_kschl for LI_join-kschl, "clase de condicion

S_kunnr for LI_join-kunnr. "Nº de cliente 1

SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

PERFORM kondition_lesen.

PERFORM build_alv using it_kondition t_heading.

*----

FORM kondition_lesen *

*----

FORM kondition_lesen.

SELECT vbak~vbeln vbak~ernam vbak~erdat vbak~vdatu vbak~auart vbak~knumv

vbap~posnr vbap~pstyv vbap~netwr vbap~matnr vbap~arktx vbap~kwmeng vbap~vrkme

kna1~name1 kna1~kunnr

FROM vbak

inner join vbap as vbap on vbak~vbeln = vbap~vbeln

inner join kna1 as kna1 on kna1~kunnr = vbak~kunnr

INTO CORRESPONDING FIELDS OF TABLE it_join

WHERE vbak~vbeln in s_vbeln

AND vbak~auart in s_auart

AND vbak~vkorg in s_vkorg

AND vbak~vtweg in s_vtweg

AND vbak~spart in s_spart

AND vbap~posnr in s_posnr

AND vbap~pstyv in s_pstyv

AND kna1~kunnr in s_kunnr.

LOOP AT it_join INTO LI_join.

SELECT knumv kposn kschl kbetr waers kwert

FROM konv

INTO CORRESPONDING FIELDS OF TABLE it_konv

WHERE knumv EQ LI_join-knumv

AND kposn EQ LI_join-posnr.

LOOP AT it_konv INTO LI_konv.

if LI_konv-kwert <> '0'.

LI_konv-vbeln = LI_join-vbeln.

LI_konv-name1 = LI_join-name1.

LI_konv-ernam = LI_join-ernam.

LI_konv-erdat = LI_join-erdat.

LI_konv-vdatu = LI_join-vdatu.

LI_konv-auart = LI_join-auart.

LI_konv-posnr = LI_join-posnr.

LI_konv-pstyv = LI_join-pstyv.

LI_konv-netwr = LI_join-netwr.

LI_konv-matnr = LI_join-matnr.

LI_konv-arktx = LI_join-arktx.

LI_konv-kwmeng = LI_join-kwmeng.

LI_konv-vrkme = LI_join-vrkme.

LI_konv-kschl = LI_konv-kschl.

LI_konv-kwert = LI_konv-kwert * 100. "HERE IS THE PROBLEM!!

APPEND LI_konv TO it_final.

endif.

ENDLOOP.

ENDFORM. "kondition_lesen

*&----

*& Form build_alv

*&----

Builds and display the ALV Grid.

*----

form build_alv using it_kondition

t_heading type slis_t_listheader.

ALV required data objects.

data: w_title type lvc_title,

w_repid type syrepid,

w_comm type slis_formname,

w_status type slis_formname,

x_layout type slis_layout_alv,

t_event type slis_t_event,

t_fieldcat type slis_t_fieldcat_alv,

t_sort type slis_t_sortinfo_alv.

refresh t_fieldcat.

refresh t_event.

refresh t_sort.

clear x_layout.

clear w_title.

Field Catalog

perform set_fieldcat2 using:

1 'VBELN' 'VBELN' 'VBAK' space space space space space space space space space space space space t_fieldcat ,

2 'NAME1' 'NAME1' 'KNA1' space space space space space space space space space space space space t_fieldcat ,

3 'ERNAM' 'ERNAM' 'VBAK' space space space space space space space space space space space space t_fieldcat ,

4 'ERDAT' 'ERDAT' 'VBAK' space space space space space space space space space space space space t_fieldcat ,

5 'VDATU' 'VDATU' 'VBAK' space space space space space space space space space space space space t_fieldcat ,

6 'AUART' 'AUART' 'VBAK' space space space space space space space space space space space space t_fieldcat ,

7 'POSNR' 'POSNR' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

8 'PSTYV' 'PSTYV' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

9 'NETWR' 'NETWR' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

10 'MATNR' 'MATNR' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

11 'ARKT' 'ARKT' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

12 'KWMENG' 'KWMENG' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

13 'VRKME' 'VRKME' 'VBAP' space space space space space space space space space space space space t_fieldcat ,

14 'KSCHL' 'KSCHL' 'KONV' space space space space space space space space space space space space t_fieldcat ,

15 'KWERT' 'KWERT' 'KONV' space space space space space space space space space space space space t_fieldcat .

Top of page heading
perform set_top_page_heading using t_heading t_event.

Events

perform set_events using t_event.

GUI Status

w_status = ''.

w_repid = sy-repid.

Title
w_title = <<If you want to set a title for
the ALV, please, uncomment and edit this line>>.

User commands

w_comm = 'USER_COMMAND'.

Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.

Displays the ALV grid

call function 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = w_repid

it_fieldcat = t_fieldcat

is_layout = x_layout

it_sort = t_sort

i_callback_pf_status_set = w_status

i_callback_user_command = w_comm

i_save = 'X'

it_events = t_event

i_grid_title = w_title

TABLES

t_outtab = it_final

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. " build_alv.

*&----

*& Form set_top_page_heading

*&----

Creates the report headings.

*----

form set_top_page_heading using t_heading type slis_t_listheader

t_events type slis_t_event.

data: x_heading type slis_listheader,

x_event type line of slis_t_event.

Report title

clear t_heading[].

clear x_heading.

x_heading-typ = 'H'.

x_heading-info = ''(001).