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,