Uploading Time data to HR Clusters B1 and B2

Hi All,
My agenda is download Time data ( Hr cluster B1 and B2 ) from One SAP System ( 4.7 ) using Macr RP-IMP-C1-B1, RP-IMP-C2-B2 and upload to a ECC 6.0 SAP System using Macro RP-EXP-C1-B1, RP-EXp-C2-B2. Though uploading can be achieved using report RPTIME00( Provided all the infotypes filled ) , i dont want to do this because time schema may change which will cause data inconsistencies between two system.
I succesfully imported B1 Cluster from one system but when i try to upload the same data using macro RP-EXP-C1-B1, i am not getting any error( SY-SUBRC = 0 ) but data is not saved in the database even though i give a commit work.
I filled all the required values. i.e. i filled b1-key with personnel number and i filled PCL1-RELID, PCL1-SRTFD, PCL1-SRTF2
these fields with values and included includes
RPC1B100
RPC2B200
RPPPXD00
RPPPXD10
RPPPXM00
Macro RP-EXP-C1-B1 Code is
DEFINE RP-EXP-C1-B1.
PCL1-VERSN = B1-VERSION-NUMBER.
B1-VERSION-SAPRL =                                         "L6BK003229
               CL_PT_CLUSTER_UTIL=>GET_RELEASE( 'SAP_HR' ). "L6BK003229
B1-VERSION-UNAME = SY-UNAME.
B1-VERSION-DATUM = SY-DATUM.
B1-VERSION-UZEIT = SY-UZEIT.
B1-VERSION-PGMID = SY-REPID.
EXPORT B1-VERSION
       NT1
       NT2
       IFT1
       IFT2
       ERT
       NCT
       QT
       ST
       ITP1
       ITP7
       ITP50
       PDPPM
TO   DATABASE PCL1(B1)
ID B1-KEY USING PCL1_EXP_IMP.
RP-IMP-B1-SUBRC = SY-SUBRC.
END-OF-DEFINITION.
In this macro there is a using parameter PCL1_EXP_IMP which is routine used to handle buffers, i belive my data is not storing in the database table because of this why because if i put this code in a routine and call this routine in my program instead of calling the Macro. In this routine if i comment out "USING PCL1_EXP_IMP then everything i working fine but i dont know whether this routine is handling anyother thing.
Have anybody faced the same issue , how to handle buffers. Have anybody used macro RP-EXP-C1-B1 to upload Cluster B1 data , if so please let me know the steps to do that.
Thanks in advance .
Points will be rewarded for useful answers.

Hi Rajanidhi,
We are facing same issue, can u please post the solution? Any clue would help us a lot in this regard.
Thanks,
Somu

Similar Messages

Uploading Time data to HR Clusters B2

Please let me know how I can load Time data to HR Clusters B2 .
Thanks

You need to use macros for this
like
RP-EXP-C2-??
or if you want to use your own then
B2-key-pabrj = vyear).          u201C Year
B2-key-pabrp = vmonth.        u201C Month
B2-key-cltyp = '1'.                 u201C Cluster Type
B2-key-pernr = pernr-pernr.       u201C Personnel No
EXPORT tab = itab
TO DATABASE PCL2(B2)
CLIENT '000' " This is optional
ID B2-KEY.
and also check
http://help.sap.com/saphelp_erp60_sp/helpdata/en/2d/f44e6ecbf611d2960200a0c9306433/content.htm
a®

Upload time data using bdc

hi hr gurus,
plz help
we have 3 shifts like 6-2,2-10,10-6.
while uploading time data to sap from third party system.
do we need to take care of the shifts times in BDC?
or do we need to manage it in configurations
if you have any code please send me
regards

Hi,
As above said was the also procedure to do the BDC recording.Hope you understand the precedure in detail else have a look @ this.
1.Goto transaction shdb for recording.
2.There give the recording name starting with Z or Y letter.
3.Click "New Recording" button in the left extreme Application tool bar.
4.You will get a new pop up window Create Recording there give Recording Name"Z r Y" and give the transaction code that you going to record for e.g (PA30,XK01).
5.Leave the Mode as it is and click "Start Recording".
6.Here you will get the transaction code window for e.g if you are giving PA30 it will call the corresponding transaction.
7.Start recording by entering the values which you want to record.
8.After recording save the recording and give back.
9.There you find the list of process which is done.
10.Enter your recording name and press enter you will get the program name.
11.Select the program name and press "program" button in the application tool bar.It will ask abt the prgm name and give read from file.
12.You will get the coding in se38 for recording.
13.Edit your program for uploading the flat file from you legacy system to application server by using CALL FUNCTION "GUI_UPLOAD".
14.Get the flat file and fill it in internal table and pass the internal table values by giving "loop at internal table" after READ DATASET statement.
15.Select the call transaction for small no. of data for large no. of data we have to use session method.(Refer some links for difference between session and call transaction).
16.There by executing the program we will get the output which record are created.
Thanks,
Sakthi.C
*Rewards if usefull--*

Data Source to upload plan data for CO_OM_CCA_: CC: Costs and Allocations

Hi Guru's,
We have Data source that which upload Actual data for CCA (0CO_OM_CCA_1 - Cost Centers:cost and allocations). Every time it is full upload before loading the data deletion of previous load request will be done.
One more information required that i have checked in the BW cube for plan data it is available in the info cube for one cost center and rest of the costcenter i don't have the data now the users are requesting to upload the plan data for rest of cost centers.
Now as per the business requirement the users are requesting to upload the plan data in to the same i am not sure whether it will pull the plan data with actuals in to BW cube. Is there any alternate with the same data source or else is there any specific data source for uploading Costs and Allocations plan data
Please suggest me how can i go a head with this requirement.
Thanks in Advance.
Ganni

You can use the same datasource to load plan/budget data to the cube for all the costcenters. And regarding the actuals, you can use 0CO_OM_CCA_9 datasource to load to actuals cube and create a multi on top of both plan and actuals cube for reporting purposes.

Upload time data text file in ztable for HR module

dear all SAP guru's
text file is like that
260807300001
270815480001
270812210002.
1st 4 char is date&month .
2nd 4 char is time.
3rd 4 char is employee no.
i want to upload this file in z table.
when i m uploading the time is not uploading correctly.my condition is like that
already 1 condition is in Z table after that when i upload 2nd entry that time what 1st time is time in and 2nd is time out.
coding as fallows . give any solution for that.
LOOP AT it_out.
   CONCATENATE sy-datum0(4) it_out-text2(2) it_out-text+0(2) INTO itab1-val1.
   CONCATENATE it_out-text+4(4) '00' INTO itab1-val2.
   MOVE it_out-text+8(4) TO itab1-val3.
   APPEND itab1.
   CLEAR itab1.
ENDLOOP.
SELECT *
         FROM ztimedata
         INTO TABLE it_ztimedata.
DESCRIBE TABLE it_ztimedata LINES cnt.
LOOP AT it_out.
CLEAR cnt.
    LOOP AT itab1.
      itab1-date1 = itab1-val1.
      itab1-timein = itab1-val2.
      itab1-pernr = itab1-val3.
        cnt = cnt + 1.
      itab1-counter = cnt.
      MODIFY itab1.
    ENDLOOP.
ENDLOOP.
SORT itab1 BY pernr date1 timein.
DATA cnt1 TYPE i.
DATA p_date LIKE sy-datum.
SELECT SINGLE * FROM ztimedata
                 INTO CORRESPONDING FIELDS OF it_ztimedata.
LOOP AT itab1.
          ztimedata-counter    = itab1-counter.
          ztimedata-date1      = itab1-val1.
          ztimedata-pernr      = itab1-val3.
          ztimedata-shift      = itab1-shift.
          ztimedata-attendance = itab1-attendance.
          CLEAR IT_ZTIMEDATA-TIMEIN.
       IF ztimedata-timein IS INITIAL.
          it_ztimedata-timein     = itab1-val2.
          ztimedata-timein     = itab1-val2.
          CLEAR it_ztimedata-timeout .
       ELSEIF ztimedata-timein IS NOT INITIAL.
          it_ztimedata-timeout     = itab1-val2.
          ztimedata-timeout    = itab1-val2.
       ENDIF.
          append it_ztimedata.
          MODIFY ztimedata from it_ztimedata.
       COMMIT WORK.
ENDLOOP.
in that coding if any correction pls correct me.
Nikhil Narkhede

Hi,
You just try like this..Move date field into one Variable Year field into one variable and
Time field into one variable..Then Pass this field to your screen fields.
Rgs,
Priya.

Upload time data with BAPI

Hi guys,
anyone now how to use some of the following bapis?
BAPI_PTMGREXTREMSPEC_INSERT
BAPI_PTMGREXTREMSPEC_INSWACT
BAPI_PTMGREXTREMSPEC_INSWCOST
i need to know how to USE this bapis, i dont know how to insert data using this BAPI, wich parameters are needed.
tks in advance

Hi,
following is from the documentation:
 Import parameters
AttendanceAbsence
Attendance/absence
 Description
For more information on the individual parameter fields, see the data element documentation in the ABAP Dictionary.
The following data is required:
Logical system of the original document (Field EXTSYSTEM)
External application (Field EXTAPPLICATION)
Document number (Field EXTDOCUMENTNO)
Personnel number (Field EMPLOYEENUMBER)
From date (Field FROM_DATE)
To date (Field TO_DATE)
Attendance or absence type (Field ABS_ATT_TYPE)
Start time (Field START_TIME) and End time (Field END_TIME) or
Attendance/absence hours (Field ABS_ATT_HOURS)
What is your problem?
Regards
Bernd

Real-Time Data Sync-up between Oracle and MS SQL Server

Hi All,
I am looking for a solution to sync-up the data between Oracle and MS SQL Server in real time. Here, the structure of table is different (in the sense, the data in multiple table in SQL Server should be combined and put it in a single table in Oracle and vice versa).
Could anybody throw light on this plz?
Thanks in advance!

mt**** wrote:
Hi All,
I am looking for a solution to sync-up the data between Oracle and MS SQL Server in real time. Here, the structure of table is different (in the sense, the data in multiple table in SQL Server should be combined and put it in a single table in Oracle and vice versa).
Could anybody throw light on this plz?
Thanks in advance!Handle:     mt****
Status Level:     Newbie
Registered:     Feb 9, 2003
Total Posts:     183
Total Questions:     14 (10 unresolved)
why so MANY unanswered questions?
what should occur when DML occurs & the "other" DB is not online?

Batch Upload Customer Data - Bill-To, Ship-To and Contact

Hi there, need someone to advise,
I have 3 text files which are customer_info.txt, addresses_info.txt and contact_info.txt to upload into customer master
in Oracle, what is the strategy way to batch upload these information.
Regards.

You can find information about all APIs / interfaces at irep.oracle.com
The customer interfaces you refer to are commonly used.
You can find more information at http://download.oracle.com/docs/cd/A60725_05/html/comnls/us/ar/cusimp06.htm
A little bit of googling will give you sample code such as
http://freshers-oracleapplications.blogspot.com/2008/06/customer-interface-using-sql-loader.html
Hope this helps,
Sandeep Gandhi

