GetLCodeFromNumval Overigefunctie

Met GetLCodeFromNumval kan de LCode (Account lettercode) van een numerieke waarde bepaald binnen een gegeven bereik. De functie resulteert in de waarde TRUE indien een geldige LCode kan worden bepaald en anders in FALSE.

GetLCodeFromNumval (ColumnOrStringName, NumVal, LowVal, HighVal )

ColumnOrStringName (MergedString)
In ColumnOrStringName wordt de naam van een kolom of string vermeld in de vorm van een ColumnName of een StringVarName waar naartoe de LCode behorende bij NumVal moet worden gekopieerd.

NumVal (MergedString)
In NumVal wordt de numeriek waarde vermeld waarvan de LCode moet worden bepaald.

LowVal (Expressie)
In LowVal wordt de ondergrens (de minimaal mogelijke waarde) van NumVal vermeld.

HighVal (Expressie)
In HighVal wordt de bovengrens (de maximaal mogelijke waarde) van NumVal vermeld.

Voorbeeld: Openenen nieuwe rekening met de Account OLE DB Provider
{
 Integer iRekNr
 String sLCode
 OleQuery "Provider=FaOleDb.FaProv;Data Source=c:\astona\demo.adm", OLE
 OLE
 OpenTable(info)
 Laag = [DebiteurenNrLaag]
 Hoog = [DebiteurenNrHoog]
 iRekNr = GetNumvalFromLCode("Test",Laag,Hoog)
 If iRekNr>0
  OpenTable(Debiteuren.idx)
  SetAdoFilter(RekeningNr=[iRekNr])
  While First()
   iRekNr = iRekNr + 1
   SetAdoFilter(RekeningNr=[iRekNr])
  Wend
  GetLCodeFromNumval(sLCode,iRekNr,Laag,Hoog)
 Endif
 if AddEmptyRecord(RekeningNr,[iRekNr])
  SetAdoFilter(RekeningNr=[iRekNr])
  Copy(Naam*,Test[iRekNr])
}
  RekeningNr: [iRekNr] ([sLCode]) is geopend op naam van: [Naam*]
{
 Endif
}

Resultaat:
RekeningNr: 257947 (TESZb) is geopend op naam van: Test257947