Transport values

Hi
I have a report where i need to have a subtotal by page, without grouping a field. I've made a manual running total for this but it's not working... Sometimes it counts an item ahead sometimes an item less
this is my layout for instance 2 pages:
page header:
Subtotal value: 0
details:
item1 100u20AC
item2 300u20AC
page footer:
Value for next page: 400u20AC
page2
page header:
Subtotal value: 400u20AC
details:
item3 50u20AC
page footer:
value for next page: 450u20AC
page3
page header:
Subtotal Value: 450u20AC
.... and so on
it works great when in my detail i don't have any text or so but if an item description is big and passes to other page, subtotals become all wrong...
If anyone can help thanks

Use WhileReadingRecords

Similar Messages

How to Add Transport Value in TAX CODE

Hi Experts
I define the code BED 8 %, Ecess 2 % HEC 1 % & VAT 4% but i want to add Transport value in that TAX CODE.SO could you tell me How to define the Transport Value in these Tax Code.
Regards
Amol

Hi Amol ,
Pls make the tax code accordingly
As per your querry
There are two options in the row level activate the Freight 1 Freight tax , frieght total
say suppose
item is X, unit price 100 quantity is 10 then total is 1000 and tax code is BED 16 ecess 1 cess 2 and cst 4% so your total is 1211.39 and if transport charges is 20 and the tax code is same.
Do make the new Tax Code change in the formula base amt which is your freight amount
Hope this helps
Ashish Gupte

How is "current transport value" calculated?

We had an issue recently where I work where an officer started having connectivity problems. This office has a VPN router with an IPsec tunnel to access the main network because they're located several hours away. (The hub router is a 3945, the office has a 2800 series router.) This worked fine for years but about a month ago with no changes to the network they started having issues with VOIP and web access.
While troubleshooting we adjusted the MTU on the workstation and found that it worked fine at 1380, but when we set the adjust-mss on the tunnel to 1380 it didn't work for all the affected computers.
We tried various settings on the adjust-mss and the ip mtu until we got one that worked, but if we went too high on the MTU we got message saying out setting was "higher than the current transport value of 1414, fragmentation will occur."
This was six lower than 1420, the IP MTU setting that was originally there. We dropped the ip tcp adjust-mss to 1374 and it worked.
It looks like the "current transport value" is what changed, but I can't find any way to see what the value is on either router and I don't know what goes into finding this value. Does anyone know the command to view it and what determines it?

You're making a confusion between MTU and MSS.
MTU = maximum IP datagram size the layer 2 can carry,
MSS = maximum TCP segment size.
On a usual Ethernet Link MTU=1500 bytes. MSS = 1500 - 20 (IP header) - 20 (TCP header) = 1460 bytes.
When using tunnels, you've got to take into account the added encapsulation. With GRE for instance (which I know better than IPSec), you've got 24 bytes more to take into account.
On a router, with a PPP interface with 1500 bytes MTU, if you enable GRE the GRE tunnel will have a MTU of 1476 bytes because each user datagram will receive an additionnal IP+GRE header (+24bytes).
MSS is then 1436 bytes (1436 + 40= 1476) and you can avoid IP fragmentation by setting tcp mss adjust to 1436 for tcp traffic (nothing can be done for big UDP packets).
Same thing with IPSec. Depending of the encapsulation (ESP, tunnel, transport...), you had X bytes of additionnal header.
On a WAN PPP interface having a MTU of 1500 bytes, a tunnel going thru the PPP interface toward its destination will detect a transport MTU of 1500 bytes (MTU of the outgoing transport interface, the PPP interface), and will set its own MTU at 1500 - X bytes (MTU of outgoing interface minus additionnal bytes of tunnel encapsulation). You can set mss adjust to Transport (here 1500) - (X) - (40).
Hope this helps.

Transporting Value mappings

Hi,
We are using the Value Mapping replication functionality to maintain Value Mappings in a PI 7.1 system.
How do we transport the values we maintain from Dev to QA and beyond? Will these be visible to transport in the Integration Directory, or should we look at transporting the source data (and then re-replicating in PI)?
Cheers
Manish

> What we are struggling with is... do we transport the data across to the other environments, or do we manually re-enter and replicate in each environment? Transport of a table will probably work with an initial load, but what about delta changes that occur to the data? They are trickier to manage.
You have to transport the ABAP report and Ztables if any. We do not trasport the data accross other environments. Once you transport the report just run it, the data will automatically come itno run time workbech under cache monitoring.
>It would be so much easier if the Integration Directory allowed transport from one PI environment to the next for data maintained via the replication mechanism.
>
You can transport from ID only when you are using the value mapping group.
> However, there is an even broader issue here... as a post-go-live policy, do we ask the business users to maintain the data in Dev and transport them across the landscape, or do we allow them to maintain values directly in production?
The data in Dev & Production is never same so you will not transport it from Dev to PRD, so end user should maintain the correct data into production system.
Regards,
Sarvesh

Transport value mapping

Hi,
I wonder if it is possible to transport a value mapping from Dev->Qa->Prod or if I have to remake it in each system?
Best Regards
Claes

Actually, you can transport the value mappings you defined in the Integration Directory. You can find them under Tools -> Export Configuration Objects, select 'Individual Objects' and type 'Value Mapping Group'.
The difficulty is that, if you did not define a group name for your mapping, you will only see object IDs here.

Text of Overall Transportation value

Hi Gurus,
Can anyone tell me where to find the Overall Transportation status Text. Table VTTK has a field STTRG. It has values 0-7 but i want to know the Description of the values .
where to find the descroption values.From which table?
Thanks in advance.
Regards,
Abhishek

You can find it in the Domain STTRG :
0     Planned
1     Planning completed
2     Check-in
3     Loading start
4     Loading end
5     Shipment completion
6     Shipment start
7     Shipment end
Patil

Stepe involved in Transport Value Fields.

Hi all,
I have created a Value field which i have assigned to operating concern. now i want to transport the changes to quqlity system for testing. I am using TCode Ka3i to created transport request. After creating transport request i get CHOOSE DEPENENT OBJECT CLASSES . which fields should i choose to transport the value fields? should i select the structure ABAP Repository Objects as default?
Please provide me step by step process for transporting the value fields.
Thanks,
Naveen

Dear Naveen,
You must be using transaction KE3I. You can select the Operating concern >Execute >Select Structures: ABAP Repository objects.
However, you need to re-concile the Production system with development and ensure that the only intended changes are overwritten.
Kind Regards
Umapathi G

Transporting Value Mapping

Hi All,
We would like to Move our Value Mappings that have been maintained in DEV to QA system using Export / Import.
Has anybody tried using Export / Import to Move the Value MAps. What is the way to achive this movement of Value Mappings from DEV to QA.
Thanks
Arun

Hi,
Have a look into this thread-
Export/Import the mapping value used in Value Mapping Function
http://help.sap.com/saphelp_nw04/helpdata/en/13/ba20dd7beb14438bc7b04b5b6ca300/content.htm
Hope this helps,
Regards,
Moorthy

New Value fields created in existing opr struc problem in transport request

Hi,
I have created new value fields in existing operating structure but system has now created any transport request for value field creation also for value field activation and later on operating concern generation on development environment.
What is the other way of doing transporting value field (also activation of same) from Dev to QA?
Regards,
Sayujya

Hi,
Creation of new value field or characterisitics will not generate any Transport request. Goto transaction KE3I and create transport request.
Regards,
Sreekanth

In FMDERIVE does the "Overwrite w/New Value"...

...button impact automatic Status Indicator on transactions.
Heres the situation. We had a major re-organization and I set up an LSMW to transfer asset value from assets linked to an old Cost Center to a new asset shell linked to a new Cost Center. This was done after the configuration was changed in FMDERIVE for the Internal Order/Funded Program fields where the Fnded Program field was set to Overwrite with New Value. This was done to accomodate the copy function in Purchase Orders and Purchase Requisitions when original order data changes from the time of origination to the time of realization.
It appears when we changed the configuration in FMDERIVE it stopped posting "Statistical" documents in FM and now everything is posting as real. Can someone explain if indeed that "Iverwriute New Value" button is somehow linked to the Statistical vs. Real button?

We finally discovered the problem. In our FMDERIVE table we have an assignement configured for all Asset transaction types to post to a Statistical Commitment Item. In our "Gold" client for some reason the "values" are blank for this assignment. When the transport for the Order/Funded Program rule were transported a pop up window requests, "Do you want to transport values?". This was answered YES. As a resulte the 18 values in the Quality and Production system in the Asset Transaction Type assignment were all wiped out. Evidently, our organization has a policy to update values manually in Quality & Production.
I disagree with this philosophy so we will be addressing the issue that the Table is not identical to what is in Production.
Thanks for your help.
Dan

Urgent Regarding round off values in script

Hi Gurus,
I want to display round off values in total amount . Order conformation
i wrote one suroutine but it is not working , it is going for dump.
Eg:- total amount = 10004.49 it should display in 10004.
         total amount                 = 10004.51 it should display in 10005.
Plz help.
REPORT ZVALUES.
tables:komk.
form round TABLEs INTAB Structure ITCSY
                                     OUTTAB structure ITCSY.
data: w_fkwrt type fkwrt,
         w_fkwr type fkwrt.
read table intab with key name = 'KOMK-FKWRT'.
if sy-subrc = 0.
w_fkwrt = intab-value.
w_fkwr = ceil( w_fkwrt ).
outtab-value = w_fkwr.
condense outtab-value.
modify outtab transporting value.
endif.
endform.
in layout i call this subroutine like this.
/:DEFINE &KOMK-FKWRT1& := &KOMK-FKWRT&.
/:PERFORM ROUND IN PROGRAM ZVALUES.
/:USING &KOMK-FKWRT&.
/:CHANGING &KOMK-FKWRT1&.
/:ENDPERFORM.
SU Final amount,,,,,,,,,,,,,,,,&KOMK-FKWRT(I13)&
Thanks & Regards,
Vamshi

Use this FM
CALL FUNCTION 'HR_IN_ROUND_AMT'
EXPORTING
    amount        = p_amt
    rndoff        = '100'.
   RNDLMT        = 'N'
IMPORTING
   RETAMT        =
   DLTAMT        =

Value mapping to excel sheet

Hi experts,
we want to download the details of value mapping in excel sheet .
Can you give us this solution.
regards
durai

