LagOrtArray()

LagOrtArray() – Umwandlung eines LAG_ORT-Feldes ins Array-Format

Die Funktion konvertiert das bis business express Version 5.7 gültige Speicherungsformat in LAG_ORT-Feldern (Dab055:LAG_ORT, Dab160:LAG_ORT, etc.) in das ab Version 5.8. gültige Array-Format.

Hinweis

Falls das Array per Codeblock ausgelesen werden soll, muss der Zugriff über die registrierten Index-Konstanten (loa_Quantity, loa_Store, etc) geschehen.

Parameter	Beschreibung
cLagOrt:C	Inhalt von LAG_ORT im 5.7 Format

Rückgabewert

Array

Beispiel

CODE

| cOldLAG_ORT, aNewLagORT, i |

// 5.7. LAG_ORT - Format, z.B. aus Dab055:LAG_ORT
cOldLAG_ORT := '          -10¦A7B2D   ¦CHARGE1      ¦21.01.08' +
               '          -20¦A7C4E   ¦CHARGE2      ¦21.01.08' +
               '          -30¦--      ¦CHARGE3      ¦21.01.08',
// Konvertierung in neues Format
aNewLagORT  := LagOrtArray(cOldLAG_ORT),

// Ausgabe als Zeilen-Arrays
for i := 1 to ALen(aNewLagORT) do
   WriteLn( ArrToStr(aNewLagORT[i])),
next,

writeln(crlf + crlf),

// Ausgabe als lesbarer Text
for i := 1 to ALen(aNewLagORT) do
   WriteLn( ' ----------------------- ' ),
   WriteLn( ' Menge:       ' + padl(     aNewLagORT[i, loa_Quantity],  10) + crlf +
            ' Lager:       ' + padl(     aNewLagORT[i, loa_Store],     10) + crlf +
            ' Platz:       ' + padl(     aNewLagORT[i, loa_Place],     10) + crlf +
            ' Behälter:    ' + padl(     aNewLagORT[i, loa_Container], 10) + crlf +
            ' Charge/Ser.: ' + padl(     aNewLagORT[i, loa_Commiss],   10) + crlf +
            ' Datum:       ' + padl(DToC(aNewLagORT[i, loa_Date]),     10) ),
next,