rigmocInsert(array('id_tes'=>$tes_id,'darave'=>$da_p,'codcon'=>$admin_aziend['c_ritenute'],'import'=>$v['rit']));
}
if (($v['tes']['incaut']=='S') && ($v['tes']['tippag']<>'K')){ // se il pagamento prevede l'incasso automatico
rigmocInsert(array('id_tes'=>$tes_id,'darave'=>$da_c,'codcon'=>$v['tes']['clfoco'],'import'=>($tot['tot']-$v['rit'])));
rigmocInsert(array('id_tes'=>$tes_id,'darave'=>$da_p,'codcon'=>$admin_aziend['cassa_'],'import'=>($tot['tot']-$v['rit'])));
}elseif($v['tes']['tippag']=='K'){// se effettuato con carte viene incassato direttamente su C.C.
rigmocInsert(array('id_tes'=>$tes_id,'darave'=>$da_c,'codcon'=>$v['tes']['clfoco'],'import'=>($tot['tot']-$v['rit'])));
rigmocInsert(array('id_tes'=>$tes_id,'darave'=>$da_p,'codcon'=>$v['tes']['id_bank'],'import'=>($tot['tot']-$v['rit'])));
} else { // altrimenti inserisco le partite aperte
foreach($rate['import'] as $k_rate=>$v_rate) {
paymovInsert(array('id_tesdoc_ref'=>substr($v['tes']['datfat'],0,4).$reg.$v['tes']['seziva'].str_pad($v['tes']['protoc'],9,0,STR_PAD_LEFT),'id_rigmoc_doc'=>$paymov_id,'amount'=>$v_rate,'expiry'=>$rate['anno'][$k_rate].'-'.$rate['mese'][$k_rate].'-'.$rate['giorno'][$k_rate]));
}
}
// alla fine modifico le testate documenti introducendo il numero del movimento contabile
gaz_dbi_put_query($gTables['tesdoc'],"tipdoc = '".$v['tes']['tipdoc']."' AND datfat = '".$v['tes']['datfat']."' AND seziva = ".$v['tes']['seziva']." AND protoc = ".$v['tes']['protoc'],"id_con",$tes_id);
// movimenti di storno in caso di split payment
if ($v['isp']>0){
// inserisco la testata del movimento di storno Split payment
$newValue=array('caucon'=>'ISP',
'descri'=>'STORNO IVA SPLIT PAYMENT PA',
'id_doc'=>$v['tes']['id_tes'],
'datreg'=>$v['tes']['datfat'],
'seziva'=>$v['tes']['seziva'],
'protoc'=>$v['tes']['protoc'],
'numdoc'=>$v['tes']['numfat'],
'datdoc'=>$v['tes']['datfat'],
'clfoco'=>$v['tes']['clfoco'],
'regiva'=>'',
'operat'=>''
);
if (intval($val_old_row['id_mag']) > 0){ //se c'è stato un movimento di magazzino lo azzero
$upd_mm->uploadMag('DEL',$row['tipdoc'],'','','','','','','','','','',$val_old_row['id_mag']);
}
gaz_dbi_del_row($gTables['rigdoc'], "id_rig", $val_old_row['id_rig']);
gaz_dbi_del_row($gTables['body_text'], "table_name_ref = 'rigdoc' AND id_ref", $val_old_row['id_rig']);
}
header("Location: ".$_POST['ritorno']);
exit;
} elseif ($ultimo_documento['protoc'] == $_GET['protoc'] and $ultimo_documento['tipdoc'] != 'FAD') {
//allora procedo all'eliminazione della testata e dei righi...
//cancello la testata
gaz_dbi_del_row($gTables['tesdoc'], "id_tes", $row['id_tes']);
gaz_dbi_del_row($gTables['tesmov'], 'id_tes', $row['id_con']);
gaz_dbi_del_row($gTables['rigmoc'], 'id_tes', $row['id_con']);
gaz_dbi_del_row($gTables['rigmoi'], 'id_tes', $row['id_con']);
gaz_dbi_put_query($gTables['rigbro'], 'id_doc = '.$row["id_tes"],"id_doc","");
// cancello pure l'eventuale movimento di split payment
$r_split= gaz_dbi_get_row($gTables['tesmov'], 'id_doc', $row['id_tes']);
gaz_dbi_del_row($gTables['tesmov'], 'id_tes', $r_split['id_tes']);
gaz_dbi_del_row($gTables['rigmoc'], 'id_tes', $r_split['id_tes']);
//cancello i righi
$rs_righidel = gaz_dbi_dyn_query("*", $gTables['rigdoc'], "id_tes = '".$row['id_tes']."'");
while ($val_old_row = gaz_dbi_fetch_array($rs_righidel)) {
if (intval($val_old_row['id_mag']) > 0){ //se c'è stato un movimento di magazzino lo azzero
$upd_mm->uploadMag('DEL',$row['tipdoc'],'','','','','','','','','','',$val_old_row['id_mag']);
}
gaz_dbi_del_row($gTables['rigdoc'], "id_rig", $val_old_row['id_rig']);
gaz_dbi_del_row($gTables['body_text'], "table_name_ref = 'rigdoc' AND id_ref", $val_old_row['id_rig']);
}
header("Location: ".$_POST['ritorno']);
exit;
while ($a_row = gaz_dbi_fetch_array($result)) {
gaz_dbi_del_row($gTables['rigmoc'], "id_rig", $a_row['id_rig']);
// elimino le eventuali partite aperte
$calc->updatePaymov($a_row['id_rig']);
}
//cancello i righi iva
$result = gaz_dbi_dyn_query("*", $gTables['rigmoi'],"id_tes = ".intval($_POST['id_tes']),"id_tes asc");
while ($a_row = gaz_dbi_fetch_array($result)) {
gaz_dbi_del_row($gTables['rigmoi'], "id_rig", $a_row['id_rig']);
}
//cancello la testata
gaz_dbi_del_row($gTables['tesmov'], "id_tes", intval($_POST['id_tes']));
// se si riferisce ad un documento contabilizzato annullo il riferimento al movimento
gaz_dbi_put_query($gTables['tesdoc'], 'id_con ='.intval($_POST['id_tes']),'id_con',0);
// se si riferisce ad un effetto contabilizzato annullo il riferimento al movimento
gaz_dbi_put_query($gTables['effett'], 'id_con ='.intval($_POST['id_tes']),'id_con',0);
header("Location: report_movcon.php");
exit;
}
if (isset($_POST['Return'])) {
header("Location: report_movcon.php");
exit;
}
if (!isset($_POST['Delete'])) {
$id_tes= intval($_GET['id_tes']);
$form = gaz_dbi_get_row($gTables['tesmov'], "id_tes", $id_tes);
//recupero i righi contabili
$rs_righcon = gaz_dbi_dyn_query("*", $gTables['rigmoc'], "id_tes = ".intval($form['id_tes']),"id_rig asc");
//recupero i righi iva