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

Loop with a specific index

Parameters:
indexname	Index name
Namer	Record
seg	Number of fields in index (for complex indexes)
TrHs	true - continue loop, false - stop loop

function Boolean CheckVINr(string vecode,LongInt minvinr)
BEGIN
  Boolean res;
  Boolean TrHs;
  record VIVc VIr;
  LongInt vinr;
  
  vinr = 0;
  TrHs = true;
  VIr.VECode = vecode;
  while (LoopKey("VECode",VIr,1,TrHs)) begin
    if (VIr.VECode!=vecode) then begin TrHs = false; end;
    if (TrHs) then begin
      vinr = vinr + 1;
      if (vinr>=minvinr) then begin 
        res = true; 
        goto LCheckVINr;
      end;
    end;
  end;
LCheckVINr:;  
  CheckVINr = res;
  RETURN;
END;

Related topics: