• 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:

Function returns Number of Row where cursor is placed

Parameters:
wn	Window Number

global  
procedure ORLastSPrsm()
BEGIN
  record ORVc ORr;
  row ORVc ORrw;
  record RcVc RepSpec;
  Integer wn,rownr;
  
  wn = CurWindow;
  GetWindowRecord(wn,ORr);
  rownr = GetWindowCurRow(wn);
  if (rownr>=0) then begin
    MatRowGet(ORr,rownr,ORrw);
    ReportDefaults(RepSpec,"INLastSPriceRClass");  
    RepSpec.repname = "INLastSPriceRn";
    RepSpec.f1 = ORr.CustCode;
    RepSpec.f2 = ORrw.ArtCode;
    RepSpec.f3 = ORr.InvoiceToCode;
    RepSpec.vals0 = ORrw.Price;
    RepSpec.long1 = 5;
    RepSpec.ArtMode = 1;
    RepSpec.Media = 6;    
    RepSpec.UsedOnly = wn;
    RepSpec.FirstAcc = "ORVc";
    RepSpec.flags[0] = rownr;
    RunReport(RepSpec,1);
  end;  
  RETURN;
END;

Related topics: