topic Re: Need help in Logic...? in Application Development and Automation Discussions

Need help in Logic...?

Former Member — Fri, 28 Sep 2007 21:10:19 GMT

Experts,

I have written a FM that takes current date and find out all the FI GL Documents that are parked and then check for documents that got posted...I mean parked docs that were posted....

I will attach the code here...I am returning the list of parked and posted docs as two tables...now i want to find the ledgers in which the parked documents got posted....so what shud i include in my code....Please suggest...

FUNCTION Z_FIGL_GL_PARK_TO_POST.

*"----

""Local Interface:

*" IMPORTING

*" VALUE(V_CPUDT) TYPE CPUDT

*" TABLES

*" TB_PARKED STRUCTURE ZSFIGL_PARK_TO_POST

*" TB_POSTED STRUCTURE ZSFIGL_PARK_TO_POST

*"----

select BUKRS BELNR GJAHR from BKPF into TABLE tb_parked where BLART = 'SY'

AND CPUDT eq v_cpudt

AND PPNAM IS NOT NULL.

if sy-subrc = 0.

select BUKRS BELNR GJAHR from BKPF into table tb_posted

for all entries in tb_parked

where BUKRS = tb_parked-v_BUKRS AND

BELNR = tb_parked-v_BELNR AND

GJAHR = tb_parked-v_GJAHR AND

BSTAT = ''.

endif.

ENDFUNCTION.

Message was edited by:

Sam williams

Re: Need help in Logic...?

Former Member — Fri, 28 Sep 2007 22:22:41 GMT

I can get the ledger out of the FAGLFLEXA table but when i fill the TB_posted tablles it shud show the ledger also...

CC Doc NO Year Ledger

1001 7000000789 2007 I1

it has to be displayed like this...is it possible....

Thanks

Re: Need help in Logic...?

Former Member — Fri, 28 Sep 2007 22:27:37 GMT

Yes, it will be possible. You have the docnumber and company code and you can get the ledger from GLFLEXA table and MODIFY your TB_POSTED table.

Sri

Re: Need help in Logic...?

Former Member — Fri, 28 Sep 2007 22:49:28 GMT

Thanks for the reply Sri...how can i do it can u tell me....can u please show it to me ....

Thanks

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 16:52:19 GMT

HI gurus,

How can i do this...kindly help....I can get ledger data from FAGLFLEXA but how shud i modify the internal table so that ledger reflects there...i am trying to do this but each time the loop executes it replaces the ledger value with new one i want to keep each value...

I mean

CC Doc NO Year Ledger

1001 7000000789 2007 I1

I am trying this piece of code but it replaces the ledger value each time the loop executes...

loop at i_LEDGER into wa_LEDGER.

select distinct RLDNR from FAGLFLEXA into (wa_ledger-V_RLDNR) where RBUKRS = wa_LEDGER-v_RBUKRS and

DOCNR = wa_LEDGER-v_DOCNR and

RYEAR = wa_LEDGER-v_RYEAR.

Modify i_ledger FROM wa_ledger.

endselect.

endloop.

What shud i do to get the result....?

Please help...

Thanks

Sam

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 17:29:50 GMT

Sam - what release are you on? Table FAGLFLEXA doesn't exist in 4.7.

Do you mean GLFLEXA?

and how is I_LEDGER filled? You should post that portion of code.

Rob

Message was edited by:

Rob Burbank

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 17:39:36 GMT

Rob, I am on ECC 6.0...

Yaa. i think it is GLFLEXA in 4.7....

Thanks

Sam

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:42:08 GMT

Gurus, kindly provide me some suggestions....

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:44:28 GMT

You didn't answer my question - how is I_LEDGER filled?

Rob

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:46:40 GMT

oK...Let me send u the test code that i have written:

DATA: Begin of i_bkpf occurs 0,

v_bukrs LIKE BKPF-BUKRS,

v_BELNR LIKE BKPF-BELNR,

v_GJAHR LIKE BKPF-GJAHR.

DATA: End of i_bkpf.

DATA: Begin of i_ledger occurs 0,

v_rbukrs LIKE FAGLFLEXA-RBUKRS,

v_docnr LIKE FAGLFLEXA-DOCNR,

v_ryear LIKE FAGLFLEXA-RYEAR,

v_rldnr LIKE FAGLFLEXA-RLDNR.

DATA: End of i_ledger.

DATA: wa_ledger like i_ledger,

wa_bkpf like i_bkpf,

idx like sy-tabix.

select BUKRS BELNR GJAHR from BKPF into TABLE i_vbkpf where BLART = 'SY'

