query($query) ; while ($db->next_record()) { $data = ItaDate($db->f("DataOrdine")) ; fwrite($frep, "Dati di dettaglio dell'ordine n. \"$ord\" effettuato in data $data\n\n") ; $nf = $db->f("NomeFornitore") ; $indf = $db->f("IndirizzoFornitori") ; $capf = $db->f("CapFornitori") ; $citf = $db->f("CittaFornitori") ; $prof = $db->f("ProvinciaFornitori") ; $cli = $db->f("NomeCliente") ; $indc = $db->f("IndirizzoCliente") ; $capc = $db->f("CapCliente") ; $citc = $db->f("CittaCliente") ; $proc = $db->f("ProvinciaCliente") ; $luogo = $db->f("IndirizzoConsegna") ; $telefono = $db->f("TelefonoCliente") ; $partita = $db->f("PivaCliente") ; $chiusura = $db->f("ChiusuraCliente") ; $pagamento = $db->f("ModalitaPagamenti") ; $sconto1 = nfp($db->f("Sconto1")) ; $sconto2 = nfp($db->f("Sconto2")) ; $sconto3 = nfp($db->f("Sconto3")) ; $epoca = $db->f("EpocaDiConsegna") ; $note = $db->f("NoteOrdini") ; $banca = $db->f("BancaCliente") ; $abi = $db->f("AbiCliente") ; $cab = $db->f("CabCliente") ; $cc = $db->f("CcCliente") ; fwrite ($frep, " ALLA CASA: $nf\n") ; fwrite ($frep, " $indf\n") ; fwrite ($frep, " $capf\n") ; fwrite ($frep, " $citf\n") ; fwrite ($frep, " $prof\n\n") ; fwrite ($frep, " CLIENTE: $cli\n") ; fwrite ($frep, " $indc\n") ; fwrite ($frep, " $capc\n") ; fwrite ($frep, " $citc\n") ; fwrite ($frep, " $proc\n\n") ; if ($luogo != "") fwrite ($frep, " Luogo di consegna: $luogo\n") ; fwrite ($frep, " Telefono: $telefono\n") ; fwrite ($frep, " Partita Iva: $partita\n") ; fwrite ($frep, " Chiusura: $chiusura\n") ; fwrite ($frep, " Pagamento: $pagamento\n") ; fwrite ($frep, " Sconto 1: $sconto1\n") ; fwrite ($frep, " Sconto 2: $sconto2\n") ; fwrite ($frep, " Sconto pagamento: $sconto3\n") ; fwrite ($frep, " Epoca di consegna: $epoca\n") ; fwrite ($frep, " Note: $note\n\n") ; fwrite ($frep, " Coordinate Bancarie\n") ; fwrite ($frep, " Banca : $banca Abi: $abi Cab:$cab CC:$cc\n\n") ; fwrite ($frep, " PRODOTTI PRESENTI NELL'ORDINE\n\n") ; /*********************************************************** * controllo se in questo ordine c'č lo sconto merce ***********************************************************/ $dbtmp = new FC_SQL ; if ($db->f("IdFornitori") != $idsarzi) $qdett = "select * from $tscontomerce, $tprodotti where IdOrdine = $ord and IdProdotto = IdProdotti order by $tprodotti.nome" ; else $qdett = "select * from $tscontomerce, $tsarzi where IdOrdine = $ord and $tdettagli.idprodotto = CONCAT('SA',idprodotti) order by $tsarzi.nome" ; $dbtmp->query($qdett) ; if ($dbtmp->num_rows() > 0) { $riga = 0 ; while ($dbtmp->next_record()) { $nomep = $dbtmp->f("Nome") ; $annata = $dbtmp->f("Annata") ; $numcart = $dbtmp->f("NumCartoni") ; $confda = $dbtmp->f("ConfezioniDa") ; fwrite ($frep, " Nome Prodotto: $nomep\n") ; if ($annata != "") fwrite ($frep, " Annata: $annata") ; fwrite ($frep, " Cartoni: $numcart da $confda SCONTO MERCE\n") ; fwrite ($frep, "---------------------------------------------------------------------------------\n") ; } } if ($db->f("IdFornitori") != $idsarzi) $qdett = "select * from $tdettagli, $tprodotti, $tiva where IdOrdine = $ord and IdProdotto = IdProdotti and $tprodotti.idivaprd = $tiva.idiva order by $tprodotti.nome" ; else $qdett = "select * from $tdettagli, $tsarzi, $tiva where IdOrdine = $ord and $tdettagli.idprodotto = CONCAT('SA',idprodotti) and $tsarzi.idivaprd = $tiva.idiva order by $tsarzi.nome" ; $dbtmp->query($qdett) ; $riga = 0 ; $subtot = 0 ; $subsconti = 0 ; $subtotiva = 0 ; $mysubtot = 0 ; while ($dbtmp->next_record()) { $nomep = $dbtmp->f("Nome") ; $annata = $dbtmp->f("Annata") ; $numcart = $dbtmp->f("NumCartoni") ; $confda = $dbtmp->f("ConfezioniDa") ; $pu = nfe($dbtmp->f("PrezzoUnitario")) ; $totp = $dbtmp->f("NumCartoni") * $dbtmp->f("ConfezioniDa") * $dbtmp->f("PrezzoUnitario") ; /******************************************************************** * Su questo totale devo andare a considerare se applicare o meno * degli sconti in base ai valori di sconto (1, 2 e 3) presenti * nell'ordine. *********************************************************************/ if ($dbtmp->f("ScontoPrd") != "" ) $totp = CalcolaScontoProdotto($totp, $dbtmp->f("ScontoPrd")) ; $sconto1 = ($totp * $db->f("Sconto1") / 100) ; $subtotp1 = $totp - $sconto1 ; $sconto2 = ($subtotp1 * $db->f("Sconto2") / 100) ; $subtotp2 = $subtotp1 - $sconto2 ; $sconto3 = ($subtotp2 * $db->f("Sconto3") / 100) ; $subtotp3 = $subtotp2 - $sconto3 ; $sconti = $sconto1 + $sconto2 + $sconto3 ; $impprod = $totp - $sconti ; $totiva = ($impprod * $dbtmp->f("Aliquota") / 100) ; $subsconti += $sconti ; $subtotiva += $totiva ; $mysubtot += $totp ; $mytotp = nfe($totp) ; fwrite ($frep, " Nome Prodotto: $nomep\n") ; if ($annata != "") fwrite ($frep, " Annata: $annata") ; fwrite ($frep, " Cartoni: $numcart da $confda Prezzo Unitario: $pu Totale Parziale: $mytotp\n") ; fwrite ($frep, "---------------------------------------------------------------------------------\n") ; } $mysubt = sprintf ("%12s", nfe($mysubtot)) ; $ammsconti = sprintf ("%12s", nfe($subsconti)) ; $diff = sprintf ("%12s", nfe($mysubtot - $subsconti)) ; $myiva = sprintf ("%12s", nfe($subtotiva)) ; $totfatt = sprintf ("%12s", nfe(($mysubtot - $subsconti) + $subtotiva)) ; fwrite($frep, "\n SubTotale Ordine: $mysubt\n") ; fwrite($frep, " Ammontare Sconti: $ammsconti\n") ; fwrite($frep, " SubTotale - Sconti: $diff\n") ; fwrite($frep, " IVA: $myiva\n") ; fwrite($frep, " TOTALE FATTURA: $totfatt\n") ; fwrite($frep, "\n===============================================================================\n") ; fwrite($frep, "===============================================================================\n\n") ; } } } fwrite($frep, "\n Con i pių cordiali saluti\n\n") ; fwrite($frep, " $nome\n") ; fwrite($frep, " $sede\n") ; fwrite($frep, " $datisede\n") ; fwrite($frep, " $emailsede\n") ; fclose($frep) ; ?>

Operazione di creazione del Report eseguita con successo. Il file appena creato si trova nella directory C:\php_app\GestioneAzienda_2.0\report\