topic Need help in Select statements in Application Development and Automation Discussions

Need help in Select statements

Former Member — Thu, 07 Feb 2008 08:12:56 GMT

Hi,

1.I have tried using this code to fetch the values, but it shows runtime error..I need to fetch values from vbak as well as vbap .The condition is when I execute without any values in select options..it should display'please enter atleast one field' also if i enter any invalid entry it should show ' enter a valid entry' and thats what I have tried here.

2. Also I need to check del block or billing block LIFSK , FAKSK = 'x' and always group by document type and print the total of net value.

Plz review the code give me a suitable solution pls..its very urgent..

thanks in advance.


tables : vbak,vbap.

data : begin of itab_vbak occurs 0,
       vbeln(10) type c,
       auart(4) type c,
       netwr(15) type c,
       waerk(5) type c,
       end of itab_vbak.

data : begin of itab_vbap occurs 0,
       zmeng(13) type c,
       zieme(3) type c,
       posnr(6) type c,
       matnr(18) type c,
       end of itab_vbap.

data : it_vbak type table of vbak,
       it_vbap type table of vbap.

select-options : s_vbeln for vbak-vbeln,
                 s_vkorg for vbak-vkorg,
                 s_vtweg for vbak-vtweg,
                 s_spart for vbak-spart.


start-of-selection.

select vbeln auart netwr from vbak into itab_vbak where vbeln in s_vbeln
.

move :  vbak-vbeln to itAB_vbak-vbeln,
        vbak-auart to itab_vbak-auart,
        vbak-netwr to itab_vbak-waerk.

append itab_vbak.

clear itab_vbak.

endselect.


IF   s_vbeln is initial and
     s_vkorg is initial and
     s_vtweg is initial and
     s_spart is initial.

    MESSAGE e000(zam).

  ENDIF.

  IF not s_vbeln[] is initial.

   select * from vbak into table it_vbak where vbeln in s_vbeln.

    IF sy-subrc NE 0.

      MESSAGE e001(zam).

       ENDIF.

   else.


    if not s_vkorg[] is initial.

      select * from vbak into table it_vbak where vkorg in s_vkorg.

         if sy-subrc NE 0.

         message e002(zam).

         endif.

         endif.


     if not s_vtweg[] is initial.

        select * from vbak into table it_vbak where vtweg in s_vtweg.

          if sy-subrc NE 0.

          message e003(zam).

          endif.

          endif.

     if not s_spart[] is initial.

        select * from vbap into table it_vbap where spart in s_spart.

        if sy-subrc NE 0.

        message e004(zam).

        endif.

        endif.

  ENDIF.

  loop at itab_vbak.

write : /25 itab_vbak-vbeln, /30 itab_vbak-auart,/40 itab_vbak-netwr.

endloop.

Edited by: Alvaro Tejada Galindo on Feb 7, 2008 8:46 AM

Re: Need help in Select statements

Former Member — Thu, 07 Feb 2008 13:57:51 GMT

hi,

chk this....



tables : vbak,vbap.

data : begin of itab_vbak occurs 0,
vbeln like vbak-vbeln,
auart like vbak-auart,
netwr like vbak-netwr,
waerk like vbak-waerk,
end of itab_vbak.

data : begin of itab_vbap occurs 0,
zmeng(13) type c,
zieme(3) type c,
posnr(6) type c,
matnr(18) type c,
end of itab_vbap.

data : it_vbak type table of vbak,
it_vbap type table of vbap.

select-options : s_vbeln for vbak-vbeln,
s_vkorg for vbak-vkorg,
s_vtweg for vbak-vtweg,
s_spart for vbak-spart.

at selection-screen.

IF s_vbeln is initial and
s_vkorg is initial and
s_vtweg is initial and
s_spart is initial.

MESSAGE e000(zam).

ENDIF.


IF not s_vbeln[] is initial.

select * from vbak into table it_vbak where vbeln in s_vbeln.

IF sy-subrc NE 0.

MESSAGE e001(zam).

ENDIF.

else.

if not s_vkorg[] is initial.

select * from vbak into table it_vbak where vkorg in s_vkorg.

if sy-subrc NE 0.

message e002(zam).

endif.

endif.

if not s_vtweg[] is initial.

select * from vbak into table it_vbak where vtweg in s_vtweg.

if sy-subrc NE 0.

message e003(zam).

endif.

endif.

if not s_spart[] is initial.

select * from vbap into table it_vbap where spart in s_spart.

if sy-subrc NE 0.

message e004(zam).

endif.

endif.

ENDIF.


start-of-selection.

select vbeln auart netwr waerk from vbak
       into table itab_vbak
       where vbeln in s_vbeln.



*move : vbak-vbeln to itAB_vbak-vbeln,
*vbak-auart to itab_vbak-auart,
*vbak-netwr to itab_vbak-waerk.
*
*append itab_vbak.
*
*clear itab_vbak.
*

loop at itab_vbak.

write : /25 itab_vbak-vbeln, 30 itab_vbak-auart, 40 itab_vbak-netwr.

endloop.

do reward if it helps,

priya.

Edited by: Priya Parvathi Jammalamadaka on Feb 7, 2008 2:59 PM

Re: Need help in Select statements

Former Member — Thu, 07 Feb 2008 13:59:12 GMT

Change the data type of netwr from character to NETWR. It will work.

Ex:

data : begin of itab_vbak occurs 0,

vbeln(10) type c,

auart(4) type c,

netwr type NETWR,

waerk(5) type c,

end of itab_vbak.

Re: Need help in Select statements

Former Member — Thu, 07 Feb 2008 14:02:02 GMT

Hi,

Need to use AT SELECTION-SCREEN ON Field for individual fied to check for the valid entry.

You can use AT SELECTION-SCREEN event to check and raise error message if all the vlauees are empty.

Later you need to use START-OF_SELECTION.

KindRegards,

khader.