Total transfer

Hi all,
We are using SEM-BCS 6.0 and we have a question.
We are having an inconsistency in the Totals Records after a total transfer in a downwards movement.
At the consolidation area GA01, consolidation unit PL01 has 100% participation in PL23 and PL23 has 100% participation in PL24.
Now we have done a downwards movement of PL24 from GA01 to GA08 where we have a total transfer of participation from PL23 to PL22.
We also execute the task "Change to Consolidation Group" in order to clear financial statement itens of PL24 at GA01.
The error we get is that in the consolidation of investments the elimination of the investment (posting level 30) is being posted to an incorrect partner company.
The partner company should be equal to the investee unit (that should be PL24) but is being posted to a partner company (PL22 and PL23).
In the Totals Records, the investee is correct (PL24) but the partner company is incorrect, is being posted as PL23 and PL22.
Example:
Investee unit - PL24
Company - PT23
item - 51000000 (equity item)
partner company - PL22 (should be PL24)
posting level - 30
Can you please help me?
Thanks for your help.
Best regards.

Because partner unit is not relevant for COI and only investee is relevant, partner unit is not changed with the total transfer. Only a manual entry will change the partner unit for posting level 30 records but it should not be necessary.

Similar Messages

Total Transfer & Organizational Change (SEM-BCS)

Dear colleagues!
Got som challenge with processing a merger under consolidation of
investments in SEM release 4.0.
As I understand, the proper method to apply to mergers is a) a
divestiture of the old consolidation unit and b) postings of account
balances from old unit toward the new unit in the source system,
with subsequent data load.
Issue:
In our case a subsidary of the old parent (merged)"follows" the
merger
towards another consolidation group (old parent divested, subsidary
unchanged with new cons group assignment).
Client expects the merger to be physically carried out in period 6,
with a validity (back in time) starting with period 1, without
processing period 1-5 in the monitor. Client also expects the income
statement balances to be reversed from old cons group assignment and
posted under new cons group for the accum. balance from period 1-6.
Question:
Would anybody know (could give us) a brief description on what to
remember when setting the parameteres in preparation of the
organization change (total transfer)!?
Help is greatly appreciated.
Frank

Dan,
What C/I activity are we supposed to use if we want transfer a unit vertically up in the hierarchy?
And also, we are still getting an error with Organization Change scenario when we run our COI. Can we please send you a detailed document of the issue we are facing to your email id?
Thanks
Ramesh

X Series DDK: Configure Interrupt on DMA Channel's total transfer count

Hello,
In the DAQ-STC3 X Series DDK Reference Manual, Chapter 1: Theroy of Operation, Section Interrupts, Subsection Special Considerations: Maximizing Throughput in Low-Latency Situations (p41), it is said:
"for X Series devices, the CHInCh can interrupt on the DMA channel’s total transfer count, which occurs once the data has been completely transferred to the host memory. The order of programming for this situation (and output operations) is as follows:
1. Program the DMA channel’s Total_Transfer_Count_Compare_Register (CHTTCCR) with the number of Bytes in a single input/output sample.
2. Set the DMA channel’s Notify on Total Count flag in the CHCR.
3. Set the DMA channel’s Arm Total Count Interrupt flag in the CHOR.
4. Start data transfer (through the DMA controller and the subsystem’s Stream Circuit).
5. Receive total transfer count interrupt.
6. Increase the CHTTCCR by the number of Bytes in a single input/output sample.
7. Re-arm the total transfer count interrupt in the CHOR.
Using the X Series DDK, I don't manage to perform such a configuration.
Can you please provide me code sample to do so ?
Thanks in advance for your support.
Sincerely
Bertrand

Hello Steve,
Weeks ago, we developed a Linux application that configure NI acquisition board (serie X) to send an interrupt when FIFO count reach a given number. At this stage we manage to prove that our board configuration was good and that the problem was due to INtime. TenAsys (INtime developers) fix this issue few weeks ago.
We just come back from holidays, apply the modifications created by TenAsys and manage to get interrupt inside INtime.
We still have two problems.
Reading DMA
===========
From the interrupt handler, when we access to the DMA to get samples stored in the FIFO, we manage to get the samples inside the first interrupt handler. With the following interrupts, when accessing DMA with the tCHInChDMAChannel structure, it said that there is no available bytes. But when we read the Channel_Total_Transfer_Count_Status_Register from the DMA channel, we see that we have the desired numbers of samples.
In the interrupt handler, during the interrupt aknowledgement, instead of only reading the Volatile_Interrupt_Status_Register to ackowledge the interrupt, if I increase the Channel_Total_Transfer_Count_Compare_Register_LSW by a given number (X) then I got X samples to read in the following interrupt. Problem with this solution is that the delay between two interrupts is not constant.
It seems that we mis-configured the DMA channel. But don't manage to find the error.
Two interrupts generated
====================
Moreover, we always get 2 FIFO_Count interrupts. Even configuring conversion, sampling and interrupt frequencies at very low value (conversion 1KHz, sampling 1Hz, interrupt generation: 1Hz). The delay between the two interrupts is about few nano seconds.
Source code
============
I attach to this post the source code we use to play/test this configuration. There is a Visual Studio workspace that we used to play with INtime and a CMake configuration file that we used to manage our Linux tests. You can find all the informations you need to build the binary in the README file.
Thanks in advance for your help with these issues.
Sincerely
Bertrand Cachet
Attachments:
IOMonitoring.zip ‏355 KB