AND CPUDT eq p_cpudt

AND PPNAM IS NOT NULL.

if sy-subrc = 0.

select BUKRS BELNR GJAHR from BKPF into table i_LEDGER

for all entries in i_vbkpf

where BUKRS = i_vbkpf-v_BUKRS AND

BELNR = i_vbkpf-v_BELNR AND

GJAHR = i_vbkpf-v_GJAHR AND

BSTAT = ''.

endif.

loop at i_bkpf into wa_bkpf.
select rldnr from faglflexa into corresponding fields of i_ledger where

loop at i_LEDGER into wa_LEDGER.

select distinct RLDNR from FAGLFLEXA into (wa_ledger-V_RLDNR) where RBUKRS = wa_LEDGER-v_RBUKRS and

DOCNR = wa_LEDGER-v_DOCNR and

RYEAR = wa_LEDGER-v_RYEAR.

Modify i_ledger FROM wa_ledger.

endselect.

endloop.

Let me know what shud i do Rob

Thanks

Sam

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:50:59 GMT

Hey Sam,

Check this out...It should work for you....I have declared an internal table with i_faglflexa to avoid select...endselect and to use For All Entries to fetch all relevant document numbers..


TYPES: BEGIN OF i_faglflexa,
        ryear TYPE faglflexa-ryear,
        docnr TYPE faglflexa-docnr,
        rldnr TYPE faglflexa-rldnr,
       END OF i_faglflexa.
DATA: i_faglflexa TYPE STANDARD TABLE OF i_faglflexa.
DATA: wa_faglflexa LIKE LINE OF i_faglflexa.
DATA: t_tabix TYPE sy-tabix.

IF NOT i_ledger[] IS INITIAL.
  SELECT DISTINCT ryear docnr rldnr FROM FAGLFLEXA
                                    INTO TABLE i_faglflexa
                                    FOR ALL ENTRIES IN i_ledger
                                    WHERE ryear = i_ledger-ryear
                                    AND   docnr = i_ledger-docnr.
ENDIF.

LOOP AT i_ledger INTO wa_ledger.
  t_tabix = sy-tabix.
  READ TABLE i_faglflexa INTO wa_faglflexa
                         WITH KEY ryear = wa_ledger-ryear
                                  docnr = wa_ledger-docnr.
  IF sy-subrc EQ 0  .
    wa_ledger-rldnr = wa_faglflexa-rldnr.
    MODIFY i_ledger FROM wa_ledger INDEX t_tabix.
  ENDIF.
  CLEAR: wa_ledger, wa_faglflexa, t_tabix.
ENDLOOP.

Good Luck!!!

Regards,

Vivek

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:54:59 GMT

Where are you filling the i_ledger in the code??

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:55:19 GMT

But this code is entirely different from the code you first posted in this thread. which code snippet is the problem?

Rob

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:57:33 GMT

May be you can do a JOIN on BKPF and GLFLEXA

Something like:

select bkpf~bukrs bkpf~belnr bkpf~gjahr glflexa~rldnr 
into table i_ledger
from bkpf INNER JOIN glflexa 
  on bkpf~bulrs = glflexa~rbukrs AND 
  bkpf~belnr = glflexa~docnr AND 
  bkpf~gjahr = glflexa~ryear 
FOR ALL ENTRIES IN i_vbkpf
where bkpf~BUKRS = i_vbkpf-v_BUKRS AND
      bkpf~BELNR = i_vbkpf-v_BELNR AND
      bkpf~GJAHR = i_vbkpf-v_GJAHR AND
      bkpf~BSTAT = ''.

Try it.

Sri

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:57:42 GMT

I take back...I didn't notice it..

> Where are you filling the i_ledger in the code??

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 18:58:19 GMT

Rob,

The first code that u see is a FM that i created from the current test code that i posted....

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 19:02:39 GMT

Sri, this code will work but it will give duplicate entries for ledger...a FI GL document gets posted in 3 ledgers I1 L1 L2 for debit and credit enties....

So this code will give: 6 entries back...

1001 7000000034 2007 I1

1001 7000000034 2007 L1

1001 7000000034 2007 L2

Thanks

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 19:05:37 GMT

So for each document, you want an entry in some table for each corresponding entry in the ledger table??

Rob

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 19:06:11 GMT

Then sort and Delete duplicates...

Wont it solve your purpose??

Sri

Re: Need help in Logic...?

Former Member — Mon, 01 Oct 2007 19:09:18 GMT

It will...how shud i do that Sri....can u please tell me....