Hi Durai,
Go through the following links to get an overview:
Transports value mapping tables
http://help.sap.com/saphelp_nw04/helpdata/en/13/ba20dd7beb14438bc7b04b5b6ca300/frameset.htm
https://www.sdn.sap.com/irj/sdn/elearn?rid=/webcontent/uuid/a680445e-0501-0010-1c94-a8c4a60619f8 [original link is broken]
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/9202d890-0201-0010-1588-adb5e89a6638
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/190eb190-0201-0010-0ab3-e69f70b6c257
I think they may help you.
Regards,
Jyothi.

Post values from selection screen into vkm5 transaction

Hi all,
i need to create a report , when user enters values in the selection screen of that report, that values must be transported into a transaction VKM5 and then that transported values must be updated in a ztable.
ex:
in selection screen if user enter doc no:xxxxxx
                                                     date: 20.09.2011
                                                     Reason for release: some text
then that doc no: xxxxx must be transported into vkm5 transaction and that values(selection screen values) must be uploaded into a ztable.
i tried the below code
TABLES: ZVKM5.
data: IT_ZVKM5 type standard table of ZVKM5,
      WA_ZVKM5 type ZVKM5.
PARAMETERS    : S_VBELN LIKE ZVKM5-VBELN ,
                s_date LIKE zvkm5-bldat ,
                s_text LIKE zvkm5-text .
call transaction 'VKM5'.
*LOOP AT IT_ZVKM5 INTO WA_ZVKM5.
   WA_ZVKM5-VBELN = S_VBELN.
   WA_ZVKM5-bldat = S_DATE.
   WA_ZVKM5-text = S_TEXT .
   modify ZVKM5 from table IT_ZVKM5.
if sy-subrc = 0.
endif.
*ENDLOOP.
Kindly suggest me,
thanks in advance,
ben2012.

Thanks to all ,
Solved by me.
REPORT ZVKM5.
TABLES: ZVKM5, vbuk.
types: begin of ty_zvkm5 ,
       vbeln type VBELN_VL,
       BLDAT type BLDAT,
       TEXT type TEXT,
       UNAME TYPE CDUSERNAME,
end of ty_zvkm5.
TYPES: BEGIN OF TY_CDHDR,
       OBJECTID TYPE CDOBJECTV,
END OF TY_CDHDR.
DATA: IT_CDHDR TYPE TABLE OF TY_CDHDR,
      WA_CDHDR TYPE TY_CDHDR.
data: IT_ZVKM5 like ZVKM5 occurs 0 with header line,
      WA_ZVKM5 type ty_ZVKM5.
DATA: bdcdata_wa TYPE bdcdata,
        bdcdata_tab TYPE TABLE OF bdcdata.
data: date type STRING.
PARAMETERS    : S_VBELN LIKE ZVKM5-VBELN ,
                s_date LIKE zvkm5-bldat ,
                s_text LIKE zvkm5-text .
      CLEAR bdcdata_wa.
      bdcdata_wa-program = 'RVKRED05'.
      bdcdata_wa-dynpro   = '1000'.
      bdcdata_wa-dynbegin = 'X'.
      APPEND bdcdata_wa TO bdcdata_tab.
      CLEAR bdcdata_wa.
      bdcdata_wa-fnam = 'BDC_CURSOR'.
      bdcdata_wa-fval = 'VBELN-LOW'. " pass the field name
      APPEND bdcdata_wa TO bdcdata_tab.
      CLEAR bdcdata_wa.
      bdcdata_wa-fnam = 'VBELN-LOW'. " pass the field name
      bdcdata_wa-fval = S_VBELN. " pass the date here
      APPEND bdcdata_wa TO bdcdata_tab .
call transaction 'VKM5' using bdcdata_tab .
REFRESH IT_ZVKM5.
SELECT OBJECTID
        FROM CDHDR INTO TABLE IT_CDHDR.
LOOP AT IT_CDHDR INTO WA_CDHDR.
IF WA_CDHDR-OBJECTID = S_VBELN.
move s_vbeln to it_zvkm5-vbeln.
move S_date to it_zvkm5-bldat.
move s_text to it_zvkm5-text.
MOVE SY-UNAME TO IT_ZVKM5-UNAME.
append it_zvkm5 to it_zvkm5.
modify zvkm5 from table it_zvkm5.
UPDATE zvkm5.
ENDIF.
ENDLOOP.
CLEAR: S_VBELN, S_DATE, S_TEXT.

Re-Transport Clarification in BCS

Hi All
due to some Issues in Original Transport, I want to Create Manual Transport for Data Basis,Consolidation Area and Special Version.
During Manual Transport on Data Basis( Right Click on DB and Select TRANSPORT) reached to the Following Options
Data Basis ( What is My Selection for 3 Tasks in Selections)
1. DELETE Selected Values
2. DELETE Transported Values
3. Overwrite(GRAY Out)
Consolidation Area
1. DELETE Selected Values
2. DELETE Transported Values
3. Overwrite(NO GRAY Out)
Special Version
1. DELETE Selected Values
2. DELETE Transported Values
3. Overwrite(NO Gray Out)
Your Help really Appreciated
Thx
Ramana

Hi Dan
Thanks for Your Info and we got respose form SAP . One of the Option is Your Method.
Thx
Ramana

Hi Regarding Printing values in same window in case of Scripts

Hi Smart Guys ,
                      Really this could be a challenging for all smart guys who were experts in scripts and smart-forms .
i am using 3 windows 1.Mainwindow and other 2 are secondary-windows
i am printing line items through external-subroutines
my secondary-windows can hold each one 15.
but the problem is i am printing 15 values in one secondary window
from 16 on wards i need to print in another secondary window
i am not getting values in my another secondary window from 16 on wards
i am using two individual sub-routines for each secondary window
pleas solve this one .
definitely 100% points awarded.
This is sub-routine what iam using ..................
*& Subroutine Pool   ZCHQ
PROGRAM zchq.
TABLES: payr,reguh,regup,bsik,bsak,bkpf.
DATA:v_date TYPE bsik-budat,
       str2(10) TYPE c,
       v_vblnr LIKE reguh-vblnr,
       v_rebzg LIKE bsik-rebzg,
       v_belnr LIKE bsik-belnr,
      v_augbl LIKE bsak-augbl,
       v_zuonr LIKE bsik-zuonr,
        v_amt LIKE bsik-dmbtr,
        v_temp(20),
        v_temp1(20),
        v_str(20),
        v_total(20),
        str TYPE string,
        v_amnt TYPE bsik-wrbtr,
        v_shkzg TYPE bsik-shkzg,
        v_amt1(20),
        v_amt2(20),
        str1 TYPE string,
        str5 TYPE string,
        v_dat(10),
        v_dat1(10),
        wrk_index LIKE sy-tabix    VALUE '0',
        wrk_index1 TYPE sy-tabix VALUE 0.
TYPES:BEGIN OF st_tab,
      name(130),
      value(255),
      dmbtr TYPE pc207-betrg,
      END OF st_tab.
DATA:it_tab TYPE TABLE OF st_tab,
       wa_tab LIKE LINE OF it_tab.
*&      Form get_data
      text
     -->INTAB      text
     -->OUTTAB     text
FORM get_data TABLES intab STRUCTURE itcsy
                     outtab STRUCTURE itcsy.
DATA : v_vblnr LIKE reguh-vblnr,
         v_text LIKE regup-sgtxt,
         wv_rwbtr TYPE payr-rwbtr,
         str TYPE p DECIMALS 2,
         v_rwbtr(20),
         v_qbshb(20),
          c_qbshb TYPE p DECIMALS 2.
DATA: BEGIN OF wa_bsak ,
        belnr LIKE bsak-belnr,
        shkzg LIKE bsak-shkzg,
        budat LIKE bsak-budat,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        augbl LIKE bsak-augbl,
        END OF wa_bsak.
READ TABLE intab INDEX 1.
v_vblnr = intab-value.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = v_vblnr
    IMPORTING
      output = v_vblnr.
SELECT SINGLE sgtxt
                INTO v_text
                FROM regup
                WHERE vblnr = v_vblnr.
CLEAR wv_rwbtr.
SELECT SINGLE rwbtr
                INTO wv_rwbtr
                FROM payr
                WHERE vblnr = v_vblnr.
CLEAR v_rwbtr.
IF wv_rwbtr < 0.
    str = ( wv_rwbtr * -1 ).
    v_rwbtr = str.
ELSE.
    str = wv_rwbtr.
    v_rwbtr = str.
ENDIF.
READ TABLE outtab INDEX 1.
IF sy-subrc = 0.
    outtab-value = v_text.
    MODIFY outtab INDEX 1.
    CLEAR outtab.
ENDIF.
READ TABLE outtab INDEX 2.
IF sy-subrc = 0.
    outtab-value = v_rwbtr.
    MODIFY outtab INDEX 2.
    CLEAR outtab.
ENDIF.
CLEAR v_qbshb.
CLEAR c_qbshb. "*"
CLEAR wa_bsak.
SELECT belnr shkzg dmbtr qbshb augbl
FROM bsak
INTO CORRESPONDING FIELDS OF wa_bsak
WHERE augbl = v_vblnr.
    IF wa_bsak-shkzg = 'H'.
     v_qbshb = v_qbshb + wa_bsak-qbshb.
      c_qbshb = c_qbshb + wa_bsak-qbshb.
      v_qbshb = c_qbshb.
    ELSE.
      IF wa_bsak-augbl NE wa_bsak-belnr.
       v_qbshb = v_qbshb + wa_bsak-dmbtr.
        c_qbshb = c_qbshb + wa_bsak-dmbtr.
        v_qbshb = c_qbshb.
      ENDIF.
    ENDIF.
    CLEAR wa_bsak.
ENDSELECT.
READ TABLE outtab INDEX 3.
IF sy-subrc = 0.
    IF NOT v_qbshb IS INITIAL.
      outtab-value = v_qbshb.
    ENDIF.
    MODIFY outtab INDEX 3.
    CLEAR outtab.
ENDIF.
CLEAR : outtab.
DATA: BEGIN OF wa_bsak1 ,
        belnr LIKE bsak-belnr,
        gjahr LIKE bsak-gjahr,
        budat LIKE bsak-budat,
        rebzg LIKE bsak-rebzg,
        rebzj LIKE bsak-rebzj,
        shkzg LIKE bsak-shkzg,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        str4 TYPE string,
        str5 TYPE string,
        v_amt3(20),
        augbl LIKE bsak-augbl,
        v_total LIKE bsak-dmbtr,
        END OF wa_bsak1.
