Table of Content
HAL Forum
function string CurMachineName (
)
Description:
Returns Local Machine Code of Client Machine specified in Local Machine setting 
global
function LongInt CashVcRecordDuplicate(var record CashVc Cashr,record CashVc Cash2r,LongInt stat,LongInt long4)
BEGIN
  LongInt res;
      
  Cashr.TransDate = CurrentDate;
  Cashr.TransTime = CurrentTime;
  Cashr.Total = blankval;
  Cashr.Drawer = "";
  Cashr.SkipUpdatTime = 0;
  Cashr.SerNr = -1;
  if (SingleUserMode) then begin
    Cashr.SerNr = NextSerNr("CashVc",Cashr.TransDate,-1,true,"");
  end;
  Cashr.Event = 0;
  Cashr.OKFlag = 0;
  Cashr.MachineName = CurMachineName;
  Cashr.Drawer = CurDrawerCode(Cashr.MachineName);
  CashVcRecordDuplicate = res; 
  RETURN;
END;
Related topics:
««