Function modules to read Time clusters B1 and B2 from PCL1 and PCL2

Hi All
Are there any function modules or macros to read time clusters B1 & B2?
I want to read time data in the clusters for reporting purpose.
Regards,
Rupesh Mhatre

You can also call the FM HR_TIME_RESULTS_GET and get the exact cluster you need from B2 like WPBP, ZE, SALDO etc.
Otherwise if you want to use the older FM declare the GET_TBUFF and GET_BUFFER_DIR as of below structure.
DATA: BEGIN OF TBUFF OCCURS 5000.                           "XPMK014785
        INCLUDE STRUCTURE PCL1.
        DATA: SGART(2),
      END OF TBUFF.
DATA: BEGIN OF BUFFER_DIR OCCURS 2000,                      "XPMK014785
        SGART(2),
        CLIENT LIKE PCL1-CLIENT,
        RELID LIKE PCL1-RELID,
        SRTFD LIKE PCL1-SRTFD,
        NTABX LIKE SY-TABIX, "pointer auf aktuellen satz
        OTABX LIKE SY-TABIX, "pointer auf alten satz (falls vorhanden)
        NNUXT LIKE PCL1-SRTF2, "anzahl folgesaetze aktueller Satz
        ONUXT LIKE PCL1-SRTF2, "anzahl folgesaetze alter Satz
      ofset(3) type p,     "offset innerhalb eines entry
      END OF BUFFER_DIR.
INT_TIME_RESULTS should be of type PTM_TIME_RESULTS.
Regards
Ranganath

Example on extracting time data from clusters

Hi Experts,
 Please send me a sample code for time data extraction from clusters. or steps to extract time data from clusters.
Thank you.
Regards,
Admir.
Points will be rewarded.

Hi
see the sample report for time data fetching
But ime data is not fetched from Clusters, only payroll data is fetched from clusters
Time related infotypes are 2000 to 2999.
REPORT zh_absence_quota
 NO STANDARD PAGE HEADING
 MESSAGE-ID zh_msg
 LINE-SIZE 169
 LINE-COUNT 60(1).
 T A B L E S D E C L A R A T I O N S
TABLES: pernr, " Logical PNP
 t001p, " Personnel Subarea
 t529u, " Employment Status
 t500p, " Personnel Area
 t501, " Employee Group
 t503k, " Employee Subgroup
 t549a, " Payroll Area
 t554s, " Absence Type
 t554t, " Absence Type Texts
 t556a, " Quota Type
 t527x, " Orgn. Unit
 t556b, " Quota Type Text
 pa0003. " Payroll Status
INFOTYPES:
 0000, " Actions
 0001, " Organizational Assignment
 2006, " Absence Quota
 2001. " Absences
 T Y P E S D E C L A R A T I O N S
Employee Absence Structure
TYPES: BEGIN OF s_2001,
 pernr TYPE persno, " Personal Number
 awart TYPE awart, " Absence Type
 subty TYPE subty, " Sub Type
 endda TYPE endda, " End date
 begda TYPE begda, " Begin date
 abrtg TYPE abrtg, " Absence days
 ename TYPE emnam, " employee Name
 atext TYPE abwtxt, " Absence Type Text
 END OF s_2001.
Employee Absence Quota Structure
TYPES: BEGIN OF s_2006,
 pernr TYPE persno, " Personal Number
 ktart TYPE abwko, " Absence Quota Type
 year(4) TYPE n, " Year
 subty TYPE subty, " Sub Type
 endda TYPE endda, " End date
 begda TYPE begda, " Begin date
 anzhl TYPE ptm_quonum, " Absence Entitlement days
 ename TYPE emnam, " employee Name
 ktext TYPE kotxt, " Absence Type Text
 kverb TYPE kverb, " Deduction Quota days
 anzhb TYPE ptm_quonum, " Balance days
 END OF s_2006.
Combined Employee Absence and Quota Structure
TYPES: BEGIN OF s_rep,
 pernr TYPE persno, " Personal Number
 ktart TYPE abwko, " Absence Quota Type
 year(4) TYPE n, " Year
 anzhl TYPE ptm_quonum, " Absence Entitlement days
 kverb TYPE kverb, " Deduction Quota days
 anzhb TYPE ptm_quonum, " Balance days
 ktext TYPE kotxt, " Quota Type Text
 awart TYPE awart, " Absence Type
 abrtg TYPE abrtg, " Absence days
 ename TYPE emnam, " employee Name
 atext TYPE abwtxt, " Absence Type Text
 endda TYPE endda, " End date
 begda TYPE begda, " Begin date
 END OF s_rep.
Declaration of Variables
DATA : gv_atext TYPE abwtxt, " Absence Type Text
 gv_ktext TYPE kotxt, " Absence Type Text
 gv_title1 TYPE sylisel, " Report title
 gv_year(4) TYPE c, " Year
 gv_mon(2) TYPE c, " Month
 gv_hrs TYPE abwtg, " Hours
 gv_date TYPE sydatum, " Date
 gv_date1 TYPE sydatum, " Date
 gv_dial. " Color flag
Declaration of Constants
CONSTANTS :
c_x TYPE c VALUE 'X', " Sign
c_1 TYPE persg VALUE '1', " Emp Group
c_pernr(8) TYPE n VALUE '00000000', " Pernr
c_moabw TYPE moabw VALUE '01', " Per SA Grouping
c_mozko TYPE mozko VALUE '01', " Per SA Grouping
c_mopgk TYPE mopgk VALUE '1', " Emp SGrp Grouping
c_endda TYPE sydatum VALUE '99991231', " End Date
c_val1(2) TYPE c VALUE '31', " Date Type
c_val2(2) TYPE c VALUE '12', " Date Type
c_val LIKE p0041-dar01 VALUE '01', " Date Type
c_date1 LIKE sy-datum VALUE '18000101'. " Date
 I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_2001 TYPE STANDARD TABLE OF s_2001 WITH HEADER LINE,
 i_2006 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
 i_rep1 TYPE STANDARD TABLE OF s_2006 WITH HEADER LINE,
 i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE.
 S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_ktart FOR t556a-ktart, " Absence Quota Type
 s_awart FOR t554s-subty. " Absence Type
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-003. " Quota & Absence
PARAMETERS: p_qa RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-004. " Quota
PARAMETERS: p_q RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(33) text-005. " Absence
PARAMETERS: p_a RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK b2.
 I N I T I A L I Z A T I O N *
INITIALIZATION.
 A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_screen.
 S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Selection of Period
PERFORM get_period.
Get PERNR from LDB
GET pernr.
IF p0000-stat2 <> '0'.
Get the data from PA0001,PA2001, PA2006
 PERFORM get_pers_data.
ENDIF.
 T O P - O F - P A G E *
TOP-OF-PAGE.
Header of the List
PERFORM header.
 E N D - O F - P A G E *
Footer
END-OF-PAGE.
IF p_qa = c_x.
Display both Absence and Quota Data
 WRITE /1(188) sy-uline.
ELSEIF p_q = c_x.
Display only Quota Data
 WRITE /1(114) sy-uline.
ELSEIF p_a = c_x.
Display only Absence Data
 WRITE /1(125) sy-uline.
ENDIF.
 E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
Combine the Absence and Quota Data
PERFORM append_data.
IF p_qa = c_x.
Display both Absence and Quota Data
 PERFORM display_qa_data.
ELSEIF p_q = c_x.
Display only Quota Data
 PERFORM display_q_data.
ELSEIF p_a = c_x.
Display only Absence Data
 PERFORM display_a_data.
ENDIF.
*& Form validate_screen
Validation of Selection Screen fields
FORM validate_screen .
Validation of Personnel Number
CLEAR pa0003.
IF NOT pnppernr[] IS INITIAL.
 SELECT pernr
 FROM pa0003 UP TO 1 ROWS
 INTO pa0003-pernr
 WHERE pernr IN pnppernr.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Personnel Number'(006).
 ENDIF.
ENDIF.
Validation of Employee Status
CLEAR t529u.
IF NOT pnpstat2[] IS INITIAL.
 SELECT SINGLE statv
 INTO t529u-statv
 FROM t529u
 WHERE statv IN pnpstat2 AND
 statn = '2' AND
 sprsl = sy-langu.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Invalid Employee Status'(007).
 ENDIF.
ENDIF.
Validation of Personnel Area
CLEAR t500p.
IF NOT pnpwerks[] IS INITIAL.
 SELECT persa
 FROM t500p UP TO 1 ROWS
 INTO t500p-persa
 WHERE persa IN pnpwerks.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Personnel Area'(008).
 ENDIF.
ENDIF.
Validation of Personnel Sub Area
CLEAR t001p.
IF NOT pnpbtrtl[] IS INITIAL.
 SELECT btrtl
 FROM t001p UP TO 1 ROWS
 INTO t001p-btrtl
 WHERE btrtl IN pnpbtrtl.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Personnel Sub Area'(009).
 ENDIF.
ENDIF.
Validation of Employee Group
CLEAR t501.
IF NOT pnppersg[] IS INITIAL.
 SELECT persg
 FROM t501 UP TO 1 ROWS
 INTO t501-persg
 WHERE persg IN pnppersg.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Group'(010).
 ENDIF.
ENDIF.
Validation of Employee Sub Group
CLEAR t503k.
IF NOT pnppersk[] IS INITIAL.
 SELECT persk
 FROM t503k UP TO 1 ROWS
 INTO t503k-persk
 WHERE persk IN pnppersk.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Sub Group'(011).
 ENDIF.
ENDIF.
Validation of Payroll Area
CLEAR t549a.
IF NOT pnpabkrs[] IS INITIAL.
 SELECT abkrs
 FROM t549a UP TO 1 ROWS
 INTO t549a-abkrs
 WHERE abkrs IN pnpabkrs.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Payroll Area'(026).
 ENDIF.
ENDIF.
Validation of Absence Type
CLEAR t554s.
IF NOT s_awart[] IS INITIAL.
 SELECT subty
 FROM t554s UP TO 1 ROWS
 INTO t554s-subty
 WHERE subty IN s_awart AND
 moabw EQ c_moabw AND
 endda EQ c_endda.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Absence Type'(012).
 ENDIF.
ENDIF.
Validation of Absence Quota Type
CLEAR t556a.
IF NOT s_ktart[] IS INITIAL.
 SELECT ktart
 FROM t556a UP TO 1 ROWS
 INTO t556a-ktart
 WHERE ktart IN s_ktart AND
 mopgk EQ c_mopgk AND
 mozko EQ c_mozko AND
 endda EQ c_endda.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e999 WITH 'Incorrect Employee Quota Type'(013).
 ENDIF.
ENDIF.
ENDFORM. "validate_screen
*& Form get_period
Get the Correct Period based on Selection screen selection
FORM get_period.
CLEAR: gv_year,gv_mon, gv_date, gv_date1.
gv_year = sy-datum+0(4).
gv_mon = sy-datum+4(2).
IF pnptimr1 = c_x. " Current Date
 pnpbegda = sy-datum.
 pnpendda = sy-datum.
