• 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 TRUE if the specified character is in UPPER CASE.

Parameters:
Char	The character to be checked.

global
function Boolean ValidSuppInvNo_Argentina(string InvoiceNr)
begin
  Boolean res;
  string 1 c;
  Integer i;
  
  res = true;
  if (IsCapitalLetter(Left(InvoiceNr,1))==false) then begin
    res = false;
    goto LValidSuppInvNo_Argentina;
  end;
  for (i=2;i<=5;i=i+1) begin
    c = Mid(InvoiceNr,i,1);
    if (IsDigit(c)==false) then begin
      MessageBox(20858,"");
      goto LValidSuppInvNo_Argentina;
    end;
  end;
  for (i=7;i<15;i=i+1) begin
    c = Mid(InvoiceNr,i,1);
    if (IsDigit(c)==false) then begin
      MessageBox(20858,"");
      goto LValidSuppInvNo_Argentina;
    end;
  end;
LValidSuppInvNo_Argentina:;  
  ValidSuppInvNo_Argentina = res;
  return;
end;  

Related topics: