function selItem($name,$val,$strSearch='',$mesg,$val_hiddenReq='',$class='FacetSelect')
{
global $gTables,$admin_aziend;
if ($admin_aziend['artsea'] == 'B'){ //ricerca per codice a barre
$field = 'barcode';
} elseif ($admin_aziend['artsea'] == 'D') { //ricerca per descrizione
$field = 'descri';
} else { //ricerca per codice (default)
$field = 'codice';
}
if (!empty($val)) { //vengo da una modifica della precedente select case quindi non serve la ricerca
$item=gaz_dbi_get_row($gTables['artico'],'codice',$val);
echo "\t<input type=\"hidden\" name=\"$name\" value=\"$val\">\n";
echo "\t<input type=\"hidden\" name=\"search[$name]\" value=\"".$item[$field]."\">\n";
echo "\t<input type=\"submit\" value=\"".$item['codice']." - ".$item['descri']."\" name=\"change\" onclick=\"this.form.$name.value=''; this.form.hidden_req.value='change';\" title=\"$mesg[2]\">\n";
} else {
if (strlen($strSearch) >= 1) { //sto ricercando un nuovo articolo
$item = gaz_dbi_dyn_query("codice,descri,barcode", $gTables['artico'],$field." LIKE '$strSearch%'","codice ASC, descri DESC");
echo "\t<select name=\"$name\" class=\"FacetSelect\" onchange=\"this.form.hidden_req.value='$name'; this.form.submit();\">\n";
echo "<option value=\"0\"> ---------- </option>";
if (gaz_dbi_num_rows($item) > 0) {
while ($r = gaz_dbi_fetch_array($item)) {
$selected = '';
if ($r['codice'] == $val) {
$selected = "selected";
}
echo "\t\t <option value=\"".$r['codice']."\" $selected >".$r['codice']." - ".$r["descri"]."</option>\n";
}
echo "\t </select>\n";
} else {
$msg = $mesg[0];
}
} else {
$msg = $mesg[1];
echo "\t<input type=\"hidden\" name=\"$name\" value=\"$val\">\n";
}
echo "\t<input type=\"text\" name=\"search[$name]\" value=\"".$strSearch."\" maxlength=\"15\" size=\"9\" class=\"FacetInput\">\n";
if (isset($msg)) {
echo "<input type=\"text\" style=\"color: red; font-weight: bold;\" size=\"".strlen($msg)."\" disabled value=\"$msg\">";
}
echo "\t<input type=\"image\" align=\"middle\" name=\"search_str\" src=\"../../library/images/cerbut.gif\">\n";
}
}
header("Location: ".$_POST['ritorno']);
exit;
}
if (isset($_POST['Delete'])){
gaz_dbi_del_row($gTables['assist'], "id", $row['id']);
header("Location: ".$_POST['ritorno']);
exit;
}
if (isset($_POST['Return'])) {
header("Location: ".$_POST['ritorno']);
exit;
}
$numddt = gaz_dbi_num_rows($result);
$anagrafica = new Anagrafica();
$cliente = $anagrafica->getPartner($row['clfoco']);
$titolo="Elimina Documento ";
require("../../library/include/header.php");
$script_transl=HeadMain();
?>
<form method="POST">
<input type="hidden" name="ritorno" value="<?php print $_POST['ritorno'];?>">
<div align="center"><font class="FacetFormHeaderFont">Attenzione!!! Stai eliminando il Documento n.<?php print $row['numdoc']."/".$row['seziva']." dell'anno ".substr($row['datemi'],0,4); ?> </font></div>
<table border="0" cellpadding="3" cellspacing="1" class="FacetFormTABLE" align="center">
<!-- BEGIN Error -->
<tr>
<td colspan="2" class="FacetDataTDred">
<?php
if (! $message == "") {
function createRowsAndErrors($min_limit){
global $gTables,$admin_aziend,$script_transl;
$nuw = new check_VATno_TAXcode();
$sqlquery= "SELECT ".$gTables['rigmoi'].".*, ragso1,ragso2,sedleg,sexper,indspe,regiva,allegato,
citspe,prospe,country,codfis,pariva,".$gTables['tesmov'].".clfoco,".$gTables['tesmov'].".protoc,
".$gTables['tesmov'].".numdoc,".$gTables['tesmov'].".datdoc,".$gTables['tesmov'].".seziva,
".$gTables['tesmov'].".caucon,".$gTables['tesdoc'].".numfat AS n_fatt,
datreg,datnas,luonas,pronas,counas,id_doc,iso,black_list,cod_agenzia_entrate,
operat, impost AS imposta,".$gTables['rigmoi'].".id_tes AS idtes,
imponi AS imponibile FROM ".$gTables['rigmoi']."
LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoi'].".id_tes = ".$gTables['tesmov'].".id_tes
LEFT JOIN ".$gTables['tesdoc']." ON ".$gTables['tesmov'].".id_doc = ".$gTables['tesdoc'].".id_tes
LEFT JOIN ".$gTables['aliiva']." ON ".$gTables['rigmoi'].".codiva = ".$gTables['aliiva'].".codice
LEFT JOIN ".$gTables['clfoco']." ON ".$gTables['tesmov'].".clfoco = ".$gTables['clfoco'].".codice
LEFT JOIN ".$gTables['anagra']." ON ".$gTables['anagra'].".id = ".$gTables['clfoco'].".id_anagra
LEFT JOIN ".$gTables['country']." ON ".$gTables['anagra'].".country = ".$gTables['country'].".iso
WHERE YEAR(datreg) = ".intval($_GET['anno'])."
AND ( ".$gTables['tesmov'].".clfoco LIKE '".$admin_aziend['masfor']."%' OR ".$gTables['tesmov'].".clfoco LIKE '".$admin_aziend['mascli']."%')
AND ".$gTables['clfoco'].".allegato > 0
ORDER BY regiva,operat,country,datreg,seziva,protoc";
$result = gaz_dbi_query($sqlquery);
$castel_transact= array();
$error_transact= array();
if (gaz_dbi_num_rows($result) > 0 ) {
// inizio creazione array righi ed errori
$progressivo = 0;
$ctrl_id = 0;
$value_imponi = 0.00;
$value_impost = 0.00;
while ($row = gaz_dbi_fetch_array($result)) {
if ($row['operat'] >= 1) {
$value_imponi = $row['imponibile'];
$value_impost = $row['imposta'];
} else {
$value_imponi = 0;
$value_impost = 0;
}
if ($ctrl_id <> $row['idtes']) {
// se il precedente movimento non ha raggiunto l'importo lo elimino
if (isset($castel_transact[$ctrl_id])
&& $castel_transact[$ctrl_id]['operazioni_imponibili'] < 0.5
&& $castel_transact[$ctrl_id]['operazioni_esente'] < 0.5
&& $castel_transact[$ctrl_id]['operazioni_nonimp'] < 0.5
&& $castel_transact[$ctrl_id]['contract'] < 0.5) {
unset ($castel_transact[$ctrl_id]);
unset ($error_transact[$ctrl_id]);
}
if (isset($castel_transact[$ctrl_id])
&& $castel_transact[$ctrl_id]['quadro'] == 'DF'
&& $castel_transact[$ctrl_id]['operazioni_imponibili'] < $min_limit
&& $castel_transact[$ctrl_id]['contract'] < $min_limit ){
unset ($castel_transact[$ctrl_id]);
unset ($error_transact[$ctrl_id]);
}
// inizio controlli su CF e PI
$resultpi = $nuw->check_VAT_reg_no($row['pariva']);
$resultcf = $nuw->check_VAT_reg_no($row['codfis']);
if ($admin_aziend['country'] != $row['country']) {
// È uno non residente
if (!empty($row['datnas'])) { // È un persona fisica straniera
if (empty($row['pronas']) || empty($row['luonas']) || empty($row['counas'])) {
$error_transact[$row['idtes']][] = $script_transl['errors'][9];
}
}
} elseif (empty($resultpi) && !empty($row['pariva'])) {
// ha la partita IVA ed è giusta
if( strlen(trim($row['codfis'])) == 11) {
// È una persona giuridica
if (intval($row['codfis']) == 0 && $row['allegato'] < 2 ) { // se non è un riepilogativo
$error_transact[$row['idtes']][] = $script_transl['errors'][1];
} elseif ($row['sexper'] != 'G') {
$error_transact[$row['idtes']][] = $script_transl['errors'][2];
}
} else {
// È una una persona fisica
$resultcf = $nuw->check_TAXcode($row['codfis']);
if (empty($row['codfis'])) {
$error_transact[$row['idtes']][] = $script_transl['errors'][3];
} elseif ($row['sexper'] == 'G' and empty($resultcf)) {
$error_transact[$row['idtes']][] = $script_transl['errors'][4];
} elseif ($row['sexper'] == 'M' and empty($resultcf) and
(intval(substr($row['codfis'],9,2)) > 31 or
intval(substr($row['codfis'],9,2)) < 1) ) {
$error_transact[$row['idtes']][] = $script_transl['errors'][5];
} elseif ($row['sexper'] == 'F' and empty($resultcf) and
(intval(substr($row['codfis'],9,2)) > 71 or
intval(substr($row['codfis'],9,2)) < 41) ) {
$error_transact[$row['idtes']][] = $script_transl['errors'][6];
} elseif (! empty ($resultcf)) {
$error_transact[$row['idtes']][] = $script_transl['errors'][7];
}
}
} else {
// È un soggetto con codice fiscale senza partita IVA
$resultcf = $nuw->check_TAXcode($row['codfis']);
if( strlen(trim($row['codfis'])) == 11) { // È una persona giuridica
$resultcf = $nuw->check_VAT_reg_no($row['codfis']);
}
if (empty($row['codfis'])) {
$error_transact[$row['idtes']][] = $script_transl['errors'][3];
} elseif ($row['sexper'] == 'G' and !empty($resultcf)) {
$error_transact[$row['idtes']][] = $script_transl['errors'][4];
} elseif ($row['sexper'] == 'M' and empty($resultcf) and
(intval(substr($row['codfis'],9,2)) > 31 or
intval(substr($row['codfis'],9,2)) < 1) ) {
$error_transact[$row['idtes']][] = $script_transl['errors'][5];
} elseif ($row['sexper'] == 'F' and empty($resultcf) and
(intval(substr($row['codfis'],9,2)) > 71 or
intval(substr($row['codfis'],9,2)) < 41) ) {
$error_transact[$row['idtes']][] = $script_transl['errors'][6];
} elseif (!empty ($resultcf)) {
$error_transact[$row['idtes']][] = $script_transl['errors'][7];
}
}
// fine controlli su CF e PI
$castel_transact[$row['idtes']] = $row;
$castel_transact[$row['idtes']]['riepil'] = 0;
// determino il tipo di soggetto residente all'estero
$castel_transact[$row['idtes']]['istat_country'] = 0;
// --------- TIPIZZAZIONE DEI MOVIMENTI -----------------
$castel_transact[$row['idtes']]['quadro'] = 'ZZ';
if ($row['country'] <> $admin_aziend['country'] ) {
// NON RESIDENTE
$castel_transact[$row['idtes']]['istat_country']=$row['country'];
$castel_transact[$row['idtes']]['cod_ade']=$row['cod_agenzia_entrate'];
$castel_transact[$row['idtes']]['quadro'] = 'FN';
} else {
if ($row['regiva']==4 && (!empty($row['n_fatt']))) { // se è un documento allegato ad uno scontrino utilizzo il numero fattura in tesdoc
$castel_transact[$row['idtes']]['numdoc']=$row['n_fatt'].' scontr.n.'.$row['numdoc'];
$castel_transact[$row['idtes']]['seziva']='';
}
if ($row['pariva'] >0){
// RESIDENTE con partita IVA
if ($row['regiva'] < 6){ // VENDITE - Fatture Emesse o Note Emesse
if ($row['operat']==1){ // Fattura
$castel_transact[$row['idtes']]['quadro'] = 'FE';
} else { // Note
$castel_transact[$row['idtes']]['quadro'] = 'NE';
}
} else { // ACQUISTI - Fatture Ricevute o Note Ricevute
if ($row['operat']==1){ // Fattura
$castel_transact[$row['idtes']]['quadro'] = 'FR';
} else { // Note
$castel_transact[$row['idtes']]['quadro'] = 'NR';
}
}
} else { // senza partita iva
if ($row['allegato']==2){ // riepilogativo es.scheda carburante
$castel_transact[$row['idtes']]['quadro'] = 'FR';
$castel_transact[$row['idtes']]['riepil'] = 1;
} elseif ( empty($resultcf) && strlen($row['codfis'])==11){ // associazioni/noprofit
// imposto il codice fiscale come partita iva
if ($row['regiva'] < 6){ // VENDITE - Fatture Emesse o Note Emesse
if ($row['operat']==1){ // Fattura
$castel_transact[$row['idtes']]['quadro'] = 'FE';
} else { // Note
$castel_transact[$row['idtes']]['quadro'] = 'NE';
}
} else { // ACQUISTI - Fatture Ricevute o Note Ricevute
// nei quadri FR NR è possibile indicare la sola partita iva
$castel_transact[$row['idtes']]['pariva'] = $castel_transact[$row['idtes']]['codfis'];
$castel_transact[$row['idtes']]['codfis']=0;
if ($row['operat']==1){ // Fattura
$castel_transact[$row['idtes']]['quadro'] = 'FR';
} else { // Note
$castel_transact[$row['idtes']]['quadro'] = 'NR';
}
}
} elseif (empty($resultcf) && strlen($row['codfis'])==16){ // privato servito con fattura
if ($row['operat']==1){ // Fattura
$castel_transact[$row['idtes']]['quadro'] = 'FE';
} else { // Note
$castel_transact[$row['idtes']]['quadro'] = 'NE';
}
} else { // privati con scontrino
$castel_transact[$row['idtes']]['quadro'] = 'DF';
}
}
}
// ricerco gli eventuali contratti che hanno generato la transazione
$castel_transact[$row['idtes']]['n_rate'] = 1;
$castel_transact[$row['idtes']]['contract'] = 0;
if ($row['id_doc'] > 0 ) {
$contr_query= "SELECT ".$gTables['tesdoc'].".*,".$gTables['contract'].".* FROM ".$gTables['tesdoc']."
LEFT JOIN ".$gTables['contract']." ON ".$gTables['tesdoc'].".id_contract = ".$gTables['contract'].".id_contract
WHERE id_tes = ".$row['id_doc']." AND (".$gTables['tesdoc'].".id_contract > 0 AND tipdoc NOT LIKE 'VCO')";
$result_contr = gaz_dbi_query($contr_query);
if (gaz_dbi_num_rows($result_contr) > 0 ) {
$contr_r=gaz_dbi_fetch_array($result_contr);
// devo ottenere l'importo totale del contratto
$castel_transact[$row['idtes']]['contract']=$contr_r['current_fee']*$contr_r['months_duration'];
$castel_transact[$row['idtes']]['n_rate'] = 2;
}
}
// fine ricerca contratti
if (!empty($row['sedleg'])){
if ( preg_match("/([\w\,\.\s]+)([0-9]{5})[\s]+([\w\s\']+)\(([\w]{2})\)/",$row['sedleg'],$regs)) {
$castel_transact[$row['idtes']]['Indirizzo'] = $regs[1];
$castel_transact[$row['idtes']]['Comune'] = $regs[3];
$castel_transact[$row['idtes']]['Provincia'] = $regs[4];
} else {
$error_transact[$row['idtes']][] = $script_transl['errors'][10];
}
}
// inizio valorizzazione imponibile,imposta,senza_iva,art8
$castel_transact[$row['idtes']]['operazioni_imponibili'] = 0;
$castel_transact[$row['idtes']]['imposte_addebitate'] = 0;
$castel_transact[$row['idtes']]['operazioni_esente'] = 0;
$castel_transact[$row['idtes']]['operazioni_nonimp'] = 0;
$castel_transact[$row['idtes']]['tipiva'] = 1;
switch ($row['tipiva']) {
case 'I':
case 'D':
$castel_transact[$row['idtes']]['operazioni_imponibili'] = $value_imponi;
$castel_transact[$row['idtes']]['imposte_addebitate'] = $value_impost;
if ($value_impost == 0){ //se non c'è imposta il movimento è sbagliato
$error_transact[$row['idtes']][] = $script_transl['errors'][11];
}
break;
case 'E':
$castel_transact[$row['idtes']]['tipiva'] = 3;
$castel_transact[$row['idtes']]['operazioni_esente'] = $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_transact[$row['idtes']][] = $script_transl['errors'][12];
}
break;
case 'N':
$castel_transact[$row['idtes']]['tipiva'] = 2;
$castel_transact[$row['idtes']]['operazioni_nonimp'] = $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_transact[$row['idtes']][] = $script_transl['errors'][12];
}
break;
}
} else { //movimenti successivi al primo ma dello stesso id
// inizio addiziona valori imponibile,imposta,esente,non imponibile
switch ($row['tipiva']) {
case 'I':
case 'D':
$castel_transact[$row['idtes']]['operazioni_imponibili'] += $value_imponi;
$castel_transact[$row['idtes']]['imposte_addebitate'] += $value_impost;
if ($value_impost == 0){ //se non c'è imposta il movimento è sbagliato
$error_transact[$row['idtes']][] = $script_transl['errors'][11];
}
break;
case 'E':
$castel_transact[$row['idtes']]['operazioni_esente'] += $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_transact[$row['idtes']][] = $script_transl['errors'][12];
}
break;
case 'N':
$castel_transact[$row['idtes']]['operazioni_nonimp'] += $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_transact[$row['idtes']][] = $script_transl['errors'][12];
}
break;
}
// fine addiziona valori imponibile,imposta,esente,non imponibile
}
// fine valorizzazione imponibile,imposta,esente,non imponibile
$ctrl_id = $row['idtes'];
}
// se il precedente movimento non ha raggiunto l'importo lo elimino
if (isset($castel_transact[$ctrl_id])
&& $castel_transact[$ctrl_id]['operazioni_imponibili'] < 0.5
&& $castel_transact[$ctrl_id]['operazioni_esente'] < 0.5
&& $castel_transact[$ctrl_id]['operazioni_nonimp'] < 0.5
&& $castel_transact[$ctrl_id]['contract'] < 0.5) {
unset ($castel_transact[$ctrl_id]);
unset ($error_transact[$ctrl_id]);
}
if (isset($castel_transact[$ctrl_id]) && $castel_transact[$ctrl_id]['quadro'] == 'DF'
&& $castel_transact[$ctrl_id]['operazioni_imponibili'] < $min_limit
&& $castel_transact[$ctrl_id]['contract'] < $min_limit ){
unset ($castel_transact[$ctrl_id]);
unset ($error_transact[$ctrl_id]);
}
} else {
$error_transact[0] = $script_transl['errors'][15];
}
// fine creazione array righi ed errori
return array($castel_transact,$error_transact);
}
//controllo i campi
if (!checkdate( $form['date_closing_M'], $form['date_closing_D'], $form['date_closing_Y']) ||
!checkdate( $form['date_opening_M'], $form['date_opening_D'], $form['date_opening_Y'])) {
$msg .='0+';
}
$uts_date_closing= mktime(0,0,0,$form['date_closing_M'],$form['date_closing_D'],$form['date_closing_Y']);
$uts_last_closing= mktime(0,0,0,$form['date_closing_M'],$form['date_closing_D']+1,$form['date_closing_Y']-1);
$uts_date_opening= mktime(0,0,0,$form['date_opening_M'],$form['date_opening_D'],$form['date_opening_Y']);
if ($uts_date_closing > $uts_date_opening) {
$msg .='1+';
}
//controllo se sono state già fatte delle chiusure durante l'anno...
$rs_chiusu = gaz_dbi_dyn_query ('*', $gTables['tesmov'], "caucon='CHI' AND datreg BETWEEN ".date("Ymd",$uts_last_closing)." AND ".date("Ymd",$uts_date_closing),'datreg',0,1);
$nummov = gaz_dbi_num_rows($rs_chiusu);
if ($nummov > 0) {
$msg .= "2+";
}
// fine controlli
if (isset($_POST['genera']) and $msg == "") {
$accounts = accountValue(date("Ymd",$uts_last_closing),date("Ymd",$uts_date_closing));
$loss = $accounts['tot']['cos'];
$profit = $accounts['tot']['ric'];
$assets = $accounts['tot']['att'];
$liabilities = $accounts['tot']['pas'];
$income = $loss+$profit;
//--------------------------- CHIUSURA ----------------------------
//... e i righi
$rs_righidel = gaz_dbi_dyn_query("*", $gTables['rigbro'], "id_tes = '{$_POST['id_tes']}'","id_tes desc");
while ($a_row = gaz_dbi_fetch_array($rs_righidel)) {
gaz_dbi_del_row($gTables['rigbro'], "id_rig", $a_row['id_rig']);
}
header("Location: report_pagdeb.php");
exit;
}
if (isset($_POST['Return'])) {
header("Location: report_pagdeb.php");
exit;
}
//recupero i documenti non contabilizzati
$result = gaz_dbi_dyn_query("*", $gTables['tesbro'], "id_tes = '{$_GET['id_tes']}'" ,"id_tes desc");
$rs_righi = gaz_dbi_dyn_query("*", $gTables['rigbro'], "id_tes = '{$_GET['id_tes']}'" ,"id_tes desc");
$numrig = gaz_dbi_num_rows($rs_righi);
$form = gaz_dbi_fetch_array($result);
switch($form['tipdoc']) {
case "AOB":
$tipobro="Ordine di Bonifico";
break;
case "AOA":
$tipobro="Ordine di Addebito";
break;
}
$anagrafica = new Anagrafica();
$cliente = $anagrafica->getPartner($form['clfoco']);
$titolo="Elimina ".$tipobro." n.".$form['numdoc'];
submenu($menu);
$livello3 = $menu;
}
$i++;
}
echo '</li>';
?>
</ul>
</li>
</ul>
</div>
</nav>
<?php
if ($riga["id"] != "") {
$result2 = gaz_dbi_dyn_query("*", $gTables['menu_script'], ' id_menu=' . $riga["id"] . ' ', 'id', 0);
if (gaz_dbi_num_rows($result2) > 0) {
if (is_array($posizione)) {
$posizione = $posizione[0];
}
if (isset($_GET['auxil'])) {
$auxil = $_GET['auxil'];
} else {
$auxil = "";
}
?>
<nav class="navbar navbar-default navbar-lower nav-mb" role="navigation">
<div class="navbar-form navbar-left" role="search">
<div class="btn-group btn-group-xs">
<?php
while ($r = gaz_dbi_fetch_array($result2)) {
echo '<a href="' . $r["link"] . '" class="btn btn-default">' . stripslashes($transl[$module]["m3"][$r["translate_key"]]["1"]) . '</a>';
}
echo "\t\t <option value=\"".$counter."\" $selected >".$script_transl[0][$counter]."</option>\n";
}
echo "</select></td></tr>\n";
echo "<tr><td class=\"FacetFieldCaptionTD\">$script_transl[8]</td>";
echo "<td class=\"FacetDataTD\">";
$messaggio = '';
$tabula =" tabindex=\"1\" ";
$cerca = $form['ragso1'];
echo "<select name=\"codcli\" class=\"FacetSelect\">";
echo "\t\t <option value=\"\">$script_transl[10]</option>\n";
if (strlen($form['ragso1']) >= 2)
{
$mascon=$admin_aziend['mascli'].'000000';
$result = gaz_dbi_dyn_query("codice,ragso1,citspe", $gTables['clfoco'].' LEFT JOIN '.$gTables['anagra'].' ON '.$gTables['clfoco'].'.id_anagra = '.$gTables['anagra'].'.id',"codice like '".$admin_aziend['mascli']."%' and codice > '$mascon' and ragso1 like '".addslashes($cerca)."%'","ragso1 desc");
$numclfoco = gaz_dbi_num_rows($result);
if ($numclfoco > 0)
{
$tabula="";
while ($a_row = gaz_dbi_fetch_array($result))
{
$selected = "";
if($a_row["codice"] == $form['codcli'])
$selected = "selected";
echo "\t\t <option value=\"".$a_row["codice"]."\" $selected >".$a_row["ragso1"]." ".$a_row["citspe"]."</option>\n";
}
}
else $messaggio = $script_transl[11];
} else {
$messaggio = $script_transl[9];
}
$pdf->Cell(50,4,$script_transl['bank'],'LTB',0);
$pdf->Cell(11,4,':','TB',0,'R');
$pdf->Cell(125,4,$bank['descri'],'RTB',1);
$pdf->Cell(50,4,$script_transl['doc_type'],'LTB',0);
$pdf->Cell(11,4,':','TB',0,'R');
$pdf->Cell(125,4,$script_transl['doc_type_value'][$contract['doc_type']],'RTB',1);
$pdf->Cell(50,4,$script_transl['cod_revenue'],'LTB',0);
$pdf->Cell(11,4,':','TB',0,'R');
$pdf->Cell(125,4,$contract['cod_revenue'].' - '.$revenue['descri'],'RTB',1);
$pdf->Cell(50,4,$script_transl['vat_code'],'LTB',0);
$pdf->Cell(11,4,':','TB',0,'R');
$pdf->Cell(125,4,$contract['vat_code'].' - '.$vat['descri'],'RTB',1);
$pdf->Cell(50,4,$script_transl['initial_fee'],'LTB',0);
$pdf->Cell(11,4,':','TB',0,'R');
$pdf->Cell(125,4,$contract['initial_fee'],'RTB',1);
$pdf->Ln(4);
if (gaz_dbi_num_rows($rs_rows)){
$pdf->Cell(186,4,$script_transl['rows_title'],0,1,'C');
}
while ($row = gaz_dbi_fetch_array($rs_rows)) {
$importo = CalcolaImportoRigo($row['quanti'], $row['price'], $row['discount']);
$pdf->Cell(90,4,$row['descri'],1);
$pdf->Cell(11,4,$row['unimis'],1,0,'C');
$pdf->Cell(20,4,gaz_format_quantity($row['quanti'],1,$admin_aziend['decimal_quantity']),1,0,'R');
$pdf->Cell(25,4,number_format($row['price'],$admin_aziend['decimal_price'],',',''),1,0,'R');
$pdf->Cell(10,4,gaz_format_quantity($row['discount'],1,9),1,0,'R');
$pdf->Cell(30,4,number_format($importo,2,',',''),1,1,'R');
}
$pdf->Output();
?>
function createRowsAndErrors($partner){
global $gTables,$admin_aziend,$script_transl;
if ($partner == 1) {
$search_partner = " clfoco LIKE '".$admin_aziend['mascli']."%'";
} else {
$search_partner = " clfoco LIKE '".$admin_aziend['masfor']."%'";
}
$sqlquery= "SELECT COUNT(".$gTables['rigmoi'].".id_tes) AS numdoc,
codiva,".$gTables['aliiva'].".tipiva,SUM(impost - impost*2*((caucon LIKE '_NC') or (caucon LIKE '_FC' ))) AS imposta,
SUM(imponi - imponi*2*((caucon LIKE '_NC') or (caucon LIKE '_FC' ))) AS imponibile,clfoco,CONCAT(ragso1,' ',ragso2) AS ragsoc, sedleg,sexper,indspe,
citspe,prospe,codfis,pariva,allegato,operat
FROM ".$gTables['rigmoi']."
LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoi'].".id_tes = ".$gTables['tesmov'].".id_tes
LEFT JOIN ".$gTables['aliiva']." ON ".$gTables['rigmoi'].".codiva = ".$gTables['aliiva'].".codice
LEFT JOIN ".$gTables['clfoco']." ON ".$gTables['tesmov'].".clfoco = ".$gTables['clfoco'].".codice
LEFT JOIN ".$gTables['anagra']." ON ".$gTables['anagra'].".id = ".$gTables['clfoco'].".id_anagra
WHERE allegato = 1 AND YEAR(datdoc) = ".intval($_GET['anno'])." AND $search_partner
GROUP BY clfoco, codiva
ORDER BY ragso1";
$result = gaz_dbi_query($sqlquery);
$castel_partners= array();
$error_partners= array();
$total_column= array();
if (gaz_dbi_num_rows($result) > 0 ) {
// inizio creazione array righi ed errori
$total_column['operazioni_imponibili'] = 0.00;
$total_column['imposte_addebitate'] = 0.00;
$total_column['operazioni_esente'] = 0.00;
$total_column['operazioni_nonimp'] = 0.00;
$progressivo = 0;
$ctrl_partner = 0;
$value_imponi = 0.00;
$value_impost = 0.00;
while ($row = gaz_dbi_fetch_array($result)) {
if ($row['operat'] == 1) {
$value_imponi = $row['imponibile'];
$value_impost = $row['imposta'];
} elseif ($row['operat'] == 2) {
$value_imponi = -$row['imponibile'];
$value_impost = -$row['imposta'];
} else {
$value_imponi = 0;
$value_impost = 0;
}
if ($ctrl_partner != $row['clfoco']) {
// inizio controlli su CF e PI
$nuw = new check_VATno_TAXcode();
$resultpi = $nuw->check_VAT_reg_no($row['pariva']);
if( strlen(trim($row['codfis'])) == 11) {
$resultcf = $nuw->check_VAT_reg_no($row['codfis']);
if (intval($row['codfis']) == 0) {
$error_partners[$row['clfoco']][] = $script_transl[7];
} elseif ($row['sexper'] != 'G') {
$error_partners[$row['clfoco']][] = $script_transl[8];
}
} else {
$resultcf = $nuw->check_TAXcode($row['codfis']);
if (empty($row['codfis'])) {
$error_partners[$row['clfoco']][] = $script_transl[9];
} elseif ($row['sexper'] == 'G' and
empty($resultcf)) {
$error_partners[$row['clfoco']][] = $script_transl[10];
} elseif ($row['sexper'] == 'M' and
empty($resultcf) and
(intval(substr($row['codfis'],9,2)) > 31 or
intval(substr($row['codfis'],9,2)) < 1) ) {
$error_partners[$row['clfoco']][] = $script_transl[11];
} elseif ($row['sexper'] == 'F' and
empty($resultcf) and
(intval(substr($row['codfis'],9,2)) > 71 or
intval(substr($row['codfis'],9,2)) < 41) ) {
$error_partners[$row['clfoco']][] = $script_transl[12];
} elseif (! empty ($resultcf)) {
$error_partners[$row['clfoco']][] = $script_transl[13];
}
}
if (! empty ($resultpi)) {
$error_partners[$row['clfoco']][] = $script_transl[14];
$error_partners['fatal_error'] = '';
} elseif (empty($row['pariva'])) {
$error_partners[$row['clfoco']][] = $script_transl[15];
$error_partners['fatal_error'] = '';
}
// fine controlli su CF e PI
$progressivo ++;
$castel_partners[$row['clfoco']] = array(
'Progressivo'=> $progressivo,
'Num_Documenti'=> $row['numdoc'],
'Rag_Sociale'=> $row['ragsoc'],
'Indirizzo'=> $row['indspe'],
'Comune'=> $row['citspe'],
'Provincia'=> $row['prospe'] ,
'Partita_IVA'=> $row['pariva'],
'Codice_Fiscale'=> $row['codfis']
);
if ($row['sexper'] == 'G'){
$castel_partners[$row['clfoco']]['persona_fisica'] = '';
} else {
$castel_partners[$row['clfoco']]['persona_fisica'] = 'X';
}
if (!empty($row['sedleg'])){
if ( preg_match("/([\w\,\.\s]+)([0-9]{5})[\s]+([\w\s\']+)\(([\w]{2})\)/",$row['sedleg'],$regs)) {
$castel_partners[$row['clfoco']]['Indirizzo'] = $regs[1];
$castel_partners[$row['clfoco']]['Comune'] = $regs[3];
$castel_partners[$row['clfoco']]['Provincia'] = $regs[4];
} else {
$error_partners[$row['clfoco']][] = $script_transl[16];
}
}
// inizio valorizzazione imponibile,imposta,senza_iva,art8
$castel_partners[$row['clfoco']]['operazioni_imponibili'] = 0;
$castel_partners[$row['clfoco']]['imposte_addebitate'] = 0;
$castel_partners[$row['clfoco']]['operazioni_esente'] = 0;
$castel_partners[$row['clfoco']]['operazioni_nonimp'] = 0;
switch ($row['tipiva']) {
case 'I':
case 'D':
$castel_partners[$row['clfoco']]['operazioni_imponibili'] = $value_imponi;
$total_column['operazioni_imponibili'] += $value_imponi;
$castel_partners[$row['clfoco']]['imposte_addebitate'] = $value_impost;
$total_column['imposte_addebitate'] += $value_impost;
if ($value_impost == 0){ //se non c'è imposta il movimento è sbagliato
$error_partners[$row['clfoco']][] = $script_transl[17];
}
break;
case 'E':
$castel_partners[$row['clfoco']]['operazioni_esente'] = $value_imponi;
$total_column['operazioni_esente'] += $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_partners[$row['clfoco']][] = $script_transl[18];
}
break;
case 'N':
// case 'C':
$castel_partners[$row['clfoco']]['operazioni_nonimp'] = $value_imponi;
$total_column['operazioni_nonimp'] += $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_partners[$row['clfoco']][] = $script_transl[18];
}
break;
}
// fine valorizzazione imponibile,imposta,esente,non imponibile
} else { //movimenti successivi al primo ma dello stesso cliente/fornitore
// inizio addiziona valori imponibile,imposta,esente,non imponibile
switch ($row['tipiva']) {
case 'I':
case 'D':
$castel_partners[$row['clfoco']]['operazioni_imponibili'] += $value_imponi;
$total_column['operazioni_imponibili'] += $value_imponi;
$castel_partners[$row['clfoco']]['imposte_addebitate'] += $value_impost;
$total_column['imposte_addebitate'] += $value_impost;
if ($value_impost == 0){ //se non c'è imposta il movimento è sbagliato
$error_partners[$row['clfoco']][] = $script_transl[17];
}
break;
case 'E':
$castel_partners[$row['clfoco']]['operazioni_esente'] = $value_imponi;
$total_column['operazioni_esente'] += $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_partners[$row['clfoco']][] = $script_transl[18];
}
break;
case 'N':
// case 'C':
$castel_partners[$row['clfoco']]['operazioni_nonimp'] = $value_imponi;
$total_column['operazioni_nonimp'] += $value_imponi;
if ($value_impost != 0){ //se c'è imposta il movimento è sbagliato
$error_partners[$row['clfoco']][] = $script_transl[18];
}
break;
}
// fine addiziona valori imponibile,imposta,esente,non imponibile
}
$ctrl_partner = $row['clfoco'];
}
} else {
$error_partners[0] = $script_transl[21];
}
// fine creazione array righi ed errori
return array($castel_partners,$error_partners,$total_column);
}
$message .= $script_transl[$valmsg]." ";
}
$message .= "<br>";
}
echo '<tr><td colspan="5" class="FacetDataTDred">'.$message.'</td></tr>';
}
echo "<tr>\n";
echo "<td class=\"FacetFieldCaptionTD\">$script_transl[1] : </td><td class=\"FacetDataTD\">\n";
$messaggio = "";
$ric_mastro = substr($form['id_agente'],0,3);
$table = $gTables['clfoco']." LEFT JOIN ".$gTables['agenti']." ON ".$gTables['agenti'].".id_fornitore = ".$gTables['clfoco'].".codice LEFT JOIN ".$gTables['anagra'].' ON '.$gTables['clfoco'].'.id_anagra = '.$gTables['anagra'].'.id';
if ($form['id_agente'] == 0) {
$tabula =" tabindex=\"1\" ";
if (strlen($form['cerca_agente']) >= 2) {
$rs_agente = gaz_dbi_dyn_query("*", $table, $gTables['agenti'].".id_agente > 0 AND codice BETWEEN '$inifornitori' AND '$finfornitori' AND ragso1 LIKE '".addslashes($form['cerca_agente'])."%'","ragso1");
$n_agenti = gaz_dbi_num_rows($rs_agente);
if ($n_agenti > 0) {
$tabula="";
echo "\t<select name=\"id_agente\" class=\"FacetSelect\" onchange=\"this.form.submit()\">\n";
echo "<option value=\"000000000\"> $script_transl[2] </option>\n";
while ($row = gaz_dbi_fetch_array($rs_agente)) {
$selected = "";
if ($row["id_agente"] == $form['id_agente']) {
$selected = "selected";
}
echo "\t\t <option value=\"".$row["id_agente"]."\" $selected >".$row["ragso1"]." ".$row["citspe"]."</option>\n";
}
echo "\t </select>\n";
} else {
$messaggio = $script_transl[4];
echo "\t<input type=\"hidden\" name=\"id_agente\" value=\"".$form['id_agente']."\">\n";
function checkAccessRights($adminid, $module, $enterprise_id = 0)
{
global $gTables, $link;
$ck_co = gaz_dbi_fields('admin_module');
if ($enterprise_id == 0 || !array_key_exists('enterprise_id', $ck_co)) {
// vengo da una vecchia versione (<4.0.12)
$query = 'SELECT am.access FROM ' . $gTables['admin_module'] . ' AS am' . ' LEFT JOIN ' . $gTables['module'] . ' AS module ON module.id=am.moduleid' . " WHERE am.adminid='" . $adminid . "' AND module.name='" . $module . "'";
} else {
//nuove versione >= 4.0.12
$query = 'SELECT am.access FROM ' . $gTables['admin_module'] . ' AS am' . ' LEFT JOIN ' . $gTables['module'] . ' AS module ON module.id=am.moduleid' . " WHERE am.adminid='" . $adminid . "' AND module.name='" . $module . "' AND am.enterprise_id = {$enterprise_id} ";
}
$result = mysqli_query($link, $query) or die('Errore in query: ' . $query . ' Errore checkAccessRights ' . mysqli_error($link));
if (gaz_dbi_num_rows($result) < 1) {
return 0;
}
$row = gaz_dbi_fetch_array($result);
return $row['access'];
}
function FattureDaDdt($period,$sezione=1,$cliente=0,$excludeDdt=array())
{
global $gTables;
$annoemissione = substr($period['fine'],0,4);
$rs_ultimo_documento = gaz_dbi_dyn_query("*", $gTables['tesdoc'], "YEAR(datemi) = $annoemissione AND tipdoc LIKE 'F%' AND seziva = $sezione","protoc DESC",0,1);
$ultimo_documento = gaz_dbi_fetch_array($rs_ultimo_documento);
// ricavo il progressivo annuo, ma se e' il primo documento dell'anno, resetto il contatore
if ($ultimo_documento) {
$last_pr = $ultimo_documento['protoc'];
} else {
$last_pr = 0;
}
$rs_ultima_fa = gaz_dbi_dyn_query("numdoc, numfat*1 AS fattura", $gTables['tesdoc'], "YEAR(datemi) = $annoemissione AND tipdoc LIKE 'FA%' AND seziva = $sezione","fattura DESC",0,1);
$ultima_fa = gaz_dbi_fetch_array($rs_ultima_fa);
// ricavo il progressivo annuo delle Fattura, ma se e' la prima Fattura dell'anno, resetto il contatore
if ($ultima_fa) {
$last_nu = $ultima_fa['fattura'] ;
} else {
$last_nu = 0;
}
//preparo la query al database
$clientesel = '';
if ($cliente > 0) {
$clientesel = ' AND clfoco = '.$cliente;
}
$orderby = "ragso1 ASC, pagame ASC, numdoc ASC, id_rig ASC";
$where = "tipdoc = 'DDT' AND datemi BETWEEN '".$period['inizio']."' AND '".$period['fine']."' AND seziva = '$sezione' ".$clientesel;
//recupero i dati dal DB (testate+cliente+pagamento+righi)
$field = 'tes.id_tes,tes.clfoco,tes.numdoc,tes.pagame,tes.traspo,tes.speban,tes.banapp,tes.datemi,
CONCAT(ana.ragso1,\' \',ana.ragso2,\' \',ana.citspe,\' \',ana.prospe) AS ragsoc,
cli.codice,cli.ragdoc,
pag.tippag,pag.incaut,pag.numrat,pag.descri AS despag,
rig.id_tes,rig.id_rig,rig.codart,rig.descri,rig.unimis,rig.quanti,rig.prelis,rig.tiprig,rig.sconto';
$from = $gTables['tesdoc'].' AS tes '.
'LEFT JOIN '.$gTables['clfoco'].' AS cli ON tes.clfoco=cli.codice '.
'LEFT JOIN '.$gTables['anagra'].' AS ana ON cli.id_anagra=ana.id '.
'LEFT JOIN '.$gTables['pagame'].' AS pag ON pag.codice=tes.pagame '.
'LEFT JOIN '.$gTables['rigdoc'].' AS rig ON rig.id_tes=tes.id_tes ';
$result = gaz_dbi_dyn_query($field, $from, $where, $orderby);
$ctrlnum = gaz_dbi_num_rows($result);
$fatture = array();
if ($ctrlnum) {
//creo l'array associativo testate-righi
$ctrlc = 0;
$ctrlp = 0;
$ctrld = 0;
$totale_imponibile = 0;
while ($row = gaz_dbi_fetch_array($result)) {
if (in_array($row['id_tes'],$excludeDdt) and $ctrld != $row['id_tes']) { // se tra gli esclusi vado avanti ma mantengo il riferimento
$fatture['no'][] = array('id'=>$row['id_tes'],
'ragionesociale'=>$row['ragsoc'],
'numero'=>$row['numdoc'],
'data'=>$row['datemi'],
'pagamento'=>$row['despag']
);
continue;
}
if ($row['clfoco'] != $ctrlc or $row['pagame'] != $ctrlp or ($row['id_tes'] != $ctrld and $row['ragdoc'] == 'N')) { //se un'altro cliente o il cliente ha un pagamento diverso dal precedente
if ($ctrlc > 0 and $ctrlp > 0) { //se non la prima fattura pongo il totale della precedente nell'array
$fatture['yes'][$last_pr]['totale'] = $totale_imponibile;
}
$totale_imponibile = 0;
$last_pr ++;
$last_nu ++;
// nuova testata fattura
$fatture['yes'][$last_pr] = array('numero'=>$last_nu,'codicecliente'=>$row['clfoco'],'ragionesociale'=>$row['ragsoc']);
$fatture['yes'][$last_pr]['speseincasso'] = $row['numrat']*$row['speban'];
//$totale_imponibile += $fatture['yes'][$last_pr]['speseincasso'];
}
if ($row['id_tes'] != $ctrld) { //se un'altro ddt
if ($row['clfoco'] == $ctrlc and $row['pagame'] != $ctrlp){
$fatture['yes'][$last_pr]['righi'][] = array('codice'=>'_MSG_',
'descrizione'=>' Cliente con diversi pagamenti! '
);
}
$fatture['yes'][$last_pr]['righi'][] = array('codice'=>'_DES_',
'numero'=>$row['numdoc'],
'id'=>$row['id_tes'],
'data'=>$row['datemi'],
'codpag'=>$row['pagame'],
'despag'=>$row['despag']
);
if ($row['incaut'] == 'S') {
$fatture['yes'][$last_pr]['righi'][] = array('codice'=>'_MSG_',
'descrizione'=>' Pagamento che prevede l\'incasso automatico! '
);
}
if (($row['tippag'] == 'B' or $row['tippag'] == 'T') and $row['banapp'] == 0) {
$fatture['yes'][$last_pr]['righi'][] = array('codice'=>'_MSG_',
'descrizione'=>' ATTENZIONE! MANCA LA BANCA D\'APPOGGIO ! '
);
}
if ($row['traspo'] > 0) {
$fatture['yes'][$last_pr]['righi'][] = array('codice'=>'_TRA_',
'descrizione'=>'TRASPORTO',
'importo'=>$row['traspo']
);
$totale_imponibile += $row['traspo'];
}
}
$importo_rigo = CalcolaImportoRigo($row['quanti'], $row['prelis'], $row['sconto']);
if ($row['tiprig'] == 1) {
$importo_rigo = CalcolaImportoRigo(1, $row['prelis'], 0);
}
$totale_imponibile += $importo_rigo;
//aggiungo il rigo
$fatture['yes'][$last_pr]['righi'][] = array('codice'=>$row['codart'],
'descrizione'=>$row['descri'],
'unitamisura'=>$row['unimis'],
'quantita'=>$row['quanti'],
'prezzo'=>$row['prelis'],
'sconto'=>$row['sconto'],
'importo'=>$importo_rigo);
$ctrld = $row['id_tes'];
$ctrlc = $row['clfoco'];
$ctrlp = $row['pagame'];
}
$fatture['yes'][$last_pr]['totale'] = $totale_imponibile;
}
return $fatture;
}
*/
require("../../library/include/datlib.inc.php");
$admin_aziend=checkAdmin();
$mascli = $admin_aziend['mascli']."000000";
$clienti = $admin_aziend['mascli'];
$message = "";
if (isset($_POST['Delete'])) {
$rs_check_mov = gaz_dbi_dyn_query("clfoco", $gTables['tesmov'], "clfoco = '".intval($_POST['codice'])."'","id_tes asc",0,1);
$check_mov = gaz_dbi_num_rows($rs_check_mov);
$rs_check_doc = gaz_dbi_dyn_query("clfoco", $gTables['tesdoc'], "clfoco = '".intval($_POST['codice'])."'","id_tes asc",0,1);
$check_doc = gaz_dbi_num_rows($rs_check_doc);
$rs_check_bro = gaz_dbi_dyn_query("clfoco", $gTables['tesbro'], "clfoco = '".intval($_POST['codice'])."'","id_tes asc",0,1);
$check_bro = gaz_dbi_num_rows($rs_check_bro);
if ($check_mov > 0) {
$message .= "Cliente non cancellabile perche' ha ".$check_mov." movimenti contabili!<br>";
}
if ($check_doc > 0) {
$message .= "Cliente non cancellabile perche' ha ".$check_doc." documenti fiscali!<br>";
}
if ($check_bro > 0) {
$message .= "Cliente non cancellabile perche' ha ".$check_bro." documenti non fiscali!<br>";
}
if ($message == "") {
gaz_dbi_del_row($gTables['clfoco'], "codice", $_POST['codice']);
header("Location: report_client.php");
exit;
}
}
// Ok.
//
$anno = $_GET["annini"];
}
else
{
$anno = 0;
}
//
// Se l'anno è valido, procede.
//
if ($anno > 0)
{
$query = "SELECT * FROM " . $gTables['extcon'] . " WHERE year = \"".$anno."\"";
$result = gaz_dbi_query ($query);
$nrows = gaz_dbi_num_rows ($result);
//
// Se l'anno non c'è, aggiunge una riga vuota e la rilegge.
//
if ($nrows == 0)
{
$query = "INSERT INTO " . $gTables['extcon'] . " (`year`) VALUES (".$anno.")";
$result = gaz_dbi_query ($query);
$query = "SELECT * FROM " . $gTables['extcon'] . " WHERE year = \"".$anno."\"";
$result = gaz_dbi_query ($query);
}
$extra = gaz_dbi_fetch_array ($result);
//
// Sistema i valori nell'array $bil[], adattandoli in proporzione.
//
$extcon_sum = $extra['cos_serv_ind'] + $extra['cos_serv_amm'] + $extra['cos_serv_com'];
echo "<td align=\"right\"><input align=\"right\" type=\"text\" name=\"righi[{$key}][prelis]\" value=\"".preg_replace("/\,/",'.', $importo_rigo)."\" maxlength=\"11\" size=\"11\"></td>\n";
echo "<td align=\"right\"><input type=\"image\" name=\"del[{$key}]\" src=\"../../library/images/xbut.gif\" title=\"Elimina rigo!\"></td></tr>\n";
echo "<input type=\"hidden\" name=\"righi[{$key}][id_rig]\" value=\"{$value['id_rig']}\">\n";
}
if($_POST['num_rigo'] > 0) {
echo "<tr><td></td><td align=\"right\"class=\"FacetAltDataTD\">Totale € ".number_format($totale,2, '.', '')." </td><td align=\"right\">\n";
if ($toDo == 'update') {
echo '<input title="Modifica il movimento contabile e la ricevuta di pagamento" type="submit" value="MODIFICA !" accesskey="i" name="upd">';
} else {
echo '<input title="Inserisci il movimento contabile e la ricevuta di pagamento" type="submit" value="INSERISCI !" accesskey="i" name="ins" id="preventDuplicate" onClick="chkSubmit();">';
}
echo "</td></tr>\n";
}
//recupero tutti i movimenti contabili del conto insieme alle relative testate...
$result = mergeTable($gTables['rigmoc'],"*",$gTables['tesmov'],"*","id_tes","codcon = ".$conto['codice']." ORDER BY datreg asc");
$nummov = gaz_dbi_num_rows($result);
if ($nummov > 0) {
echo "</table><br \><table class=\"Tlarge\"><tr><td colspan=\"6\">Questi sono i movimenti contabili relativi al fornitore ".$conto['ragso1']." ".$conto['ragso2'].":<td></tr>\n";
echo "<tr><th class=\"FacetFieldCaptionTD\">Mov.</th><th class=\"FacetFieldCaptionTD\">Descrizione</th><th class=\"FacetFieldCaptionTD\">N.Doc.</th><th class=\"FacetFieldCaptionTD\">Data Doc.</th><th class=\"FacetFieldCaptionTD\">Importo</th><th class=\"FacetFieldCaptionTD\">D/A</th></tr>\n";
while ($movimenti = gaz_dbi_fetch_array($result)) {
$cl="FacetDataTD";
if ($movimenti["id_tes"] == $testata["id_con"]) {
$cl="FacetDataTDred";
}
echo "<tr><td class=\"$cl\">n.<a href=\"../contab/admin_movcon.php?Update&id_tes=".$movimenti["id_tes"]."\" title=\"Modifica il movimento\">".$movimenti["id_tes"]."</a> del ".gaz_format_date($movimenti["datreg"])." </td>\n";
echo "<td class=\"$cl\">".$movimenti["descri"]." </td>";
echo "<td align=\"center\" class=\"$cl\">".$movimenti["numdoc"]." </td>";
if ( $movimenti['datdoc'] > 0 ){
echo "<td align=\"center\" class=\"$cl\">".gaz_format_date($movimenti['datdoc'])." </td>";
} else {
echo "<td class=\"$cl\"></td>";
function HeadMain($idScript = '', $jsArray = '', $alternative_transl = false, $cssArray = '')
{
/* - In $idScript si deve passare l'id dell'array submenu (m2) in menu.language.php (per mettere nel tag <TITLE> )
oltre che il nome del modulo anche quello dello script tradotto
- In $jsArray di devono passare i nomi dei file javascript che si vogliono caricare e presenti nella directory 'js'
*/
if (is_array($jsArray)) {
foreach ($jsArray as $v) {
echo "\n<script type=\"text/javascript\" src=\"../../js/" . $v . ".js\"></script>";
}
}
if (is_array($cssArray)) {
foreach ($cssArray as $v) {
echo "\n<link rel=\"stylesheet\" type=\"text/css\" href=\"../../modules/" . $v . "\">";
}
}
global $module, $admin_aziend, $radix, $scriptname;
$result = getAccessRights($_SESSION['Login'], $_SESSION['enterprise_id']);
if (gaz_dbi_num_rows($result) > 0) {
// creo l'array associativo per la generazione del menu con JSCookMenu
$ctrl_m1 = 0;
$ctrl_m2 = 0;
$ctrl_m3 = 0;
$menuArray = array();
$transl = array();
while ($row = gaz_dbi_fetch_array($result)) {
if ($row['access'] == 3) {
if ($ctrl_m1 != $row['m1_id']) {
require "../../modules/" . $row['name'] . "/menu." . $admin_aziend['lang'] . ".php";
}
if ($row['name'] == $module) {
$row['weight'] = 0;
if ($row['m3_link'] == $scriptname) {
$title_from_menu = $transl[$row['name']]['m3'][$row['m3_trkey']][0];
}
if ($ctrl_m2 != $row['m2_id'] and $ctrl_m1 != $row['m1_id']) {
require "../../modules/" . $row['name'] . "/lang." . $admin_aziend['lang'] . ".php";
if (isset($strScript[$scriptname])) {
// se è stato tradotto lo script lo ritorno al chiamante
$translated_script = $strScript[$scriptname];
if (isset($translated_script['title'])) {
$title_from_menu = $translated_script['title'];
}
}
}
}
if (isset($row['m3_id']) and $row['m3_id'] > 0) {
// è un menu3
if ($ctrl_m2 != $row['m2_id'] and $ctrl_m1 != $row['m1_id']) {
// è pure il primo di menu2 e menu1
$menuArray[$row['weight']] = array('link' => '../' . $row['name'] . '/' . $row['link'], 'icon' => '../' . $row['name'] . '/' . $row['icon'], 'name' => $transl[$row['name']]['name'], 'title' => $transl[$row['name']]['title'], 'class' => $row['class']);
$menuArray[$row['weight']][$row['m2_weight']] = array('link' => '../' . $row['name'] . '/' . $row['m2_link'], 'icon' => '../' . $row['name'] . '/' . $row['m2_icon'], 'name' => $transl[$row['name']]['m2'][$row['m2_trkey']][1], 'title' => $transl[$row['name']]['m2'][$row['m2_trkey']][0], 'class' => $row['m2_class']);
} elseif ($ctrl_m2 != $row['m2_id']) {
// è solo il primo di menu2
$menuArray[$row['weight']][$row['m2_weight']] = array('link' => '../' . $row['name'] . '/' . $row['m2_link'], 'icon' => '../' . $row['name'] . '/' . $row['m2_icon'], 'name' => $transl[$row['name']]['m2'][$row['m2_trkey']][1], 'title' => $transl[$row['name']]['m2'][$row['m2_trkey']][0], 'class' => $row['m2_class']);
}
$menuArray[$row['weight']][$row['m2_weight']][$row['m3_weight']] = array('link' => '../' . $row['name'] . '/' . $row['m3_link'], 'icon' => '../' . $row['name'] . '/' . $row['m3_icon'], 'name' => $transl[$row['name']]['m3'][$row['m3_trkey']][1], 'title' => $transl[$row['name']]['m3'][$row['m3_trkey']][0], 'class' => $row['m3_class']);
} elseif ($ctrl_m1 != $row['m1_id']) {
// è il primo di menu2
$menuArray[$row['weight']] = array('link' => '../' . $row['name'] . '/' . $row['link'], 'icon' => '../' . $row['name'] . '/' . $row['icon'], 'name' => $transl[$row['name']]['name'], 'title' => $transl[$row['name']]['title'], 'class' => $row['class']);
$menuArray[$row['weight']][$row['m2_weight']] = array('link' => '../' . $row['name'] . '/' . $row['m2_link'], 'icon' => '../' . $row['name'] . '/' . $row['m2_icon'], 'name' => $transl[$row['name']]['m2'][$row['m2_trkey']][1], 'title' => $transl[$row['name']]['m2'][$row['m2_trkey']][0], 'class' => $row['m2_class']);
} else {
// non è il primo di menu2
$menuArray[$row['weight']][$row['m2_weight']] = array('link' => '../' . $row['name'] . '/' . $row['m2_link'], 'icon' => '../' . $row['name'] . '/' . $row['m2_icon'], 'name' => $transl[$row['name']]['m2'][$row['m2_trkey']][1], 'title' => $transl[$row['name']]['m2'][$row['m2_trkey']][0], 'class' => $row['m2_class']);
}
}
$ctrl_m1 = $row['m1_id'];
$ctrl_m2 = $row['m2_id'];
$ctrl_m3 = $row['m3_id'];
}
ksort($menuArray);
/* Fine creazione array per JSCookMenu.
In $menuArray c'e' la lista del menu
con index '0' il modulo corrente,
è una matrice a 3 dimensioni ,
questo serve per poter creare un array in JS
compatibile con le specifiche di JSCookMenu,
la funzione createGazieJSCM serve per creare un
array con il menu corrente orizzontale , si potrebbero creare
altre forme di menu modificando questa funzione. */
echo "\n<title>" . $menuArray[0]['title'] . "»" . $admin_aziend['ragso1'];
if (!empty($idScript)) {
if (is_array($idScript)) {
// $idScript dev'essere un array con index [0] per il numero di menu e index[1] per l'id dello script
if ($idScript[0] == 2) {
echo "»" . $transl[$module]['m2'][$idScript[1]][0];
} elseif ($idScript[0] == 3) {
echo "»" . $transl[$module]['m3'][$idScript[1]][0];
}
} elseif ($idScript > 0) {
echo "»" . $transl[$module]['m3'][$idScript][0];
}
} elseif (isset($title_from_menu)) {
echo "»" . $title_from_menu;
}
echo "</title>\n";
echo "</head>\n";
echo "<body>\n";
// cambia il tipo di menu
$tipomenu = substr($admin_aziend['style'], 0, -4);
if (file_exists("../../library/style/header_menu_" . $tipomenu . ".php")) {
require "../../library/style/header_menu_" . $tipomenu . ".php";
} else {
require "../../library/style/header_menu_default.php";
}
}
if (!isset($translated_script)) {
if ($alternative_transl) {
// se e' stato passato il nome dello script sul quale mi devo basare per la traduzione
$translated_script = $strScript[$alternative_transl . '.php'];
} else {
$translated_script = array($module);
}
}
require "../../language/" . $admin_aziend['lang'] . "/menu.inc.php";
echo '<script type="text/javascript">
countclick = 0;
function chkSubmit() {
if(countclick > 0) {
alert("' . $strCommon['wait_al'] . '");
document.getElementById(\'preventDuplicate\').disabled=true;
return false;
} else {
var alPre = document.getElementById(\'confirmSubmit\').value.toString();
if (alPre) {
var conf = confirm (alPre);
if (!conf) {
document.getElementById(\'preventDuplicate\').disabled=true;
return true;
}
}
countclick++;
document.getElementById(\'preventDuplicate\').hidden=true;
return true;
}
}
</script>';
return $strCommon + $translated_script;
}
function output($cerca, $field = 'C')
{
global $gTables, $script_transl, $script_transl;
$msg = "";
$tabula = " tabindex=\"4\" ";
$opera = "%'";
if (strlen($cerca) >= 1) {
if ($field == 'B') {
//ricerca per codice a barre
$field_sql = 'barcode';
} elseif ($field == 'D') {
//ricerca per descrizione
$field_sql = 'descri';
} else {
//ricerca per codice (default)
$field_sql = 'codice';
if (substr($cerca, 0, 1) == "@") {
$cerca = substr($cerca, 1);
$opera = "'";
}
}
$result = gaz_dbi_dyn_query("codice,descri,barcode", $gTables['artico'], $field_sql . " LIKE '" . addslashes($cerca) . $opera, "descri DESC");
$numclfoco = gaz_dbi_num_rows($result);
if ($numclfoco > 0) {
$tabula = "";
echo "\t <select tabindex=\"4\" name=\"{$this->name}\" class=\"FacetSelect\">\n";
while ($a_row = gaz_dbi_fetch_array($result)) {
$selected = "";
if ($a_row["codice"] == $this->selected) {
$selected = "selected";
}
echo "\t\t <option value=\"" . $a_row["codice"] . "\" {$selected} >" . $a_row["codice"] . "-" . $a_row["descri"] . "</option>\n";
}
echo "\t </select>\n";
} else {
$msg = $script_transl['notfound'] . "!\n";
echo "\t<input type=\"hidden\" name=\"{$this->name}\" value=\"\">\n";
}
} else {
$msg = $script_transl['minins'] . " 1 " . $script_transl['charat'] . "!\n";
echo "\t<input type=\"hidden\" name=\"{$this->name}\" value=\"\">\n";
}
echo "\t<input type=\"text\" name=\"cosear\" value=\"" . $cerca . "\" " . $tabula . " maxlength=\"16\" size=\"9\" class=\"FacetInput\">\n";
echo "<font style=\"color:#ff0000;\">{$msg} </font>";
echo "\t<input type=\"image\" align=\"middle\" accesskey=\"c\" name=\"artico\" " . $tabula . " src=\"../../library/images/cerbut.gif\" title=\"{$script_transl['search']}\">\n";
}
//}
//
// Si fa il backup delle sole tabelle della gestione in corso!
//
continue;
}
//
// creazione della struttura della tabella corrente.
//
echo "DROP TABLE IF EXISTS `".$nome_tabella."`;\n";
createTable($nome_tabella);
// riempimento della tabella corrente
$field_results = gaz_dbi_query ("select * from " . $nome_tabella);
$field_meta=gaz_dbi_get_fields_meta($field_results);
if (gaz_dbi_num_rows($field_results)>0){
echo "LOCK TABLES `".$nome_tabella."` WRITE;\n";
$head_query_insert = "INSERT INTO `" . $nome_tabella . "` ( " ;
for ($j = 0; $j < $field_meta['num']; $j++) {
$head_query_insert .="`".$field_meta['data'][$j]->name."`,";
}
// elimina l'ultima virgola dalla stringa (se esiste)
$head_query_insert = preg_replace("/,$/",'', $head_query_insert);
//
$head_query_insert .= ") VALUES (";
$query_insert = $head_query_insert;
$c=0;
while ($val = gaz_dbi_fetch_row($field_results)) {
$c++;
if ($c==50){ //ogni 50 righi viene riscritto l'head dell'inserimento
$c=0;
echo "\t <select name=\"annfin\" class=\"FacetSelect\" onchange=\"this.form.submit()\">\n";
for( $counter = date("Y")-10; $counter <= date("Y")+10; $counter++ ){
$selected = "";
if($counter == $_GET['annfin'])
$selected = "selected";
echo "\t\t <option value=\"$counter\" $selected >$counter</option>\n";
}
echo "\t </select></td></tr>\n";
if ($msg == "") {
echo "<tr><td class=\"FacetFieldCaptionTD\"></td><td align=\"right\" colspan=\"4\" class=\"FacetFooterTD\">
<input type=\"submit\" name=\"Return\" value=\"".$script_transl['return']."\"> <input type=\"submit\" name=\"anteprima\" value=\"".$script_transl['view']."!\"> </td></tr>\n";
}
echo "</table>\n";
if (isset($_GET['anteprima']) and $msg == "") {
$result = gaz_dbi_dyn_query($gTables['rigdoc'].".*,".$gTables['tesdoc'].".id_tes,".$gTables['tesdoc'].".tipdoc,".$gTables['tesdoc'].".numdoc,".$gTables['tesdoc'].".datemi,".$gTables['tesdoc'].".datfat,".$gTables['tesdoc'].".imball,".$gTables['tesdoc'].".clfoco,".$gTables['tesdoc'].".caumag,".$gTables['tesdoc'].".sconto as scochi", $gTables['rigdoc']." LEFT JOIN ".$gTables['tesdoc']." ON ".$gTables['rigdoc'].".id_tes = ".$gTables['tesdoc'].".id_tes LEFT JOIN ".$gTables['caumag']." ON ".$gTables['tesdoc'].".caumag = ".$gTables['caumag'].".codice", "tiprig = 0 AND id_mag = 0 AND caumag > 0 AND datemi BETWEEN $datainizio AND $datafine ", " datemi ASC, ".$gTables['tesdoc'].".id_tes ASC, id_rig ASC");
$numrow = gaz_dbi_num_rows($result);
echo "<table class=\"Tlarge\">";
if ($numrow > 0) {
echo "<tr><td class=\"FacetFieldCaptionTD\" colspan=\"6\" >$numrow ".$script_transl[5]."</td></tr>";
require("../../modules/vendit/lang.".$admin_aziend['lang'].".php");
$desdoc = $strScript["admin_docven.php"][0];
require("../../modules/acquis/lang.".$admin_aziend['lang'].".php");
$desdoc += $strScript["admin_docacq.php"][0];
while ($row = gaz_dbi_fetch_array($result)) {
echo "<tr>\n";
$valore = CalcolaImportoRigo($row['quanti'], $row['prelis'], $row['sconto']) ;
$valore = CalcolaImportoRigo(1, $valore, $row['scochi']) ;
$descri = $desdoc[$row['tipdoc']]." n.".$row['numdoc'];
echo "<td class=\"FacetDataTD\" align=\"center\">".gaz_format_date($row["datemi"])." </td>\n";
echo "<td class=\"FacetDataTD\" align=\"center\">".$row["caumag"]." - ".$row["descri"]."</td>\n";
echo "<td class=\"FacetDataTD\" align=\"center\">$descri</td>\n";
require("../../library/include/datlib.inc.php");
$admin_aziend=checkAdmin();
$message = "";
if (isset($_POST['Delete'])) {
$conctrl = substr($_POST["codice"],3);
$masctrl = substr($_POST["codice"],0,3);
$mas0000 = $masctrl."000000";
if ($conctrl == 0) {
$result = gaz_dbi_dyn_query ('*', $gTables['clfoco'], "codice like '$masctrl%' and codice <> '$mas0000'");
$conferma = gaz_dbi_fetch_array($result);
if ($conferma)
$message .= "Per eliminare un mastro questo dev'essere vuoto (senza conti)! <br>";
}
$rs_check_moc = gaz_dbi_dyn_query("codcon", $gTables['rigmoc'], "codcon = '{$_POST['codice']}'","id_rig asc",0,1);
$check_moc = gaz_dbi_num_rows($rs_check_moc);
if ($check_moc > 0) {
$message .= "Conto non cancellabile perche' ha ".$check_moc." movimenti contabili!<br>";
}
if ( $message == "") {
//aggiorno il db
gaz_dbi_del_row($gTables['clfoco'], "codice", $_POST['codice']);
header("Location: report_piacon.php");
exit;
}
}
if (isset($_POST['Return'])) {
header("Location: report_piacon.php");
exit;
}
if (!isset($_POST['Delete'])) {