ELSEIF pnptimr2 = c_x. " Current Month
 CONCATENATE gv_year gv_mon c_val INTO gv_date.
 CONCATENATE gv_year gv_mon c_val1 INTO gv_date1.
 pnpbegda = gv_date.
 pnpendda = gv_date1.
ELSEIF pnptimr3 = c_x. " Current Year
 CONCATENATE gv_year c_val c_val INTO gv_date.
 CONCATENATE gv_year c_val2 c_val1 INTO gv_date1.
 pnpbegda = gv_date.
 pnpendda = gv_date1.
ELSEIF pnptimr4 = c_x. " Upto Today
 pnpbegda = c_date1.
 pnpendda = sy-datum.
ELSEIF pnptimr5 = c_x. " From Today
 pnpbegda = sy-datum.
 pnpendda = c_endda.
ELSE.
 IF ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
 pnpbegda = c_date1.
 pnpendda = c_endda.
 ELSEIF pnpbegda IS INITIAL AND NOT pnpendda IS INITIAL.
 pnpbegda = c_date1.
 pnpendda = pnpendda.
 ELSEIF NOT ( pnpbegda IS INITIAL AND pnpendda IS INITIAL ).
 pnpbegda = pnpbegda.
 pnpendda = pnpendda.
 ENDIF.
ENDIF.
ENDFORM. "get_period
*& Form get_pers_data
Get the Absence and Quota Data from PA0001,PA2001,PA2006
FORM get_pers_data.
DATA: lv_year1(4) TYPE n,
 lv_year2(4) TYPE n,
 lv_date1 TYPE sydatum,
 lv_date2 TYPE sydatum,
 lv_anzhb TYPE ptm_quonum. " Last Year Balance days
Get data from Respective Infotypes
rp_provide_from_last p0001 space pnpbegda pnpendda.
Absence Data
LOOP AT p2001 WHERE pernr = pernr-pernr AND
 begda GE pnpbegda AND
 endda LE pnpendda.
 IF p2001-awart IN s_awart.
 i_2001-pernr = pernr-pernr.
 i_2001-subty = p2001-subty.
 i_2001-awart = p2001-awart.
 i_2001-abrtg = p2001-abrtg.
 i_2001-begda = p2001-begda.
 i_2001-endda = p2001-endda.
 READ TABLE p0001 WITH KEY pernr = p2001-pernr.
 i_2001-ename = p0001-ename.
Get the Absence Type Text
 CLEAR gv_atext.
 SELECT SINGLE atext INTO gv_atext FROM t554t
 WHERE sprsl = sy-langu AND
 moabw = c_moabw AND
 awart = p2001-awart.
 IF sy-subrc = 0.
 i_2001-atext = gv_atext.
 ENDIF.
 APPEND i_2001.
 CLEAR i_2001.
 ENDIF.
ENDLOOP.
Quota Data
LOOP AT p2006 WHERE pernr = pernr-pernr AND
 begda GE pnpbegda AND
 endda LE pnpendda.
 IF p2006-ktart IN s_ktart.
 i_2006-pernr = pernr-pernr.
 i_2006-subty = p2006-subty.
 i_2006-begda = p2006-begda.
 i_2006-endda = p2006-endda.
 i_2006-year = p2006-endda+0(4).
 i_2006-ktart = p2006-ktart.
 i_2006-anzhl = p2006-anzhl.
 i_2006-kverb = p2006-kverb.
 i_2006-anzhb = p2006-anzhl - p2006-kverb.
 READ TABLE p0001 WITH KEY pernr = p2001-pernr.
 i_2006-ename = p0001-ename.
Get the Quota Type Text
 CLEAR gv_ktext.
 SELECT SINGLE ktext INTO gv_ktext FROM t556b
 WHERE sprsl = sy-langu AND
 mopgk = c_mopgk AND
 mozko = c_mozko AND
 ktart = p2006-ktart.
 IF sy-subrc = 0.
 i_2006-ktext = gv_ktext.
 ENDIF.
 APPEND i_2006.
 CLEAR i_2006.
 ENDIF.
ENDLOOP.
For Vacation Quota (80) get the Balance of the Last Year and
add to the Current Year Quota
LOOP AT i_2006.
 IF i_2006-ktart = '80'.
 lv_year1 = i_2006-endda+0(4).
 lv_year2 = lv_year1 - 1.
 CONCATENATE lv_year2 '01' '01' INTO lv_date1.
 CONCATENATE lv_year2 '12' '31' INTO lv_date2.
 LOOP AT p2006 WHERE pernr = i_2006-pernr AND
 begda GE lv_date1 AND
 endda LE lv_date2 AND
 ktart = '80'.
 lv_anzhb = p2006-anzhl - p2006-kverb.
 i_rep1-pernr = i_2006-pernr.
 i_rep1-ktext = i_2006-ktext.
 i_rep1-anzhl = p2006-anzhl.
 i_rep1-kverb = p2006-kverb.
 i_rep1-ename = i_2006-ename.
 i_rep1-begda = p2006-begda.
 i_rep1-endda = p2006-endda.
 i_rep1-anzhb = lv_anzhb.
 i_rep1-ktart = '80'.
 i_rep1-year = lv_year2.
 APPEND i_rep1.
 CLEAR: i_rep1.
 ENDLOOP.
 ENDIF.
 CLEAR: lv_year1, lv_year2,
 lv_date1, lv_date2,lv_anzhb.
