LXFormUtils installiert auf Ihrem Client eine DLL Library die mit dem DruckNT Formular Editor in alle Lexware Formulare eingebunden werden kann.

 

Das Formular ist dann in der Lage, Werte direkt aus der Lexware Datenbank auszulesen.

Dies ist sehr nützlich, wenn Sie im Formular Daten verwenden wollen, die der DruckNT Formular Editor nicht zur Verfügung stellt.

 

Folgende Funktionen stehen zur Zeit zur Verfügung: (wird ständig erweitert, auch auf Kundenwunsch)

 

• ExecuteNonSelectQuery(string Query)
  Sendet eine SQL Query direkt an die Datenbank
• GetLagerBestand(string ArtikelNr)
  Gibt den Lagerbestand zurück
• GetValue(string Table, string Field, string Value, string Return)
  Ruft einen Wert aus einer beliebigen Tabelle ab, kann mit beliebigen filtern versehen werden
• is_numeric(string data)
  Prüft ob ein Wert numerisch ist und gibt True oder False zurück
• UpdateAuftragsFeld(int Auftragskennung, string AuftragsNr, string Feld, string value)
  Aktualisiert ein frei zu bestimmendes Feld mit einem frei zu bestimmenden Wert in der Auftragstabelle nach dem Druck
• GetCurrencyRate(string ISO)
  Lädt einen Realtime Währungskurs aus dem Internet (USD, GBP etc.) und gibt diesen als double zurück. Sie können damit dann im Formular Währungsberechnungen vornehmen.

 

Barcode Funktionen:

 

Diese Funktionen liefern einen Pfad zu einem Bitmap zurück, das über

DrawImage (x, y, w, h, file) eingebunden werden kann. Die Funktionen liefern den Wert für file.

x, y ist die Position und w,h die Dimensionen der Grafik.

 

• GenerateBarcode_Code_128(string code, int Height, int Width)
• GenerateBarcode_Code_11(string code, int Height, int Width)
• GenerateBarcode_Code_39(string code, int Height, int Width)
• GenerateBarcode_EAN_13(string code, int Height, int Width)
• GenerateBarcode_EAN_8(string code, int Height, int Width)

 

 

Die Einbindung im Formular erfolgt ganz einfach über die folgenden Zeilen:

Dim LXFormUtils as object
LXFormUtils = CreateObject("LXFormUtils.Data") 'Lade LXFormUtils
LXFormUtils.SetMandant(Get("X",60)) 'Diese Zeile bitte nicht ändern!!

 

Eine Funktion rufen Sie einfach wie folgt auf:

Dim nBestand as numeric

nBestand = LXFormUtils.GetLagerBestand(Get(POS_ART_NR))

 

Dim BarcodePath as string

BarcodePath  = LXFormUtils.GenerateBarcode_Code_128("0123456789", 100,100)

 

Am Ende des Formulares geben Sie das Object wieder frei:

LXFormUtils = Nothing