DATA: it_bsak LIKE TABLE OF wa_bsak1 WITH HEADER LINE.
DATA: BEGIN OF wa_bsik,
        belnr LIKE bsik-belnr,
        budat LIKE bsik-budat,
        shkzg LIKE bsik-shkzg,
        dmbtr LIKE bsik-dmbtr,
        zuonr LIKE bsik-zuonr,
        str1 TYPE string,
        str2 TYPE string,
        str3 TYPE string,
        v_amt1(20),
        v_amt2(20),
        v_dat(10),
         END OF wa_bsik.
DATA: wrk_str1 TYPE string,
        wrk_str2 TYPE string,
        wrk_str3 TYPE string,
        strtmp(20),
        v_sumamt(20),
        c_sumamt TYPE p DECIMALS 2.
DATA: v_dmbtr LIKE bsik-dmbtr,
        dmbtr LIKE bsik-dmbtr.
DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
read table intab
with key name = 'REGUH-VBLNR'
transporting value.
if sy-subrc = 0.
   v_vblnr = intab-value.
endif.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input = v_vblnr
   IMPORTING
     output = v_vblnr.
CLEAR v_shkzg.
SELECT SINGLE shkzg
INTO v_shkzg
FROM bsik
WHERE belnr = v_vblnr
AND shkzg = 'S'.
IF v_shkzg = 'S'.
   SELECT belnr rebzg rebzj dmbtr
   INTO (wa_bsak1-belnr,wa_bsak1-rebzg,wa_bsak1-rebzj,wa_bsak1-dmbtr)
   FROM bsik
   WHERE belnr = v_vblnr.
     SELECT SINGLE budat
     INTO wa_bsak1-budat
     FROM bkpf
     WHERE belnr = wa_bsak1-rebzg
     AND gjahr = wa_bsak1-rebzj.
     CLEAR str5.
     MOVE wa_bsak1-dmbtr TO str5.
     str5 = str5 + wa_bsak-dmbtr.
     MOVE str5 TO wa_bsak1-v_amt3.
     CLEAR v_dat1.
     APPEND wa_bsak1 TO it_bsak.
     CLEAR wa_bsak1.
   ENDSELECT.
ENDIF.
SELECT belnr gjahr shkzg dmbtr qbshb augbl
FROM bsak
INTO CORRESPONDING FIELDS OF wa_bsak1
WHERE augbl = v_vblnr
AND shkzg = 'H'.
    IF sy-subrc = 0.
      SELECT SINGLE budat
      INTO wa_bsak1-budat
      FROM bkpf
      WHERE belnr = wa_bsak1-belnr
      AND gjahr = wa_bsak1-gjahr.
      CLEAR str5.
      str5 = wa_bsak1-dmbtr + wa_bsak1-qbshb.
      wa_bsak1-v_amt3 = str5.
      APPEND wa_bsak1 TO it_bsak.
      CLEAR wa_bsak1.
    ENDIF.
ENDSELECT.
LOOP AT it_bsak.
    strtmp = it_bsak-v_amt3.
   v_sumamt = v_sumamt + strtmp.
    c_sumamt = c_sumamt + strtmp.
    v_sumamt = c_sumamt.
ENDLOOP.
READ TABLE outtab INDEX 4.
outtab-value = v_sumamt.
MODIFY outtab INDEX 4.
CLEAR outtab.
CLEAR: intab,
         outtab.
ENDFORM.                    "get_data
*&      Form GET_AMT
      text
     -->INTAB      text
     -->OUTTAB     text
FORM get_amt TABLES intab STRUCTURE itcsy
                    outtab STRUCTURE itcsy.
CLEAR : outtab.
DATA: BEGIN OF wa_bsak ,
        belnr LIKE bsak-belnr,
        gjahr LIKE bsak-gjahr,
        budat LIKE bsak-budat,
        rebzg LIKE bsak-rebzg,
        rebzj LIKE bsak-rebzj,
        shkzg LIKE bsak-shkzg,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        str4 TYPE string,
        str5 TYPE string,
        v_amt3(20),
        augbl LIKE bsak-augbl,
        v_total LIKE bsak-dmbtr,
        END OF wa_bsak.
DATA: it_bsak LIKE TABLE OF wa_bsak WITH HEADER LINE.
DATA: BEGIN OF wa_bsik,
        belnr LIKE bsik-belnr,
        budat LIKE bsik-budat,
        shkzg LIKE bsik-shkzg,
        dmbtr LIKE bsik-dmbtr,
        zuonr LIKE bsik-zuonr,
        str1 TYPE string,
        str2 TYPE string,
        str3 TYPE string,
        v_amt1(20),
        v_amt2(20),
        v_dat(10),
         END OF wa_bsik.
DATA: wrk_str1 TYPE string,
        wrk_str2 TYPE string,
        wrk_str3(20).
DATA: v_dmbtr LIKE bsik-dmbtr,
        dmbtr LIKE bsik-dmbtr.
DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
READ TABLE intab
WITH KEY name = 'REGUH-VBLNR'
TRANSPORTING value.
IF sy-subrc = 0.
    v_vblnr = intab-value.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = v_vblnr
    IMPORTING
      output = v_vblnr.