ENDLOOP.
SORT i_rep1 BY pernr ktart.
ENDFORM. "get_pers_data
*& Form append_data
Put the Absence and Quota Data into one Report Int Table
FORM append_data.
CLEAR: i_rep.
REFRESH: i_rep.
SORT i_2001 BY pernr awart.
SORT i_2006 BY pernr ktart year.
Move I_REP1 data into i_2006
LOOP AT i_rep1.
 MOVE-CORRESPONDING i_rep1 TO i_2006.
 APPEND i_2006.
 CLEAR i_2006.
ENDLOOP.
Move the Absence and Quota Data into a final Int Table
LOOP AT i_2006.
 i_rep-pernr = i_2006-pernr.
 i_rep-ename = i_2006-ename.
 i_rep-ktart = i_2006-ktart.
 i_rep-anzhl = i_2006-anzhl.
 i_rep-kverb = i_2006-kverb.
 i_rep-ktext = i_2006-ktext.
 i_rep-anzhb = i_2006-anzhb.
 i_rep-year = i_2006-year.
 CLEAR i_2001.
 CASE i_2006-ktart.
 WHEN '81'.
 PERFORM get_2001 USING i_2006-pernr '1000' i_2006-year.
 WHEN '50'.
 PERFORM get_2001 USING i_2006-pernr '1002' i_2006-year.
 WHEN '80'.
 PERFORM get_2001 USING i_2006-pernr '1001' i_2006-year.
 WHEN '56'.
 PERFORM get_2001 USING i_2006-pernr '1003' i_2006-year.
 WHEN '51'.
 PERFORM get_2001 USING i_2006-pernr '1004' i_2006-year.
 WHEN '52'.
 PERFORM get_2001 USING i_2006-pernr '1005' i_2006-year.
 WHEN '54'.
 PERFORM get_2001 USING i_2006-pernr '1006' i_2006-year.
 WHEN '53'.
 PERFORM get_2001 USING i_2006-pernr '1007' i_2006-year.
 WHEN '55'.
 PERFORM get_2001 USING i_2006-pernr '1008' i_2006-year.
 WHEN '57'.
 PERFORM get_2001 USING i_2006-pernr '1009' i_2006-year.
 WHEN '90'.
 PERFORM get_2001 USING i_2006-pernr '2000' i_2006-year.
 WHEN '58'.
 PERFORM get_2001 USING i_2006-pernr '2001' i_2006-year.
 WHEN '59'.
 PERFORM get_2001 USING i_2006-pernr '2002' i_2006-year.
 WHEN '91'.
 PERFORM get_2001 USING i_2006-pernr '2003' i_2006-year.
 ENDCASE.
 IF sy-subrc <> 0.
 APPEND i_rep.
 ENDIF.
 CLEAR i_rep.
ENDLOOP.
SORT i_rep BY pernr ktart year.
DELETE i_rep WHERE pernr = ' '.
ENDFORM. " append_data
*& Form display_qa_data
Display the Absence and Quota Data
FORM display_qa_data.
DATA: lv_flag, " New Flag
 lv_tot2 TYPE ptm_quonum. " Absence Balance days
IF i_rep[] IS INITIAL.
 MESSAGE i000 WITH 'No Data found'(014).
ELSE.
 LOOP AT i_rep.
toggle color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
 AT NEW pernr.
 READ TABLE i_rep INDEX sy-tabix.
 WRITE:/1 sy-vline,2(8) i_rep-pernr,
 10 sy-vline,11(40) i_rep-ename.
 ENDAT.
 AT NEW ktart.
 READ TABLE i_rep INDEX sy-tabix.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,52(25) i_rep-ktext.
 ENDAT.
 AT NEW year.
 READ TABLE i_rep INDEX sy-tabix.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline, 78(4) i_rep-year,
 82 sy-vline, 83(11) i_rep-anzhl,
 94 sy-vline, 95(25) i_rep-atext,
 120 sy-vline,133 sy-vline,
 144 sy-vline,
 155 sy-vline,156(13) i_rep-anzhb,
 169 sy-vline.
 lv_tot2 = lv_tot2 + i_rep-anzhb.
 ENDAT.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline, 77 sy-vline,
 82 sy-vline, 94 sy-vline,
 120 sy-vline,121(12) i_rep-abrtg NO-ZERO,
 133 sy-vline,134(10) i_rep-begda NO-ZERO,
 144 sy-vline,145(10) i_rep-endda NO-ZERO,
 155 sy-vline,169 sy-vline.
 NEW-LINE.
 AT END OF pernr.
 WRITE : /1(169) sy-uline.
 SUM.
 FORMAT COLOR 3.
 WRITE:/1 sy-vline, 10 sy-vline,
 51 sy-vline, 77 sy-vline,
 82 sy-vline, 94 sy-vline,
 120 sy-vline,121(12) i_rep-abrtg,
 133 sy-vline,144 sy-vline,
 155 sy-vline, 156(13) lv_tot2,
 169 sy-vline.
 FORMAT COLOR OFF.
 WRITE : /1(169) sy-uline.
 CLEAR lv_tot2.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " display_qa_data
*& Form display_q_data
Display only the Quota Data
FORM display_q_data.
DATA: lv_flag. " New Flag
SORT i_2006 BY pernr ktart year.
IF i_2006[] IS INITIAL.
 MESSAGE i000 WITH 'No Data found'(014).
ELSE.
 LOOP AT i_2006.
