////////////////////////////////////////////////////////////////////////////////////////////////////////
// openI5ODBCconnection
////////////////////////////////////////////////////////////////////////////////////////////////////////
function openI5ODBCconnection($open4update = false){
if ($open4update) {
$conn = openODBCconnection('I5UPD','ODBCuser','ODBCpassword');
}
else {
$conn = openODBCconnection('I5','ODBCuser','ODBCpassword');
}
return($conn);
}
////////////////////////////////////////////////////////////////////////////////////////////////////////
// executeUpdateSQL
////////////////////////////////////////////////////////////////////////////////////////////////////////
function executeUpdateSQL($conn, $sql){
$rs = odbc_exec($conn,$sql);
if (applicationInTestMode()) {
writeSQL2LogFile($sql);
}
if (!$rs)
{
exit("Error in sql " . $sql);
}
}
////////////////////////////////////////////////////////////////////////////////////////////////////////
// executeReadSQL
////////////////////////////////////////////////////////////////////////////////////////////////////////
function executeReadSQL($conn, $sql){
$rs = odbc_exec($conn,$sql);
if (applicationInTestMode()) {
writeSQL2LogFile($sql);
}
if (!$rs)
{
exit("Error in sql " . $sql);
}
return($rs);
}
////////////////////////////////////////////////////////////////////////////////////////////////////////
// closeODBCconnection
////////////////////////////////////////////////////////////////////////////////////////////////////////
function closeODBCconnection($conn){
odbc_close($conn);
}
$sql = "select * from $lib.trlydp where tddlgx = " . $dlgx . " and tdrexr = " . $route . " order by tdnrsq";
$conn = openI5ODBCconnection(true);
$rs = executeReadSQL($conn,$sql);
while (odbc_fetch_row($rs)){
$tdrseq = odbc_result($rs,"tdrseq");
$tdnrsq = odbc_result($rs,"tdnrsq");
$tdklnr = odbc_result($rs,"tdklnr");
$nieuweSequentie = $route . addleadingZeros($tdnrsq,4);
$veld = "opmChauffeur" . addleadingZeros($tdrseq,7);
$extraOpmerkingen = " " . $_REQUEST[$veld];
$lib = getLib("dbd001lib");
$sql = "update $lib.wer0001 set rseqe1 = " . $nieuweSequentie . ", opm3e1 = trim(opm3e1) concat '" . $extraOpmerkingen. "' where rseqe1 = " . $tdrseq . " and kklge1 = '" . $tdklnr . "'";
executeUpdateSQL($conn,$sql);
}