DEMOWEB
Tara über Web Service lesen
Die Datenbanktabelle demobeh enthält die Bezeichnung und das Leergewicht der verwendeten Behälter und liegt auf einer MASTER Bemabox.
Nach Eingabe der Behälternummer am Waagenterminal wird das Tara über einen Web Service Aufruf von der SLAVE Bemabox zur MASTER Bemabox gelesen und das Tara an der Waage vorbelegt.
~^<Q777Q([0-9]{1,18})>$~
$btyp
// Beispiel <Q777Q10002>
XGETAUTH( $usr , $pwd )
$wsdl = 'http://bemaboxa/websites/soap_db_server.php?wsdl=1';
$oper = 'SELECT';
$dbtab = 'demobeh';
$ibuf = $btyp;
$error = '';
$meta = '';
$obuf = '';
XWEB( $wsdl, 'RemoteSql', N, $usr, $pwd, $dbtab, $oper, $ibuf, &$error, &$meta, &$obuf )
XCHECKREPLY( $syserror , "<K022K 1 $syserror;5>" )
XCHECKREPLY( $error , "<K022K $error;5>" )
list($btyp ,$bez,$tara) = explode("\t",$obuf);
if (empty($bez))
{
$cmd .= "<K050K>";
$cmd .= "<K022K $btyp nicht vorhanden;6>";
}
else
{
XTEXT( $tara )
XTTYOPN( 0 )
XCHECKREPLY( $syserror , "<K022K $syserror;5>" )
XTTYSND( "<Q010Q$tara>" )
XCHECKREPLY( $syserror , "<K022K $syserror;5>" )
XTTYRCV( '>' , 20 , $buf )
XCHECKREPLY( $syserror , "<K022K $syserror;5>" )
}
XCHECKREPLY
XGETAUTH
XTEXT
XTTYOPN
XTTYRCV
XTTYSND
XWEB
$syserror
