function getMovements($vat_section,$vat_reg,$date_ini,$date_fin)
{
global $gTables,$admin_aziend;
$m=array();
$where = "datreg BETWEEN $date_ini AND $date_fin AND seziva = $vat_section AND regiva = $vat_reg";
$orderby="datreg, protoc";
$rs=gaz_dbi_dyn_query("YEAR(datreg) AS ctrl_sr,
DATE_FORMAT(datdoc,'%d-%m-%Y') AS dd,
DATE_FORMAT(datreg,'%d-%m-%Y') AS dr,
CONCAT(".$gTables['anagra'].".ragso1, ' ',".$gTables['anagra'].".ragso2) AS ragsoc,clfoco,codiva,
protoc,numdoc,datreg,caucon,regiva,operat,imponi,impost,periva,
".$gTables['tesmov'].".descri AS descri,
".$gTables['aliiva'].".descri AS desvat,
".$gTables['tesmov'].".id_tes AS id_tes,
".$gTables['aliiva'].".tipiva AS tipiva",
$gTables['rigmoi']." LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoi'].".id_tes = ".$gTables['tesmov'].".id_tes
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['aliiva']." ON ".$gTables['rigmoi'].".codiva = ".$gTables['aliiva'].".codice",$where,$orderby);
$c_sr=0;
$c_id=0;
$c_p=0;
$c_ndoc=array();
while ($r=gaz_dbi_fetch_array($rs)) {
// inizio controllo errori di numerazione
if (empty($r['tipiva'])){ // errore: aliquota IVA non tipizzata
$r['err_t']='ERROR';
}
if ($c_sr!=($r['ctrl_sr'])){ // devo azzerare tutto perchè è cambiato l'anno
$c_sr=0;
$c_id=0;
$c_p=0;
$c_ndoc=array();
if ($r['protoc']<>1){ // errore: il protocollo non è 1
// non lo rilevo in quanto i registri IVA non sono annuali
}
} else {
$ex=$c_p+1;
if ($r['protoc']<>$ex && $r['id_tes']<>$c_id){ // errore: il protocollo non è consecutivo
$r['err_p']=$ex;
}
}
if ($r['regiva']<4){ // il controllo sul numero solo per i registri delle fatture
if ($r['caucon'] == 'FAD'){
$r['caucon'] = 'FAI';
}
if (isset($c_ndoc[$r['caucon']])){ // controllo se il numero precedente è questo-1
$ex=$c_ndoc[$r['caucon']]+1;
if ($r['numdoc']<>$ex && $c_id<>$r['id_tes']){ // errore: il numero non è consecutivo
$r['err_n']=$ex;
}
} else { // dal primo documento di questo tipo ci si aspetta il n.1
if ($r['numdoc']<>1){ // errore: il numero non è 1
// non lo rilevo in quanto i registri IVA non sono annuali
}
}
}
$c_ndoc[$r['caucon']]=$r['numdoc'];
$c_sr=$r['ctrl_sr'];
$c_id=$r['id_tes'];
$c_p=$r['protoc'];
// fine controllo errori di numerazione
$m[] = $r;
}
return $m;
}
function getMovements($account_ini,$account_fin,$date_ini,$date_fin)
{
global $gTables;
if ($account_ini==$account_fin || $account_fin==0 ) {
if ($account_fin==0) {
$account_fin=$account_ini;
}
$where = " codcon = $account_ini AND datreg BETWEEN $date_ini AND $date_fin";
$orderby = " datreg, id_tes ASC ";
$select = $gTables['tesmov'].".id_tes,".$gTables['tesmov'].".descri AS tesdes,datreg,codice,protoc,numdoc,datdoc,".$gTables['clfoco'].".descri,import*(darave='D') AS dare,import*(darave='A') AS avere";
} else {
$where = $gTables['clfoco'].".codice BETWEEN $account_ini AND $account_fin AND datreg BETWEEN $date_ini AND $date_fin GROUP BY ".$gTables['clfoco'].".codice";
$orderby = " codice ASC ";
$select = "codice,".$gTables['clfoco'].".descri AS tesdes, COUNT(id_rig) AS rows, SUM(import*(darave='D')) AS dare, SUM(import*(darave='A')) AS avere";
}
$table = $gTables['clfoco']." LEFT JOIN ".$gTables['rigmoc']." ON ".$gTables['clfoco'].".codice = ".$gTables['rigmoc'].".codcon "
."LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoc'].".id_tes = ".$gTables['tesmov'].".id_tes ";
$m=array();
$rs=gaz_dbi_dyn_query ($select, $table, $where, $orderby);
while ($r = gaz_dbi_fetch_array($rs)) {
$m[] = $r;
}
return $m;
}
function createNewTable($table,$new_id)
{
global $table_prefix;
$results = gaz_dbi_query ("SHOW CREATE TABLE ".$table);
$row = gaz_dbi_fetch_array($results);
return(preg_replace("/$table_prefix\_[0-9]{3}/",$table_prefix.sprintf('_%03d',$new_id),$row['Create Table']).";\n\n");
}
function getDocRef($data){
global $gTables;
$r='';
switch ($data['caucon']) {
case "FAI":
case "FND":
case "FNC":
$tesdoc_result = gaz_dbi_dyn_query ('*',$gTables['tesdoc'],
"id_con = ".$data["id_tes"],
'id_tes DESC',0,1);
$tesdoc_r = gaz_dbi_fetch_array ($tesdoc_result);
if ($tesdoc_r) {
$r="../vendit/stampa_docven.php?id_tes=".$tesdoc_r["id_tes"];
}
break;
case "FAD":
$tesdoc_result = gaz_dbi_dyn_query ('*',$gTables['tesdoc'],
"tipdoc = \"".$data["caucon"]."\" AND seziva = ".$data["seziva"]." AND protoc = ".$data["protoc"]." AND numfat = '".$data["numdoc"]."' AND datfat = \"".$data["datdoc"]."\"",
'id_tes DESC');
$tesdoc_r = gaz_dbi_fetch_array ($tesdoc_result);
if ($tesdoc_r) {
$r="../vendit/stampa_docven.php?td=2&si=".$tesdoc_r["seziva"]."&pi=".$tesdoc_r['protoc']."&pf=".$tesdoc_r['protoc']."&di=".$tesdoc_r["datfat"]."&df=".$tesdoc_r["datfat"] ;
}
break;
case "RIB":
case "TRA":
$effett_result = gaz_dbi_dyn_query ('*',$gTables['effett'],"id_con = ".$data["id_tes"],'id_tes',0,1);
$effett_r = gaz_dbi_fetch_array ($effett_result);
if ($effett_r) {
$r="../vendit/stampa_effett.php?id_tes=".$effett_r["id_tes"];
}
break;
}
return $r;
}
function getConfig($var)
{
global $table_prefix;
$query = "SELECT * FROM `".$gTables['company_config']."` WHERE var = '$var'";
$result = gaz_dbi_query ($query);
$data = gaz_dbi_fetch_array($result);
return $data;
}
function getLastDoc($item_code)
{
global $gTables;
$rs=false;
$rs_last_doc = gaz_dbi_dyn_query("*", $gTables['files'], " item_ref ='".$item_code."'",'id_doc DESC',0,1);
$last_doc = gaz_dbi_fetch_array($rs_last_doc);
// se e' il primo documento dell'anno, resetto il contatore
if ($last_doc) {
$rs=$last_doc;
}
return $rs;
}
function getLastId($date,$seziva)
{
global $gTables;
// ricavo l'ultimo id del giorno
$rs_last = gaz_dbi_dyn_query("id_tes", $gTables['tesdoc'], "tipdoc = 'VCO' AND datemi = '".$date."' AND seziva = ".intval($seziva),'numdoc DESC',0,1);
$last = gaz_dbi_fetch_array($rs_last);
$id = 0;
if ($last) {
$id = $last['id_tes'];
}
return $id;
}
function getMovements($date_ini,$date_fin)
{
global $gTables,$admin_aziend;
$m=array();
$where="datreg BETWEEN $date_ini AND $date_fin";
$what=$gTables['movmag'].".*, ".
$gTables['caumag'].".codice, ".$gTables['caumag'].".descri, ".
$gTables['artico'].".codice, ".$gTables['artico'].".descri AS desart, ".$gTables['artico'].".unimis, ".$gTables['artico'].".scorta, ".$gTables['artico'].".catmer ";
$table=$gTables['movmag']." LEFT JOIN ".$gTables['caumag']." ON (".$gTables['movmag'].".caumag = ".$gTables['caumag'].".codice)
LEFT JOIN ".$gTables['artico']." ON (".$gTables['movmag'].".artico = ".$gTables['artico'].".codice)";
$rs=gaz_dbi_dyn_query ($what,$table,$where, 'datreg ASC, clfoco ASC');
while ($r = gaz_dbi_fetch_array($rs)) {
$m[] = $r;
}
return $m;
}
function getMovements($date_ini,$date_fin,$num_ini=1,$num_fin=999999999)
{
global $gTables,$admin_aziend;
$m=array();
$where="scaden BETWEEN ".$date_ini." AND ".$date_fin." AND
progre BETWEEN ".$num_ini." AND ".$num_fin;
$what=$gTables['effett'].".*, ".
$gTables['clfoco'].".codice, ".
$gTables['banapp'].".descri AS desban, ".
$gTables['anagra'].".ragso1, ".$gTables['anagra'].".ragso2 ";
$table=$gTables['effett']." LEFT JOIN ".$gTables['clfoco']." ON ".$gTables['effett'].".clfoco = ".$gTables['clfoco'].".codice
LEFT JOIN ".$gTables['anagra']." ON ".$gTables['anagra'].".id = ".$gTables['clfoco'].".id_anagra
LEFT JOIN ".$gTables['banapp']." ON ".$gTables['banapp'].".codice = ".$gTables['effett'].".banapp";
$rs=gaz_dbi_dyn_query ($what,$table,$where,"tipeff ASC, scaden ASC, progre ASC");
while ($r = gaz_dbi_fetch_array($rs)) {
$m[] = $r;
}
return $m;
}
function accountValue($last_closing,$date_closing) //funzione per la creazione dell'array dei conti con saldo diverso da 0 e ordinati per tipo e numero di conto
{
global $gTables;
$where = "datreg BETWEEN $last_closing AND $date_closing GROUP BY codcon";
$orderby = " codcon ASC ";
$select = $gTables['clfoco'].".descri AS name,codcon,(SUM(import*(darave='D')) - SUM(import*(darave='A'))) AS val";
$table = $gTables['clfoco']." LEFT JOIN ".$gTables['rigmoc']." ON ".$gTables['clfoco'].".codice = ".$gTables['rigmoc'].".codcon "
."LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoc'].".id_tes = ".$gTables['tesmov'].".id_tes ";
$rs=gaz_dbi_dyn_query($select, $table, $where, $orderby);
$result=array();
$result['att']=array();
$result['pas']=array();
$result['cos']=array();
$result['ric']=array();
$result['tot']['cos']=0;
$result['tot']['ric']=0;
$result['tot']['att']=0;
$result['tot']['pas']=0;
while ($r = gaz_dbi_fetch_array($rs)) {
if ($r['val'] <> 0) {
$type='pas';
switch (substr($r['codcon'],0,1)) {
case 4: //economici
case 3:
if ($r['val'] > 0) {
$type='cos';
} else {
$type='ric';
}
break;
default: //patrimoniali
if ($r['val'] > 0) {
$type='att';
}
break;
}
$result[$type][$r['codcon']]=$r;
$result['tot'][$type]+=$r['val'];
}
}
return $result;
}
function getErrors($year)
{
global $gTables,$admin_aziend;
$e=array();
$where="regiva > 0 and YEAR(datreg) = ".$year;
$orderby="seziva, regiva, datreg, protoc ";
$rs=gaz_dbi_dyn_query("*,(seziva*10+regiva) AS ctrl_sr, DATE_FORMAT(datdoc,'%d-%m-%Y') AS dd, DATE_FORMAT(datreg,'%d-%m-%Y') AS dr", $gTables['tesmov'],$where,$orderby);
$c_sr=0;
$c_p=0;
$c_ndoc=array();
while ($r=gaz_dbi_fetch_array($rs)) {
if ($c_sr!=($r['ctrl_sr'])){ // devo azzerare tutto perchè è cambiata la sezione o il registro
$c_sr=0;
$c_p=0;
$c_ndoc=array();
if ($r['protoc']<>1){ // errore: il protocollo non è 1
$e[]=array('err'=>'P','id'=>$r['id_tes'],'rg'=>$r['regiva'],'pr'=>$r['protoc'],'nd'=>$r['numdoc'],'dd'=>$r['dd'],'sz'=>$r['seziva'],'ty'=>$r['caucon'],'ex'=>1,'de'=>$r['descri'],'dr'=>$r['dr']);
}
} else {
$ex=$c_p+1;
if ($r['protoc']<>$ex){ // errore: il protocollo non è consecutivo
$e[]=array('err'=>'P','id'=>$r['id_tes'],'rg'=>$r['regiva'],'pr'=>$r['protoc'],'nd'=>$r['numdoc'],'dd'=>$r['dd'],'sz'=>$r['seziva'],'ty'=>$r['caucon'],'ex'=>$ex,'de'=>$r['descri'],'dr'=>$r['dr']);
}
}
if ($r['regiva']<4){ // il controllo sul numero solo per i registri delle fatture
if (isset($c_ndoc[$r['caucon']])){ // controllo se il numero precedente è questo-1
$ex=$c_ndoc[$r['caucon']]+1;
if ($r['numdoc']<>$ex){ // errore: il numero non è consecutivo
$e[]=array('err'=>'N','id'=>$r['id_tes'],'rg'=>$r['regiva'],'pr'=>$r['protoc'],'nd'=>$r['numdoc'],'dd'=>$r['dd'],'sz'=>$r['seziva'],'ty'=>$r['caucon'],'ex'=>$ex,'de'=>$r['descri'],'dr'=>$r['dr']);
}
} else { // dal primo documento di questo tipo ci si aspetta il n.1
if ($r['numdoc']<>1){ // errore: il numero non è 1
$e[]=array('err'=>'N','id'=>$r['id_tes'],'rg'=>$r['regiva'],'pr'=>$r['protoc'],'nd'=>$r['numdoc'],'dd'=>$r['dd'],'sz'=>$r['seziva'],'ty'=>$r['caucon'],'ex'=>1,'de'=>$r['descri'],'dr'=>$r['dr']);
}
}
}
$c_ndoc[$r['caucon']]=$r['numdoc'];
$c_sr=$r['ctrl_sr'];
$c_p=$r['protoc'];
}
return $e;
}
function getMovements($date_ini,$date_fin)
{
global $gTables,$admin_aziend;
$where = "datreg BETWEEN $date_ini AND $date_fin GROUP BY seziva,regiva,codiva";
$orderby="seziva, regiva, datreg, protoc";
$rs=gaz_dbi_dyn_query("seziva,regiva,codiva,periva,operat,
SUM((imponi*(operat = 1) - imponi*(operat = 2))*(-2*(regiva > 5)+1)) AS imp,
SUM((impost*(operat = 1) - impost*(operat = 2))*(-2*(regiva > 5)+1)) AS iva,
".$gTables['aliiva'].".descri AS desvat,
".$gTables['aliiva'].".tipiva AS tipiva",
$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",$where,$orderby);
$m=array();
$m['tot']=0;
while ($r=gaz_dbi_fetch_array($rs)) {
if ($r['tipiva']=='D'){ // iva indetraibile
$r['isp']=0;
$r['ind']=$r['iva'];
$r['iva']=0;
} elseif ($r['tipiva']=='T'){ // iva split payment
$r['isp']=$r['iva'];
$r['ind']=0;
$r['iva']=0;
} else { // iva normale
$r['ind']=0;
$r['isp']=0;
}
$m['data'][]=$r;
if (!isset($m['tot_rate'][$r['codiva']])) {
$m['tot_rate'][$r['codiva']]=$r;
} else {
$m['tot_rate'][$r['codiva']]['imp']+=$r['imp'];
$m['tot_rate'][$r['codiva']]['iva']+=$r['iva'];
$m['tot_rate'][$r['codiva']]['ind']+=$r['ind'];
$m['tot_rate'][$r['codiva']]['isp']+=$r['isp'];
}
$m['tot']+=$r['iva'];
}
return $m;
}
function selectCompany($name,$val,$strSearch='',$val_hiddenReq='',$mesg,$class='FacetSelect')
{
global $gTables,$admin_aziend;
$table=$gTables['aziend'].' LEFT JOIN '. $gTables['admin_module'].' ON '.$gTables['admin_module'].'.enterprise_id = '.$gTables['aziend'].'.codice';
$where=$gTables['admin_module'].'.adminid=\''.$admin_aziend['Login'].'\' GROUP BY enterprise_id';
if ($val>0 && $val<1000) { // vengo da una modifica della precedente select case quindi non serve la ricerca
$co_rs=gaz_dbi_dyn_query("*",$table,'enterprise_id = '.$val.' AND '.$where,"ragso1 ASC");
$co=gaz_dbi_fetch_array($co_rs);
changeEnterprise(intval($val));
echo "\t<input type=\"hidden\" name=\"$name\" value=\"$val\">\n";
echo "\t<input type=\"hidden\" name=\"search[$name]\" value=\"%%\">\n";
echo "\t<input type=\"submit\" value=\"".$co['ragso1']."\" name=\"change\" onclick=\"this.form.$name.value='0'; this.form.hidden_req.value='change';\" title=\"$mesg[2]\">\n";
} else {
if (strlen($strSearch) >= 2) { //sto ricercando un nuovo partner
echo "\t<select name=\"$name\" class=\"FacetSelect\" onchange=\"this.form.hidden_req.value='$name'; this.form.submit();\">\n";
$co_rs=gaz_dbi_dyn_query("*",$table,"ragso1 LIKE '".addslashes($strSearch)."%' AND ". $where,"ragso1 ASC");
if ($co_rs){
echo "<option value=\"0\"> ---------- </option>";
while ($r = gaz_dbi_fetch_array($co_rs)) {
$selected = '';
if ($r['enterprise_id'] == $val) {
$selected = "selected";
}
echo "\t\t <option value=\"".$r['enterprise_id']."\" $selected >".intval($r['enterprise_id'])."-".$r["ragso1"]."</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=\"6\" 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";
}
}
function getData($id_rig)
{
/*
* restituisce tutti i dati relativi al rigo contabile del pagamento
*/
global $gTables;
$anagrafica = new Anagrafica();
$paymov = new Schedule;
$sqlquery= "SELECT ".$gTables['tesmov'].".*, ".$gTables['paymov'].".*, ".$gTables['rigmoc'].".import
FROM ".$gTables['rigmoc']." LEFT JOIN ".$gTables['paymov']." ON ".$gTables['paymov'].".id_rigmoc_pay = ".$gTables['rigmoc'].".id_rig
LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoc'].".id_tes = ".$gTables['tesmov'].".id_tes
WHERE ".$gTables['rigmoc'].".id_rig = $id_rig ORDER BY expiry ASC";
$rs = gaz_dbi_query($sqlquery);
$a=array();
$i=1;
while ($r = gaz_dbi_fetch_array($rs)) {
$a[$i] = $r;
$a[$i]['t'] = $paymov->getDocumentData($r['id_tesdoc_ref']);
$i++;
}
return array('d'=>$a,'partner'=>$anagrafica->getPartner($a[1]['clfoco']));
}
$msg .= '15+';
}
}
}
if (!empty($r_cf)) {
$msg .= "11+";
}
if (!($form['codfis']=="") && !($form['codfis']=="00000000000")) {
$partner_with_same_cf=$anagrafica->queryPartners('*', "codice <> ".$real_code." AND codice BETWEEN ".$admin_aziend['mascli']."000000 AND ".$admin_aziend['mascli']."999999 AND codfis = '".$form['codfis']."'","codfis DESC",0,1);
if ($partner_with_same_cf) { // c'è già un cliente sul piano dei conti
if ($partner_with_same_cf[0]['fe_cod_univoco'] == $form['fe_cod_univoco']) { // c'è già un cliente sul piano dei conti ed è anche lo stesso ufficio ( amministrativo della PA )
$msg .= "12+";
}
} elseif ($form['id_anagra']==0) { // è un nuovo cliente senza anagrafica
$rs_anagra_with_same_cf=gaz_dbi_dyn_query('*',$gTables['anagra']," codfis = '".$form['codfis']."'","codfis DESC",0,1);
$anagra_with_same_cf=gaz_dbi_fetch_array($rs_anagra_with_same_cf);
if($anagra_with_same_cf) { // c'è già un'anagrafica con lo stesso CF non serve reinserirlo ma avverto
// devo attivare tutte le interfacce per la scelta!
$anagra=$anagra_with_same_cf;
$msg .= '16+';
}
}
}
if (empty($form['codfis'])) {
if ($form['sexper'] == 'G') {
$msg .= "13+" ;
$form['codfis'] = $form['pariva'];
} else {
$msg .= "14+" ;
}
echo "</table>\n";
echo "</form>\n";
}
else {
$utsdate= mktime(0,0,0,$form['this_date_M'],$form['this_date_D'],$form['this_date_Y']);
$date = date("Y-m-d",$utsdate);
$where="catmer = ".$form["catmer"];
if ($form['catmer'] == 100) {
$where=1;
}
$ctrl_cm=0;
$result = gaz_dbi_dyn_query($gTables['artico'].'.*, '.$gTables['catmer'].'.descri AS descat,'.$gTables['catmer'].'.annota AS anncat', $gTables['artico'].' LEFT JOIN '.$gTables['catmer'].' ON catmer = '.$gTables['catmer'].'.codice', $where,'catmer ASC, '.$gTables['artico'].'.codice ASC');
if ($result) {
// Imposto totale valore giacenza by DF
$tot_val_giac = 0;
while ($r = gaz_dbi_fetch_array($result)) {
if ($r['catmer']<>$ctrl_cm ){
gaz_set_time_limit (30);
$ctrl_cm=$r['catmer'];
}
$mv=$gForm->getStockValue(false,$r['codice'],$date,null,$admin_aziend['decimal_price']);
$magval=array_pop($mv);
if ( $magval['q_g'] > 0 )
{
$form['a'][$r['codice']]['i_d'] = $r['descri'];
$form['a'][$r['codice']]['i_u'] = $r['unimis'];
$form['a'][$r['codice']]['v_a'] = $magval['v'];
$form['a'][$r['codice']]['v_r'] = $magval['v'];
$form['a'][$r['codice']]['i_a'] = $r['annota'];
$form['a'][$r['codice']]['i_g'] = $r['catmer'];
$chk_acc=true;
for ($i=1; $i<=6; $i++) {
$form["contr".$i] = intval($_POST["contr".$i]);
if ($form["contr".$i]>100 && $chk_acc==true) {
$chk_acc=false;
}
$form["tipim".$i] = substr($_POST["tipim".$i],0,1);
$form["daav_".$i] = substr($_POST["daav_".$i],0,1);
}
if (isset($_POST['submit'])) {
if ($toDo == 'insert') { //se è un'inserimento
if ($chk_acc) $msg .= "3+";
if (empty($form["descri"])) $msg .= "1+";
if (!empty($form["codice"])) {
$rs_cau = gaz_dbi_dyn_query("*", $gTables['caucon'], "codice = '".$form["codice"]."'","codice DESC",0,1);
$rs = gaz_dbi_fetch_array($rs_cau);
if ($rs) {
$msg .= "2+";
}
switch ($form["codice"]) {
case "CHI":
$msg .= "4+";
break;
case "APE":
$msg .= "5+";
break;
}
} else {
$msg .= "0+";
}
if ( $msg == "") {// nessun errore
$form['corpo'] = $lettera['corpo'];
if ($lettera['signature'] == 1) {
$form['signature'] = 'checked';
} else {
$form['signature'] = '';
}
} elseif (!isset($_POST['Insert'])) { //se e' il primo accesso per INSERT
$form['ritorno'] = $_SERVER['HTTP_REFERER'];
$form['hidden_req']='';
$form['search']['clfoco']='';
$form['id_let'] = "";
$form['gioemi'] = date("d");
$form['mesemi'] = date("m");
$form['annemi'] = date("Y");
$rs_ultima_lettera = gaz_dbi_dyn_query("*", $gTables['letter'], "YEAR(write_date) = ".date("Y"),'write_date DESC, numero DESC, id_let DESC',0,1);
$ultima_lettera = gaz_dbi_fetch_array($rs_ultima_lettera);
if ($ultima_lettera) {
$form['numero'] = intval($ultima_lettera['numero']) + 1;
$form['tipo'] = $ultima_lettera['tipo'];
} else {
$form['numero'] = 1;
$form['tipo'] = 'LET';
}
$form['clfoco'] = 0;
$form['oggetto'] = '';
$form['c_a'] = '';
$form['corpo'] = '';
$form['signature'] = 'checked';
}
require("../../library/include/header.php");
$descon = array();
$lines=file('IVdirCEE.bil');
foreach($lines as $line) {
$nuova = explode(';',$line,2);
$descon[trim($nuova[0])] = $nuova[1];
$data[] = trim($nuova[0]);
}
$data = array_slice($data,1);
$where = "datreg BETWEEN '$dataini' AND '$datafin' AND caucon <> 'CHI' AND caucon <> 'APE' OR (caucon = 'APE' AND datreg BETWEEN '$dataini' AND '$datadop') GROUP BY codcon ";
$orderby = " codcon ";
$rs_castel = gaz_dbi_dyn_query("codcon, ragso1, SUM(import*(darave='D')-import*(darave='A')) AS saldo, ceedar, ceeave", $gTables['rigmoc']."
LEFT JOIN ".$gTables['tesmov']." ON ".$gTables['rigmoc'].".id_tes = ".$gTables['tesmov'].".id_tes
LEFT JOIN ".$gTables['clfoco']." ON ".$gTables['rigmoc'].".codcon = ".$gTables['clfoco'].".codice
LEFT JOIN ".$gTables['anagra']." ON ".$gTables['anagra'].".id = ".$gTables['clfoco'].".id_anagra", $where, $orderby);
//procedura per la creazione dell'array dei conti riclassificati
while ($castel = gaz_dbi_fetch_array($rs_castel)) {
if ($castel["saldo"] > 0) { //se l'eccedenza è in dare
if (! in_array(trim($castel['ceedar']),$data)) {//se non e' riclassificato
// vedo se c'è la riclassificazione sul mastro
$mastro = gaz_dbi_get_row($gTables['clfoco'],'codice',substr($castel['codcon'],0,3)."000000");
$castel['ceedar']=trim($mastro['ceedar']);
if (! in_array($castel['ceedar'],$data)) {//se non e' riclassificato neanche il mastro
$castel['ceedar']=$castel['codcon'];
}
}
$conti[$castel['codcon']] = array($castel["saldo"],$castel["ragso1"],$castel["ceedar"]);
}
if ($castel["saldo"] < 0) {//se l'eccedenza è in avere
if (! in_array(trim($castel['ceeave']),$data)) {
// vedo se c'è la riclassificazione sul mastro
$mastro = gaz_dbi_get_row($gTables['clfoco'],"codice",substr($castel['codcon'],0,3)."000000");
<input tabindex=4 type="text" name="oggetto" value="<?php echo $form['oggetto']; ?>" align="right" maxlength="255" size="70"/>
</td>
</tr>
<tr>
<td class="FacetFieldCaptionTD">Ore</td>
<td colspan="2" class="FacetDataTD">
<input tabindex=5 type="text" name="ore" value="<?php echo $form['ore']; ?>" align="right" maxlength="255" size="70"/>
</td>
</tr>
<tr>
<td class="FacetFieldCaptionTD"><?php echo $script_transl['stato']; ?> </td>
<td colspan="2" class="FacetDataTD">
<select name="cstato" tabindex="5" onchange="updateInput(this.value)">
<?php
$result = gaz_dbi_dyn_query(" DISTINCT ".$gTables['assist'].".stato", $gTables['assist'],"", "stato", "0", "9999");
while ($stati = gaz_dbi_fetch_array($result)) {
if ( $form['stato'] == $stati["stato"] ) $selected = "selected";
else $selected = "";
echo "<option value=\"".$stati["stato"]."\" ".$selected.">".$stati["stato"]."</option>";
}
?>
</select>
<input tabindex=6 type="text" name="stato" id="stato" value="<?php echo $form['stato']; ?>" align="right" maxlength="255" size="70"/>
</td>
</tr>
<tr>
<td class="FacetFieldCaptionTD"><?php echo $script_transl['sqn']; ?></td>
<td class="FacetDataTD">
<input tabindex=6 name="Return" type="submit" value="<?php echo $script_transl['return']; ?>!">
</td>
<td class="FacetDataTD" align="right">
$testata = gaz_dbi_get_row($gTables['tesdoc'], "id_tes", $_GET['id_tes']);
if (substr($testata['tipdoc'],0,2) == 'DD'){
$where = "tipdoc LIKE 'DD_' AND seziva = '".$testata['seziva']."' AND numfat = 0" ;
} elseif (substr($testata['tipdoc'],0,2) == 'AF'){
$where = "tipdoc LIKE 'AF_'";
} elseif (substr($testata['tipdoc'],0,2) == 'AD'){
$where = "tipdoc LIKE 'AD_'";
}
$rs_ultimo_documento = gaz_dbi_dyn_query("*", $gTables['tesdoc'], $where,"id_tes 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 and $ultimo_documento['id_tes'] == $testata['id_tes']) {
//allora procedo all'eliminazione della testata e dei righi...
gaz_dbi_del_row($gTables['tesdoc'], "id_tes", $testata['id_tes']);
$rs_righidel = gaz_dbi_dyn_query("*", $gTables['rigdoc'], "id_tes = '".$testata['id_tes']."'","id_tes desc");
while ($a_row = gaz_dbi_fetch_array($rs_righidel)) {
gaz_dbi_del_row($gTables['rigdoc'], "id_rig", $a_row['id_rig']);
if (intval($a_row['id_mag']) > 0){ //se c'è stato un movimento di magazzino lo azzero
$upd_mm->uploadMag('DEL',$testata['tipdoc'],'','','','','','','','','','',$a_row['id_mag'],$admin_aziend['stock_eval_method']);
}
}
header("Location: ".$_POST['ritorno']);
exit;
} else {
$message = "Si stà tentando di eliminare un documento diverso dall'ultimo emesso !".$ultimo_documento['tipdoc'].$ultimo_documento['id_tes'];
}
}
if (isset($_POST['Return'])) {
header("Location: report_ddtacq.php");
exit;
function getExtremeValue($table_name,$min_max='MIN')
{
$rs=gaz_dbi_dyn_query ($min_max.'(codice) AS value',$table_name);
$data=gaz_dbi_fetch_array($rs);
return $data['value'];
}
function getProtocol($type,$year,$sezione) // questa funzione trova l'ultimo numero di protocollo
{ // controllando sia l'archivio documenti che il
global $gTables; // registro IVA acquisti
$rs_ultimo_tesdoc = gaz_dbi_dyn_query("*", $gTables['tesdoc'],"YEAR(datemi) = $year AND tipdoc LIKE '".substr($type,0,2)."_' AND seziva = $sezione","protoc DESC",0,1);
$ultimo_tesdoc = gaz_dbi_fetch_array($rs_ultimo_tesdoc);
$rs_ultimo_tesmov = gaz_dbi_dyn_query("*", $gTables['tesmov'],"YEAR(datreg) = $year AND regiva = 6 AND seziva = $sezione","protoc DESC",0,1);
$ultimo_tesmov = gaz_dbi_fetch_array($rs_ultimo_tesmov);
$lastProtocol=0;
if ($ultimo_tesdoc) {
$lastProtocol = $ultimo_tesdoc['protoc'];
}
if ($ultimo_tesmov) {
if ($ultimo_tesmov['protoc'] > $lastProtocol){
$lastProtocol = $ultimo_tesmov['protoc'];
}
}
return $lastProtocol+1;
}
<?php
require("../../library/include/datlib.inc.php");
$admin_aziend=checkAdmin();
$rs_row = gaz_dbi_dyn_query('codice,image', $gTables['artico'], "image NOT LIKE ''");
while ($r = gaz_dbi_fetch_array($rs_row)) {
$img=imagecreatefromstring($r['image']);
imagepng($img,$_SERVER['DOCUMENT_ROOT'].'/temp.png');
$png = addslashes(file_get_contents($_SERVER['DOCUMENT_ROOT']."/temp.png", "r"));
gaz_dbi_put_row($gTables['artico'],'codice',$r['codice'],'image',$png);
}
$rs_row = gaz_dbi_dyn_query('codice,image', $gTables['catmer'], "image NOT LIKE ''");
while ($r = gaz_dbi_fetch_array($rs_row)) {
$img=imagecreatefromstring($r['image']);
imagepng($img,$_SERVER['DOCUMENT_ROOT'].'/temp.png');
$png = addslashes(file_get_contents($_SERVER['DOCUMENT_ROOT']."/temp.png", "r"));
gaz_dbi_put_row($gTables['catmer'],'codice',$r['codice'],'image',$png);
}
$rs_row = gaz_dbi_dyn_query('codice,image', $gTables['aziend'], "image NOT LIKE ''");
while ($r = gaz_dbi_fetch_array($rs_row)) {
$img=imagecreatefromstring($r['image']);
imagepng($img,$_SERVER['DOCUMENT_ROOT'].'/temp.png');
$png = addslashes(file_get_contents($_SERVER['DOCUMENT_ROOT']."/temp.png", "r"));
gaz_dbi_put_row($gTables['aziend'],'codice',$r['codice'],'image',$png);
}
print 'Se durante l\'esecuzione di questo script non si sono verificati errori, dovresti aver convertito i file JPG del logo, degli articoli e delle categorie merceologiche in PNG, clicca <A HREF="admin.php" > QUI </A> per tornare alla home page';
$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();
?>
$result = gaz_dbi_dyn_query ('*',$gTables['files']." LEFT JOIN ".$gTables['artico']." ON ".$gTables['files'].".item_ref = ".$gTables['artico'].".codice", $where, $orderby, $limit, $passo);
// creo l'array (header => campi) per l'ordinamento dei record
$headers_mov = array (
"ID" => "id_doc",
$script_transl['item'] => "item_ref",
$script_transl['table_name_ref'] => "table_name_ref",
$script_transl['note'] => "title",
$script_transl['ext'] => "extension",
'Download' => "",
$script_transl['delete'] => ""
);
$linkHeaders = new linkHeaders($headers_mov);
$linkHeaders -> output();
$recordnav = new recordnav($gTables['files'], $where, $limit, $passo);
$recordnav -> output();
while ($a_row = gaz_dbi_fetch_array($result)) {
if(!isset($_GET['all']) and !empty($a_row["image"])){
$boxover = "title=\"cssbody=[FacetInput] cssheader=[FacetButton] header=[".$a_row['annota']."] body=[<center><img src='../root/view.php?table=artico&value=".$a_row['item_ref']."'>] fade=[on] fadespeed=[0.03] \"";
} else {
$boxover = "title=\"cssbody=[FacetInput] cssheader=[FacetButton] header=[".$a_row['annota']."] fade=[on] fadespeed=[0.03] \"";
}
print "<tr>\n";
print "<td class=\"FacetDataTD\" align=\"right\"><a href=\"admin_document.php?id_doc=".$a_row["id_doc"]."&Update\" title=\"".ucfirst($script_transl['update'])."!\">".$a_row["id_doc"]."</a>  </td>";
print "<td class=\"FacetDataTD\" align=\"center\" $boxover >".$a_row["item_ref"]."</td>\n";
print "<td class=\"FacetDataTD\" align=\"center\">".$a_row["table_name_ref"]."</td>\n";
print "<td class=\"FacetDataTD\" align=\"center\">".$a_row["title"]."</td>\n";
print "<td class=\"FacetDataTD\" align=\"center\">".$a_row["extension"]."</td>\n";
print "<td class=\"FacetDataTD\" align=\"center\"><a href=\"../root/retrieve.php?id_doc=".$a_row["id_doc"]."\"><img src=\"../../library/images/vis.gif\" title=\"".$script_transl['view']."!\" border=\"0\"></a></td>\n";
print "<td class=\"FacetDataTD\" align=\"center\"><a href=\"delete_document.php?id_doc=".$a_row["id_doc"]."\"><img src=\"../../library/images/x.gif\" title=\"".$script_transl['delete']."!\" border=\"0\"></a></td>\n";
print "</tr>\n";
}
function getModule($login,$enterprise_id)
{
global $gTables,$admin_aziend;
//trovo i moduli installati
$mod_found=array();
$relativePath = '../../modules';
if ($handle = opendir($relativePath)) {
while ($exist_mod = readdir($handle)) {
if ($exist_mod == "."
|| $exist_mod == ".."
|| $exist_mod == ".svn"
|| $exist_mod == "root" ) continue;
$rs_mod = gaz_dbi_dyn_query(" am.access ,am.moduleid, module.name", $gTables['admin_module'].' AS am LEFT JOIN '.$gTables['module'].
' AS module ON module.id=am.moduleid ',
" am.adminid = '".$login."' AND module.name = '$exist_mod' AND am.enterprise_id = '$enterprise_id'","am.adminid",0,1);
require("../../modules/$exist_mod/menu.".$admin_aziend['lang'].".php");
$row = gaz_dbi_fetch_array($rs_mod);
if (!isset($row['moduleid'])){
$row['name']=$exist_mod;
$row['moduleid']=0;
$row['access']=0;
}
$row['transl_name'] = $transl[$exist_mod]['name'];
$mod_found[$exist_mod] = $row;
}
closedir($handle);
}
return $mod_found;
}
}
if ($ctrl_tes != 0 and $ctrl_tes != $v['id_tes']) { //se non è il primo rigo processato
//controllo se ci sono ancora righi inevasi
$rs_righi_inevasi = gaz_dbi_dyn_query("id_tes", $gTables['rigbro'], "id_tes = $ctrl_tes AND id_doc = 0 AND tiprig BETWEEN 0 AND 1","id_rig",0,1);
$inevasi = gaz_dbi_fetch_array($rs_righi_inevasi);
if (!$inevasi) { //se non ci sono + righi da evadere
//modifico lo status della testata dell'ordine solo se completamente evaso
gaz_dbi_put_row($gTables['tesbro'], "id_tes", $ctrl_tes, "status","EVASO" );
}
}
$ctrl_tes = $v['id_tes'];
}
//controllo se l'ultimo ordine tra quelli processati ha ancora righi inevasi
$rs_righi_inevasi = gaz_dbi_dyn_query("id_tes", $gTables['rigbro'], "id_tes = $ctrl_tes AND id_doc = 0 AND tiprig BETWEEN 0 AND 1","id_rig",0,1);
$inevasi="";
$inevasi = gaz_dbi_fetch_array($rs_righi_inevasi);
if (!$inevasi) { //se non ci sono + righi da evadere
//modifico lo status della testata dell'ordine solo se completamente evaso
gaz_dbi_put_row($gTables['tesbro'], "id_tes", $ctrl_tes, "status","EVASO" );
}
$_SESSION['print_request']=$last_id;
header("Location: invsta_docven.php");
exit;
}
} elseif (isset($_POST['Return'])) { //ritorno indietro
header("Location: ".$_POST['ritorno']);
exit;
}
require("../../library/include/header.php");
$script_transl=HeadMain(0,array('boxover/boxover',
gaz_dbi_table_update('spediz',$form['codice'],$form);
}
header("Location: report_spediz.php");
exit;
}
} elseif (isset($_POST['Return'])) { // torno indietro
header("Location: ".$form['ritorno']);
exit;
}
} elseif (!isset($_POST['Update']) && isset($_GET['Update'])) { //se e' il primo accesso per UPDATE
$form = gaz_dbi_get_row($gTables['spediz'], 'codice', intval($_GET['codice']));
$form['ritorno']=$_SERVER['HTTP_REFERER'];
} elseif (!isset($_POST['Insert'])) { //se e' il primo accesso per INSERT
$form['ritorno']=$_SERVER['HTTP_REFERER'];
$rs_last = gaz_dbi_dyn_query('codice',$gTables['spediz'],'1','codice DESC',0,1);
$last = gaz_dbi_fetch_array($rs_last);
$form['codice'] = $last['codice']+1;
$form['descri'] = '';
$form['annota'] = '';
}
require("../../library/include/header.php");
$script_transl = HeadMain();
echo "<form method=\"POST\">";
echo "<input type=\"hidden\" name=\"ritorno\" value=\"".$form['ritorno']."\">\n";
echo "<input type=\"hidden\" name=\"".ucfirst($toDo)."\" value=\"\">";
$gForm = new GAzieForm();
if ($toDo == 'insert') {
echo "<div align=\"center\" class=\"FacetFormHeaderFont\">".$script_transl['ins_this']."</div>\n";
} else {
echo "<div align=\"center\" class=\"FacetFormHeaderFont\">".$script_transl['upd_this']." '".$form['codice']."'</div>\n";
$result = $xpath->query("//ProgressivoInvio")->item(0);
$progressivo_invio = $result->textContent;
$sev_iva =substr($progressivo_invio,2,1);
$protocollo =substr($progressivo_invio,3);
$where = " protoc = ".$protocollo . ' and seziva = '. $sev_iva . " and datemi = '". $data_ora_ricezione . "'";
$result = gaz_dbi_dyn_query ("*", $gTables['tesdoc'], $where, $orderby, $limit, $passo);
$r = gaz_dbi_fetch_array($result);
if ($r == false) {
$id_tes = 0; }
else {
$id_tes = $r['id_tes'];
}
echo $progressivo_invio . "_" . $sev_iva . "_" . $protocollo . "_" .$id_tes . "<br/>";
$errore = "";
$status="";
$verifica = gaz_dbi_get_row($gTables['fae_flux'], 'filename_ori', $nome_file1);
