(

Description:

Function returns Name of active Field in Window with specified Number


Parameters:
wn	Window Number

global
function string 40 ActDClassSpecPasteName(Integer wn,string defpsname)
begin
  string 255 psname;
  record ActVc Actr;
  
  psname = defpsname;
  switch (WindowActiveField(wn)) begin
    case "Contact": 
      GetWindowRecord(wn,Actr);
      if (blank(Actr.CUCode)) then begin
        psname = "AllContactSClass";
      end;
  end;
  ActDClassSpecPasteName = psname;
  return;
end;


Related topics:

««