Table of Content
HAL Forum
procedure MatColTL (
Integer 1,Integer 32,String Trans. No.,Integer 0,String M4AppCode,
String Normal,Integer 0,String Number,Boolean false,String 0)
Description:
Define a column inside a matrix frame window with special cases
Parameters:
1 Horizontal position
32 width
Trans. No. Label name
0 -
M4AppCode Data type
Normal Normal=editable/ViewOnly=non editable
0 -
Number Field name
false Alignment (false=left/true=right)
0 Sclass window to paste onto the window (0=none)
WindowBegin("A/C Reconciliation",BankRecWClass,CGRcW,BankRecView);
  SetWRect(20,80,620,350);
  UseView(BankRecVc);
  Sizeable(-1,-1,0,0);
  FormName(BankRecRn);
  vs=20;
  PeriodField(h=90,v=6,"Period");
  CheckBox(h2=270,v,0,"Reconciled",Recedf);
  EditField(-152,v,100,"Bal. Date",Normal,RecDate,false,0);
  EditField(h,v+=vs,100,"Account",Normal,AccNumber,false,AccSClass);
  CheckBox(h2,v,0,"Unreconciled",Unrecedf);
  EditField(-152,v,100,"Recon. Bal",ViewOnly,StartBal,true,0);
  CheckBox(40,-20,0,"Overflow",Incompletef);
  EditField(-350,-20,100,"Reconciled",ViewOnly,RecVal,true,0);
  EditField(-152,-20,100,"New Bal",ViewOnly,EndBal,true,0);
  h=4; v=v+(vs+17);
//  StaticText(h+38,v-6,"Trans",false);
  MatrixBegin(5,vm=v,-20,-26,BankRecRowType,300);
  MatColTL(1,32,"Trans. No.",0,M4AppCode,Normal,0,Number,false,0);
  MatCol(1,132,"Trans. Date",0,TransDate,false,0);
  MatCol(1,210,"Description",0,Comment,false,0);
  MatCol(1,-130,"Value",0,Val,true,0);
//  MatCol(1,-130,"Balance",0,BalVal,true,0);
  MatCol(1,-30,"Rec",0,Reconsf,false,SetSClass);
  InsertRowTest;
  DeleteRowTest;
  EndMatrix;
  SpecialMenu("Update",'u',0,"UpdateBankRecWsm");
  SpecialMenu("Commit",'c',1,"CommitBankRecWsm");
  EndWindow;
  
  return;
end;
Related topics:
««