CLEAR v_shkzg.
SELECT SINGLE shkzg
INTO v_shkzg
FROM bsik
WHERE belnr = v_vblnr
AND shkzg = 'S'.
IF v_shkzg = 'S'.
    SELECT belnr rebzg rebzj dmbtr
    INTO (wa_bsak-belnr, wa_bsak-rebzg, wa_bsak-rebzj, wa_bsak-dmbtr)
    FROM bsik
    WHERE belnr = v_vblnr.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-rebzg
      AND gjahr = wa_bsak-rebzj.
      CLEAR str5.
      MOVE wa_bsak-dmbtr TO str5.
      MOVE str5 TO wa_bsak-v_amt3.
     MOVE wa_bsak-dmbtr TO str5.
     str5 = str5 + wa_bsak-dmbtr.
     MOVE str5 TO wa_bsak-v_amt3.
      CLEAR v_dat1.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          date_internal            = wa_bsak-budat
        IMPORTING
          date_external            = v_dat1
        EXCEPTIONS
          date_internal_is_invalid = 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.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDSELECT.
    ADD 1 TO wrk_index.
    READ TABLE it_bsak
    INDEX wrk_index.
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index LE 15.
      MOVE wrk_str1 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT2'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT3'.
      CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT6'.
      CLEAR outtab.
    ENDIF.
    CLEAR: intab,
           outtab.
    CLEAR it_bsak.
    REFRESH it_bsak.
ENDIF.
CLEAR it_bsak.
CLEAR wa_bsak.
SELECT belnr gjahr shkzg dmbtr qbshb augbl
FROM bsak
INTO CORRESPONDING FIELDS OF wa_bsak
WHERE augbl = v_vblnr
AND shkzg = 'H'.
    IF sy-subrc = 0.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-belnr
      AND gjahr = wa_bsak-gjahr.
      CLEAR str5.
      str5 = wa_bsak-dmbtr + wa_bsak-qbshb.
      wa_bsak-v_amt3 = str5.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
       EXPORTING
         date_internal                  = wa_bsak-budat
       IMPORTING
         date_external                  = v_dat1
EXCEPTIONS
DATE_INTERNAL_IS_INVALID       = 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.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDIF.
ENDSELECT.
CLEAR: it_bsak.
IF it_bsak[] IS NOT INITIAL.
    ADD 1 TO wrk_index.
    READ TABLE it_bsak
    INDEX wrk_index .
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index LE 15.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT2'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT3'.
      CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT6'.
      CLEAR outtab.
    ENDIF.
    CLEAR: intab,
           outtab.
ENDIF.
ENDFORM.                    "GET_AMT
*&      Form GET_AMT2
      text
     -->INTAB      text
     -->OUTTAB     text
FORM get_amt2 TABLES intab STRUCTURE itcsy
                    outtab STRUCTURE itcsy.
CLEAR : outtab.
DATA: BEGIN OF wa_bsak ,
        belnr LIKE bsak-belnr,
        gjahr LIKE bsak-gjahr,
        budat LIKE bsak-budat,
        rebzg LIKE bsak-rebzg,
        rebzj LIKE bsak-rebzj,
        shkzg LIKE bsak-shkzg,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        str4 TYPE string,
        str5 TYPE string,
        v_amt3(20),
        augbl LIKE bsak-augbl,
        v_total LIKE bsak-dmbtr,
        END OF wa_bsak.
DATA: it_bsak LIKE TABLE OF wa_bsak WITH HEADER LINE.
DATA: BEGIN OF wa_bsik,
        belnr LIKE bsik-belnr,
        budat LIKE bsik-budat,
        shkzg LIKE bsik-shkzg,
        dmbtr LIKE bsik-dmbtr,
        zuonr LIKE bsik-zuonr,
        str1 TYPE string,
        str2 TYPE string,
        str3 TYPE string,
        v_amt1(20),
        v_amt2(20),
        v_dat(10),
         END OF wa_bsik.
DATA: wrk_str1 TYPE string,
        wrk_str2 TYPE string,
        wrk_str3(15),
        v_tmp(15),
        v_sumamt(20),
        wv_strlen TYPE i.
DATA: v_dmbtr LIKE bsik-dmbtr,
        dmbtr LIKE bsik-dmbtr.
DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
READ TABLE intab
WITH KEY name = 'REGUH-VBLNR'
TRANSPORTING value.
IF sy-subrc = 0.
    v_vblnr = intab-value.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = v_vblnr
    IMPORTING
      output = v_vblnr.
CLEAR v_shkzg.
SELECT SINGLE shkzg
INTO v_shkzg
FROM bsik
WHERE belnr = v_vblnr
AND shkzg = 'S'.
IF v_shkzg = 'S'.
    SELECT belnr rebzg rebzj dmbtr
    INTO (wa_bsak-belnr,wa_bsak-rebzg,wa_bsak-rebzj,wa_bsak-dmbtr)
    FROM bsik
    WHERE belnr = v_vblnr.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-rebzg
      AND gjahr = wa_bsak-rebzj.
      CLEAR str5.
      MOVE wa_bsak-dmbtr TO str5.
      MOVE str5 TO wa_bsak-v_amt3.
      CLEAR v_dat1.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          date_internal            = wa_bsak-budat
        IMPORTING
          date_external            = v_dat1
        EXCEPTIONS
          date_internal_is_invalid = 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.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDSELECT.
    ADD 1 TO wrk_index1.
    READ TABLE it_bsak
    INDEX wrk_index1 .
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index1 LE 15.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT2'.
      CLEAR outtab.
     MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value RIGHT DELETING TRAILING space.
     MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT3'.
     CLEAR outtab.
      READ TABLE outtab INDEX 3.
      outtab-value = wrk_str3.
      MODIFY outtab INDEX 3.
      CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value RIGHT DELETING TRAILING space.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT6'.
      CLEAR outtab.
    ENDIF.
    CLEAR: intab,
           outtab.
    CLEAR it_bsak.
    REFRESH it_bsak.