My wife is using our daughters itouch. My wife likes the old scrabble on the itouch and asked me to find out if she is allowed to somehow move or totally transfer the old scrabble from daughter's itouch to wife's iphone. It was a free app,

My wife is using our daughter's itouch. My wife likes the old scrabble on the itouch and asked me to find out if she is allowed to somehow move or totally transfer the old scrabble from daughter's itouch to wife's iphone. It was a free app,

My wife is using our daughter's itouch. My wife likes the old scrabble on the itouch and asked me to find out if she is allowed to somehow move or totally transfer the old scrabble from daughter's itouch to wife's iphone. It was a free app,

SEM-BCS: total transfer

Hello,
I need help.
Scenario: Two companies will be merging as one and falls under the same cons group.
Is total transfer (under COI) the correct activity to use?
If yes, please help share what are the different settings, changes, financial data, so I can test in the SEM-BCS.
Thank you in advance

Hi Jouan,
So are you trying to say that total transfer is not for merging one company to another company scenario?
For example company A fully acquired company B. So we intend to merge company B'sfinancial data into company A.
Can we use total transfer for this?
Thank you.
Krezel

Total transfer of equity consolidated unit using organizational change

Hi,
We have a scenario where we are doing total transfer of an equity consolidated unit (100% owned) from one company(old parent) to another (new parent)
The new parent is one level above the old parent in the hierarchy.
We've used organizational change logic and have set the divestiture dates/flag in the sender consolidation group and accordingly first consolidation dates/flag/OC number in the receiver consolidation group.
The investment AFD is submitted with "total transfer" with OC number.
There are multiple scopes of reported data for equity method in our configuration.
Each scope(equity pickup) is inturn created by reclassifying several equity accounts to a single BCS only item(the scope item)
When we run COI, the system posts one total divestiture document at the old conso group (where old parent is situtated) and posts a first consolidation, total divestiture, total transfer documents at the new conso group level (which is one level above the sender conso group)
The total divestiture document at upper level is reversing the divestiture document posted at old parent.
The first consolidation document jas only statistical items posted in it.
The real document to check is the "Totals transfer document" which actually reads the investment (at old parent and new parent) , the equity holdings adjustment data(the scope items) and adjusts the investment in subs at new parent with offset going to divestiture account but of double the value than the expected scope vlaue.
Issues faced:
Q1. Consolidation group change tasks (at PL02, 12, 22) are not posting any documents. Is there an issue? Since I am using these tasks for the first time and dont know if this is possible.
Q2. The total transfer document is reading the equity holdings data as double the expected value( for each of the scopes of equity method). What could be the possible reason? How to fix this?
Q3. I would appreciate if someone can clarify what kind of postings the system makes as part of divestiture/transfer in case of equity consolidated unit transfer.
Please help!
Thanks,
AJ

Thanks Dan.
Appreciate if you can help on the below points as well.
1. As part of divestiture/transfer postings: The system is reversing some Previous Year(PY) equity accounts into themselves. How can we get the system to eliminate them by posting to COI Clearing account. Basically, we dont want the PY accounts to be touched?
For the Retained earnings - PY account, the system is actually posting to COI clearing account.
These PY accounts are part of some scopes for equitization.
Is there any link between the "balance carry forward" - list of items table and the divestiture postings?
Does the system check this table while posting/reversing the equity(PY) accounts?
2. I want to understand the sequence in which the system posts the documents at the old parent and new parent (group) level.
The same activity number is there for Total Divestiture, total transfer documents posted at new parent level and total divestiture document posted at old parent level.
Does the system follow bottom up approach? Thereby creating total divestiture document at old parent level.
Followed by documents at upper level (new parent level)
Also , at the upper level(new parent level), does it post documents in the way they are shown in the log? (We havent changed the default sequence maintained in UCWB - COI settings). so it will post first consolidation doc, followed by total divestiture, followed by total transfer docs at the new parent level?
Is this the reason for the double value being posted at new parent for equity holding data?
Will studying the statistical items (corresponding to eliminated equity holding items) be relevant here to understand why at upper level there is double the value being posted by system?
Thanks.

Total Transfer between paralel consolidation groups

Hello Gurus!
We are using SEM-BCS for legal consolidation of our consolidation hierarchy. The hierarchy stands as shown below in 04.2014:
CG00
     CU000
      CG20
          CU005
          CU001
     CG01
          CG19
               CU018
     CG02
     CG03
In period 04.2014, we have to make a transfer of one consolidation unit (CU001) from consolidation group CG19 to CG20.
In consolidation group CG19 in 03.2014, company CU001 is hold at 100% by consolidation unit CU018.
In consolidation group CG20 in 04.2014, company CU001 is transferred to this consolidation group, as well as the participation (100% of the shares) from company CU018 to company CU005.
The holding of the hierarchy is CU000 in CG00.
To execute the transfer, we created organizational change company and organizational change number in the master data tab. Afterwards, company CU001 was changed from consolidation group CG19 to CG20. In the company CU001 we set the mark for first consolidation with organizational change and indicated the ID of the organizational change.
After this definitions in the master data tab, we executed the task for consolidation group changes, obtaining the following result:
Balance sheet items were correctly posted in group CG20, as this the destination group of the transfer. But on the other hand, the elimination from the previous consolidation group (CG19) is being wrongly executed, as the elimination is being executed in consolidation group CG00, when this should be posted in CG19.
Could you help us understand what is being wrongly made, for the post being made in CG00 and not in CG19.
Thanks in advanced.

Thank you for your reply Dan.
Responding to your questions:
1) The operation wasn't made with indication of divestiture in period 004/2014. However I tried to test it with that indicator (divestiture with OC), and the results weren't diferent from the ones i'm obtain now.
2) The consolidation group changes were executed.
3) The whole balance sheet accounts. The consolidation group changes were executed at levels 02, 12 and 22.

Display of total ansal for each org unit using the sdepth (depth level)

Hi all,
     We have a requirment in which we will be getting all the active employees related to a perticular org unit then For every PERNR,we need to find (as of run date) the org ID on PA0001- ORGEH and total the dollars at the org unit ID level started at the org unit defined on field ORGID and only as far down as defined on selection screen field SDEPTH.
       Example: $10k under Dept D, $9k under Dept C, $8k under Dept B and $7k under Dept A. If field SDEPTH was set to blank, each department would be assigned the above stated budget amount. If SDEPTH was set to 3, the budget would stop at the third level down the org chain (assuming A is the org unit defined in field ORGID, org unit C would be the third org down the chain). The total budget at level C would incorporate any dollars calculated from employees that fall below this org unit in the structure. In this example, the total for org unit C would be $19k, B would remain at 8k and A at 7k.
    We are making use of the FM : RH_STRUC_GET to get all pernr numbers related to a perticular org unit and sub level units separately and also RP_ANSAL_FROM_WAGETYPES for getting ansal based on the wahge types (multiple wage types can be provided by the user on the selection screen) .
Please let me know how can i achive the requirement.
Regards,
Zareena.
Edited by: zareena molla on May 20, 2008 7:14 AM

Thanks Dan.
Appreciate if you can help on the below points as well.
1. As part of divestiture/transfer postings: The system is reversing some Previous Year(PY) equity accounts into themselves. How can we get the system to eliminate them by posting to COI Clearing account. Basically, we dont want the PY accounts to be touched?
For the Retained earnings - PY account, the system is actually posting to COI clearing account.
These PY accounts are part of some scopes for equitization.
Is there any link between the "balance carry forward" - list of items table and the divestiture postings?
Does the system check this table while posting/reversing the equity(PY) accounts?
2. I want to understand the sequence in which the system posts the documents at the old parent and new parent (group) level.
The same activity number is there for Total Divestiture, total transfer documents posted at new parent level and total divestiture document posted at old parent level.
Does the system follow bottom up approach? Thereby creating total divestiture document at old parent level.
Followed by documents at upper level (new parent level)
Also , at the upper level(new parent level), does it post documents in the way they are shown in the log? (We havent changed the default sequence maintained in UCWB - COI settings). so it will post first consolidation doc, followed by total divestiture, followed by total transfer docs at the new parent level?
Is this the reason for the double value being posted at new parent for equity holding data?
Will studying the statistical items (corresponding to eliminated equity holding items) be relevant here to understand why at upper level there is double the value being posted by system?
Thanks.

Transfer speed to Airport Disk?

I have a 300GB LaCie connected to the USB2 port on my Airport Extreme Base Station. So far, this arrangement seems to be working fine in Leopard--but I'm wondering if the data-transfer rate is abnormally slow.
I have the Wireless Radio Mode set to 802.11n (802.11b/g compatible) (unfortunately, I can't go 802.11n only, or my TiVo can't connect), and the iMac I'm on is only a few feet away from the Base Station. I'm transfering a 3.5GB iMovieHD file from the iMac to the 300GB LaCie right now, and the total transfer time is about 42 minutes. Does this seem normal?

