DEMOTOL / DEMONEU
Toleranzen prüfen/neu anlegen
Die Datenbanktabelle demotol enthält Sollwerte und Toleranzen für Artikel:
Nach Eingabe der Artikelnummer am Waagenterminal werden die Toleranzen (Sollwert, untere Toleranz, obere Toleranz) an die Waage übertragen. Neue Artikel können am Waagenterminal erfasst werden.
~^<Q774Q([0-9A-Z ]{1,18})>$~
$id
// Beispiel <Q774QFS49462>
XDBOPEN( 'demotol' )
if (empty($syserror))
{
XDBGET( $id , &$bez , &$sollwert , &$minustol , &$plustol , &$moddat , &$modtim , &$persnr )
}
$cmd = '';
if (empty($syserror))
{
if (empty($bez))
{
$cmd .= "<K050K>";
$cmd .= "<K022K $id nicht vorhanden;2>";
XLATIN( $cmd )
}
else
{
$cmd .= "<Q180Q$sollwert;$minustol;$plustol>";
$cmd .= "<Q070Q$id>";
XLATIN( $bez )
}
}
else
{
$cmd .= "<K022K $syserror;2>";
}
$sysreply = $cmd;
~^<Q775Q([0-9A-Z ]{1,18});([[:latin:]]{1,18});([[:float:]]{1,10});([[:float:]]{1,10});([[:float:]]{1,10});([[:date:]]{8});([[:time:]]{8});([[:latin:]]{1,10})>$~si
$id, $bez, $soll, $mtol, $ptol, $dat, $tim, $pers
// Beispiel <Q775QFS49433;Kappe;100;99;101;14.03.19;20:22:33;123>
XUTF8( $bez )
XUTF8( $pers )
XDBOPEN( 'demotol' )
if (empty($syserror))
{
XDBPUT( $id , $bez , $soll , $mtol , $ptol , $dat , $tim , $pers )
if (empty($syserror))
{
$cmd = "<Q997QOK>";
}
else
{
$cmd = "<Q997QERROR>";
}
}
else
{
$cmd = "<Q997QERROR>";
}
$sysreply = $cmd;
XDBGET
XDBOPEN
XLATIN
$syserror
$sysreply
