|
|
| Determines if HansaWorld is working in a single-user mode (no server). |
global
function LongInt EmplContractVcRecordDefaults(Var Record EmplContractVc ECr,Record EmplContractVc EC2r,LongInt long3,LongInt long4)
begin
LongInt res;
Record UserVc USr;
String 32 tstr;
GetCurUser(USr);
ECr.Sign = USr.Code;
ECr.Closed = 0;
ECr.Invalid = 0;
ECr.RegDate = currentDate;
ECr.VacDays = 28;
ECr.VacPayType = getDefVacPayType(true);
//if (ServingClient == false) then begin
if (SingleUserMode) then begin
if (getNextRecordNr("LastEmplContractNr",tstr)) then begin
ECr.Code = tstr;
end;
end else begin
ECr.Code = "";
end;
EmplContractVcRecordDefaults = res;
return;
end;
««
