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 = "" ; if ($oldfornitore == $fornitore) { for ($riga=1; $riga<=count($idprod); $riga ++) { { $idprodotto = $idprod[$riga-1] ; $str .= "" ; $str .= "" . htmlspecialchars($newprd[$riga-1]) . "" ; $str .= "" . $pFor[$riga-1] . "" ; $str .= "" . $ncar[$riga-1] . "" ; $str .= "" . $conf[$riga-1] . "" ; $str .= "" . $scontoprd[$riga-1] . "" ; $str .= "" . $scomer[$riga-1] . "" ; $str .= "" ; } } } $str .= "" ; $header = "Prodotto,Prz Forzato,N. Cart,Conf Da,% Sconto Prd,Sconto Merce" ; $strSort = "na,na,na,na,na,na" ; $iniWP = "40,10,10,10,14,14" ; $setColType = "ro,ed,ed,ed,ed,ch" ; $setColAlign = "left,center,center,center,center,center" ; /**************************************************************************** * mi devo ricavare dei valori che mi servono per la fase di memorizzazione ****************************************************************************/ $qord = " select *, $tordini.bancaordine as BancaOrdini, $tordini.idagente as IdAgente, $tagenti.nome as NomeAgente, $tclienti.Nome as NomeCliente, $tfornitori.Nome as NomeFornitore, $ttipologie.idtipologie as IdTipologia from $tordini, $tpagamenti, $tclienti, $tfornitori, $tagenti, $ttipologie where $tordini.IdCliente = $tclienti.IdClienti and $tordini.IdFornitore = $tfornitori.IdFornitori and $tordini.IdPagamento = $tpagamenti.IdPagamenti and $tordini.idagente = $tagenti.idagenti and $tclienti.idtipologia = $ttipologie.idtipologie and IdOrdini = $idordine " ; list($nord, $dord) = $db->RecuperaDati($qord) ; ?> <? echo TITLE ?>