XGETL
XGETL( $name , $num , $len )
XGETL liefert die zuletzt erzeugte fortlaufende Nummer aus dem Nummernkreis $name. Ist der Nummernkreis noch nicht vorhanden wird 1 zurückgeliefert. Die Zahl wird bis zur Länge $len mit führenden Nullen aufgefüllt.
XGETL( 'lfdnr' , $lfdnr , 8 )
XDBOPEN( 'span' )
XCHECKREPLY( $syserror , "" )
XDBGET( $lfdnr , &$xkdnr , &$xpalauf , &$xpos , &$xpalnr , &$xpalanz , &$xweight , &$xunit , &$xauftr , &$xdattim , &$xsendflg )
XCHECKREPLY( $syserror , "" )
if (empty($sysline))
{
XLOGW( "kein Datensatz $lfdnr vorhanden" )
return $syserror;
}
$sql = "UPDATE span SET auftr = '$auftr' WHERE lfdnr = '$lfdnr'";
XDBEXEC( $sql , $dbanz )
XSOS( '--' )
XCHECKREPLY
XDBEXEC
XDBGET
XDBOPEN
XLOGW
XSOS
$syserror
$sysline