Toggle Color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
 AT NEW pernr.
 READ TABLE i_2006 INDEX sy-tabix.
 WRITE: /1 sy-vline, 2(8) i_2006-pernr,
 10 sy-vline,11(40) i_2006-ename.
 ENDAT.
 AT NEW ktart.
 READ TABLE i_2006 INDEX sy-tabix.
 WRITE: 1 sy-vline,10 sy-vline,
 51 sy-vline,52(25) i_2006-ktext.
 ENDAT.
 AT NEW year.
 READ TABLE i_2006 INDEX sy-tabix.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline,78(4) i_2006-year,
 82 sy-vline,83(11) i_2006-anzhl,
 94 sy-vline,95(13) i_2006-anzhb,
 108 sy-vline.
 NEW-LINE.
 ENDAT.
 AT END OF pernr.
 WRITE : /1(108) sy-uline.
 SUM.
 FORMAT COLOR 3.
 WRITE: /1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline, 82 sy-vline,
 94 sy-vline, 95(13) i_2006-anzhb,
 108 sy-vline.
 FORMAT COLOR OFF.
 WRITE : /1(108) sy-uline.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " display_q_data
*& Form display_a_data
Display Only the Absence Quota
FORM display_a_data.
DATA: lv_flag. " New Flag
SORT i_2001 BY pernr awart.
IF i_2001[] IS INITIAL.
 MESSAGE i000 WITH 'No Data found'(014).
ELSE.
 LOOP AT i_2001.
Toggle Color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
 AT NEW pernr.
 READ TABLE i_2001 INDEX sy-tabix.
 WRITE: /1 sy-vline, 2(10) i_2001-pernr,
 10 sy-vline,11(40) i_2001-ename.
 ENDAT.
 WRITE: 1 sy-vline, 10 sy-vline,
 51 sy-vline,52(25) i_2001-atext,
 77 sy-vline,78(12) i_2001-abrtg,
 90 sy-vline,91(10) i_2001-begda,
 101 sy-vline,102(10) i_2001-endda,
 112 sy-vline.
 NEW-LINE.
 AT END OF pernr.
 WRITE : /1(112) sy-uline.
 SUM.
 FORMAT COLOR 3.
 WRITE: /1 sy-vline, 10 sy-vline,
 51 sy-vline,
 77 sy-vline,78(12) i_2001-abrtg,
 90 sy-vline,101 sy-vline,
 112 sy-vline.
 FORMAT COLOR OFF.
 WRITE : /1(112) sy-uline.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. " display_a_data
*& Form header
Write the Report Header
FORM header .
data : lv_pers type pbtxt,
 lv_orgn type orgtx.
gv_title1 = sy-title. " Set List Header
IF p_qa = c_x.
 NEW-PAGE LINE-SIZE 193.
ELSEIF p_a = c_x.
 NEW-PAGE LINE-SIZE 125.
ELSEIF p_q = c_x.
 NEW-PAGE LINE-SIZE 119.
ENDIF.
Standard header
FORMAT RESET.
CALL FUNCTION 'Z_STANDARD_HEADER'
 EXPORTING
 title1 = gv_title1.
Get the Personal Area and Org.Unit Texts
clear : lv_pers,lv_orgn.
select single name1 into lv_pers
 from t500p where persa = pnpwerks-low.
select single orgtx into lv_orgn
 from t527x where sprsl = sy-langu and
 orgeh = pnporgeh-low and
 endda = c_endda.
if not lv_pers is initial.
 write : /2 'Personal Area:'(017), 17(25) lv_pers color 7.
endif.
if not lv_orgn is initial.
 write : /2 'Organization Unit:'(021), 20(25) lv_orgn color 3.
endif.
IF p_qa = c_x.
 FORMAT COLOR COL_HEADING.
 WRITE : /1(169) sy-uline.
 WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
 10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
 51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
 77 sy-vline,78(4) 'Year'(027),
 82 sy-vline,83(11) 'Entitlement'(019),
 94 sy-vline,95(25) 'Absence Description'(022) CENTERED,
 120 sy-vline,121(12) 'Absence days'(023),
 133 sy-vline,134(10) 'From Date'(024),
 144 sy-vline,145(10) 'To Date'(025),
 155 sy-vline,156(13) 'Quota Balance'(020),
 169 sy-vline.
 WRITE : /1(169) sy-uline.
ELSEIF p_q = c_x.
 FORMAT COLOR COL_HEADING.
 WRITE : /1(108) sy-uline.
 WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
 10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
 51 sy-vline,52(25) 'Quota Description'(018) CENTERED,
 77 sy-vline,78(4) 'Year'(027),
 82 sy-vline,83(11) 'Entitlement'(019),
 94 sy-vline,95(13) 'Quota Balance'(020),
 108 sy-vline.
 WRITE : /1(108) sy-uline.
ELSEIF p_a = c_x.
 FORMAT COLOR COL_HEADING.
 WRITE : /1(112) sy-uline.
 WRITE:/1 sy-vline,2(8) 'Emp.No'(015) CENTERED,
 10 sy-vline,11(40) 'Employee Name'(016) CENTERED,
 51 sy-vline,52(25) 'Absence Description'(022) CENTERED,
 77 sy-vline,78(12) 'Absence days'(023),
 90 sy-vline,91(10) 'From Date'(024),
 101 sy-vline,102(10) 'To Date'(025),
 112 sy-vline.
 WRITE : /1(112) sy-uline.
ENDIF.
ENDFORM. " header
*& Form toggle_color
This routine alters the color of the records in the list
FORM toggle_color.
IF gv_dial = space.
 FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 gv_dial = c_x.
ELSE.
 FORMAT COLOR 1 INTENSIFIED OFF.
 CLEAR gv_dial.
