|
|
| Used in record Display (DClass) window when we have to run special test to check if we can insert new row in the matrix according to the rule defined by the relative window action |
//window definition
WindowBegin("Recipe",RecDClass,CGview,-);
SetWRect(20,80,600,340);
Sizeable(-1,-1,0,0);
UseView(RecVc);
vs = 20;
h = 130; h2 = 350; h3 = 570;
EditField(h,v=10,50,"Code",St_i,Code,false,0);
EditField(h2,v,-40,"Comment",Normal,Comment,false,0);
EditField(h,v+=vs,85,"Normal Prod Qty",Normal,NormProdQty,true,0);
EditField(h2,v,85,"Time to Setup",Normal,SetUpTime,true,0);
EditField(h3,v,85,"Language",Normal,LangCode,true,LangSCLass);
EditField(h,v+=vs,85,"Min Prod Qty",Normal,MinProdQty,true,0);
EditField(h2,v,85,"Days to Produce",Normal,QtyAssemblyDays,true,0);
CheckBox(h3,v,0,"Closed",Closed);
EditField(h,v+=vs,85,"Fixed Assembly Days",Normal,FixedAssembDays,true,0);
EditField(h2,v,85,"Hours to Produce",Normal,HrsToProd,true,0);
EditField(h,v+=vs,85,"Res. mgr. Colour",Normal,ResMgrColNr,false,SetSClass);
EditField(h2,v,85,"Number Produced",Normal,NumProd,true,0);
EditField(h,v+=vs,85,"Standard Batch",Normal,StdBatch,true,0);
EditField(h2,v,85,"Extra Prod Qty",Normal,ExtraProdQty,false,0);
EditField(h,v+=vs,-40,"Instructions",Normal,Instr0,false,0);
EditField(h,v+=vs,-40,"",Normal,Instr1,false,0);
EditField(h,v+=vs,-40,"",Normal,Instr2,false,0);
CheckBox(30,-21,0,"Locked",OKFlag);
EnterSkip(Math);
h=4; v=v+(vs+17);
MatrixBegin(4,v,-51,-26,-,300);
InsertRowTest;
DeleteRowTest;
vm = v;
Flip(0);
MatCol(1,30,"Item",0,Item,false,INSClass);
MatCol(1,114,"Specification",0,Comment,false,0);
Flip(1);
MatCol(1,-300,"In",0,InQty,true,0);
MatCol(1,-240,"Out",0,OutQty,true,0);
MatCol(1,-180,"Rel.",0,RelVal,true,0);
MatCol(1,-120,"I-cost",0,ItemCost,true,0);
MatCol(1,-60,"W-cost",0,ExtraCost,true,0);
Flip(2);
MatCol(1,-300,"Description",0,Desc,true,0);
MatCol(1,-120,"Recipe",0,Recipe,true,0);
EndMatrix;
vs = 20;
v = vm+1; VTab(-35,v,-16,v+vs,ToolFlip,1,"A");
v=v+vs; VTab(-35,v,-16,v+vs,ToolFlip,2,"B");
EditField(-300, -21,85,"Cost",ViewOnly,InSum,true,0);
EditField(-150, -21,85,"Value",ViewOnly,OutSum,true,0);
EndWindow;
//window action
global
function Boolean RecDClassInsertRowTest(Integer wn, Integer rownr)
BEGIN
Boolean res;
record RecVc Recr;
res = true;
GetWindowRecord(CurWindow,Recr);
if (Recr.OKFlag!=0) then begin
res = false;
end;
RecDClassInsertRowTest = res;
RETURN;
END;
 |
««