|
|
| returns true (if module exists in used system) or false (if doesn't exist) |
 |
| modulename |
module name for HAL |
|
global
function LongInt CUVcRecordDefaultsClient(var record CUVc CUr,record CUVc CU2r,LongInt stat,LongInt long4)
begin
LongInt res;
if (TestModule("modPL") or TestModule("modPO") or TestModule("modAT2")) then begin
CUr.CUType = 0;
CUr.VEType = 1;
end else begin
CUr.CUType = 1;
CUr.VEType = 0;
end;
if (TestModule("modHotel")) then begin
CUr.GuestType = 1;
end;
if (TestModule("modHTS")) then begin
CUr.CUType = 0;
CUr.VEType = 0;
CUr.DealerType = 0;
CUr.GuestType = 0;
end;
CUVcRecordDefaultsClient = res;
return;
end;
««