|
|
| Adds a record list design-object to a window. Enables the user to browse through the records of a register that differs from the one defined with UseView function. Used inside WindowBegin/EndWindow block. Often used inside CGview windows. |
 |
| StartX |
The X coordinate of the upper left corner of the record list rectangle. |
| StartY |
The Y coordinate of the upper left corner of the record list rectangle. |
| EndX |
The X coordinate of the lower right corner of the record list rectangle. |
| EndY |
The Y coordinate of the lower right corner of the record list rectangle. |
| RegisterCode |
Name of the register that is being used with created record list. |
|
event DefineWindows
begin
real h,h1,h2,h3,h4,h5,h6,h7,v,l,vs,vm,f,t,x;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Contact",CUDClass,CGview,-);
DynamicWindow;
SetWRect(20,80,600,435);
Sizeable(-1,-1,0,0);
UseView(CUVc);
Tile(0,65,false,"",Code);
v = 6; h = 45; l=223; vs = 20; h1=410; h2 = 340; h3 = 430; h4 = 580; h5 = 460;
EditField(h,v , 95,"No.",Normal,Code,false,0);
EditField(h,v+=vs,120,"Name",Normal,Name,false,0);
TileButton(1,"1");
TileButton(2,"2");
TileButton(3,"3");
TileButton(4,"4");
Tile(1,110,true,"1",InvAddr0);
v=6;
EditField(h=60,v=3,-10,"Invoice-",Normal,InvAddr0,false,0);
EditField(h,v+=20,-10,"address",Normal,InvAddr1,false,0);
EditField(h,v+=20,-10,"",Normal,InvAddr2,false,0);
EditField(h,v+=20,-10,"",Normal,InvAddr3,false,0);
EditField(h,v+=20,-10,"",Normal,InvAddr4,false,0);
Tile(2,110,false,"2",Phone);
EditField(h=60,v=3,-10,"Phone",Normal,Phone,false,0);
EditField(h,v+=vs,-10,"Mobile",Normal,Mobile,false,0);
EditField(h,v+=vs,-10,"Skype",Normal,SkypeName,false,0);
EditField(h,v+=vs,-10,"SIP",Normal,SIPCode,false,0);
EditField(h,v+=vs,-10,"E-mail",Normal,eMail,false,0);
Tile(3,90,false,"3",Person);
RecordList2(10,v=0,-1,-49,"ContactRelVc");
RlColKey(4,4,"Code",ContactCode,false,CustContactCode);
RlColKey(55,55,"Name",ContactName,false,CustContactName);
Tile(4,90,false,"4",DelAddr0);
v=6;
EditField(h=55,v=3,-10,"Delivery",Normal,DelAddr0,false,0);
EditField(h,v+=20,-10,"Address",Normal,DelAddr1,false,0);
EditField(h,v+=20,-10,"",Normal,DelAddr2,false,0);
EditField(h,v+=20,-10,"",Normal,DelAddr3,false,0);
EditField(h,v+=20,-10,"",Normal,DelAddr4,false,0);
EndWindow;
return;
end;
|
««