There's a bit of confusion in this thread about speeds.
Data transfer speeds are sometimes given in MegaBITS per second Mb/s and sometimes given in MegaBYTES per second MB/s. (it's easy to get them confused)
The Airport Extreme's wireless is rated at 270Mb/s.
That number does not reflect real world use (but all manufacturers use the theoretical value) What it means is that this is the maximum number of bits per second going in both directions including all the overhead stuff.
What is the maximum real world speed? In the real world the best speed you'll see copying a file from one place to another is 10MegaBYTES per second. This is very fast wireless very similar to wired ethernet. It can only be achieved when the Airport is set to 5GHz radio mode.
The USB hard drive does not achieve this speed. The CPU in the base station struggles to cope with files systems and the drive. So reading and writing you get between 3 and 6 MegaBYTES per second. The same drive would be 4 or 5 times quicker if it were plugged into your computer.
Using a NAS is faster. But this is plenty fast enough for streaming HD videos.
Jon,
Your speed is about half the regular speed for copying. Not massively slow but slower than I'd expect.
Try connecting at 5GHz n-only.
And use the graph device in Airport Utility to see if you have a poor signal strength.

Adding meauring point and transfering total

Hello,
I have a scenario that i am trying out now. I have a functional location hierarchy where the measuring points at the lower level need to be added up and the total transfer to the parent FL.
Example.
in the water treatment plant, i have a power consumption meter. I create a FL to represent the treatment plant. At the lower hierarchy, i have a few pump. Each of this pump, i have a power consumption meter too which i represent as a FL too.
At the end of day, all the consumption at the pump will be recorded and the total consumption at the pump will be transfer to the water treatment plant.
How can i do this with measuring point transfer? Is there a way to sum up the measurement reading then only i transfer to total to the other measuring point?
Thanks a million.

Hi ,
I think you need to do some custome development ... alternatively check if BADI : MP_TRANSFER_RELATION to define customer-specific relationships for measurement reading transfer for a technical object ..... is helpful or no .This is avaiblable from ECC 6,EHP2 ..
regrds
pushpa

Transfer Under SEM-BCS

Hi Experts,
I am using additional financial data for Investments and Equity Data.
I want to perform transfer of Consolidation unit from One Group to another Group.
However, when I execute Transfer activities along with Change Organizational function, the Financial Data is transferd to target group but Goodwill data is not posted to Transferee Company.
Please suggest the procedure for Total Transfer with or without affecting Net Income.
Warm Regards,
USR

Hi,
I guess you tick the "extraordinary amortisation of goodwill" in the C/I system utilisation.
If you tick this function, then you have to provide the usefull life for its amortisation.
Hope it helps.
regards,
Halim

Internal revenue for material transfer between plants

Dear All,
We are implementing ECC6.0 with Material Ledger for Actual Costing & Document spliiting with profit center as mandatory (for each plant one profit center).
Thermal Power is generated from thermal plant & transferred to another Production plant. We have defined each plant as profit center.
Client wants to transfer the power with different price than the standard price & during month end, need the internal revenue in power plant.
Ex :
Thermal Plant 1 :
Material : Power, Material Type : SFG, Price Control : S.
Standard price : Rs. 5.00 / KWH.
Total Transfer for the month is 100 KWH at the transfer price of Rs.6.00/ KWH.
Duirng the month end, need a internal revenue to be accounted against the power plant profit center(Rs.1.00 * 100 KWH = Rs. 100.00).
Would like to know the method to map in SAP apart from Transfer pricing method.
Rgds
SMK Ganesh

I think you would have only transfer pricing which can do this through internal revenue. Or try doing the plant to plant transfer as internal sales creating as customer and vendor with a different price other than the std cost....

Error while executing COI

Dear Friends
I am getting an error while executing the COI activity. The error message is as below
Change of total share in consolidation unit 102001 / 30208 does not equal 0 %
Investee 102001 / 30208 : Reported investment data must have exactly two investors.
We are following Company code and profit centre based consolidation. We have done some total transfers during period 03 and period 08 and the system did not give any error during this period. However when i run the COI for period 11 the system gives me the above mentioned error.
The common thing i have noticed is it is giving errors for those company codes which have moved to different groups, however these groups fall within the same hierarchy.
Any brilliant ideas would be highly appreciated.
Cheers
Shiv

Hi Dan
There is one movement downwards in period 03, and there are 5 movements upwards in the hierarchy. The investee units were not removed but were maintained in multiple places when there was a downward movement; however during the upward movement the investee units were not added in the upper units at they were moving to different groups within the same hierarchy and would presumably get rolled up.
Secondly the some total transfer when made from group 1 to group 2 within the same hierarchy, they have been moved to a company which does not have the parent tick for E.g. Investee company x001 moved from Company A001 (Parent) from group 1 to Company B001 (non parent) in group 2. I feel this is incorrect, it should be moved to a parent in the other group. But i have not worked extensively on this so can you please explain, if my understanding is correct.
I hope my understanding is correct.
Cheers
Shiv

Time Machine HD not showing latest backup, can't restore system

Please forgive the short story, but I'll give as many details as I can:
Last night I successfully installed XP on my MacBook Pro using Boot Camp. I decided to do the same to my iMac (21.5" 2010 Version). I used Boot Camp to initiate the partition process to create my Windows partition. It told me that I had files that couldn't be moved and I would have to:
1. Backup my startup disk (the main and only internal hard drive)
2. Reformat the hard drive I want to create the Windows partition on
3. Restore from the backup
4. Use Boot Camp to create the new partition
I completely understand why I have to do this. There's files spread physically all over the drive, and backing up and restoring is the free alternative to defragging. So I use Time Machine to back up my internal drive to an external drive. The total transfer was about 330 GB. I had to leave for about three hours and left it to do its thing. When I came back, the iMac had restarted and was waiting for my password to log on. I did so and looked in Time Machine and saw that the next back was scheduled for 10:37 pm. It was set to backup every hour. Simple math tells me the last backup - the one I had left for three hours - had finished at 9:37 pm. And that made perfect sense.
I then boot the iMac from the OSX disk and use Disk Utility to erase and reformat the main drive. I did this without any qualms since I was sure the backup worked. It wiped and reformatted my drive and I go to Time Machine to restore and.......
NO BACKUP FILES ARE FOUND
The external was spinning. I could hear it doing something. So I decided to try it manually in Disk Utility. In selecting the source of the restore Image, I navigate through the external and find, not a backup file, but a ".inProgress" file. I'm guessing that the initial backup +did not+ complete correctly and I've now just lost all of my data.
Can anyone please tell me that I'm wrong?

weerez87 wrote:
When I came back, the iMac had restarted and was waiting for my password to log on.
Unless you have your Mac set to automatically log you off after a period of inactivity, your Mac should have been as you left it. It does not shut down, restart, or log you off after completing a backup.
Could there have been a power failure?
I'm guessing that the initial backup +did not+ complete
That seems likely.
and I've now just lost all of my data.
Maybe, maybe not.
Just to be sure, check the backup drive via the Finder. Be +*very careful+* using the Finder on your backups; if you accidentally move, change, or delete anything, they can be corrupted.
There should be a single Backups.backupdb folder at the top level, containing a single folder named for your Mac.
Inside that should be a folder for each backup, named with the date and time; plus a "latest" alias, plus the in.Progress file (it's actually a "package").
If there are any named, dated folders, those are completed backups; you can restore your entire system from them. See #14 in [Time Machine - Frequently Asked Questions|http://web.me.com/pondini/Time_Machine/FAQ.html] (or use the link in *User Tips* at the top of this forum).
If not, select the "in.Progress" file and see how large it is, via +Get Info.+ That may take a while; the larger it is, the more of your data is there. If it's over about 6 GB (your system folders), right-click it and select +Show Package Contents.+ It should contain the same folder structure as your internal HD; go all the way to the bottom and see how much is actually there (some of the items toward the end may be empty).
If it looks like most everything is there, you may be able to recover most of it, by drag and drop.
If not, +*stop using your internal HD.+* Unless you did a +Secure Erase,+ your stuff is still on the internal disk, and most should be recoverable, but it won't be quick or easy. See [Data Recovery|http://web.me.com/pondini/AppleTips/Recover.html].
Keep us posted.

Logical Database of SAP Example Program

Hi all,
I need an example ABAP program using standard Logical Database ( LDB ) .
Help me.
Regards,
Peachi.

Hi,
Some links to refer..
/people/alvaro.tejadagalindo/blog/2006/02/19/how-to-deal-with-hr-payroll-reports
http://sap.ittoolbox.com/groups/technical-functional/sap-r3-dev/893908#
A sample prog with LDB PNP
*& Report ZH_REPT_PAYMENT *
report zh_rept_payment line-size 80 no standard page
heading.
tables: pernr, " Standard Selections for HR Master Data Reporting
pcl1, " HR Cluster 1
pcl2, " HR Cluster 2
pa0009,
PA9001,
PA9006,
pa0002,
pc260 , " Cluster Directory for Payroll Results
bnka .
Infotypes
infotypes: 0001. " Organizational Assignment
Declaration of Internal Tables
data : bnka1 like bnka occurs 0 with header line .
data: begin of t_int_rep occurs 100,
bankl like pc209-bankl, " Bank Number
zlsch like pc209-zlsch, " Payment method
pernr like pernr-pernr, " Employee Number
ename like pernr-ename, " Employee Name
bankn like pc209-bankn, " Bank Account Number
betrg like pc209-betrg, " Amount to be transfered
zweck like pa0009-zweck, " Purpose
end of t_int_rep.
data: begin of int_rep occurs 100,
bankl like pc209-bankl, " Bank Number
zlsch like pc209-zlsch, " Payment method
pernr like pernr-pernr, " Employee Number
ename like pernr-ename, " Employee Name
bankn like pc209-bankn, " Bank Account Number
betrg like pc209-betrg, " Amount to be transfered
zweck like pa0009-zweck, " Purpose
begda like pa0009-begda, "Begin date
end of int_rep.
Declaration of Data Variables
data: ws_betrg like pc209-betrg, " BT Amount
w_val like spell occurs 0 with header line,
int_rep1(6), " TYPE I, " Employee Number
cnt type i value 0, " Counter
calcmolga like t500l-molga value '40', " Country Grouping
v_id(15),
calc_currency like t001-waers value 'INR'. " Currency
data : ctr type i,
dt_merge like pa0009-begda.
data: ws_totemp(6) type c,
ws_totamt(20) type c,
r_mth(9) type c,
ws_fpbeg(6) type c,
ws_fpend(6) type c,
ws_mthyr(6) type c,
ws_mthyr_r(14) type c,
r_mth_t(3) type c,
ws_amt(8) type c,
ws_bankl(14) type c,
ws_date(6) type c,
amount_word(500),
total_page type i,
pages type i,
remain type i.
data begin of i_spell.
include structure spell .
data end of i_spell .
data : c_molga type t500l-molga value '40',
c_banks type bnka-banks value 'IN'.
Standard Includes
include rpc2cd09. "Cluster CD data definition
include pc2rxin0.
include rpc2rx09.
include rpppxd00. " Data Definition buffer PCL1/PCL2
include rpppxd10. " Common Part buffer PCL1/PCL2
include rpppxm00. " Buffer Handling RoutinePCL1/PCL2
include zrpc2rox2. " Data Definition POCLSTERS (not J,K,U)
Selection Screen
selection-screen begin of block b1 with frame title text-001.
parameter: pa_mth(2) type c default sy-datum+4(2) obligatory,
pa_year(4) type c default sy-datum(4) obligatory,
p_bankl like pc209-bankl, " Bank Number
p_zlsch like pc209-zlsch. " Payment method
selection-screen end of block b1.
save_calc_currency = calc_currency.
count_top = 0.
get_pernr_flag = 0.
Top-Of-Page
top-of-page.
perform convert_month using pa_mth(2) r_mth.
ws_mthyr_r = r_mth.
concatenate ws_mthyr_r pa_year into ws_mthyr_r separated by space.
SKIP 5.
skip 1.
skip 4.
if int_rep-bankl eq ' '.
if int_rep-zlsch eq 'C' or int_rep-zlsch eq 'E' or
int_rep-zlsch eq ' '.
write: /1(85) 'CHEQUE PAYMENT STATEMENT'(047) centered.
elseif int_rep-zlsch eq 'L'.
write: /1(85) 'DEMAND DRAFT STATEMENT'(047) centered.
endif.
else.
write: /1(85) 'BANK TRANSFER STATEMENT'(002) centered.
endif.
skip.
write: /34 ws_mthyr_r,
62 'Page :'(008),69(2) sy-pagno intensified off,
' Of ',78(2) pages intensified off.
clear pages.
read table bnka1 with key bankl = int_rep-bankl .
if sy-subrc = 0.
if int_rep-zlsch eq 'T'.
write:/03(10) 'Bank Name : ', bnka1-banka.
write:/03(10) 'Branch : ', bnka1-brnch.
write:/03(10) 'Address : ', bnka1-stras.
endif.
endif.
skip.
write:/1(80) sy-uline.
write: /1 sy-vline, 2(5) 'Sl.No'(002),
7 sy-vline, 8(8) 'Emp.No.'(003),
16 sy-vline,17(35) 'Employee Name'(004).
*--added for Demand Draft
if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).
write : 47 sy-vline, 48(15) 'Payable at'(005).
else.
write : 47 sy-vline,48(15) 'Account No.'(005).
endif.
write: 63 sy-vline,64(16) 'Amount'(006),
80 sy-vline.
write:/1(80) sy-uline.
end-of-page.
write:/1(80) sy-uline.
write:/2 'Printed on ', sy-datum.
Start-of-selection.
start-of-selection.
*perform h_headr.
ctr = 0.
set margin 5.
call function 'RP_GET_CURRENCY'
exporting
molga = calcmolga
importing
waers = calc_currency
exceptions
others.
if sy-subrc ne 0.
calc_currency = 'DEM'.
calc_currency = save_calc_currency.
endif.
get pernr.
cd-key-pernr = pernr-pernr.
perform import_cluster.
get_pernr_flag = 1.
check : ocd-version-molga eq calcmolga.
The table 'tabpernr' is filled with the personnel numbers
and is used after selection is finished.
move-corresponding pernr to tabpernr.
append tabpernr.
The table 'tab_rgdir' is filled
loop at rgdir.
rx-key-pernr = pernr-pernr.
unpack rgdir-seqnr to rx-key-seqno.
perform int_tab. "fill tab_rgdir
perform import_bt.
perform validate.
endloop.
End of Selection
end-of-selection.
*perform h_headr.
perform convert_date_a using pa_mth r_mth_t.
sort int_rep by bankl zlsch pernr betrg descending.
delete adjacent duplicates from int_rep
comparing bankl zlsch pernr .
sort int_rep by bankl zlsch bankn . "PERNR.
loop at int_rep.
at new bankl.
select single * into bnka1 from bnka
where banks = c_banks and
bankl = int_rep-bankl .
append bnka1.
clear bnka1.
endat.
endloop.
for Demand Draft - purpose added
loop at int_rep.
concatenate pa_year(4) pa_mth(2) '01' into dt_merge.
select single * "zweck into int_rep-zweck
from pa0009 where
pernr = int_rep-pernr and
bankl = int_rep-bankl and
zlsch = int_rep-zlsch
and begda <= dt_merge and
endda >= dt_merge .
if sy-subrc = 0.
int_rep-zweck = pa0009-zweck.
modify int_rep.
endif.
endloop.
*-for DD and Chq sorted by PAyable at and EMPNO wise
if p_zlsch = 'T' .
sort int_rep by bankl zlsch bankn . "PERNR.
else. "added for "payable at" for DD/Chq
else.
sort int_rep by zweck pernr . "PERNR.
endif.
*delete adjacent duplicates from int_rep.
t_int_rep] = int_rep[.
loop at int_rep.
*-for page of page no.
total_page = 0.
loop at t_int_rep where bankl = int_rep-bankl
and zlsch = int_rep-zlsch.
total_page = total_page + 1.
endloop.
pages = total_page div 25.
remain = total_page mod 25.
comment bcoz its adding one extra page no.
done as on 29/11/2004
if remain > 0.
pages = pages + 1.
endif.
**-end
at new bankl.
ctr = 0 .
new-page.
endat.
at new zlsch.
ctr = 0 .
new-page.
endat.
clear v_id.
select single natio
into pa0002-natio
from pa0002
where pernr eq int_rep-pernr.
*-testing......for soma
if ctr > 24.
ctr = 0 .
write:/1(80) sy-uline.
new-page .
endif.
ctr = ctr + 1 .
cnt = cnt + 1.
pack int_rep-pernr to int_rep1.
write:/1 sy-vline, 2(3) cnt intensified off,
7 sy-vline, 9(6) int_rep1 intensified off,
16 sy-vline,17(35) int_rep-ename intensified off .
if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).
write : 47 sy-vline,48(15) int_rep-zweck intensified off.
else.
write:
47 sy-vline,48(15) int_rep-bankn intensified off .
endif.
write: 63 sy-vline,64(16) int_rep-betrg
intensified off currency 'INR',
80 sy-vline.
ws_betrg = ws_betrg + int_rep-betrg.
*-testing......for soma
skip.
write :
/1 sy-vline, 7 sy-vline ,16 sy-vline ,47 sy-vline,63 sy-vline,80
sy-vline .
*-end testing......for soma
at end of zlsch.
if int_rep-bankl = ' '.
call function 'HR_IN_CHG_INR_WRDS'
exporting
amt_in_num = ws_betrg
importing
amt_in_words = amount_word
EXCEPTIONS
DATA_TYPE_MISMATCH = 1
OTHERS = 2
w_val-word = amount_word.
concatenate 'INR.' w_val-word into w_val-word
separated by space.
write:/1(80) sy-uline.
write: /1 sy-vline, 7 'Total transfer:'(009),
64(16) ws_betrg intensified off currency 'INR',
80 sy-vline.
write:/1(80) sy-uline.
write: /1 sy-vline, 3 w_val-word+0(76) intensified off,
80 sy-vline.
write :/1 sy-vline, 10 w_val-word+76(70) intensified off,
80 sy-vline.
write:/1(80) sy-uline.
clear: ws_betrg,cnt.
skip 2.
write: /2 'Prepared by :'(010), '_______________'(013),
45 'Checked by :'(011),'_______________'(013).
skip 2.
write: /2 'Printed On ', sy-datum,
45 'Approved by :'(012),'_______________'(013).
clear sy-pagno.
endif.
endat.
at end of bankl.
if int_rep-bankl ' '.
call function 'HR_IN_CHG_INR_WRDS'
exporting
amt_in_num = ws_betrg
importing
amt_in_words = amount_word
EXCEPTIONS
DATA_TYPE_MISMATCH = 1
OTHERS = 2
w_val-word = amount_word.
concatenate 'INR.' w_val-word into w_val-word
separated by space.
write:/1(80) sy-uline.
write: /1 sy-vline, 7 'Total transfer:'(009),
64(16) ws_betrg intensified off currency 'INR',
80 sy-vline.
write:/1(80) sy-uline.
write: /1 sy-vline, 3 w_val-word+0(76) intensified off,
80 sy-vline.
write :/1 sy-vline, 10 w_val-word+76(70) intensified off,
80 sy-vline.
write:/1(80) sy-uline.
clear: ws_betrg,cnt.
skip 2.
write: /2 'Prepared by :'(010), '_______________'(013),
45 'Checked by :'(011),'_______________'(013).
skip 2.
write: /2 'Printed on ', sy-datum,
45 'Approved by :'(012),'_______________'(013).
clear sy-pagno.
NEW-PAGE.
endif.
endat.
endloop.
End of Page
end-of-page.
write: /2 'Prepared by :'(010), '_______________',
45 'Checked by :'(011),'_______________'.
*& Form IMPORT_CLUSTER
Importing Data from Cluster *
form import_cluster.
sy-subrc = 0.
rp-imp-c2-cd.
if sy-subrc eq 0.
if cd-version-number ne ocd-version-number.
endif.
endif. " SY-SUBRC EQ 0
endform. " IMPORT_CLUSTER
*& Form INT_TAB
Filling internal table tab_rgdir
form int_tab.
*Fill internal table tab_rgdir.
move-corresponding rgdir to tab_rgdir.
tab_rgdir-pernr = pernr-pernr.
append tab_rgdir.
endform. " INT_TAB
*& Form IMPORT_bt
Import Values from Bank Transactions Table (BT)
form import_bt.
rp-init-buffer.
RP-IMP-C2-RX.
rp-imp-c2-in.
if rp-imp-in-subrc eq 0.
if in-version-number ne oin-version-number.
write: / 'Schlüssel des Clusters RX:'(015),
rx-key-pernr, rx-key-seqno.
write: / 'The imported version of the cluster'(016), 'RX',
'is not current'(017).
write: / 'Imported version :'(018),
oin-version-number.
write: / 'Current version of cluster :'(019),
in-version-number.
stop.
else.
sy-subrc = 0.
endif.
else.
sy-subrc = 8.
write: /
'Inconsistencies between cluster directory and directory for'(020).
write: /
'No payroll results found for data in cluster directory'(021).
write : /
'Please contact hotline to solve the current problem'(022).
endif.
ws_fpbeg(2) = versc-fpbeg+4(2).
ws_fpbeg+2(4) = versc-fpbeg(4).
ws_fpend(2) = versc-fpend+4(2).
ws_fpend+2(4) = versc-fpend(4).
ws_mthyr(2) = pa_mth.
ws_mthyr+2(4) = pa_year.
check ws_mthyr = ws_fpbeg.
check ws_mthyr = ws_fpend.
loop at bt. "from pc209
int_rep-pernr = pernr-pernr.
int_rep-ename = pernr-ename.
int_rep-bankl = bt-bankl.
int_rep-bankn = bt-bankn.
int_rep-betrg = bt-betrg.
int_rep-zlsch = bt-zlsch.
append int_rep.
endloop.
IF P_BANKL ' ' AND P_ZLSCH ' '.
DELETE INT_REP WHERE BANKL P_BANKL.
ELSEIF P_BANKL = ' ' AND P_ZLSCH ' '.
DELETE INT_REP WHERE ZLSCH P_ZLSCH.
ELSEIF P_BANKL ' ' AND P_ZLSCH = ' '.
DELETE INT_REP WHERE BANKL P_BANKL.
ENDIF.
endform. " IMPORT_BT
*& Form CONVERT_MONTH
Fetching Month Text
form convert_month using mth t_mth.
case mth.
when '01'.
t_mth = 'January'(023).
when '02'.
t_mth = 'February'(024).
when '03'.
t_mth = 'March'(025).
when '04'.
t_mth = 'April'(026).
when '05'.
t_mth = 'May'(027).
when '06'.
t_mth = 'June'(028).
when '07'.
t_mth = 'July'(029).
when '08'.
t_mth = 'August'(030).
when '09'.
t_mth = 'September'(031).
when '10'.
t_mth = 'October'(032).
when '11'.
t_mth = 'November'(033).
when '12'.
t_mth = 'December'(034).
endcase.
endform. " CONVERT_MONTH
*& Form CONVERT_DATE_A
Fetching Month Text *
form convert_date_a using mth_t t_mth_t.
case mth_t.
when '01'.
t_mth_t = 'Jan.'(035).
when '02'.
t_mth_t = 'Feb.'(036).
when '03'.
t_mth_t = 'Mar.'(037).
when '04'.
t_mth_t = 'Apr.'(038).
when '05'.
t_mth_t = 'May.'(039).
when '06'.
t_mth_t = 'Jun.'(040).
when '07'.
t_mth_t = 'Jul.'(041).
when '08'.
t_mth_t = 'Aug.'(042).
when '09'.
t_mth_t = 'Sep.'(043).
when '10'.
t_mth_t = 'Oct.'(044).
when '11'.
t_mth_t = 'Nov.'(045).
when '12'.
t_mth_t = 'Dec.'(046).
endcase.
endform. " CONVERT_DATE_A
*& Form VALIDATE
text
--> p1 text
<-- p2 text
form validate .
if p_bankl <> ' ' and p_zlsch ' '.
delete int_rep where bankl p_bankl.
elseif p_bankl = ' ' and p_zlsch ' '.
delete int_rep where zlsch p_zlsch.
elseif p_bankl ' ' and p_zlsch = ' '.
delete int_rep where bankl p_bankl.
endif.
endform. " VALIDATE
check this weblog.....
/people/dj.adams/blog/2003/11/13/food-for-thought-ldbs-and-abap-objects
Also , check the following link too.
http://www.datamanagementgroup.com/Resources/Articles/Article_1005_2.asp
Regards,
Satish

Total transfer

Similar Messages

Maybe you are looking for