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

Gets the position of the loop and assigns it to a LongInt value

Parameters:
IRp	Record that is used to be looped through

global
function Boolean GetDateIRInt(string intcode,Date sdp,record IRVc IRp)
BEGIN
  Boolean res;
  LongInt postnr;
  Boolean irfound,ir2found;
  record IRVc IR2r;  
   
  ResetLoop(IRp);
  IRp.Code = intcode;
  IRp.startDate = sdp;
  irfound = LoopBackKey("CDKey",IRp,2,true);
  postnr = GetLoopPosition(IRp);
  if (irfound) then begin
    if (IRp.Code!=intcode) then begin    
      irfound = false;
    end;
  end;
  
  if (irfound) then begin
    SetLoopPosition(IR2r,postnr);
    ir2found = LoopMain(IR2r,2,true); 
  end;

  RETURN;
END;

Related topics: