• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Returns string marked in List Window (like Paste VAT Code)

Parameters:
wn	Window Number
line	No. of Selected Line in List Window

external procedure StripEndingSpaces(var string);  

global
function Boolean NewspaperSClassOnOKWindow(Integer wn)
begin
  Integer mwn;
  string 60 tstr,t2;
  Integer np;
  Boolean nsep;
  
  mwn = MotherWindow(wn);
  tstr = GetListString(wn,SelectedListLine(wn));
  t2 = left(tstr,5);
  StripEndingSpaces(t2);
  CloseWindow(wn);
  PasteString(mwn,t2);
  NewspaperSClassOnOKWindow = false;
  return;
end;

Related topics: