|
|
| Returns yes if the HansaWorld product has Calendar and Resouce Planner feature added to it's package. |
event DefineWindows
begin
Real h,h1,h2,h3,h4,h5,h6,h7,hs,hm,v,v3,l,vs,vm,f,t,x,v2;
// string 60 label;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Configuration",ModulesTClass,CGSbl,ModuleType);
SetBlid(ModuleBlock);
if (HasCalendar) then begin
SetWRect(64,80,710,520);
end else begin
SetWRect(64,80,710,500);
end;
v = 6; h = 140; h2 = 400; h3 = 560; vs = 20;
EditField(h,v=6,50,"No. of Users",Normal,NumberOfUsers,false,0); // ConcurrentUserNo
EditField(h,v+=vs,50,"Multi User Companies",Normal,Companies,false,0);
EditField(h3,v,50,"KPIs",Normal,KPIs,false,0);
EditField(h2,v, 50,"Conferences",Normal,Conferences,false,0);
EditField(h,v+=vs,-40,"Control String",ViewOnly,ControlString,false,0);
EditField(h,v+=vs,100,"Control Code",ViewOnly,ControlCode,false,0);
EditField(h,v+=vs,100,"Key Valid Until",Normal,ValidUntil,false,PasteCurDate);
EditField(h,v+=vs,100,"Enabler Key",Normal,TheKeyStr,false,0);
vs = 16;
// ButtonFrame(h2,v=vm-16,270,4,"Unsupported Extra Features");
// CheckBox(h2,v,0,"No Test printout",NoTestprintEnabler);
// CheckBox(h2,v+=vs,0,"Credit Invoices Update Stock",CredUpdStock);
// CheckBox(h2,v+=vs,0,"Allow Same IP Addresses for Clients",AllowSameIP);
// CheckBox(h2,v+=vs,0,"Allow Negative Quantities on Invoices",NegQtyOnIV);
// SpecialMenu("Connect to get your Enabler",' ',1,"GetInternetEnabler");
ButtonFrame(h=20,vm=(v+=50),580,8,"Modules available");
CheckBox(h,v,0,"Business Alerts",BAEnabler);
CheckBox(h,v+=vs,0,"Cash Book",CashLedgerEnabler);
CheckBox(h,v+=vs,0,"Point of Sales",CashierEnabler);
CheckBox(h,v+=vs,0,"Sales Orders",OrderEnabler);
CheckBox(h,v+=vs,0,"Internal Email and Conferences",VP6);
CheckBox(h,v+=vs,0,"E-mail and Conferences",EmailEnabler);
CheckBox(h,v+=vs,0,"Task Manager",TaskManagerEnabler);
StaticText(h,v+=49,"Call + 7 495 648 67 54 for help",false);
CheckBox(h2,v=vm,0,"Calendar",CalendarEnabler);
CheckBox(h2,v+=vs,0,"KPIs",VP7);
CheckBox(h2,v+=vs,0,"Stock",StockEnabler);
CheckBox(h2,v+=vs,0,"Nominal Ledger",NominalLedgerEnabler);
CheckBox(h2,v+=vs,0,"Sales and Purchase Ledgers",LedgerEnabler);
EndWindow;
return;
end;
 |
««