/*********************************************************
* modprodotti.php
* File utilizzato per la modifica dei prodotti in fase di
* modifica di un ordine già esistente
* 27 Febbraio: grossa modifica. Adesso i codici dei prodotti
* devono essere in un formato tipo xxxx^yyy dove xxxx è effettivamente
* il codice del prodotto.
**********************************************************/
include ("../common/public.php") ;
// print_r($_GET + $_POST) ;
$dbcombo = new FC_SQL ;
/******************************************************************
* Recupero i nomi del cliente, dell'eventualmente nuovo
* fornitore che mi sono stati passati dalla form precedente e
* i prodotti che fanno parte di quest'ordine se non ho modificato
* il fornitore
*******************************************************************/
if ($oldfornitore == $fornitore)
{
$query = "select * from $tfornitori where idfornitori = $fornitore" ;
$db->query($query) ;
while ($db->next_record())
$nomefornitore = $db->f("Nome") ;
$dbtt = new FC_SQL ;
if ($fornitore == $idsarzi)
{
/***********************************************************************************************************
* Mi costruisco un array in cui ci vado a mettere i codici dei prodotti che fanno parte di questo ordine
***********************************************************************************************************/
$np = 0 ;
$dbt = new FC_SQL ;
$query = "
select
*
from
$tdettagli,
$tsarzi
where
IdOrdine = $idordine and
$tdettagli.idprodotto = CONCAT('SA',idprodotti)
order by
$tsarzi.nome
" ;
debug (0, $query) ;
$dbt->query($query) ;
while ($dbt->next_record())
{
$nomep = stripslashes($dbt->f("Nome")) ;
$np ++ ;
$ncar[] = $dbt->f("NumCartoni") ;
$conf[] = $dbt->f("ConfezioniDa") ;
$idprod[] = $dbt->f("IdProdotto") . "^0";
$scomer[] = "0" ;
if ($dbt->f("Esaurito") == 0)
$newprd[] = $nomep . " - PU:" . nfe($dbt->f("PrezzoUnitario")) ;
else
$newprd[] = "ESAURITO (". $nomep . ")" ;
}
/**************************************************************************
* dopo aver recuperato i prodotti 'venduti', recupero anche i prodotti che
* compongono lo sconto merce
***************************************************************************/
$dbsm = new FC_SQL ;
$query = "
select
*
from
$tscontomerce,
$tsarzi
where
IdOrdine = $idordine and
$tscontomerce.idprodotto = CONCAT('SA',idprodotti)
order by
$tsarzi.nome
" ;
$dbsm->query($query) ;
while ($dbsm->next_record())
{
$nomep = stripslashes($dbsm->f("Nome")) ;
$np ++ ;
$ncar[] = $dbsm->f("NumCartoni") ;
$conf[] = $dbsm->f("ConfezioniDa") ;
$idprod[] = $dbsm->f("IdProdotto") . "^SM";
$scomer[] = "1" ;
if ($dbsm->f("Esaurito") == 0)
$newprd[] = $nomep . " - PU:" . nfe($dbsm->f("PrezzoUnitario")) ;
else
$newprd[] = "ESAURITO (". $nomep . ")" ;
}
if ($np > 0)
{
reset ($idprod) ;
for ($i=0; $i<=7; $i++)
{
$idp = $idprod[$i] ;
$ss = $prd[0][$i] ;
}
}
/**************************************************************************************
* se provengo da una operazione di aggiunta di un prodotto di sarzi, allora inserisco
* alla fine della lista anche questo prodotto
***************************************************************************************/
if ($ricarica == "ricarica")
{
$idprod[] = $idprdadd ;
$newprd[] = $nome . " - PU:" . $preuni ;
}
}
else
{
/********************************************************************************************************
* NO SARZI
* Mi costruisco un array in cui ci vado a mettere i codici dei prodotti che fanno parte di questo ordine
**********************************************************************************************************/
$np = 0 ; // numero prodotti ??
$dbt = new FC_SQL ;
$query = "select
*
from
$tdettagli,
$tprodotti
where
IdOrdine = $idordine and
IdProdotto = IdProdotti
order by
$tprodotti.nome" ;
$dbt->query($query) ;
while ($dbt->next_record())
{
$np ++ ;
if ($dbt->f("PrezzoForzato") != '' && $dbt->f("PrezzoForzato") != '0.00')
$pFor[] = nfe($dbt->f("PrezzoForzato")) ;
else
$pFor[] = '' ;
$ncar[] = $dbt->f("NumCartoni") ;
$conf[] = $dbt->f("ConfezioniDa") ;
$scontoprd[] = $dbt->f("ScontoPrd") ;
$idprod[] = $dbt->f("IdProdotto") . "^0" ;
$scomer[] = "0" ;
if ($dbt->f("Esaurito") == 0)
{
if ($dbt->f("CodiceProdotto") != "")
$newprd[] = sprintf ("%s - %s %s - PU:%s - Residuo:%d", $dbt->f("CodiceProdotto"), stripslashes($dbt->f("Nome")), $dbt->f("Annata"), nfe($dbt->f("PrezzoUnitario") + $dbt->f("Accisa")), $dbt->f("QAssegnata") - $dbt->f("QUtilizzata")) ;
else
$newprd[] = sprintf ("%s %s - PU:%s - Residuo:%d", stripslashes($dbt->f("Nome")), $dbt->f("Annata"), nfe($dbt->f("PrezzoUnitario") + $dbt->f("Accisa")), $dbt->f("QAssegnata") - $dbt->f("QUtilizzata")) ;
}
else
{
$newprd[] = sprintf ("E S A U R I T O (%s - %s)", stripslashes($dbt->f("Nome")), $dbt->f("Annata")) ;
}
}
/*****************************************************************************************************
* dopo aver recuperato i prodotti 'venduti', recupero anche i prodotti che compongono lo sconto merce
******************************************************************************************************/
$dbsm = new FC_SQL ;
$query = "
select
*
from
$tscontomerce,
$tprodotti
where
IdOrdine = $idordine and
IdProdotto = IdProdotti
order by
$tprodotti.nome
" ;
$dbsm->query($query) ;
while ($dbsm->next_record())
{
$np ++ ;
$pFor[] = '' ;
$ncar[] = $dbsm->f("NumCartoni") ;
$conf[] = $dbsm->f("ConfezioniDa") ;
$idprod[] = $dbsm->f("IdProdotto") . "^SM" ;
$scomer[] = "1" ;
if ($dbsm->f("Esaurito") == 0)
{
if ($dbsm->f("CodiceProdotto") != "")
$newprd[] = sprintf ("%s - %s %s - PU:%s - Residuo:%d", $dbsm->f("CodiceProdotto"), stripslashes($dbsm->f("Nome")), $dbsm->f("Annata"), nfe($dbsm->f("PrezzoUnitario") + $dbsm->f("Accisa")), $dbsm->f("QAssegnata") - $dbsm->f("QUtilizzata")) ;
else
$newprd[] = sprintf ("%s %s - PU:%s - Residuo:%d", stripslashes($dbsm->f("Nome")), $dbsm->f("Annata"), nfe($dbsm->f("PrezzoUnitario") + $dbsm->f("Accisa")), $dbsm->f("QAssegnata") - $dbsm->f("QUtilizzata")) ;
}
else
{
$newprd[] = sprintf ("E S A U R I T O (%s - %s)", stripslashes($dbsm->f("Nome")), $dbsm->f("Annata")) ;
}
}
if ($np > 0)
{
reset ($idprod) ;
for ($i=0; $i<=7; $i++)
{
$idp = $idprod[$i] ;
$ss = $prd[0][$i] ;
}
}
}
}
else
{
$db->query("select Nome from $tfornitori where idfornitori = $oldfornitore") ;
while ($db->next_record())
$vecchionome = $db->f("Nome") ;
}
$db->query("select Nome from $tclienti where idclienti = $cliente") ;
while ($db->next_record())
$nomecliente = $db->f("Nome") ;
$str = "