ENDIF.
CLEAR it_bsak.
CLEAR wa_bsak.
SELECT belnr gjahr shkzg dmbtr qbshb augbl
FROM bsak
INTO CORRESPONDING FIELDS OF wa_bsak
WHERE augbl = v_vblnr
AND shkzg = 'H'.
    IF sy-subrc = 0.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-belnr
      AND gjahr = wa_bsak-gjahr.
      CLEAR str5.
      str5 = wa_bsak-dmbtr + wa_bsak-qbshb.
      wa_bsak-v_amt3 = str5.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          date_internal = wa_bsak-budat
        IMPORTING
          date_external = v_dat1.
EXCEPTIONS
DATE_INTERNAL_IS_INVALID       = 1
OTHERS                         = 2
     IF sy-subrc <> 0.    "#EC
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDIF.
ENDSELECT.
CLEAR: it_bsak.
IF it_bsak[] IS NOT INITIAL.
    ADD 1 TO wrk_index1.
    READ TABLE it_bsak
    INDEX wrk_index1 .
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index1 LE 15.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT2'.
      CLEAR outtab.
     write wrk_str3 to outtab-value right-justified.
     MOVE wrk_str3 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT3'.
     CLEAR : outtab, v_tmp.
     CLEAR wv_strlen.
     wv_strlen = STRLEN( wrk_str3 ).
     wv_strlen = 15 - wv_strlen.
     DO wv_strlen TIMES.
       CONCATENATE '0' wrk_str3
       INTO wrk_str3.
     ENDDO.
     IF wrk_str3 IS NOT INITIAL.
       WRITE wrk_str3+0(wv_strlen) TO v_tmp RIGHT-JUSTIFIED.
     ENDIF.
      MOVE wrk_str3 TO outtab-value.
      CONDENSE outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT3'.
      CLEAR outtab.
     READ TABLE outtab INDEX 3.
     outtab-value = wrk_str3.
     MODIFY outtab INDEX 3.
     CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT6'.
      CLEAR: outtab, v_tmp.
    ENDIF.
    CLEAR: intab,
           outtab.
ENDIF.
ENDFORM.                    "GET_AMT
*&      Form GET_ACNAME
      text
FORM get_acname TABLES intab STRUCTURE itcsy
                      outtab STRUCTURE itcsy.
DATA: v_lifnr TYPE reguh-lifnr,
        v_lnrza TYPE lfa1-lnrza,
        v_name1 TYPE lfa1-name1,
        v_name2 TYPE reguh-zanre,
        v_name TYPE string .
READ TABLE intab INDEX 1.
v_lifnr = intab-value.
READ TABLE intab INDEX 2.
v_name2 = intab-value.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = v_lifnr
    IMPORTING
      output = v_lifnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = v_name2
    IMPORTING
      output = v_name2.
SELECT SINGLE lnrza
                INTO v_lnrza
                FROM lfa1
                WHERE lifnr = v_lifnr.
SELECT SINGLE name1
                INTO v_name1
                FROM lfa1
                WHERE lifnr = v_lnrza.
CONCATENATE v_name1 v_name2 INTO v_name.
IF sy-subrc = 0.
    READ TABLE outtab INDEX 1.
    outtab-value = v_name1.
    MODIFY outtab INDEX 1.
    CLEAR outtab.
ENDIF.
ENDFORM.                    "GET_ACNAME
**&      Form GET_AMT1
      text
     -->INTAB      text
     -->OUTTAB     text
*FORM get_amt1 TABLES intab STRUCTURE itcsy
                   outtab STRUCTURE itcsy.
CLEAR : outtab.
DATA: BEGIN OF wa_bsak ,
       belnr LIKE bsak-belnr,
       budat LIKE bsak-budat,
       shkzg LIKE bsak-shkzg,
       dmbtr LIKE bsak-dmbtr,
       str4 TYPE string,
       str5 TYPE string,
       v_amt3(20),
       augbl LIKE bsak-augbl,
       v_total LIKE bsak-dmbtr,
       END OF wa_bsak.
DATA: it_bsak LIKE TABLE OF wa_bsak WITH HEADER LINE.
DATA: BEGIN OF wa_bsik,
       belnr LIKE bsik-belnr,
       budat LIKE bsik-budat,
       shkzg LIKE bsik-shkzg,
       dmbtr LIKE bsik-dmbtr,
       zuonr LIKE bsik-zuonr,
       str1 TYPE string,
       str2 TYPE string,
       str3 TYPE string,
       v_amt1(20),
       v_amt2(20),
       v_dat(10),
        END OF wa_bsik.
DATA: wrk_str1 TYPE string,
       wrk_str2 TYPE string,
       wrk_str3 TYPE string.
DATA: v_dmbtr LIKE bsik-dmbtr,
       dmbtr LIKE bsik-dmbtr.
DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
READ TABLE intab WITH KEY name = 'REGUH-VBLNR' TRANSPORTING value.
IF sy-subrc = 0.
   v_vblnr = intab-value.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input = v_vblnr
   IMPORTING
     output = v_vblnr.
