|
|
| This funcion is used for opening Windows, ie when creating new Records, returns Number of new Window |
 |
| WindowName |
valid Window Name/Identifier, must exist in Language Sources |
| Multif |
0 or 1, 1 allows to have several Records of the same WindowName opened(ie several Customers) |
| MotherWindow |
Number of Mother Window, ie when pasting Contact to Customer, Customer Window is Mother of Paste Contact, when user selects Contact it will be pasted to Mother Customer |
| Subset |
Window Subset, used for filtering data displayed in some Windows ie Mailbox |
| WindowArgument |
Window Name Argument, used for filtering data displayed in some Windows ie Mailbox |
| FileName |
variable of Record Type(Register/Block Name), in example it is ContactVc Record, hast to much with WindowName Definition |
|
global
procedure NewContactCUDsm()
BEGIN
record CUVc CUr;
record ContactVc Contactr;
Integer wn,nwn;
wn = CurWindow;
GetWindowRecord(wn,CUr);
RecordNew(Contactr);
Contactr.Company = CUr.Code;
Contactr.CompName = CUr.Name;
Contactr.Adress0 = CUr.InvAddr0;
Contactr.Adress1 = CUr.InvAddr1;
Contactr.Adress2 = CUr.InvAddr2;
Contactr.Adress3 = CUr.InvAddr3;
Contactr.Adress4 = CUr.InvAddr4;
Contactr.Phone = CUr.Phone;
Contactr.Fax = CUr.Fax;
Contactr.Department = CUr.Department;
nwn = OpenWindow("ContactDClass",1,0,"","",Contactr);
WindowFieldGoto(nwn,Contactr,-1,"Name");
RETURN;
END;
««