ENDIF.
ENDFORM. " toggle_color
*& Form get_2001
Get the ABsence type for each Quota type
FORM get_2001 USING p_pernr TYPE persno
 p_value TYPE awart
 p_year.
LOOP AT i_2001 WHERE pernr = p_pernr AND
 awart = p_value AND
 endda+0(4) = p_year.
 i_rep-awart = i_2001-awart.
 i_rep-abrtg = i_2001-abrtg.
 i_rep-atext = i_2001-atext.
 i_rep-begda = i_2001-begda.
 i_rep-endda = i_2001-endda.
 APPEND i_rep.
ENDLOOP.
ENDFORM. " get_2001
Reward points for useful Answers
Regards
Anji

Record Working Time time data missing after save

Dear All,
I have some problem with my ESS record working time iview (CATW). All this while it was working fine until today, after I click on check entries and the save the time data, there is a message showing that the timesheet had been successfully submitted but the time data is missing form the field.
Normally after I click on check entries and save, I can still see the time data there even I logout and login again. But now after I click save, the data is not there anymore.
Any idea what wrong with it?
Regards,
Bryan

well the times will surely be saved! Please verify
this is just information
If you want to prevent this message to be issued, you
may consider a modification in the relevant function module
HR_BALANCE_TIMES_AGAINST_DWS:
Ganztägige Sätze
 IF BEGUZ_EXP <> SPACE06 AND
 STDAZ_EXP >= DAYGEN-SOLLZ AND "< change in ">"
 DAYGEN-SOLLZ <> 0.
 IF INFOTYPE = '2001'. "ABW umfaßt Sollarbeitszeit
 IF 1 = 2. MESSAGE I848(P2). ENDIF.
 CALL FUNCTION 'HR_APPEND_ERROR_LIST'
 EXPORTING
 ARBGB = 'P2'
 MSGTY = 'I'
 MSGNO = 848.
 BEGUZ_EXP = SPACE06.
 ENDUZ_EXP = SPACE06.
 STDAZ_EXP = DAYGEN-SOLLZ. MESSAGE_OCCURED = 'X'.
 ENDIF.
ENDIF."
I think this should be callend via ESS as well

So I have just had my potentially duff hard drive replaced and uploaded my data from time machine to discover that pages is now speaking to me in a different language. The keyboard has been selected as UK during setup. How do I get back to qwerty?

So I have just had my potentially duff 1Tb hard drive replaced by apple and uploaded my data from time machine only to discover that pages is now speaking to me in a different language. The keyboard has been selected as UK during setup. Any idea how I can get back to qwerty?

roxandiv wrote:
pages is now speaking to me in a different language.
What exactly are you referring to? Are the menus or templates for Pages in a different language? Does something strange appear on the screen when you type?
Could you perhaps use the Camera icon here to post a screenshot of what you are seeing?
To make sure you have the right keyboard, go to system preferences/language & text/input sources and make sure that only the box for US or British is checked (and that the box for French or German or anything else is not checked).

HT4759 Hello .. I've been subscribed for ic;oud for 20$ per year and I found it useless for many reasons: that I can not disconnect my mobile while the uploading process and it takes long time for uploading my data .. Its not a reliable system that's why

Hello .. I've been subscribed for ic;oud for 20$ per year and I found it useless for many reasons: that I can not disconnect my mobile while the uploading process and it takes long time for uploading my data .. Its not a reliable system that's why I need to deactivate the space service and take my money back .. Thanks

The "issues" you've raised are nothing to do with the iCloud service.
No service that uploads data allows you to disconnect the device you are uploading from while uploading data. Doing so would prevent the upload from completing. It is a basic requirement for any uploading service that you remain connected to it for uploading to be possible.
The time it takes to upload data to iCloud is entirely dependent on how fast your Internet connection is, and how much data you are uploading. Both of these things are completely out of Apple's control. Whichever upload service you use will be affected by the speed of your Internet connection.

I keep losing the time date stamp when uploading the video and need to keep it HELP

Using Premier 7 making a video for my son and need to keep the time/date stamp that is visible when playing the video direct from the camera to the tv. When I compile the video and burn to DVD this Stamp disappears how do keep it on the film that I am editing so when I burn it will be still there?

Ah, PrElements 7. I thought that you had Pr 7.0, which was also named PrPro 1.0.
The forum that you want is HERE.
Now, in PrE's forum, look for the FAQ section, to the right of the main page. Steve Grisetti has done a few FAQ's on HDD cameras, and their MPEG files.
As for your Date/Time stamp, I am not sure if any of the DVDate programs will work directly with that. There are a few threads, but I do not recall the solutions. Do a search of that forum and you will get some info.
Back in later versions of PrPro, I have some tips on TimeCode, but that is different than what you want.
I also do not know if something like SceneAlyzer Live can Capture what you want.
Still, others have asked in the PrE forum, so there might be some solutions.
See you there,
Hunt

Video editing from my camcorder. i cant get my time date display to display when i upload from ny cam corder to my computer why is this.

why doesnt the time date etc display that i have set on my camcorder to display during playback ,why does it not display when i upload my video to my imac...

Hang on...
You can only authorise the songs you purchase from the iTunes Store to play on five computers.
You can download and install iTunes (the iTunes programme) onto as many computers as you wish.
Two different things.
Assuming therefore, that your problem is that you have authorised five computers, but now no longer have some of them, you need to de-authorise all your computers and then re-authorise the computers you still have.
To de-authorise your computers, go to your account in the iTunes Store and look for the Deauthorise All button.

Uploading Time data to HR Clusters B1 and B2

Similar Messages

Maybe you are looking for