SELECT shkzg INTO v_shkzg FROM bsik WHERE belnr = v_vblnr.
ENDSELECT.
IF v_shkzg = 'S'.
   SELECT belnr budat dmbtr
               INTO (wa_bsak-belnr, wa_bsak-budat, wa_bsak-dmbtr )
               FROM bsik
               WHERE belnr = v_vblnr.
     MOVE wa_bsak-dmbtr TO str5.
     MOVE str5 TO wa_bsak-v_amt3.
     CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
       EXPORTING
         date_internal            = wa_bsak-budat
       IMPORTING
         date_external            = v_dat1
       EXCEPTIONS
         date_internal_is_invalid = 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.
     wa_bsak-str4 = v_dat1.
     APPEND wa_bsak TO it_bsak.
     CLEAR wa_bsak.
   ENDSELECT.
   ADD 1 TO wrk_index.
   READ TABLE it_bsak INDEX wrk_index .
   MOVE it_bsak-belnr TO wrk_str1.
   CONDENSE wrk_str1.
   CLEAR it_bsak.
   READ TABLE it_bsak INDEX wrk_index.
   MOVE it_bsak-str4 TO wrk_str2.
   CONDENSE wrk_str2.
   CLEAR it_bsak.
   READ TABLE it_bsak INDEX wrk_index.
   MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
   CLEAR it_bsak.
   MOVE wrk_str1 TO outtab-value.
   MODIFY outtab TRANSPORTING value WHERE name = 'STEXT1'.
   CLEAR outtab.
   MOVE wrk_str2 TO outtab-value.
   MODIFY outtab TRANSPORTING value WHERE name = 'STEXT2'.
   CLEAR outtab.
   MOVE wrk_str3 TO outtab-value.
   MODIFY outtab TRANSPORTING value WHERE name = 'STEXT3'.
   CLEAR outtab.
   CLEAR: intab,
          outtab.
   CLEAR it_bsak.
   REFRESH it_bsak.
ELSE .
   SELECT dmbtr FROM bsik
         INTO dmbtr
         WHERE belnr = v_vblnr.
   ENDSELECT.
   v_temp = dmbtr.
ENDIF.
CLEAR it_bsak.
SELECT belnr
        budat
        shkzg
        dmbtr
        augbl
        FROM bsak
        INTO it_bsak
        WHERE augbl = v_vblnr AND shkzg = 'H'.
   it_bsak-str5 = it_bsak-dmbtr.
   it_bsak-v_amt3 = it_bsak-str5.
   MODIFY TABLE it_bsak TRANSPORTING v_amt3.
   CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal                  = it_bsak-budat
    IMPORTING
      date_external                  = v_dat1
EXCEPTIONS
DATE_INTERNAL_IS_INVALID       = 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.
   it_bsak-str4 = v_dat1.
   MODIFY TABLE it_bsak TRANSPORTING str4.
   SELECT SINGLE * FROM
             bsik
             WHERE zuonr = it_bsak-belnr.
   IF sy-subrc = 0.
     v_temp1 = it_bsak-dmbtr .
     it_bsak-v_amt3 = v_temp1 - v_temp.
     it_bsak-str5 = it_bsak-dmbtr - v_temp.
     it_bsak-v_amt3 = it_bsak-str5.
     MODIFY TABLE it_bsak TRANSPORTING v_amt3.
     APPEND it_bsak.
   ELSE.
     v_total = it_bsak-dmbtr.
     APPEND it_bsak.
     CLEAR it_bsak.
   ENDIF.
ENDSELECT.
CLEAR: it_bsak.
LOOP AT it_bsak.
IF it_bsak[] IS NOT INITIAL.
   ADD 1 TO wrk_index.
IF wrk_index GE 11 AND wrk_index LE 20.
   IF wrk_index LT 15.
     READ TABLE it_bsak INDEX wrk_index .
     MOVE it_bsak-belnr TO wrk_str1.
     CONDENSE wrk_str1.
     CLEAR it_bsak.
     READ TABLE it_bsak INDEX wrk_index.
     MOVE it_bsak-str4 TO wrk_str2.
     CONDENSE wrk_str2.
     CLEAR it_bsak.
     READ TABLE it_bsak INDEX wrk_index.
     MOVE it_bsak-v_amt3 TO wrk_str3.
     CONDENSE wrk_str3.
     CLEAR it_bsak.
     MOVE wrk_str1 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'STEXT4'.
     CLEAR outtab.
     MOVE wrk_str2 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'STEXT5'.
     CLEAR outtab.
     MOVE wrk_str3 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'STEXT6'.
     CLEAR outtab.
   append outtab.
   ENDLOOP.
     CLEAR: intab,
            outtab.

I'm assuming there is ENDSELECT statement somewhere further in the program, otherwise you would have gotten a syntax error.
It seems that function 'Z_GROSS_WEIGHT2' contains COMMIT WORK. Therefore, it cannot be called inside SELECT FROM LIPS ... ENDSELECT loop. You need to change SELECT ... ENDSELECT to SELECT INTO TABLE and then call the FM inside LOOP AT <table> ... ENDLOOP.
Actually in the future try to stay away from SELECT ... ENDSELECT altogether. Most of the time they are bad for performance.
Hope this helps.

Transport values

Similar Messages

Maybe you are looking for