|
|
| Used in record Display (DClass) window when we have to run special test to check if we can delete row in the matrix according to the rule defined by the relative window action |
// window defintion
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;
global
function Boolean RetDClassDeleteRowTest(Integer wn, Integer rownr)
BEGIN
Boolean res;
record RetVc Retr;
res = false;
GetWindowRecord(wn,Retr);
if (Retr.OKFlag==0) then begin
res = true;
end;
RetDClassDeleteRowTest = res;
RETURN;
END;
 |
««