Crop in Lighroom 5 works less logical than in Lr4
Dear Support Team,
I and my colleguaes had found that crop tool in Lightroom 5 works less logical than in previous versions. As we had found, if we use crop once setting preset aspect (for example 3:4) and than if we'll try to crop once again with another ascpect (for example 16:9) it will be croped in correct proportion but just within the frame of previous crop. So if we do 4 crops with different aspect one by one, we'll got a very tiny part of picture. In previous versions of Lightroom, every next crop takes the maximum area of the photo.
This is a user to user forum - there is no support team here normally.
As for the Crop changes, many of us welcomed it as it was a huge time suck in our workflow to have to crops reset to maximum when the aspect ratio changed modestly. I consider this a huge bug fix or feature if you prefer.
Similar Messages
-
FF Less stable than IE. Numerous crashes, the latest quirk is that it will open a new window with a website already working on and NONE of the iterations of FF work. Have to reboot computer because can't even exit FF. Fix it or on to Chrome.
'''''"a new FF iteration"'''''
No such thing. All Firefox windows and tabs run in a single '''firefox.exe''' process, unlike IE which has a separate process for each window, or Chrome which opens a new process for each tab.
As far as the Firefox SafeMode, you can't open it when Firefox is running ''(unless you open a separate Profile purposely)'', if you try all you will get is another window in the "regular mode".
You're not going to be able to discover the cause of your problem if you're unwilling to follow established troubleshooting procedures, regardless of how intermittent the fault occurs. I wouldn't be surprised of you have an add-on installed which is causing that problem.
Another course of action would be to create a new Profile, which is like starting from scratch with a completely new Firefox installation. <br />
http://kb.mozillazine.org/Creating_a_new_Firefox_profile_on_Windows -
Lock Up Your Data for Up to 90% Less Cost than On-Premises Solutions with NetApp AltaVault
June 2015
Explore
Data-Protection Services from NetApp and Services-Certified Partners
Whether delivered by NetApp or by our professional and support services certified partners, these services help you achieve optimal data protection on-premises and in the hybrid cloud. We can help you address your IT challenges for protecting data with services to plan, build, and run NetApp solutions.
Plan Services—We help you create a roadmap for success by establishing a comprehensive data protection strategy for:
Modernizing backup for migrating data from tape to cloud storage
Recovering data quickly and easily in the cloud
Optimizing archive and retention for cold data storage
Meeting internal and external compliance regulations
Build Services—We work with you to help you quickly derive business value from your solutions:
Design a solution that meets your specific needs
Implement the solution using proven best practices
Integrate the solution into your environment
Run Services—We help you optimize performance and reduce risk in your environment by:
Maximizing availability
Minimizing recovery time
Supplying additional expertise to focus on data protection
Rachel Dines
Product Marketing, NetApp
The question is no longer if, but when you'll move your backup-and-recovery storage to the cloud.
As a genius IT pro, you know you can't afford to ignore cloud as a solution for your backup-and-recovery woes: exponential data growth, runaway costs, legacy systems that can't keep pace. Public or private clouds offer near-infinite scalability, deliver dramatic cost reductions and promise the unparalleled efficiency you need to compete in today's 24/7/365 marketplace.
Moreover, an ESG study found that backup and archive rank first among workloads enterprises are moving to the cloud.
Okay, fine. But as a prudent IT strategist, you demand airtight security and complete control over your data as well. Good thinking.
Hybrid Cloud Strategies Are the Future
Enterprises, large and small, are searching for the right blend of availability, security, and efficiency. The answer lies in achieving the perfect balance of on-premises, private cloud, and public services to match IT and business requirements.
To realize the full benefits of a hybrid cloud strategy for backup and recovery operations, you need to manage the dynamic nature of the environment— seamlessly connecting public and private clouds—so you can move your data where and when you want with complete freedom.
This begs the question of how to integrate these cloud resources into your existing environment. It's a daunting task. And, it's been a roadblock for companies seeking a simple, seamless, and secure entry point to cloud—until now.
Enter the Game Changer: NetApp AltaVault
NetApp® AltaVault® (formerly SteelStore) cloud-integrated storage is a genuine game changer. It's an enterprise-class appliance that lets you leverage public and private clouds with security and efficiency as part of your backup and recovery strategy.
AltaVault integrates seamlessly with your existing backup software. It compresses, deduplicates, encrypts, and streams data to the cloud provider you choose. AltaVault intelligently caches recent backups locally while vaulting older versions to the cloud, allowing for rapid restores with off-site protection. This results in a cloud-economics–driven backup-and-recovery strategy with faster recovery, reduced data loss, ironclad security, and minimal management overhead.
AltaVault delivers both enterprise-class data protection and up to 90% less cost than on-premises solutions. The solution is part of a rich NetApp data-protection portfolio that also includes SnapProtect®, SnapMIrror®, SnapVault®, NetApp Private Storage, Cloud ONTAP®, StorageGRID® Webscale, and MetroCluster®. Unmatched in the industry, this portfolio reinforces the data fabric and delivers value no one else can provide.
Figure 1) NetApp AltaVault Cloud-integrated Storage Appliance.
Source: NetApp, 2015
The NetApp AltaVault Cloud-Integrated Storage Appliance
Four Ways Your Peers Are Putting AltaVault to Work
How is AltaVault helping companies revolutionize their backup operations? Here are four ways your peers are improving their backups with AltaVault:
Killing Complexity. In a world of increasingly complicated backup and recovery solutions, financial services firm Spot Trading was pleased to find its AltaVault implementation extremely straightforward—after pointing their backup software at the appliance, "it just worked."
Boosting Efficiency. Australian homebuilder Metricon struggled with its tape backup infrastructure and rapid data growth before it deployed AltaVault. Now the company has reclaimed 80% of the time employees formerly spent on backups—and saved significant funds in the process.
Staying Flexible. Insurance broker Riggs, Counselman, Michaels & Downes feels good about using AltaVault as its first foray into public cloud because it isn't locked in to any one approach to cloud—public or private. The company knows any time it wants to make a change, it can.
Ensuring Security. Engineering firm Wright Pierce understands that if you do your homework right, it can mean better security in the cloud. After doing its homework, the firm selected AltaVault to securely store backup data in the cloud.
Three Flavors of AltaVault
AltaVault lets you tap into cloud economics while preserving your investments in existing backup infrastructure, and meeting your backup and recovery service-level agreements. It's available in three form factors: physical, virtual, and cloud-based.
1. AltaVault Physical Appliances
AltaVault physical appliances are the industry's most scalable cloud-integrated storage appliances, with capacities ranging from 32TB up to 384TB of usable local cache. Companies deploy AltaVault physical appliances in the data center to protect large volumes of data. These datasets typically require the highest available levels of performance and scalability.
AltaVault physical appliances are built on a scalable, efficient hardware platform that's optimized to reduce data footprints and rapidly stream data to the cloud.
2. AltaVault Virtual Appliances for Microsoft Hyper-V and VMware vSphere
AltaVault virtual appliances are an ideal solution for medium-sized businesses that want to get started with cloud backup. They're also perfect for enterprises that want to safeguard branch offices and remote offices with the same level of protection they employ in the data center.
AltaVault virtual appliances deliver the flexibility of deploying on heterogeneous hardware while providing all of the features and functionality of hardware-based appliances. AltaVault virtual appliances can be deployed onto VMware vSphere or Microsoft Hyper-V hypervisors—so you can choose the hardware that works best for you.
3. AltaVault Cloud-based Appliances for AWS and Microsoft Azure
For organizations without a secondary disaster recovery location, or for companies looking for extra protection with a low-cost tertiary site, cloud-based AltaVault appliances on Amazon Web Services (AWS) and Microsoft Azure are key to enabling cloud-based recovery.
On-premises AltaVault physical or virtual appliances seamlessly and securely back up your data to the cloud. If the primary site is unavailable, you can quickly spin up a cloud-based AltaVault appliance in AWS or Azure and recover data in the cloud. Usage-based, pay-as-you-go pricing means you pay only for what you use, when you use it.
AltaVault solutions are a key element of the NetApp vision for a Data Fabric; they provide the confidence that—no matter where your data lives—you can control, integrate, move, secure, and consistently manage it.
Figure 2) AltaVault integrates with existing storage and software to securely send data to any cloud.
Source: NetApp, 2015
Putting AltaVault to Work for You
Four common use cases illustrate the different ways that AltaVault physical and virtual appliances are helping companies augment and improve their backup and archive strategies:
Backup modernization and refresh. Many organizations still rely on tape, which increases their risk exposure because of the potential for lost media in transport, increased downtime and data loss, and limited testing ability. AltaVault serves as a tape replacement or as an update of old disk-based backup appliances and virtual tape libraries (VTLs).
Adding cloud-integrated backup. AltaVault makes a lot of sense if you already have a robust disk-to-disk backup strategy, but want to incorporate a cloud option for long-term storage of backups or to send certain backup workloads to the cloud. AltaVault can augment your existing purpose-built backup appliance (PBBA) for a long-term cloud tier.
Cold storage target. Companies want an inexpensive place to store large volumes of infrequently accessed file data for long periods of time. AltaVault works with CIFS and NFS protocols, and can send data to low-cost public or private storage for durable long-term retention.
Archive storage target. AltaVault can provide an archive solution for database logs or a target for Symantec Enterprise Vault. The simple-to-use AltaVault management platform can allow database administrators to manage the protection of their own systems.
We see two primary use cases for AltaVault cloud-based appliances, available in AWS and Azure clouds:
Recover on-premises workloads in the cloud. For organizations without a secondary disaster recovery location, or for companies looking for extra protection with a low-cost tertiary site, AltaVault cloud-based appliances are key to enabling cloud-based disaster recovery. Via on-premises AltaVault physical or virtual appliances, data is seamlessly and securely protected in the cloud.
Protect cloud-based workloads. AltaVault cloud-based appliances offer an efficient and secure approach to backing up production workloads already running in the public cloud. Using your existing backup software, AltaVault deduplicates, encrypts, and rapidly migrates data to low-cost cloud storage for long-term retention.
The benefits of cloud—infinite, flexible, and inexpensive storage and compute—are becoming too great to ignore. AltaVault delivers an efficient, secure alternative or addition to your current storage backup solution. Learn more about the benefits of AltaVault and how it can give your company the competitive edge you need in today's hyper-paced marketplace.
Rachel Dines is a product marketing manager for NetApp where she leads the marketing efforts for AltaVault, the company's cloud-integrated storage solution. Previously, Rachel was an industry analyst for Forrester Research, covering resiliency, backup, and cloud. Her research has paved the way for cloud-based resiliency and next-generation backup strategies.
Quick Links
Tech OnTap Community
Archive
PDFYou didn't say what phone you have - but you can set it to update and backup and sync over wifi only - I'm betting that those things are happening "automatically" using your cellular connection rather than wifi.
I sync my email automatically when I have a wifi connection, but I can sync manually if I need to. Downloads happen for me only on wifi, photo and video backup are only over wifi, app updates are only over wifi....check your settings. Another recent gotcha is Facebook and videos. LOTS of people are posting videos on Facebook and they automatically download and play UNLESS you turn them off. That can eat up your data in a hurry if you are on FB regularly. -
Soundtrack Pro making a LOT of files - used to working in Logic, need help
So I'm used to working with Logic Studio/7.2/etc, and it's my first foray into working with Soundtrack Pro at work. My questions are this: When I use the razorblade tool (since I can't find an equivalent to the split tool in logic) in soundtrack to cut up a sequence, it seems to be creating a LOT of extra files:
http://www.1217design.com/pics/stp_question.png is an example of what I mean. Is this supposed to happen? The recorded files themselves were done in FCP and sent to Soundtrack Pro via the Send to STP Multitrack session function.
What I'm trying to find out is: Is this supposed to be happening? How can I stop this from happening? Are all of these extra files necessary in order to export the final project? And what will happen if I delete them?
I just want to know because the folder is now 4.71gb for a 30 second audio file (the final aif export is roughly 30mb), and there's over 200 of these extra files that have been created in the process of working on this project.
If this is what is necessary to work in Final Cut then I won't be able to work with FCP due to size issues (which is a shame as I feel so much more comfortable working within that environment than I do working in FCP).
Thanks for the help in advance,
SeanSean A wrote:
By doing this, will it still create all of those extra files? That's what I'm trying to figure out. Is it just from the blade tool being used?
For all edits, yeah, baby, STP will generate more files than cows create methane.
First, I know what works for me, but I'm still learning, so I strongly encourage you to keep a COMPLETE BACKUP of all projects until you know your workflow. Also, you may have Preferences set up differently than I do, so you may not find the same paths as what I describe here.
When you have an audio file the way you want it, and you're confident that you won't need those edit files again (be SURE) Process > Flatten All Actions (or Audible Actions) and Save that audio file. Then -- as I understand it so far -- you can safely trash all the edits related to that file. (If you use Photoshop or similar visual programs, it's the same idea.)
During my first few weeks of intensive STP work, my drive grew more and more sluggish, for no reasons known to me. I saw disk space shrinking rapidly. Finally I figured it had to have something to do with STP, so I started searching and eventually I found my edits piling up in home/Documents/Soundtrack Pro Documents, especially (for me) in Edited Media. Since they all came from projects I'd finished and exported to AAC and MP3, I was comfortable trashing them all. Suddenly, whoa, I had an extra 12 GB of disk space available.
Just keep those edit files until you are CERTAIN that you know what you're doing and that you're DONE. Otherwise, when some project needs one precious little 3MB turn of a phrase, you may find yourself confronting suicidal or homicidal tendencies.
I welcome further clarification and/or correction from people who know more and can explain it better.
Best,
chuck -
Has anyone figured out how to make the Yamaha 01V96i mixer work with Logic 9.1.8
Has anyone figured out how to make the Yamaha 01V96i mixer work with Logic 9.1.8 as a control surface ?
In YAMAHA01v96i:
Go to DIO/SETUP select Generic DAW. Go to MIDI settings page and set the desired port (personally I use Number 1), Select the same audio frequency you use in your DAW (I use 44.1KhZ)...at this point You should save a scene in you 01V96i to avoid to repeat all the procedure again.
Open studio manager, go to patch and set the input port from 17 to 32 respectively to USB1-USB16 (this will give you the return from you DAW to the 01v96i
Save again the scene overwriting the old one.
in LOGIC
Click on preferences, select Audio then select 01v96i, then click on control surface and select Mackie design Baby HUI and in the midi session set the same port that you've been setting on the Yamaha 01V96i (Port 1 if you follow this example).
That's more or less it.
It worked for me...so far -
Why does my gmail have less messages than my Mail??
My Gmail has less messages than my mail. I want it to be exactly the same. If I'm on another computer I want to be able to go into my online gmail and only have what I had on my mac, in mail. Could someone point me in the right direction because its really getting to me!
See this article first: iTunes: Error 13019 during sync
If no luck, try rebuilding your iTunes library. This has worked a number of users.
iTunes: How to re-create your iTunes library and playlists
B-rock -
Java matcher - one less result than expected
Hi all,
I have a question about the Java matcher, which may have a very simple answer, but after a while trying to find the answer (through debugging and googling), I have come up with no solution.
Basically, I am trying to parse through CSV files and find text matching a user-defined String that is entered. I have written a small CSV file and have written many instances of one word (for instance "java"). However when I use the matcher.find() method upon the content of the CSV file, it always finds one less match than are actually in the file! (e.g. if there are 6 instances of the word 'java', the matcher finds 5). I have printed the contents of the CSV file to the screen and the whole file is correctly displayed, so it must be something to do with the way the matcher works. Here is my code, although it is only basic at the moment:
Pattern pattern = Pattern.compile("java", Pattern.CASE_INSENSITIVE);
Matcher matcher = pattern.matcher(pageContents); // this is a String containing the contents of the CSV file.
ArrayList<String> allMatches = new ArrayList<String>();
if (!matcher.find()) {
System.err.println("\nNo Matching Data Could Be Found In This Text File.\n");
System.exit(0);
while (matcher.find()) {
String individualMatch = matcher.group().trim();
System.out.println(individualMatch);
allMatches.add(individualMatch);
return allMatches;So basically I am returning an ArrayList of Strings which contains all matches of the word "java" (just as an example).
Any help would be greatly appreciated!
Thanks,
Jonif (!matcher.find()) { // This line matches the first one, and throws it away
System.err.println("\nNo Matching Data Could Be Found In This Text File.\n");
System.exit(0);
while (matcher.find()) { // .. since you call find here again.
String individualMatch = matcher.group().trim();
System.out.println(individualMatch);
allMatches.add(individualMatch);
return allMatches;Kaj -
Had a problem with newest update and the advice from turingtest2 resolved my problem just to say thanks! Had never used this route before so was less painful than thought it would be again thanks.
how can i find out what the fix is that works..please
-
Am getting this error in my code
Inconsistent accessibility: parameter type 'CRUDApplication.Models.IEmployeeRepository' is less accessible than method 'CRUDApplication.Controllers.EmployeeController.EmployeeController(CRUDApplication.Models.IEmployeeRepository)'
Here's my code
// EmployeeController.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Mvc;
using CRUDApplication.Models;
using System.Data;
namespace CRUDApplication.Controllers
public class EmployeeController : Controller
// GET: /Employee/
private IEmployeeRepository _repository;
public EmployeeController()
: this(new EmployeeRepository())
public EmployeeController(IEmployeeRepository repository)
_repository = repository;
public ActionResult Index()
var employee = _repository.GetEmployee();
return View(employee);
public ActionResult Details(int id)
EmployeeModel model = _repository.GetEmployeeByID(id);
return View(model);
public ActionResult Create()
return View(new EmployeeModel());
[HttpPost]
public ActionResult Create(EmployeeModel employee)
try
if (ModelState.IsValid)
_repository.InsertEmployee(employee);
return RedirectToAction("Index");
catch (DataException)
ModelState.AddModelError("", "Can't be Saved!");
return View(employee);
public ActionResult Edit(int id)
EmployeeModel model = _repository.GetEmployeeByID(id);
return View(model);
[HttpPost]
public ActionResult Edit(EmployeeModel employee)
try
if (ModelState.IsValid)
_repository.UpdateEmployee(employee);
return RedirectToAction("Index");
catch (DataException)
ModelState.AddModelError("", "Can't be Saved!");
return View(employee);
public ActionResult Delete(int id, bool? saveChangesError)
if (saveChangesError.GetValueOrDefault())
ViewBag.ErrorMessage = "Can't be Deleted!";
EmployeeModel employee = _repository.GetEmployeeByID(id);
return View(employee);
[HttpPost, ActionName("Delete")]
public ActionResult DeleteConfirmed(int id)
try
EmployeeModel user = _repository.GetEmployeeByID(id);
_repository.DeleteEmployee(id);
catch (DataException)
return RedirectToAction("Delete",
new System.Web.Routing.RouteValueDictionary {
{ "id", id },
{ "saveChangesError", true } });
return RedirectToAction("Index");
// IEmployeeRepository.cs
namespace CRUDApplication.Models
interface IEmployeeRepository
IEnumerable<EmployeeModel> GetEmployee();
EmployeeModel GetEmployeeByID(int Emp_ID);
void InsertEmployee(EmployeeModel emp_Model);
void DeleteEmployee(int Emp_ID);
void UpdateEmployee(EmployeeModel emp_Model);
// EmployeeRepository.cs
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
namespace CRUDApplication.Models
public class EmployeeRepository : IEmployeeRepository
private EmployeeDataContext emp_DataContext;
public EmployeeRepository()
emp_DataContext = new EmployeeDataContext();
public IEnumerable<EmployeeModel> GetEmployee()
IList<EmployeeModel> employeeList = new List<EmployeeModel>();
var myQuery = from q in emp_DataContext.EmployeeTabs
select q;
var emp = myQuery.ToList();
foreach (var empData in emp)
employeeList.Add(new EmployeeModel()
ID = empData.ID,
Emp_ID = empData.Emp_ID,
Name = empData.Name,
Dept = empData.Dept,
City = empData.City,
State = empData.State,
Country = empData.Country,
Mobile = empData.Mobile
return employeeList;
public void InsertEmployee(EmployeeModel emp_Model)
var empData = new EmployeeTab()
Emp_ID = emp_Model.Emp_ID,
Name = emp_Model.Name,
Dept = emp_Model.Dept,
City = emp_Model.City,
State = emp_Model.State,
Country = emp_Model.Country,
Mobile = emp_Model.Mobile
emp_DataContext.EmployeeTabs.InsertOnSubmit(empData);
emp_DataContext.SubmitChanges();
public void DeleteEmployee(int Emp_ID)
EmployeeTab employee = emp_DataContext.EmployeeTabs.Where(u => u.ID == Emp_ID).SingleOrDefault();
emp_DataContext.EmployeeTabs.DeleteOnSubmit(employee);
emp_DataContext.SubmitChanges();
public void UpdateEmployee(EmployeeModel emp_Model)
EmployeeTab EmpData = emp_DataContext.EmployeeTabs.Where(u => u.ID == emp_Model.ID).SingleOrDefault();
EmpData.Name = emp_Model.Name;
EmpData.Dept = emp_Model.Dept;
EmpData.City = emp_Model.City;
EmpData.State = emp_Model.State;
EmpData.Country = emp_Model.Country;
EmpData.Mobile = emp_Model.Mobile;
emp_DataContext.SubmitChanges();You have a ctor on EmployeeController that is public and therefore callable by anyone. However it accepts an IEmployeeRepository which is not a public type. Therefore it will not compile. You can fix this one of several ways:
Make IEmployeeRepository public
IEmployeeRepository is most likely marked as internal so mark the EmployeeController ctor as internal as well. Chances are this was done for unit testing so if you mark it internal then your unit test project won't find it anymore. To work around
that add
InternalsVisibleTo attribute to your repository assembly as well. The parameter will be the name of your unit test project. This allows the unit test project to find the internal ctor.
Michael Taylor
http://blogs.msmvps.com/p3net -
Mail send to employee even worked for more than 45 hrs
Hi All,
We have developed functionality in which if employee works less than 45 hrs then mail is triggered to that employee.
But the issue is sometimes mail is triggered to some employees even if he worked more than 45 hrs.
We tried to create a same scenario in quality and development but mail is not triggered in that case.
Please find the below code.
Please let me is it because of not clearing wa_time variable???
GET peras.
rp_provide_from_last p0000 space sy-datum sy-datum. "latest p0000 record
IF p0000-stat2 EQ '3'.
rp_provide_from_last p0001 space sy-datum sy-datum."latest p0001 record
IF p0001-bukrs EQ '***'.
rp_read_infotype peras-pernr 2001 p2001 gv_beg gv_end.
rp_read_infotype peras-pernr 2002 p2002 gv_beg gv_end.
rp_read_infotype peras-pernr 2006 p2006 '18000101' sy-datum.
IF rb1 EQ 'X'.
n = 1.
ELSEIF rb2 EQ 'X'.
n = 5.
ENDIF.
CLEAR : gv_cntr,gv_dat,gv_week.
gv_dat = gv_beg.
DO n TIMES.
IF gv_dat GT gv_end.
gv_week = n - 1.
EXIT.
ENDIF.
gv_cntr = gv_cntr + 1.
IF gv_cntr GT 1 .
* gv_beg = gv_beg + 2.
gv_dat = gv_dat + 2.
ENDIF.
DO 5 TIMES .
* if rb2 eq 'X'.
IF gv_dat LE gv_end.
* endif.
READ TABLE it_time INTO wa_time WITH KEY pernr = p0001-pernr
ldate = gv_dat
satza = 'P10'.
IF sy-subrc EQ '0'.
gv_in = wa_time-ltime.
READ TABLE it_time INTO wa_time WITH KEY pernr = p0001-pernr
ldate = gv_dat
satza = 'P20'.
IF sy-subrc EQ '0'.
gv_out = wa_time-ltime.
gv_time = gv_time + ( gv_out - gv_in ) .
* CALL FUNCTION 'MONI_TIME_CONVERT'
* EXPORTING
* ld_duration = gv_time
* IMPORTING
* lt_output_duration = gv_tot.
*gv_tote = gv_tot.
* gv_total = gv_total + gv_tote.
* clear : gv_tot,gv_tote.
**CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
** EXPORTING
** input = gv_time
*** NO_TYPE_CHECK = 'X'
*** ROUND_SIGN = ' '
** UNIT_IN = 'S'
** UNIT_OUT = 'H'
** IMPORTING
*** ADD_CONST =
*** DECIMALS =
*** DENOMINATOR =
*** NUMERATOR =
** OUTPUT = gv_total
** EXCEPTIONS
** CONVERSION_NOT_FOUND = 1
** DIVISION_BY_ZERO = 2
** INPUT_INVALID = 3
** OUTPUT_INVALID = 4
** OVERFLOW = 5
** TYPE_INVALID = 6
** UNITS_MISSING = 7
** UNIT_IN_NOT_FOUND = 8
** UNIT_OUT_NOT_FOUND = 9
** OTHERS = 10
**IF sy-subrc <> 0.
*** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
**ENDIF.
* CALL FUNCTION 'POINT_IN_TIME_CONVERT'
* EXPORTING
** KZ_ENDTERMIN = ' '
* point_in_time = gv_time
* IMPORTING
** DATE =
* time = gv_hours."actual working hours
* gv_total = gv_total + gv_hours.
gv_punch = 'X'.
CLEAR wa_final.
CLEAR :gv_out,gv_in,gv_hours.
ENDIF.
ENDIF.
IF gv_punch IS INITIAL .
LOOP AT p2001 WHERE pernr EQ peras-pernr AND begda LE gv_dat AND endda GE gv_dat.
* gv_total = gv_total + 090000.
gv_time = gv_time + 32400.
gv_abs = 'X'.
ENDLOOP.
ENDIF.
IF gv_punch IS INITIAL AND gv_abs IS INITIAL.
LOOP AT p2002 WHERE pernr EQ peras-pernr AND begda LE gv_dat AND endda GE gv_dat.
gv_time = gv_time + 32400.
gv_prs = 'X'.
* gv_total = gv_total + 090000.
ENDLOOP.
ENDIF.
* PERFORM holiday_check USING gv_dat.
IF gv_punch IS INITIAL AND gv_abs IS INITIAL AND gv_prs IS INITIAL.
CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
EXPORTING
date = gv_dat
holiday_calendar_id = 'HM'
IMPORTING
holiday_found = gv_ind.
IF gv_ind EQ 'X'.
gv_time = gv_time + 32400.
ENDIF.
CLEAR gv_ind.
ENDIF.
CLEAR :gv_punch, gv_abs ,gv_prs.
gv_dat = gv_dat + 1.
IF gv_dat GT gv_end.
EXIT.
ENDIF.
ENDIF.
ENDDO.
CLEAR : gv_tot,gv_tim.
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_time
IMPORTING
lt_output_duration = gv_tot.
* IF gv_beg LE gv_end.
CONCATENATE gv_tot+2(2) gv_tot+5(2) gv_tot+8(2) INTO gv_tim.
v_dat = ( gv_dat - 1 ).
wa-awh = wa-awh + gv_time.
IF v_dat EQ gv_end.
wa-pernr = p0001-pernr.
APPEND wa TO it.
CLEAR wa.
ENDIF.
IF gv_tim LT c_hrs .
wa_final-pernr = p0001-pernr.
* WA_FINAL-BEGDA = SY-DATUM.
wa_final-ename = p0001-ename.
* wa_final-actual = gv_time.
wa_final-diff = gv_45hrs - gv_time.
wa_final-plans = p0001-plans.
CLEAR : wa_t001p.
READ TABLE it_t001p INTO wa_t001p WITH KEY werks = p0001-werks
btrtl = p0001-btrtl.
IF sy-subrc EQ 0.
wa_final-dept = wa_t001p-btext.
ENDIF.
CLEAR gv_org.
PERFORM org_text.
wa_final-divsn = gv_org.
wa_final-werks = p0001-werks.
wa_final-sacha = p0001-sachp.
IF wa_final-diff GT 0.
APPEND wa_final TO it_final.
ENDIF.
CLEAR wa_final.
ENDIF.
* ENDIF.
CLEAR : gv_time ,gv_hours.
CLEAR gv_tot.
CLEAR : gv_total.
ENDDO.
CLEAR gv_cntr.
* ENDIF.
ENDIF.
ENDIF.
* CLEAR gv_beg.
END-OF-SELECTION.Hi Ketul,
Still i'm facing the same issue even after clearing wa_time variable.Sometime it's triggering and sometimes it not.
I'm attaching the whole code for your reference. Pls let me know.
Waiting for your reply.
Thanks!!!!!!!!
CODE:
REPORT zhr_vwgsipl_pt_wrknghrs.
INCLUDE zhr_vwgsipl_wrkng_hrs_top. "data declaration
INCLUDE zhr_vwgsipl_wrkng_hrs_init.
INCLUDE zhr_vwgsipl_wrkng_hrs_process. " PROCESSING.
INCLUDE zhr_vwgsipl_wrkng_hrs_display ."DISPLAY
*& Form ORG_TEXT
* text
* --> p1 text
* <-- p2 text
FORM org_text .
CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT'
EXPORTING
otype = 'O'
objid = p0001-orgeh
costcenter = p0001-kostl
* CONTROLLINGAREA =
status = '1'
begda = '18000101'
endda = '99991231'
reference_date = sy-datum
langu = sy-langu
IMPORTING
* SHORT_TEXT =
object_text = gv_org
* costcenter_name = gv_cst
* INTEGRATION_ACTIVE =
* RETURN =
EXCEPTIONS
nothing_found = 1
wrong_objecttype = 2
missing_costcenter_data = 3
missing_object_id = 4
OTHERS = 5
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " ORG_TEXT
& Include ZHR_VWGSIPL_WRKNG_HRS_INIT
IF rb1 EQ 'X'.
* IF pn-begda IS INITIAL.
IF sy-batch EQ 'X'.
gv_beg = sy-datum - 4."sy-datum - 5.
gv_end = sy-datum.
ELSE.
gv_beg = pn-begda.
gv_end = pn-endda.
ENDIF.
ELSEIF rb2 EQ 'X'.
IF sy-batch NE 'X'." IS NOT INITIAL.
gv_beg = pn-begda.
gv_end = pn-endda.
CALL FUNCTION 'DATE_COMPUTE_DAY'
EXPORTING
date = gv_beg
IMPORTING
day = gv_day.
IF gv_day LT 5.
gv_beg = gv_beg - gv_day + 1 .
ELSEIF gv_day EQ 5 .
gv_beg = gv_beg + 3.
ELSEIF gv_day EQ 6.
gv_beg = gv_beg + 2.
ELSEIF gv_day EQ 7.
gv_beg = gv_beg + 1.
ENDIF.
CLEAR gv_day.
CALL FUNCTION 'DATE_COMPUTE_DAY'
EXPORTING
date = gv_end
IMPORTING
day = gv_day.
IF gv_day LT 5.
gv_end = gv_end - gv_day - 2.
ELSEIF gv_day EQ 5.
gv_end = gv_end.
ELSEIF gv_day EQ 6.
gv_end = gv_end - 1.
ELSEIF gv_day EQ 7.
gv_end = gv_end - 2.
ENDIF.
* ENDIF.
* ENDIF.
ELSE.
IF sy-datum+4(2) NE '01'.
gv_mnth = sy-datum+4(2) - 01."c_date+4(2) - 1."sy-datum+4(2) - 1.
ELSE.
gv_mnth = 12.
ENDIF.
CONCATENATE sy-datum+0(4) gv_mnth sy-datum+6(2) INTO gv_beg.
CALL FUNCTION 'DATE_COMPUTE_DAY'
EXPORTING
date = gv_beg
IMPORTING
day = gv_day.
IF gv_day LT 5.
gv_beg = gv_beg - gv_day + 1 .
ELSEIF gv_day EQ 5 .
gv_beg = gv_beg + 3.
ELSEIF gv_day EQ 6.
gv_beg = gv_beg + 2.
ELSEIF gv_day EQ 7.
gv_beg = gv_beg + 1.
ENDIF.
CLEAR gv_day.
CALL FUNCTION 'DATE_COMPUTE_DAY'
EXPORTING
date = sy-datum
IMPORTING
day = gv_day.
IF gv_day LT 5.
gv_end = sy-datum - gv_day - 2.
ELSEIF gv_day EQ 5.
gv_end = sy-datum.
ELSEIF gv_day EQ 6.
gv_end = sy-datum - 1.
ELSEIF gv_day EQ 7.
gv_end = sy-datum - 2.
ENDIF.
ENDIF.
ENDIF.
CLEAR : it_time,it_receiver,it_usrid,it_t001p.
SELECT pernr ldate ltime satza
FROM teven INTO TABLE it_time
WHERE pernr IN pnppernr AND
ldate BETWEEN gv_beg AND gv_end
AND stokz NE 'X'.
SELECT pernr subty usrid usrid_long
FROM pa0105 INTO TABLE it_receiver
WHERE "pernr IN pnppernr
" AND subty = '0010'
endda >= gv_end
AND begda <= gv_end.
SORT it_receiver BY pernr.
*clear wa_admin.
* select single werks sachz
* from pa0001
* into wa_admin
* where pernr in wa_final-pernr
* and endda >= sy-datum
* and begda <= sy-datum.
SELECT werks sachx usrid
FROM t526 INTO TABLE it_usrid.
* SELECT pernr usrid usrid_long
* FROM pa0105 INTO TABLE it_ccreceiver
* FOR ALL ENTRIES IN it_usrid
* WHERE usrid EQ it_usrid-usrid
* AND subty = '0010'
* AND endda >= gv_end
* AND begda <= gv_end.
SELECT werks btrtl btext FROM t001p
INTO TABLE it_t001p
WHERE werks IN pnpwerks
AND btrtl IN pnpbtrtl.
*& Include ZHR_VWGSIPL_WRKNG_HRS_PROCESS
GET peras.
rp_provide_from_last p0000 space sy-datum sy-datum. "latest p0000 record
IF p0000-stat2 EQ '3'.
rp_provide_from_last p0001 space sy-datum sy-datum."latest p0001 record
IF p0001-bukrs EQ '2680'.
rp_read_infotype peras-pernr 2001 p2001 gv_beg gv_end.
rp_read_infotype peras-pernr 2002 p2002 gv_beg gv_end.
rp_read_infotype peras-pernr 2006 p2006 '18000101' sy-datum.
IF rb1 EQ 'X'.
n = 1.
ELSEIF rb2 EQ 'X'.
n = 5.
ENDIF.
CLEAR : gv_cntr,gv_dat,gv_week.
gv_dat = gv_beg.
DO n TIMES.
IF gv_dat GT gv_end.
gv_week = n - 1.
EXIT.
ENDIF.
gv_cntr = gv_cntr + 1.
IF gv_cntr GT 1 .
* gv_beg = gv_beg + 2.
gv_dat = gv_dat + 2.
ENDIF.
DO 5 TIMES .
* if rb2 eq 'X'.
IF gv_dat LE gv_end.
* endif.
READ TABLE it_time INTO wa_time WITH KEY pernr = p0001-pernr
ldate = gv_dat
satza = 'P10'.
IF sy-subrc EQ '0'.
gv_in = wa_time-ltime.
CLEAR : wa_time.
READ TABLE it_time INTO wa_time WITH KEY pernr = p0001-pernr
ldate = gv_dat
satza = 'P20'.
IF sy-subrc EQ '0'.
gv_out = wa_time-ltime.
gv_time = gv_time + ( gv_out - gv_in ) .
CLEAR : wa_time.
* CALL FUNCTION 'MONI_TIME_CONVERT'
* EXPORTING
* ld_duration = gv_time
* IMPORTING
* lt_output_duration = gv_tot.
*gv_tote = gv_tot.
* gv_total = gv_total + gv_tote.
* clear : gv_tot,gv_tote.
**CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
** EXPORTING
** input = gv_time
*** NO_TYPE_CHECK = 'X'
*** ROUND_SIGN = ' '
** UNIT_IN = 'S'
** UNIT_OUT = 'H'
** IMPORTING
*** ADD_CONST =
*** DECIMALS =
*** DENOMINATOR =
*** NUMERATOR =
** OUTPUT = gv_total
** EXCEPTIONS
** CONVERSION_NOT_FOUND = 1
** DIVISION_BY_ZERO = 2
** INPUT_INVALID = 3
** OUTPUT_INVALID = 4
** OVERFLOW = 5
** TYPE_INVALID = 6
** UNITS_MISSING = 7
** UNIT_IN_NOT_FOUND = 8
** UNIT_OUT_NOT_FOUND = 9
** OTHERS = 10
**IF sy-subrc <> 0.
*** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
**ENDIF.
* CALL FUNCTION 'POINT_IN_TIME_CONVERT'
* EXPORTING
** KZ_ENDTERMIN = ' '
* point_in_time = gv_time
* IMPORTING
** DATE =
* time = gv_hours."actual working hours
* gv_total = gv_total + gv_hours.
gv_punch = 'X'.
CLEAR wa_final.
CLEAR :gv_out,gv_in,gv_hours.
ENDIF.
ENDIF.
IF gv_punch IS INITIAL .
LOOP AT p2001 WHERE pernr EQ peras-pernr AND begda LE gv_dat AND endda GE gv_dat.
* gv_total = gv_total + 090000.
gv_time = gv_time + 32400.
gv_abs = 'X'.
ENDLOOP.
ENDIF.
IF gv_punch IS INITIAL AND gv_abs IS INITIAL.
LOOP AT p2002 WHERE pernr EQ peras-pernr AND begda LE gv_dat AND endda GE gv_dat.
gv_time = gv_time + 32400.
gv_prs = 'X'.
* gv_total = gv_total + 090000.
ENDLOOP.
ENDIF.
* PERFORM holiday_check USING gv_dat.
IF gv_punch IS INITIAL AND gv_abs IS INITIAL AND gv_prs IS INITIAL.
CALL FUNCTION 'HOLIDAY_CHECK_AND_GET_INFO'
EXPORTING
date = gv_dat
holiday_calendar_id = 'HM'
IMPORTING
holiday_found = gv_ind.
IF gv_ind EQ 'X'.
gv_time = gv_time + 32400.
ENDIF.
CLEAR gv_ind.
ENDIF.
CLEAR :gv_punch, gv_abs ,gv_prs.
gv_dat = gv_dat + 1.
IF gv_dat GT gv_end.
EXIT.
ENDIF.
ENDIF.
ENDDO.
CLEAR : gv_tot,gv_tim.
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_time
IMPORTING
lt_output_duration = gv_tot.
* IF gv_beg LE gv_end.
CONCATENATE gv_tot+2(2) gv_tot+5(2) gv_tot+8(2) INTO gv_tim.
v_dat = ( gv_dat - 1 ).
wa-awh = wa-awh + gv_time.
IF v_dat EQ gv_end.
wa-pernr = p0001-pernr.
APPEND wa TO it.
CLEAR wa.
ENDIF.
IF gv_tim LT c_hrs .
wa_final-pernr = p0001-pernr.
* WA_FINAL-BEGDA = SY-DATUM.
wa_final-ename = p0001-ename.
* wa_final-actual = gv_time.
wa_final-diff = gv_45hrs - gv_time.
wa_final-plans = p0001-plans.
CLEAR : wa_t001p.
READ TABLE it_t001p INTO wa_t001p WITH KEY werks = p0001-werks
btrtl = p0001-btrtl.
IF sy-subrc EQ 0.
wa_final-dept = wa_t001p-btext.
ENDIF.
CLEAR gv_org.
PERFORM org_text.
wa_final-divsn = gv_org.
wa_final-werks = p0001-werks.
wa_final-sacha = p0001-sachp.
IF wa_final-diff GT 0.
APPEND wa_final TO it_final.
ENDIF.
CLEAR wa_final.
ENDIF.
* ENDIF.
CLEAR : gv_time ,gv_hours.
CLEAR: gv_tot,gv_tim.
CLEAR : gv_total.
ENDDO.
CLEAR gv_cntr.
* ENDIF.
ENDIF.
ENDIF.
* CLEAR gv_beg.
END-OF-SELECTION.
*& Include ZHR_VWGSIPL_WRKNG_HRS_DISPLAY
CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'
EXPORTING
begda = gv_beg
endda = gv_end
* TAB_MODE = ' '
IMPORTING
* DAYS =
c_weeks = gv_week
* C_MONTHS =
* C_YEARS =
* WEEKS =
* MONTHS =
* YEARS =
* D_MONTHS =
* MONTH_TAB =
gv_week = gv_week + 1.
* CALL FUNCTION 'DATE_COMPUTE_DAY'
* EXPORTING
* date = gv_end
* IMPORTING
* day = gv_day1.
* if gv_day1 eq '5' or gv_day1 eq
LOOP AT it_final INTO wa_final."looping at list of employee hvng shrtg.
CLEAR : gv_diff ,gv_cntr1 , gv_cntr2,gv_upl,gv_upl1.
IF rb2 EQ 'X'.
CLEAR : gv_cntr1.
LOOP AT it_final INTO wa_final WHERE pernr EQ wa_final-pernr .
gv_diff = gv_diff + wa_final-diff. " total shrtg
* gv_cntr1 = gv_cntr1 + 1.
ENDLOOP.
* calc no od dyas to be deducted.
gv_cntr1 = FLOOR( gv_diff / 32400 ) .
gv_cntr2 = ( gv_diff MOD 32400 ) .
IF gv_cntr2 IS NOT INITIAL.
gv_cntr2 = '0.50' .
ENDIF.
CLEAR gv_quota.
*total el quota available.
LOOP AT p2006 WHERE subty EQ '20' and DESTA le sy-datum and DEEND ge sy-datum .
gv_quota = gv_quota + p2006-anzhl - p2006-kverb.
gv_quota = FLOOR( gv_quota ).
ENDLOOP.
*leaves to be deducted
IF gv_cntr1 LE gv_quota.
*deduction from EL.
quota-pernr = wa_final-pernr .
quota-infty = c_infty.
quota-subty = c_sub.
PERFORM holidy_check.
quota-endda = sy-datum + gv_cntr1 + gv_no - 1.
CLEAR gv_no.
quota-begda = sy-datum.
quota-awart = c_sub.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = wa_final-pernr.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '2001'
number = wa_final-pernr
subtype = c_sub
validityend = quota-endda
validitybegin = quota-begda
record = quota
operation = 'INS'
tclas = 'A'
nocommit = no_commit
IMPORTING
return = bapireturn
key = bapipakey.
gv_start2 = quota-endda.
*preparing the list whose leave has been deducted.
wa_mail-pernr = wa_final-pernr.
wa_mail-ename = wa_final-ename.
wa_mail-divsn = wa_final-divsn.
wa_mail-dept = wa_final-dept.
wa_mail-lvdays = gv_cntr1.
CONCATENATE sy-datum+6(2) '.' sy-datum+4(2) '.' sy-datum+0(4) '-' quota-endda+6(2) '.' quota-endda+4(2) '.' quota-endda+0(4) INTO wa_mail-lvdat.
* wa_mail-lvdat = sy-datum.
wa_mail-lvtyp = 'Earned Leave'.
IF bapireturn-message IS NOT INITIAL.
wa_mail-status = bapireturn-message.
ELSE.
wa_mail-status = 'Created'.
ENDIF.
wa_mail-werks = wa_final-werks.
wa_mail-sacha = wa_final-sacha.
gv_plnd = gv_week * 45 * 60 * 60. "total planned working hrs
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_plnd
IMPORTING
lt_output_duration = wa_mail-plnd.
CLEAR wa.
READ TABLE it INTO wa WITH KEY pernr = wa_final-pernr..
IF wa IS NOT INITIAL.
gv_actl = wa-awh . "actual wrkng hrs "gv_plnd - gv_diff. "actual wrkng hrs
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_actl
IMPORTING
lt_output_duration = wa_mail-actl.
ENDIF.
APPEND wa_mail TO it_mail.
CLEAR :wa_mail,gv_plnd,gv_actl.
CLEAR quota .
* REFRESH quota.
ELSE.
gv_upl = gv_cntr1 - gv_quota.
*unpaid leave deduction
IF gv_quota IS NOT INITIAL.
quota-pernr = wa_final-pernr .
quota-infty = c_infty.
quota-subty = c_sub.
PERFORM holiday_check1.
quota-endda = sy-datum + gv_quota + gv_no - 1.
CLEAR gv_no.
quota-begda = sy-datum.
quota-awart = c_sub.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = wa_final-pernr.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '2001'
number = wa_final-pernr
subtype = c_sub
* OBJECTID =
* LOCKINDICATOR =
validityend = quota-endda
validitybegin = quota-begda
* RECORDNUMBER =
record = quota
operation = 'INS'
tclas = 'A'
* DIALOG_MODE = '0'
nocommit = no_commit
* VIEW_IDENTIFIER =
* SECONDARY_RECORD =
IMPORTING
return = bapireturn
key = bapipakey
gv_start1 = quota-endda.
wa_mail-pernr = wa_final-pernr.
wa_mail-ename = wa_final-ename.
wa_mail-divsn = wa_final-divsn.
wa_mail-dept = wa_final-dept.
gv_quota1 = gv_quota.
wa_mail-lvdays = gv_quota1.
CONCATENATE sy-datum+6(2) '.' sy-datum+4(2) '.' sy-datum+0(4) '-' quota-endda+6(2) '.' quota-endda+4(2) '.' quota-endda+0(4) INTO wa_mail-lvdat.
* wa_mail-lvdat = sy-datum.
wa_mail-lvtyp = 'Earned Leave'.
* CONCATENATE bapireturn-id
* bapireturn-number INTO wa_mail-status.
IF bapireturn-message IS NOT INITIAL.
wa_mail-status = bapireturn-message.
ELSE.
wa_mail-status = 'Created'.
ENDIF.
wa_mail-werks = wa_final-werks.
wa_mail-sacha = wa_final-sacha.
gv_plnd = gv_week * 45 * 60 * 60.
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_plnd
IMPORTING
lt_output_duration = wa_mail-plnd.
CLEAR wa.
READ TABLE it INTO wa WITH KEY pernr = wa_final-pernr..
IF wa IS NOT INITIAL.
gv_actl = wa-awh . "actual wrkng hrs "gv_plnd - gv_diff. "actual wrkng hrs
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_actl
IMPORTING
lt_output_duration = wa_mail-actl.
ENDIF.
APPEND wa_mail TO it_mail.
CLEAR :gv_plnd,gv_actl,wa_mail.
CLEAR quota .
* REFRESH quota.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = wa_final-pernr.
ENDIF.
* gv_upl1 = CEIL( gv_upl + gv_cntr2 ).
IF gv_upl IS NOT INITIAL.
*Unpaid leave deduction
quota-pernr = wa_final-pernr .
quota-infty = c_infty.
quota-subty = c_sub1.
* quota-stdaz = gv_upl + gv_cntr2 .
IF gv_start1 IS INITIAL.
PERFORM holiday_check2.
quota-endda = sy-datum + gv_upl + gv_no - 1.
quota-begda = sy-datum.
CLEAR gv_no.
ELSE.
PERFORM holiday_check3.
quota-endda = gv_start1 + gv_upl + gv_no.
quota-begda = gv_start1 + 1.
CLEAR gv_no.
ENDIF.
quota-awart = c_sub1.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = wa_final-pernr.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '2001'
number = wa_final-pernr
subtype = c_sub1
validityend = quota-endda
validitybegin = quota-begda
record = quota
operation = 'INS'
tclas = 'A'
nocommit = no_commit
IMPORTING
return = bapireturn
key = bapipakey.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = wa_final-pernr.
gv_start2 = quota-endda.
wa_mail-pernr = wa_final-pernr.
wa_mail-ename = wa_final-ename.
wa_mail-divsn = wa_final-divsn.
wa_mail-dept = wa_final-dept.
wa_mail-lvdays = gv_upl.
CONCATENATE quota-begda+6(2) '.' quota-begda+4(2) '.' quota-begda+0(4) '-' quota-endda+6(2) '.' quota-endda+4(2) '.' quota-endda+0(4) INTO wa_mail-lvdat.
* wa_mail-lvdat = quota-begda.
wa_mail-lvtyp = 'Unpaid Leave'.
* CONCATENATE bapireturn-id
* bapireturn-number INTO wa_mail-status.
IF bapireturn-message IS NOT INITIAL.
wa_mail-status = bapireturn-message.
ELSE.
wa_mail-status = 'Created'.
ENDIF.
wa_mail-werks = wa_final-werks.
wa_mail-sacha = wa_final-sacha.
gv_plnd = gv_week * 45 * 60 * 60.
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_plnd
IMPORTING
lt_output_duration = wa_mail-plnd.
CLEAR wa.
READ TABLE it INTO wa WITH KEY pernr = wa_final-pernr..
IF wa IS NOT INITIAL.
gv_actl = wa-awh . "actual wrkng hrs "gv_plnd - gv_diff. "actual wrkng hrs
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_actl
IMPORTING
lt_output_duration = wa_mail-actl.
ENDIF.
APPEND wa_mail TO it_mail.
CLEAR :gv_actl,gv_plnd,wa_mail.
CLEAR quota.
ENDIF.
ENDIF.
* half day unpaid leave
IF gv_cntr2 IS NOT INITIAL.
quota-pernr = wa_final-pernr .
quota-infty = c_infty.
quota-subty = c_sub1.
quota-beguz = '090000'.
quota-enduz = '133000'.
* quota-stdaz = gv_cntr2 .
IF gv_start2 IS INITIAL.
PERFORM holiday_check4.
quota-endda = sy-datum + gv_no.
quota-begda = sy-datum + gv_no .
CLEAR gv_no.
ELSE.
PERFORM holiday_check5.
quota-endda = gv_start2 + gv_no + 1.
quota-begda = gv_start2 + gv_no + 1."gv_start2 + 1.
CLEAR gv_no.
ENDIF.
quota-awart = c_sub1.
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = wa_final-pernr.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '2001'
number = wa_final-pernr
subtype = c_sub1
validityend = quota-endda
validitybegin = quota-begda
record = quota
operation = 'INS'
tclas = 'A'
nocommit = no_commit
IMPORTING
return = bapireturn
key = bapipakey.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = wa_final-pernr.
wa_mail-pernr = wa_final-pernr.
wa_mail-ename = wa_final-ename.
wa_mail-divsn = wa_final-divsn.
wa_mail-dept = wa_final-dept.
wa_mail-lvdays = '0.5'.
CONCATENATE quota-begda+6(2) '.' quota-begda+4(2) '.' quota-begda+0(4) '-' quota-endda+6(2) '.' quota-endda+4(2) '.' quota-endda+0(4) INTO wa_mail-lvdat.
* wa_mail-lvdat = quota-begda.
wa_mail-lvtyp = 'Unpaid Leave'.
* CONCATENATE bapireturn-id
* bapireturn-number INTO wa_mail-status.
IF bapireturn-message IS NOT INITIAL.
wa_mail-status = bapireturn-message.
ELSE.
wa_mail-status = 'Created'.
ENDIF.
wa_mail-werks = wa_final-werks.
wa_mail-sacha = wa_final-sacha.
gv_plnd = gv_week * 45 * 60 * 60.
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_plnd
IMPORTING
lt_output_duration = wa_mail-plnd.
CLEAR wa.
READ TABLE it INTO wa WITH KEY pernr = wa_final-pernr..
IF wa IS NOT INITIAL.
gv_actl = wa-awh . "actual wrkng hrs "gv_plnd - gv_diff. "actual wrkng hrs
CALL FUNCTION 'MONI_TIME_CONVERT'
EXPORTING
ld_duration = gv_actl
IMPORTING
lt_output_duration = wa_mail-actl.
ENDIF.
APPEND wa_mail TO it_mail.
CLEAR : gv_plnd,gv_actl,wa_mail.
CLEAR quota.
ENDIF.
ENDIF.
DELETE it_final WHERE pernr EQ wa_final-pernr.
IF bapireturn IS INITIAL.
READ TABLE it_receiver INTO wa_receiver WITH KEY pernr = wa_final-pernr
subty = '0010'.
IF sy-subrc EQ '0'.
receiver = wa_receiver-usrid_long.
CLEAR wa_receiver.
ENDIF.
*Commented for cc mail to HR.
* READ TABLE it_usrid INTO wa_usrid WITH KEY werks = p0001-werks
* sachx = p0001-sachp.
* IF sy-subrc EQ '0'.
* READ TABLE it_receiver INTO wa_receiver WITH KEY usrid = wa_usrid-usrid.
* IF sy-subrc EQ '0'.
* READ TABLE it_receiver INTO wa_receiver WITH KEY pernr = wa_receiver-pernr
* subty = '0010'.
* IF rb2 EQ 'X'.
* cc_reciv = wa_receiver-usrid_long.
* ENDIF.
* ENDIF.
* ENDIF.
CONCATENATE wa_final-begda+6(2)'.' wa_final-begda+4(2) '.' wa_final-begda+0(4) INTO gv_begda.
CONCATENATE wa_final-ltime+0(2)'.' wa_final-ltime+2(2) INTO gv_ltime.
* if empid is not initial and employee is not initial and reciever is not initial.
**------------Create Content--------------------*
CONCATENATE 'Dear' wa_final-ename INTO hello_emp SEPARATED BY space.
CONCATENATE hello_emp ',' INTO hello_emp.
APPEND hello_emp TO content.
CLEAR: hello_emp.
APPEND space TO content.
IF rb1 EQ 'X'.
APPEND 'This is to inform you that there is a shortfall in your working hours this week. As you are aware,our working hour policy states that an employee needs to work 45 hours a week - that is,'
TO content.
APPEND 'an average of nine hours a day including the half-hour lunch break.' TO content.
ELSE.
APPEND 'You have not worked 45 hours in a week and the same is also not regularized till 15th of the current month.' TO content.
ENDIF.
APPEND space TO content.
IF rb1 EQ 'X'.
APPEND 'It is recommended that you get this done at the earliest, as it could impact your Earned Leaves, and perhaps, even your salary. ' TO content.
APPEND space TO content.
APPEND 'All it requires is regularising your attendance which takes just a few minutes via our ESS portal. Here is the link: http:************.' TO content.
APPEND space TO content.
APPEND 'If you have any queries, do refer to our Leave Policy or contact HR Team.' TO content.
APPEND space TO content.
APPEND space TO content.
APPEND 'Best Regards,' TO content.
APPEND space TO content.
APPEND 'Your HR Team' TO content.
APPEND space TO content.
APPEND '**This is an automatically generated mail. Please do not reply to this mail.**' TO content.
* APPEND ' You are therefore, advised to regularize your attendance to ensure 45 hours. Failure to do so will lead to deduction of Earned Leave for the shortfall of the absence period.'
* TO content.
ELSE.
APPEND 'Hence, the short fall of the working hours has been adjusted against your “Earned Leave”.' TO content.
* ENDIF.
* CONCATENATE hello_emp '.' INTO hello_emp.
APPEND space TO content.
APPEND'If, you do not have sufficient quota of Earned Leave, this will be treated as “Unpaid Leave” and salary will be deducted accordingly.' TO content.
APPEND space TO content.
APPEND 'For details, please refer the Leave Policy.' TO content.
APPEND space TO content.
APPEND 'Kindly use the following link to access the ESS portal to check your “Leaves and Quotas”.' TO content.
APPEND space TO content.
APPEND 'http:**************' TO content.
APPEND space TO content.
APPEND space TO content.
APPEND '**This is an automatically generated mail. Please do not reply to this mail.**' TO content.
APPEND space TO content.
ENDIF.
*APPEND'Best Regards,' TO content.
*APPEND employee TO content.
**------------Mail trigger----------------------*
TRY.
send_request = cl_bcs=>create_persistent( ).
CATCH cx_send_req_bcs.
ENDTRY.
WRITE 'Shortfall of working time' TO subject.
TRY.
CALL METHOD cl_document_bcs=>create_document
EXPORTING
i_type = 'RAW'
i_subject = subject
* i_length =
* i_language = SPACE
* i_importance =
* i_sensitivity =
i_text = content
* i_hex =
* i_header =
* i_sender =
RECEIVING
result = mail_doc
CATCH cx_document_bcs.
ENDTRY.
TRY.
CALL METHOD send_request->set_document
EXPORTING
i_document = mail_doc.
CATCH cx_send_req_bcs .
ENDTRY.
TRY.
CALL METHOD cl_sapuser_bcs=>create
EXPORTING
i_user = sy-uname
RECEIVING
result = sender.
CATCH cx_address_bcs .
ENDTRY.
TRY.
CALL METHOD send_request->set_sender
EXPORTING
i_sender = sender.
CATCH cx_send_req_bcs .
ENDTRY.
TRY.
CALL METHOD cl_cam_address_bcs=>create_internet_address
EXPORTING
i_address_string = receiver
* i_address_name =
* i_incl_sapuser =
RECEIVING
result = recipient
CATCH cx_address_bcs .
ENDTRY.
CLEAR :receiver.
* *Commented for cc mail to HR.
* TRY.
* CALL METHOD cl_cam_address_bcs=>create_internet_address
* EXPORTING
* i_address_string = cc_reciv
** i_address_name =
** i_incl_sapuser =
* RECEIVING
* result = recipient_cc
* CATCH cx_address_bcs .
* ENDTRY.
TRY.
CALL METHOD send_request->add_recipient
EXPORTING
i_recipient = recipient
i_express = 'U'
* i_copy =
* i_blind_copy =
* i_no_forward =
CATCH cx_send_req_bcs .
ENDTRY.
* TRY.
* CALL METHOD send_request->add_recipient
* EXPORTING
* i_recipient = recipient_cc
* i_express = 'U'
* i_copy = 'X'
** i_blind_copy =
** i_no_forward =
* CATCH cx_send_req_bcs .
* ENDTRY.
TRY.
CALL METHOD send_request->set_send_immediately
EXPORTING
i_send_immediately = 'X'.
CATCH cx_send_req_bcs .
ENDTRY.
TRY.
CALL METHOD send_request->send
* EXPORTING
* i_with_error_screen = SPACE
* receiving
* RESULT =
CATCH cx_send_req_bcs .
ENDTRY.
COMMIT WORK.
ELSE.
READ TABLE it_usrid INTO wa_usrid WITH KEY werks = p0001-werks
sachx = p0001-sachp.
IF sy-subrc EQ '0'.
READ TABLE it_receiver INTO wa_receiver WITH KEY usrid = wa_usrid-usrid.
IF sy-subrc EQ '0'.
READ TABLE it_receiver INTO wa_receiver WITH KEY pernr = wa_receiver-pernr
subty = '0010'.
receiver = wa_receiver-usrid_long.
cc_reciv = '*'.
ENDIF.
ENDIF.
CONCATENATE wa_final-begda+6(2)'.' wa_final-begda+4(2) '.' wa_final-begda+0(4) INTO gv_begda.
CONCATENATE wa_final-ltime+0(2)'.' wa_final-ltime+2(2) INTO gv_ltime.
* if empid is not initial and employee is not initial and reciever is not initial.
**------------Create Content--------------------*
CONCATENATE 'Hello' ',' INTO hello_emp.
* CONCATENATE hello_emp ',' INTO hello_emp.
APPEND hello_emp TO content.
CLEAR: hello_emp.
APPEND space TO content.
CONCATENATE 'Employee' wa_final-ename bapireturn-type
bapireturn-id
bapireturn-number
bapireturn-message
bapireturn-log_no
bapireturn-log_msg_no
bapireturn-message_v1
bapireturn-message_v2
bapireturn-message_v3
bapireturn-message_v4 INTO hello_emp SEPARATED BY space.
APPEND hello_emp TO content.
CLEAR: hello_emp.
APPEND space TO content.
* CONCATENATE hello_emp '.' INTO hello_emp.
* APPEND hello_emp TO content.
* CLEAR: hello_emp.
* APPEND space TO content.
* APPEND 'For details, please refer Leave Policy.' TO content.
* APPEND space TO content.
APPEND 'Please check Infotype 2001 and 2006 .' TO content.
APPEND space TO content.
* APPEND '***********************l' TO content.
* APPEND space TO content.
* APPEND space TO content.
APPEND '**This is an automatically generated mail. Please do not reply to this mail.**' TO content.
APPEND space TO content.
*APPEND'Best Regards,' TO content.
*APPEND employee TO content.
**------------Mail trigger----------------------*
TRY.
send_request = cl_bcs=>create_persistent( ).
CATCH cx_send_req_bcs.
ENDTRY.
WRITE 'Shortfall of working time' TO subject.
TRY.
CALL METHOD cl_document_bcs=>create_document
EXPORTING
i_type = 'RAW'
i_subject = subject
* i_length =
* i_language = SPACE
* i_importance =
* i_sensitivity =
i_text = content
* i_hex =
* i_header =
* i_sender =
RECEIVING
result = mail_doc
CATCH cx_document_bcs.
ENDTRY.
TRY.
CALL METHOD send_request->set_document
EXPORTING
i_document = mail_doc.
CATCH cx_send_req_bcs .
ENDTRY.
TRY.
CALL METHOD cl_sapuser_bcs=>create
EXPORTING
i_user = sy-uname
RECEIVING
result = sender.
CATCH cx_address_bcs .
ENDTRY.
TRY.
CALL METHOD send_request->set_sender
EXPORTING
i_sender = sender.
CATCH cx_send_req_bcs .
ENDTRY.
TRY.
CALL METHOD cl_cam_address_bcs=>create_internet_address
EXPORTING
i_address_string = receiver
* i_address_name =
* i_incl_sapuser =
RECEIVING
result = recipient
CATCH cx_address_bcs .
ENDTRY.
TRY.
CALL METHOD cl_cam_address_bcs=>create_internet_address
EXPORTING
i_ad -
Antares autotune 4 graphic mode does not work in Logic
Has anyone found a workaround for the following issue:
Using Antares autotune 4 or 5 in Logic pro 8, I cannot use the graphical mode how it was intended. Using Cubase, I was able to launch the plugin, switch to graphic mode, and track the pitch vs time. This was useful to manually correct the pitch for each syllable. For some reason, this function does not work in Logic Pro 8. Any thoughts as to why? Am I doing something wrong? Please advise.I haven't used AT in years, but I do still have AT 4.
Graphic mode works just fine here in Logic 8, and I'm still on Tiger as well, albeit 10.4.11
Not that you asked, but seriously, look into Melodyne. AT is so archaic as far as it's graphic mode is concerned. 30 seconds back with it and I can't seriously see why anyone would use that plug-in, other than maybe manual mode, for a quick "run a comb through it" fix.
Sorry I couldn't give you an answer as to why this is happening. have you contacted Antares? -
Recording Interfaces that work with Logic Studio
Hey there! I'm pretty much a noob to Logic Studio. I've been using garageband and reason 4 before that. I've had an M-Audio Fast Track that worked alright with Garageband, but it won't work with Logic, at least for me. I did some research and found out that this happened for most people.
So I was wondering, what's a good recording interface that would work well with Logic (which should then work with garageband) that works very well and worth the money that's paid for it?
Specs:
Macbook Pro
version 10.5.2
2.4 GHz Intel Core 2 Duo
2 GB 667 MHz DDR2 SDRAM
Thanks alot.Welcome to the forum jareddddddd, i do believe the problem your having with the M-Audio is the the drivers for intel, at the moment are Beta drivers.
Beta meaning they are going thought testing and isn't official drivers, therefore it might work or it might not.
As flood123 said the Duet will be much better, compare to low end M-Audio interface, which will sound far better and integrates well with Logic.
Also Fire-Face by R.M.E is a good interface, almost forget to mention Lavry interface which sounds way better than the two already mention that's only my opinion though.
Personally i have found it to be my preferred choice compare to Apogee low end interface that hasn't got the C77 clock work that Apogee flag-ship interface has, such as the Rossette 800 and AD/DA 16 carries.
Try and find a local music store and try out a few interface that is hook-up to L.P. by Fire wire and maybe you'll have a better choice in choosing.
Fr.BlayZay. -
Why offer less functionality than iPhoto?
It seems like this new app offers less functionality than iPhoto, save for its photo-manipulation tools. I can't edit location data, half of the toolbar options are greyed-out and inaccessible, I can't adjust the sort order, there are no events or ways at least to adjust where one moment begins and another ends. More and more Photos is revealing itself to be still quite in the beta stage and was released prematurely, which is odd for Apple, who I feel normally is highly concerned with the details. When I view imported photos in moments on my iPhone, the time stamps are incorrect, and it appears that photos are in the order of their last-edited time rather than when they were shot, which completely contrasts with the whole idea of moments. The hidden photos album and the way its "hidden" is nice, but I feel the lack of a standard "trash" or "deleted" area is cumbersome. Half the time when editing a photo the changes don't go into effect, and there's no way to access the original through finder. I simply don't understand why it appears this unnecessary, albeit beautiful, app was rushed out the door.
Have you tried to return functionality to iPhoto in your computer? If the application is still
in the OS X applications, you may be able to still use it. Depending on how you upgraded
to Yosemite, will have some bearing on the fate of iPhoto. The App Store does not have it
and the last iPhoto version would've had to be updated to in Mavericks or pre OS X 10.10.
A full system clone of the previous OS X and its applications suite allows one to run it from
another partition or a different drive. Sadly, these ideas arrive too late or without sufficient
information to initiate the process early and save this option before it evaporates.
In my opinion, reliance on the Cloud is akin to vaporware; if you cannot retain an offline
archive of your images in several reliable repositories where they may be kept available
to the owner, without paying a storage fee to an unknown entity at some untold distance
then some of your ownership rights are lost and you have to pay to use it, too.
Before upgrading to a later version of an operating system it is always wise to have a backup
that actually can run the computer in the older operating system, with all its applications...
Though upgrades can be a good thing, some don't realize an upgrade goes beyond update.
To see your created content be divorced from your control is not a great way to find this out.
So this is a cautionary tale, to backup well beyond the basic Time Machine, since you may
not be able to restore a fully working system if you haven't an online recovery method to
get the main segments; unless you saved them ahead of time in an archive you control.
PS: basic photo editing such as graphic converter, toyviewer, and other software can be
helpful to modify and process images; & can do more than they appear. Inexpensively.
In any event...
Good luck & happy computing! -
Would my plug-ins work in Logic 7.2 and intel mac?
This may be a dumb question but would my plug-ins that work in Logic 7.1 on my Powerbook work in Logic 7.2 on an intel mac?
The statement I made is not a "blanket" one, if one is looking at the big picture.
I understand why you would consider that a blanket statement, since you are narrowly looking only at one angle.
The user did not state that this is the only reason he is getting a computer, and he did not specify that he is using the computer ONLY for Logic, and therefore, it is wise to consider all options.
In what way was my comment narrow?
Everyone's situation is different depending on what software, plugins and peripherals are used. Making a recommendation based on months makes no sense since someone's software may be ready much sooner than that, or may be available even later.
The decision to upgrade should be based on whether the things you need to run are ready or not. Doing it this way considers all options, picking a number of months out of a hat is narrowly looking at one angle. -
SCAN_Op returns one less sample than expected.
I'm acquiring data from a SCXI chassis using a WinXP P4 computer. Sometimes when I run my app, SCAN_Op returns one less sample than it should. Looking at the data array, it appears that one sample is missing down in the array where there should be a reading from the first channel. The rest of the readings are all shifted up by one and the first of these is garbage. The rest are correct. This only happens some of the time, but when it does, it happens no matter how many modules I'm using in the chassis (I've tried up to three at once). It also happens using just one high voltage module, As a result, the data I send to SCAN_Demux is incorrect and comes out scrambled. I've checked my inputs to the function repeatedly and am confid
ent they are correct. I am in debug mode when this happens. So far, I haven't seen it happen in release mode. Has anyone seen this condition?Hello,
I am not sure exactly what could be causing this problem. However, we could try something.
Try allocating your memory as an i32 array that is half the size of the array that you want. This will force memory to be allocated slightly differently. Then just typecast your array whenever you need to use it.
I know this has fixed some alignment issues in the past.
Let us know if this does not work.
Best regards,
Justin T.
National Instruments
Maybe you are looking for
-
Weird Message from Repairing Permissions
Had a new iMac for about a month. For a lark I did a repair permsissions - mainly as a speed test. I got a message that "CoreServices...as been changed. Unable to repair" (Yes, "has" was mispelled) Hovering over the line showed that the file in quest
-
Variable to create new dimension value in Webi
hi There in a webi report, i have couple of variables, what i need to do is to create a new dimension by these variables, so i can use it in a chart for example: i have current month, previous month, previous of previous month, all of them are variab
-
Help with error select case statement (ORA-00932: inconsistent datatypes)
Hi, I'm struggling to get my sql query work on Oracle.. I have a table MyTable with 5 columns ( Column1, Column2, Column3, Column4, Column5 ) all are of type NVARCHAR2. I need to check whether Column 3, Column 4 are empty or not in that order..and if
-
How to use iPhone 4S in Europe as an iPod... without Airplane Mode?
So this is actually for a friend who has an iPhone 4S and is going to Amsterdam this summer. She wants to bring her iPhone to use it for reading preloaded eBooks and listen to her music. Now she is TERRIFIED of incurring international data charges.
-
Binded attribute value reset in ADF BC 10.1.3.3.
Hi, I have a jspx page with data from a couple of bind iterators. On one of those iterators I have an attribute AuditId I'm using when user chooses to view some data or download some file. I need this AuditId to be the same the until user leaves the