$valore) {
debug (1, "Variabile = $var ; Valore = $valore") ;
if ($var != "ope")
$fornitore->{$var} = $valore ;
}
?>
<? echo TITLE ?>
Inserimento di un nuovo fornitore
* ope = mod ==> Modifica di un fornitore
* ope = del ==> Eliminazione di un fornitore
********************************************************/
if ($ope == "add") {
$ret = $fornitore->SalvaFornitore() ;
}
elseif ($ope == "mod") {
$ret = $fornitore->ModificaFornitore() ;
$dbUpd = new FC_SQL ;
/***
* dopo aver modificato i dati di un fornitore, per sicurezza devo andare a modificare la tabella
* AmmontareVariOrdini in quanto potrebbe essere stata modificata la percentuale di provv per l'agenzia.
* Queste modifiche devono essere effettuate solo per i record che interessano questa fornitore
***/
$q = "
select
F.Nome,
AVO.*
from
fornitori F
inner join ordini O on O.IdFornitore = F.IdFornitori
left join AmmontareVariOrdini AVO on AVO.IdOrdine = O.IdOrdini and
AVO.Anno = O.Anno
where
AVO.Anno = $anno and
F.IdFornitori = $IdFornitore
" ;
debug (0, $q) ;
list($n, $d) = $db->RecuperaDati($q) ;
for ($i=0; $i<$n; $i++)
{
$idOrdine = $d['IdOrdine'][$i] ;
if ($idOrdine > 0 and (nfp($Provvigione) != nfp($d['PercentualeProvvAgenzia'][$i])) )
{
$newPercentualeProvvAgenzia = NumToSql($Provvigione) ;
$newAmmontareProvvAgenzia = ($d['BaseProvvigionale'][$i] * $Provvigione / 100) ;
$qUpd = "
update
AmmontareVariOrdini
set
PercentualeProvvAgenzia = $newPercentualeProvvAgenzia,
AmmontareProvvAgenzia = $newAmmontareProvvAgenzia
where
Anno = $anno and
IdOrdine = $idOrdine
" ;
$ret = $dbUpd->EseguiQuery($qUpd) ;
}
}
}
else // Operazione di cancellazione
{
/*******************************************************************
* Operazione di eliminazione di un fornitore
* 1.2.2022 Versione 3.0: adesso il fornitore viene cancellato
* 'logicamente' dalla tabella e viene settata anche la data di
* cancellazione
********************************************************************/
debug (0, "ANNO = $anno") ;
$ret = $fornitore->EliminaFornitore($anno) ;
}
?>