<? echo TITLE ?>

dateNow($format="%Y%m%d") ; list($d, $m, $y) = explode("/", $data) ; $numGiorni = $dateCalc->dateToDays($d,$m,$y) ; $dd_scad = $dateCalc->daysToDate($numGiorni + $giorni, $format="%Y%m%d") ; if (($today > $dd_scad) and $importo == " ") $dd = $dateCalc->daysToDate($numGiorni + $giorni, $format = "%d/%m/%Y") . " (*)" ; else $dd = $dateCalc->daysToDate($numGiorni + $giorni, $format = "%d/%m/%Y") ; return $dd ; } $query = "select * from fornitori where idfornitori = $fornitore" ; $db->query($query) ; while($db->next_record()) $nomefornitore = addslashes($db->f("Nome")) ; $titolo = 'Situazione Econominca del Fornitore ' . $nomefornitore . ' per gli anni: ' ; $arrVal = array() ; $arrValPag = array() ; $arrTotFornitore = array() ; $q_anno = " select O.idordini, C.nome as NomeCliente, O.numfattura, O.dataspedfattura as DataSpedFattura, DATE_FORMAT(O.dataspedfattura, '%d/%m/%Y') as ItaDataSpedFattura, DATE_FORMAT(O.datarichiesta, '%d/%m/%Y') as ItaDataPagFattura, O.idpagamento, P.modalita as Tipo_Pagamento, case when (P.giorni = 999) then 0 else P.giorni end as GG, O.importofattura, O.saldoFattura, A.nome from ordini O inner join clienti C on C.idclienti = O.idcliente inner join pagamenti P on P.idpagamenti = O.idpagamento inner join agenti A on A.idagenti = O.idagente where O.Anno = $anno and idfornitore = $fornitore and numfattura > 0 " ; if ($anno_2prec != '') { $titolo .= $anno_2prec . ', ' ; $q_2prec = " UNION select O.idordini, C.nome as NomeCliente, O.numfattura, O.dataspedfattura as DataSpedFattura, DATE_FORMAT(O.dataspedfattura, '%d/%m/%Y') as ItaDataSpedFattura, DATE_FORMAT(O.datarichiesta, '%d/%m/%Y') as ItaDataPagFattura, O.idpagamento, P.modalita as Tipo_Pagamento, case when (P.giorni = 999) then 0 else P.giorni end as GG, O.importofattura, O.saldoFattura, A.nome from ordini O inner join clienti C on C.idclienti = O.idcliente inner join pagamenti P on P.idpagamenti = O.idpagamento inner join agenti A on A.idagenti = O.idagente where O.Anno = $anno_2prec and idfornitore = $fornitore and numfattura > 0 and saldofattura != 1 " ; } else $q_2prec = '' ; if ($anno_prec != '') { $titolo .= $anno_prec . ', ' ; $q_prec = " UNION select O.idordini, C.nome as NomeCliente, O.numfattura, O.dataspedfattura as DataSpedFattura, DATE_FORMAT(O.dataspedfattura, '%d/%m/%Y') as ItaDataSpedFattura, DATE_FORMAT(O.datarichiesta, '%d/%m/%Y') as ItaDataPagFattura, O.idpagamento, P.modalita as Tipo_Pagamento, case when (P.giorni = 999) then 0 else P.giorni end as GG, O.importofattura, O.saldoFattura, A.nome from ordini O inner join clienti C on C.idclienti = O.idcliente inner join pagamenti P on P.idpagamenti = O.idpagamento inner join agenti A on A.idagenti = O.idagente where O.Anno = $anno_prec and idfornitore = $fornitore and numfattura > 0 and saldofattura != 1 " ; } else $q_prec = '' ; $titolo .= $anno ; $q = $q_anno . $q_prec . $q_2prec . " order by NomeCliente, DataSpedFattura" ; list($n,$d) = $db->RecuperaDati($q) ; // print_r($d) ; for ($i=0; $i<$n; $i++) { if (! array_key_exists($d['NomeCliente'][$i], $arrVal)) $arrVal[$d['NomeCliente'][$i]] = array() ; $arrValPag[$d['NomeCliente'][$i]]['TotFatt'] += $d['importofattura'][$i] ; $arrTotFornitore['TotFatt'] += $d['importofattura'][$i] ; if ($d['saldoFattura'][$i] == 0) $impPagato = " " ; else { $arrValPag[$d['NomeCliente'][$i]]['Pagato'] += $d['importofattura'][$i] ; $arrTotFornitore['Pagato'] += $d['importofattura'][$i] ; $impPagato = $d['importofattura'][$i] ; } if ($d['ItaDataPagFattura'][$i] == '00/00/0000') $dataPagFattura = " " ; else $dataPagFattura = $d['ItaDataPagFattura'][$i] ; $arrVal[$d['NomeCliente'][$i]][] = array( 'IdOrdine' => $d['idordini'][$i], 'NumFatt' => $d['numfattura'][$i], 'DataFattura' => $d['ItaDataSpedFattura'][$i], 'Scadenza' => CalcolaScadenza($d['ItaDataSpedFattura'][$i], $d['GG'][$i], $impPagato) , 'TipoPagamento' => $d['Tipo_Pagamento'][$i], 'ImportoFattura' => $d['importofattura'][$i], 'ImportoPagato' => $impPagato, 'DataPagFattura' => $dataPagFattura, 'Agente' => $d['nome'][$i], ) ; } $arrParGen = array() ; $arrParGen = RecuperaParametriGenerali($arrParGen, $tparametri) ; $nome = $arrParGen['NomeAgenzia'] ; $sede = "Sede operativa: " . $arrParGen['IndirizzoAgenzia'] ; $datisede = "Telefono: " . $arrParGen['TelefonoAgenzia'] . " Fax: " . $arrParGen['FaxAgenzia'] . " -- P.I. " . $arrParGen['PartitaIvaAgenzia'] ; $emailsede = "Email: " . $arrParGen['MailAgenzia'] ; ?> <? echo TITLE ?> $arrFatt) // while(list($nomeCliente, $arrFatt) = each($arrVal)) { ?>

al dateNow($format="%d/%m/%Y") ?>

Cliente:

N. Fatt.

Data Fattura

Scadenza

Tipo Pag.

Importo

Imp. Pagato

Data Pag. Fatt.

Agente

Note

(*) = fattura scaduta

Totale:

Differenza:

Totale Cliente

Importo Fatture:

Pagato:

Da Pagare: