Gestion de Asociacion
Gestion de Asociacion
Lunes, 22-Octubre-2018 06:37:40
\n"; $TMP .="\n\n\n"; return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function regeneraUnPlanContable($idejercicio) { global $RAD_dbi, $V_dir, $PHPSESSID, $numCuentasARegenerar; $TMP=""; if (!$idejercicio>0) $idejercicio=getSessionVar("SESSION_idejercicio"); if (!$idejercicio>0) error("Debes seleccionar un Ejercicio."); $TMP_result=sql_query("SELECT * FROM GIE_ejercicios WHERE idejercicio='$idejercicio' ORDER BY ejercicio DESC",$RAD_dbi); $TMP_row=sql_fetch_array($TMP_result, $RAD_dbi); $TMP_litejerc=$TMP_row[nombreempresa]."-".$TMP_row[ejercicio]; $TMP.=""; // Borra las cuentas duplicadas $CUENTAS=array(); // Limpia array de cuentas if ($idejercicio>0) $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE idejercicio='".$idejercicio."'", $RAD_dbi); else $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE (idejercicio IS NULL OR idejercicio='' OR idejercicio='0')", $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { if ($CUENTAS[$TMP_row[cuenta]]!="") { // Si ya existe una cuenta se borran los duplicados $cmdSQL2="DELETE FROM GIE_cuentas WHERE idcuenta='".$TMP_row[idcuenta]."'"; RAD_printLog($cmdSQL2); sql_query($cmdSQL2,$RAD_dbi); } $CUENTAS[$TMP_row[cuenta]]=$TMP_row[cuenta]; } // Copias las cuentas del Plan de Cuentas Patron que no existen en el actual. // $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE imputable='1' AND (idejercicio IS NULL OR idejercicio='' OR idejercicio='0')", $RAD_dbi); if ($idejercicio>0) { $TMP.=""; $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE (idejercicio IS NULL OR idejercicio='' OR idejercicio='0')", $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { if ($CUENTAS[$TMP_row[cuenta]]!="") continue; $CUENTAS[$TMP_row[cuenta]]=$TMP_row[cuenta]; $cmdSQL="INSERT INTO GIE_cuentas SET imputable='".$TMP_row[imputable]."',". "idejercicio='$idejercicio', cuenta='".$TMP_row[cuenta]."', tipocuenta='".$TMP_row[tipocuenta]."', ". "nombre='".$TMP_row[nombre]."', estado='".$TMP_row[estado]."', conceptobanco='".$TMP_row[conceptobanco]."', ". "cif='".$TMP_row[cif]."', idcliente='".$TMP_row[idcliente]."', idproveedor='".$TMP_row[idproveedor]."', ". "observaciones='".$TMP_row[observaciones]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); $TMP.=""; } } list($TMP_conttotal,$TMP_cont)=recalculaCuentasPadre($idejercicio); $TMP.="\n"; $TMP.="\n"; // Cuentas contables de cliente $TMP.=""; $TMP.=""; $TMP_result=sql_query("SELECT * FROM GIE_clientes WHERE cuentacontable IS NOT NULL " ."AND cuentacontable!='' AND fechaalta NOT LIKE '0000%' AND fechaalta IS NOT NULL", $RAD_dbi); $TMP_conttotal=0; $aCli=array(); $aCliShort = array(); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; if ($CUENTAS[$TMP_row[cuentacontable]]!="") continue; if (strlen($TMP_row[cuentacontable])<7) { array_push($aCliShort,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ."" .""; continue; } array_push($aCli,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ."" .""; } $TMP.="\n"; // Cuentas contables de proveedor $TMP.=""; $TMP.=""; $TMP_result=sql_query("SELECT * FROM GIE_proveedores WHERE cuentacontable IS NOT NULL AND cuentacontable!=''", $RAD_dbi); $TMP_conttotal=0; $aProv = array(); $aProvShort = array(); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; if ($CUENTAS[$TMP_row[cuentacontable]]!="") continue; if (strlen($TMP_row[cuentacontable])<7) { array_push($aProvShort,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ."" .""; continue; } array_push($aProv,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ."" .""; } $TMP.="\n"; // Cuentas contables de Caja y Banco $TMP.=""; $TMP.=""; $TMP_result=sql_query("SELECT * FROM GIE_cuentasbanco WHERE cuentacontable IS NOT NULL AND cuentacontable!=''", $RAD_dbi); $TMP_conttotal=0; $aCaj = array(); $aCajShort = array(); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; if ($CUENTAS[$TMP_row[cuentacontable]]!="") continue; if (strlen($TMP_row[cuentacontable])<7) { array_push($aCajShort,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ."" .""; continue; } array_push($aCaj,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ."" .""; } $TMP.="\n"; // Comprueba los Apuntes de los Asientos que pertenecen al Ejercicio $TMP_cont=0; $A_apunte=array(); $TMP_result = sql_query("SELECT * FROM GIE_apuntes WHERE idejercicio='".$idejercicio."'", $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $A_apunte[$TMP_row[idapunte]]=$TMP_row[idapunte]; } $TMP_conttotal=0; $TMP_resultA = sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='".$idejercicio."'", $RAD_dbi); while($TMP_rowA = sql_fetch_array($TMP_resultA, $RAD_dbi)) { $TMP_result = sql_query("SELECT * FROM GIE_apuntes WHERE idasiento='".$TMP_rowA[idasiento]."'", $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { unset($A_apunte[$TMP_row[idapunte]]); if ($TMP_row[idejercicio]!=$idejercicio) { $cmdUpd="UPDATE GIE_apuntes SET idejercicio='$idejercicio' WHERE idapunte='".$TMP_row[idapunte]."'"; RAD_printLog($cmdUpd); sql_query($cmdUpd, $RAD_dbi); } $TMP_conttotal++; if ($CUENTAS[$TMP_row[cuenta]]!="") continue; $TMP2.=""; } } // Borra los Apuntes que parecian pertenecer al Ejercicio pero no. foreach($A_apunte as $key=>$idapunte) { $cmdDel="DELETE FROM GIE_apuntes WHERE idapunte='".$idapunte."'"; RAD_printLog($cmdDel); sql_query($cmdDel, $RAD_dbi); } if ($TMP_conttotal>0) { $TMP.="\n".$TMP2; } return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function recalculaCuentasPadre($idejercicio) { global $RAD_dbi; // Recalcula las cuentas padre if ($idejercicio>0) $TMP_cmd="SELECT * FROM GIE_cuentas WHERE idejercicio='".$idejercicio."'"; else $TMP_cmd="SELECT * FROM GIE_cuentas WHERE (idejercicio IS NULL OR idejercicio='' OR idejercicio='0')"; $TMP_result = sql_query($TMP_cmd, $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $CUENTAS[$TMP_row[cuenta]]="x"; } $TMP_cont=0; $TMP_conttotal=0; $TMP_result = sql_query($TMP_cmd, $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; $CUENTAS[$TMP_row[cuenta]]="x"; // Se comprueba de todas formas if (trim($TMP_row[cuentapadre])!="") continue; $cuentapadre=$TMP_row[cuenta]; if (strlen($cuentapadre)>1) { while(strlen($cuentapadre)>0) { $cuentapadre=substr($cuentapadre,0,strlen($cuentapadre)-1); if ($CUENTAS[$cuentapadre]!="") break; } if ($cuentapadre!="" && $cuentapadre!=$TMP_row[cuentapadre]) { $cmdSQL="UPDATE GIE_cuentas SET cuentapadre='$cuentapadre' WHERE idcuenta='".$TMP_row[idcuenta]."'"; $TMP_cont++; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } } return array($TMP_conttotal,$TMP_cont); } //////////////////////////////////////////////////////////////////////////////////////////////////////////// /* function regeneraUnPlanContable($idejercicio) { global $RAD_dbi; $TMP=""; if (!$idejercicio>0) $idejercicio=getSessionVar("SESSION_idejercicio"); if (!$idejercicio>0) error("Debes seleccionar un Ejercicio."); $TMP_result=sql_query("SELECT * FROM GIE_ejercicios WHERE idejercicio='$idejercicio' ORDER BY ejercicio DESC",$RAD_dbi); $TMP_row=sql_fetch_array($TMP_result, $RAD_dbi); $TMP_litejerc=$TMP_row[nombreempresa]."-".$TMP_row[ejercicio]; $TMP.=""; $TMP_result = sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='".$idejercicio."'", $RAD_dbi); $TMP_cont=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $A_asiento[$TMP_row[idasiento]]=$TMP_row[idasiento]; } $TMP_result = sql_query("SELECT * FROM GIE_apuntes WHERE idejercicio='".$idejercicio."'", $RAD_dbi); $TMP_cont=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $A_apunte[$TMP_row[idapunte]]=$TMP_row[idapunte]; } $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE idejercicio='$idejercicio'", $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { if ($CUENTAS[$TMP_row[cuenta]]!="") { // Si ya existe una cuenta se borran los duplicados $cmdSQL2="DELETE FROM GIE_cuentas WHERE idcuenta='".$TMP_row[idcuenta]."'"; RAD_printLog($cmdSQL2); sql_query($cmdSQL2,$RAD_dbi); } $CUENTAS[$TMP_row[cuenta]]=$TMP_row[cuenta]; } $TMP.=""; // $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE imputable='1' AND (idejercicio IS NULL OR idejercicio='' OR idejercicio='0')", $RAD_dbi); $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE (idejercicio IS NULL OR idejercicio='' OR idejercicio='0')", $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { if ($CUENTAS[$TMP_row[cuenta]]!="") continue; $CUENTAS[$TMP_row[cuenta]]=$TMP_row[cuenta]; $cmdSQL="INSERT INTO GIE_cuentas SET imputable='".$TMP_row[imputable]."',". "idejercicio='$idejercicio', cuenta='".$TMP_row[cuenta]."', tipocuenta='".$TMP_row[tipocuenta]."', ". "nombre='".$TMP_row[nombre]."', estado='".$TMP_row[estado]."', conceptobanco='".$TMP_row[conceptobanco]."', ". "cif='".$TMP_row[cif]."', idcliente='".$TMP_row[idcliente]."', idproveedor='".$TMP_row[idproveedor]."', ". "observaciones='".$TMP_row[observaciones]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); $TMP.=""; } $TMP_result = sql_query("SELECT * FROM GIE_cuentas WHERE (idejercicio IS NULL OR idejercicio='' OR idejercicio='0' OR idejercicio='".$idejercicio."')", $RAD_dbi); $TMP_cont=0; $TMP_conttotal=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; $CUENTAS[$TMP_row[cuenta]]="x"; if (trim($TMP_row[cuentapadre])!="") continue; $cuentapadre=$TMP_row[cuenta]; if (strlen($cuentapadre)>1) { while(strlen($cuentapadre)>0) { $cuentapadre=substr($cuentapadre,0,strlen($cuentapadre)-1); $TMP_result2 = sql_query("SELECT * FROM GIE_cuentas WHERE cuenta='$cuentapadre'", $RAD_dbi); $TMP_row2 = sql_fetch_array($TMP_result2, $RAD_dbi); if ($TMP_row2[cuenta]!="") break; } if ($cuentapadre!="") { $cmdSQL="UPDATE GIE_cuentas SET cuentapadre='$cuentapadre' WHERE idcuenta='".$TMP_row[idcuenta]."'"; $TMP_cont++; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } } $TMP.="\n"; $TMP.="\n"; $TMP_result=sql_query("SELECT * FROM GIE_clientes WHERE cuentacontable IS NOT NULL AND cuentacontable!=''", $RAD_dbi); $TMP_conttotal=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; if ($CUENTAS[$TMP_row[cuentacontable]]!="") continue; $TMP.=""; } $TMP.="\n"; $TMP_result=sql_query("SELECT * FROM GIE_proveedores WHERE cuentacontable IS NOT NULL AND cuentacontable!=''", $RAD_dbi); $TMP_conttotal=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; if ($CUENTAS[$idejercicio][$TMP_row[cuentacontable]]!="") continue; $TMP.=""; } $TMP.="\n"; $TMP_result = sql_query("SELECT * FROM GIE_apuntes WHERE idejercicio='".$idejercicio."'", $RAD_dbi); $TMP_conttotal=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_conttotal++; if ($CUENTAS[$idejercicio][$TMP_row[cuenta]]!="") continue; $TMP2=""; } if ($TMP_conttotal>0) { $TMP.="\n".$TMP2; } return $TMP; } */ //////////////////////////////////////////////////////////////////////////////////////////////////////////// function recalculaSaldosContables($idejercicio) { global $RAD_dbi; $TMP=""; if ($idejercicio>0) $TMP.=recalculaSaldosEjercicio($idejercicio); else { $TMP_result=sql_query("SELECT * FROM GIE_ejercicios WHERE activo='1' ORDER BY ejercicio DESC",$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP.=recalculaSaldosEjercicio($TMP_row[idejercicio]); } } return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function recalculaSaldosEjercicio($idejercicio) { global $RAD_dbi; $TMP=""; if (!$idejercicio>0) return ""; $TMP_result=sql_query("SELECT * FROM GIE_apuntes WHERE idejercicio='$idejercicio' ORDER BY fecha DESC",$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $A_ASIENTO[$TMP[idasiento]]=$TMP[idasiento]; } // $TMP_result=sql_query("SELECT * FROM GIE_apuntes ORDER BY fecha DESC",$RAD_dbi); $TMP_result=sql_query("SELECT * FROM GIE_apuntes WHERE idejercicio='$idejercicio' ORDER BY fecha DESC",$RAD_dbi); $TMP_contapuntes=0; while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { if ($A_ASIENTO[$TMP[idasiento]]=="") continue; $TMP_mes=substr($TMP_row[fecha],5,2); $TMP_mes=floor($TMP_mes*1); if ($TMP_mes>0 && $TMP_mes<13) { $A_CUENTAS[$TMP_row[cuenta]]=$TMP_row[cuenta]; $A_DEBE[$TMP_row[cuenta]][$TMP_mes]+=$TMP_row[valordebe]; $A_HABER[$TMP_row[cuenta]][$TMP_mes]+=$TMP_row[valorhaber]; $A_SALDODEBE[$TMP_row[cuenta]][$TMP_mes]+=$TMP_row[valordebe]; $A_SALDOHABER[$TMP_row[cuenta]][$TMP_mes]+=$TMP_row[valorhaber]; } $TMP_contapuntes++; } $cmdSQL="SELECT DISTINCT(cuenta) FROM GIE_cuentassaldos WHERE idejercicio='$idejercicio'"; $TMP_result=sql_query($cmdSQL,$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_cuenta=$TMP_row[0]; if ($TMP_cuenta=="") continue; if ($A_CUENTAS[$TMP_cuenta]=="") { // Se borran los saldos de las cuentas que no tienen apuntes $cmdSQL2="DELETE FROM GIE_cuentassaldos WHERE idejercicio='$idejercicio' AND cuenta='$TMP_cuenta'"; RAD_printLog($cmdSQL2); sql_query($cmdSQL2,$RAD_dbi); } } if (count($A_CUENTAS)==0) return ""; $cmdSQL="SELECT * FROM GIE_cuentassaldos WHERE idejercicio='$idejercicio'"; $TMP_result=sql_query($cmdSQL,$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $A_CUENTAANT[$TMP_row[cuenta]][$TMP_row[mes]]=$TMP_row[cuenta]; $A_DEBEANT[$TMP_row[cuenta]][$TMP_row[mes]]=$TMP_row[debe]; $A_HABERANT[$TMP_row[cuenta]][$TMP_row[mes]]=$TMP_row[haber]; $A_SALDODEBEANT[$TMP_row[cuenta]][$TMP_row[mes]]=$TMP_row[saldodebe]; $A_SALDOHABERANT[$TMP_row[cuenta]][$TMP_row[mes]]=$TMP_row[saldohaber]; } $TMP_contsaldos=0; foreach ($A_CUENTAS as $TMP_cuenta=>$TMP_val) { $cmdSQL="SELECT * FROM GIE_cuentas WHERE idejercicio='$idejercicio' AND cuenta='$TMP_cuenta'"; $TMP_result=sql_query($cmdSQL,$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $A_SALDODEBE[$TMP_row[cuenta]][1]+=$TMP_row[saldodebeinicial]; $A_SALDOHABER[$TMP_row[cuenta]][1]+=$TMP_row[saldohaberinicial]; for($ki=2; $ki<13; $ki++) { // Recalcula todos los saldos mensuales $A_SALDODEBE[$TMP_row[cuenta]][$ki]+=$A_SALDODEBE[$TMP_row[cuenta]][$ki-1]; $A_SALDOHABER[$TMP_row[cuenta]][$ki]+=$A_SALDOHABE[$TMP_row[cuenta]][$ki-1]; } for($ki=1; $ki<13; $ki++) { // Graba los registros $cmdSQL2=""; $TMP_fields="debe='".$A_DEBE[$TMP_row[cuenta]][$ki]."', haber='".$A_HABER[$TMP_row[cuenta]][$ki]."', mes='$ki', saldodebe='".$A_SALDODEBE[$TMP_row[cuenta]][$ki]."', saldohaber='".$A_SALDOHABER[$TMP_row[cuenta]][$ki]."'"; if ($A_CUENTAANT[$TMP_row[cuenta]][$ki]=="") { $cmdSQL2="INSERT INTO GIE_cuentassaldos SET idejercicio='$idejercicio', cuenta='".$TMP_row[cuenta]."', ".$TMP_fields; } else if ($A_SALDOHABER[$TMP_row[cuenta]][$ki]!=$A_SALDOHABERANT[$TMP_row[cuenta]][$ki] || $A_SALDODEBE[$TMP_row[cuenta]][$ki]!=$A_SALDODEBE[$TMP_row[cuenta]][$ki] || $A_HABER[$TMP_row[cuenta]][$ki]!=$A_HABERANT[$TMP_row[cuenta]][$ki] || $A_DEBE[$TMP_row[cuenta]][$ki]!=$A_DEBE[$TMP_row[cuenta]][$ki] ) { $cmdSQL2="UPDATE GIE_cuentassaldos SET ".$TMP_fields." WHERE id='".$TMP_row[id]."'"; } if ($cmdSQL2!="") { $TMP_contsaldos++; RAD_printLog($cmdSQL2); sql_query($cmdSQL2,$RAD_dbi); } } } } return ""; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function renumeraAsientos($idejercicio) { global $RAD_dbi; $TMP=""; if ($idejercicio>0) $TMP.=regeneraAsientosEjercicio($idejercicio); else { $TMP_result=sql_query("SELECT * FROM GIE_ejercicios WHERE activo='1' ORDER BY ejercicio DESC",$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP.=regeneraAsientosEjercicio($TMP_row[idejercicio]); } } return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function regeneraAsientosEjercicio($idejercicio) { global $RAD_dbi; $TMP=""; if (!$idejercicio>0) $idejercicio=getSessionVar("SESSION_idejercicio"); if (!$idejercicio>0) error("Debes seleccionar un Ejercicio."); $TMP_result=sql_query("SELECT * FROM GIE_ejercicios WHERE idejercicio='$idejercicio'",$RAD_dbi); $TMP_row=sql_fetch_array($TMP_result, $RAD_dbi); $TMP_fechainicio=RAD_gregorianDate($TMP_row[fechainicio]); $TMP_fechafin=RAD_gregorianDate($TMP_row[fechafin]); $TMP_litejerc=$TMP_row[nombreempresa]."-".$TMP_row[ejercicio]; $TMP.=""; $TMP_result=sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='$idejercicio' ORDER BY fecha ASC, idasiento ASC",$RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fecha=RAD_gregorianDate($TMP_row[fecha]); if ($TMP_fecha>0 && _DEF_PONE_ASIENTO_EJERCICIO_SEGUN_FECHA=="1") { if ($TMP_fecha<$TMP_fechainicio || $TMP_fecha>$TMP_fechafin) { $TMP_result2=sql_query("SELECT * FROM GIE_ejercicios WHERE fechainicio<='".$TMP_row[fecha]."' AND fechafin>='".$TMP_row[fecha]."'",$RAD_dbi); $TMP_numejercicios=0; while($TMP_row2=sql_fetch_array($TMP_result2, $RAD_dbi)) { $TMP_numejercicios++; $TMP_idejercicionuevo=$TMP_row2[idejercicio]; $TMP_ejercicio=$TMP_row2[nombreempresa]." ".$TMP_row2[ejercicio]; } if ($TMP_numejercicios==1) { $cmdUPD="UPDATE GIE_asientos SET idejercicio='$TMP_idejercicionuevo' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdUPD); sql_query($cmdUPD,$RAD_dbi); $cmdUPD2="UPDATE GIE_apuntes SET idejercicio='$TMP_idejercicionuevo' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdUPD2); sql_query($cmdUPD2,$RAD_dbi); $TMP.=""; } else { $TMP.=""; } } } } $TMP_result=sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='$idejercicio' AND tipoasiento='A' ORDER BY fecha ASC, idasiento ASC",$RAD_dbi); $TMP_cont=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_cont++; if ($TMP_cont*1!=$TMP_row[numasiento]*1) { $cmdSQL="UPDATE GIE_asientos SET numasiento='$TMP_cont' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } $TMP_result2=sql_query("SELECT * FROM GIE_apuntes WHERE idasiento='".$TMP_row[idasiento]."'",$RAD_dbi); $TMP_row2 = sql_fetch_array($TMP_result2, $RAD_dbi); if ($TMP_row2[idejercicio]!=$TMP_row[idejercicio]) { $cmdSQL="UPDATE GIE_apuntes SET idejercicio='".$TMP_row[idejercicio]."' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); } } $TMP_result=sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='$idejercicio' AND (tipoasiento='' OR tipoasiento IS NULL) ORDER BY fecha ASC, idasiento ASC",$RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_cont++; if ($TMP_cont*1!=$TMP_row[numasiento]*1) { $cmdSQL="UPDATE GIE_asientos SET numasiento='$TMP_cont' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } $TMP_result2=sql_query("SELECT * FROM GIE_apuntes WHERE idasiento='".$TMP_row[idasiento]."'",$RAD_dbi); $TMP_row2 = sql_fetch_array($TMP_result2, $RAD_dbi); if ($TMP_row2[idejercicio]!=$TMP_row[idejercicio]) { $cmdSQL="UPDATE GIE_apuntes SET idejercicio='".$TMP_row[idejercicio]."' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); } } $TMP_result=sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='$idejercicio' AND tipoasiento='R' ORDER BY fecha ASC, idasiento ASC",$RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_cont++; if ($TMP_cont*1!=$TMP_row[numasiento]*1) { $cmdSQL="UPDATE GIE_asientos SET numasiento='$TMP_cont' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } $TMP_result2=sql_query("SELECT * FROM GIE_apuntes WHERE idasiento='".$TMP_row[idasiento]."'",$RAD_dbi); $TMP_row2 = sql_fetch_array($TMP_result2, $RAD_dbi); if ($TMP_row2[idejercicio]!=$TMP_row[idejercicio]) { $cmdSQL="UPDATE GIE_apuntes SET idejercicio='".$TMP_row[idejercicio]."' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); } } $TMP_result=sql_query("SELECT * FROM GIE_asientos WHERE idejercicio='$idejercicio' AND tipoasiento='C' ORDER BY fecha ASC, idasiento ASC",$RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_cont++; if ($TMP_cont*1!=$TMP_row[numasiento]*1) { $cmdSQL="UPDATE GIE_asientos SET numasiento='$TMP_cont' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } $TMP_result2=sql_query("SELECT * FROM GIE_apuntes WHERE idasiento='".$TMP_row[idasiento]."'",$RAD_dbi); $TMP_row2 = sql_fetch_array($TMP_result2, $RAD_dbi); if ($TMP_row2[idejercicio]!=$TMP_row[idejercicio]) { $cmdSQL="UPDATE GIE_apuntes SET idejercicio='".$TMP_row[idejercicio]."' WHERE idasiento='".$TMP_row[idasiento]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); } } return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function desplazaFechasProyecto($idproyecto,$numdias) { global $RAD_dbi; if ($numdias=="" || $numdias==0) return; $TMP_result=sql_query("SELECT * FROM GIE_proyectos WHERE idproyecto='$idproyecto'",$RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fechaini=""; $TMP_fechafin=""; $TMP_fechaini=desplazaFecha($TMP_row[fechaini],$numdias); $TMP_fechafin=desplazaFecha($TMP_row[fechafin],$numdias); if ($TMP_fechaini!="" || $TMP_fechafin!="") { $cmdSQL="UPDATE GIE_proyectos SET "; if ($TMP_fechaini!="") $cmdSQL.=" fechaini='$TMP_fechaini',"; if ($TMP_fechafin!="") $cmdSQL.=" fechafin='$TMP_fechafin',"; $cmdSQL=substr($cmdSQL,0,strlen($cmdSQL)-1); $cmdSQL.=" WHERE idproyecto='".$TMP_row[idproyecto]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } $TMP_result=sql_query("SELECT * FROM GIE_ordenes WHERE idproyecto='$idproyecto'",$RAD_dbi); $TMP_contord=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fechaalarma=""; $TMP_fechaaviso=""; $TMP_fechalimite=""; $TMP_fechacancelacion=""; $TMP_fechainicioprevista=""; $TMP_fechafinprevista=""; $TMP_fechainicioreparacion=""; $TMP_fechafinreparacion=""; $TMP_fechaalarma=desplazaFecha($TMP_row[fechaalarma],$numdias); $TMP_fechaaviso=desplazaFecha($TMP_row[fechaaviso],$numdias); $TMP_fechalimite=desplazaFecha($TMP_row[fechalimite],$numdias); $TMP_fechacancelacion=desplazaFecha($TMP_row[fechacancelacion],$numdias); $TMP_fechainicioprevista=desplazaFecha($TMP_row[fechainicioprevista],$numdias); $TMP_fechafinprevista=desplazaFecha($TMP_row[fechafinprevista],$numdias); $TMP_fechainicioreparacion=desplazaFecha($TMP_row[fechainicioreparacion],$numdias); $TMP_fechafinreparacion=desplazaFecha($TMP_row[fechafinreparacion],$numdias); if ($TMP_fechaalarma!="" || $TMP_fechaaviso!="" || $TMP_fechalimite!="" || $TMP_fechacancelacion!="" || $TMP_fechainicioprevista!="" || $TMP_fechafinprevista!="" || $TMP_fechainicioreparacion!="" || $TMP_fechafinreparacion!="") { $TMP_contord++; $cmdSQL="UPDATE GIE_ordenes SET "; if ($TMP_fechaalarma!="") $cmdSQL.=" fechaalarma='$TMP_fechaalarma',"; if ($TMP_fechaaviso!="") $cmdSQL.=" fechaaviso='$TMP_fechaaviso',"; if ($TMP_fechalimite!="") $cmdSQL.=" fechalimite='$TMP_fechalimite',"; if ($TMP_fechacancelacion!="") $cmdSQL.=" fechacancelacion='$TMP_fechacancelacion',"; if ($TMP_fechainicioprevista!="") $cmdSQL.=" fechainicioprevista='$TMP_fechainicioprevista',"; if ($TMP_fechafinprevista!="") $cmdSQL.=" fechafinprevista='$TMP_fechafinprevista',"; if ($TMP_fechainicioreparacion!="") $cmdSQL.=" fechainicioreparacion='$TMP_fechainicioreparacion',"; if ($TMP_fechafinreparacion!="") $cmdSQL.=" fechafinreparacion='$TMP_fechafinreparacion',"; $cmdSQL=substr($cmdSQL,0,strlen($cmdSQL)-1); $cmdSQL.=" WHERE idorden='".$TMP_row[idorden]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } $TMP_result=sql_query("SELECT * FROM GIE_tareas WHERE idproyecto='$idproyecto'",$RAD_dbi); $TMP_conttar=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fechainicioprevista=""; $TMP_fechafinprevista=""; $TMP_fechalimite=""; $TMP_fecha_alta=""; $TMP_fecha_inicio=""; $TMP_fecha_fin=""; $TMP_fechainicioprevista=desplazaFecha($TMP_row[fechainicioprevista],$numdias); $TMP_fechafinprevista=desplazaFecha($TMP_row[fechafinprevista],$numdias); $TMP_fechalimite=desplazaFecha($TMP_row[fechalimite],$numdias); $TMP_fecha_alta=desplazaFecha($TMP_row[fecha_alta],$numdias); $TMP_fecha_inicio=desplazaFecha($TMP_row[fecha_inicio],$numdias); $TMP_fecha_fin=desplazaFecha($TMP_row[fecha_fin],$numdias); if ($TMP_fechainicioprevista!="" || $TMP_fechafinprevista!="" || $TMP_fechalimite!="" || $TMP_fecha_alta!="" || $TMP_fecha_inicio!="" || $TMP_fecha_fin!="") { $TMP_conttar++; $cmdSQL="UPDATE GIE_tareas SET "; if ($TMP_fechainicioprevista!="") $cmdSQL.=" fechainicioprevista='$TMP_fechainicioprevista',"; if ($TMP_fechafinprevista!="") $cmdSQL.=" fechafinprevista='$TMP_fechafinprevista',"; if ($TMP_fechalimite!="") $cmdSQL.=" fechalimite='$TMP_fechalimite',"; if ($TMP_fecha_alta!="") $cmdSQL.=" fecha_alta='$TMP_fecha_alta',"; if ($TMP_fecha_inicio!="") $cmdSQL.=" fecha_inicio='$TMP_fecha_inicio',"; if ($TMP_fecha_fin!="") $cmdSQL.=" fecha_fin='$TMP_fecha_fin',"; $cmdSQL=substr($cmdSQL,0,strlen($cmdSQL)-1); $cmdSQL.=" WHERE idtarea='".$TMP_row[idtarea]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } $TMP_result=sql_query("SELECT * FROM GIE_manuales WHERE idproyecto='$idproyecto'",$RAD_dbi); $TMP_contfich=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fechaalta=""; $TMP_fechaalta=desplazaFecha($TMP_row[fechaalta],$numdias); if ($TMP_fechaalta!="") { $TMP_contfich++; $cmdSQL="UPDATE GIE_manuales SET fechaalta='$TMP_fechaalta' WHERE idmanual='".$TMP_row[idmanual]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); } } $TMP.="Modificadas: $TMP_contord Fases, $TMP_conttar Tareas y $TMP_contfich Documentos.\n"; return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function desplazaFechasVenta($idventa,$numdias) { global $RAD_dbi; if ($numdias=="" || $numdias==0) return; $TMP_result=sql_query("SELECT * FROM GIE_ventas WHERE idventa='$idventa'",$RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fechaenvio=""; $TMP_fechaenvio=desplazaFecha($TMP_row[fechaenvio],$numdias); if ($TMP_fechaenvio!="") { $cmdSQL="UPDATE GIE_ventas SET "; if ($TMP_fechaenvio!="") $cmdSQL.=" fechaenvio='$TMP_fechaenvio',"; $cmdSQL=substr($cmdSQL,0,strlen($cmdSQL)-1); $cmdSQL.=" WHERE idventa='".$TMP_row[idventa]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } $TMP_result=sql_query("SELECT * FROM GIE_ventasdetalle WHERE idventa='$idventa'",$RAD_dbi); $TMP_cont=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_fechainicioprevista=""; $TMP_fechainicioreal=""; $TMP_fechafinprevista=""; $TMP_fechafinreal=""; $TMP_fechainicioprevista=desplazaFecha($TMP_row[fechainicioprevista],$numdias); $TMP_fechafinprevista=desplazaFecha($TMP_row[fechafinprevista],$numdias); $TMP_fechainicioreal=desplazaFecha($TMP_row[fechainicioreal],$numdias); $TMP_fechafinreal=desplazaFecha($TMP_row[fechafinreal],$numdias); if ($TMP_fechainicioprevista!="" || $TMP_fechafinprevista!="" || $TMP_fechainicioreal!="" || $TMP_fechafinreal!="") { $TMP_cont++; $cmdSQL="UPDATE GIE_ventasdetalle SET "; if ($TMP_fechainicioprevista!="") $cmdSQL.=" fechainicioprevista='$TMP_fechainicioprevista',"; if ($TMP_fechafinprevista!="") $cmdSQL.=" fechafinprevista='$TMP_fechafinprevista',"; if ($TMP_fechainicioreal!="") $cmdSQL.=" fechainicioreal='$TMP_fechainicioreal',"; if ($TMP_fechafinreal!="") $cmdSQL.=" fechafinreal='$TMP_fechafinreal',"; $cmdSQL=substr($cmdSQL,0,strlen($cmdSQL)-1); $cmdSQL.=" WHERE id='".$TMP_row[id]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); // $TMP.="\n"; } } $TMP.="Modificadas: $TMP_cont Lineas de Detalle.\n"; return $TMP; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function desplazaFecha($TMP_fecha,$numdias) { if ($TMP_fecha=="") return ""; $TMP_Afecha=explode(" ",$TMP_fecha); $TMP_hora=""; if (count($TMP_Afecha)>1) { $TMP_fecha=$TMP_Afecha[0]; $TMP_hora=$TMP_Afecha[1]; } $TMP_fecha=RAD_gregorianDate($TMP_fecha); if ($TMP_fecha>0) $TMP_fecha=RAD_julianDate($TMP_fecha+$numdias); if ($TMP_hora=="") return $TMP_fecha; return $TMP_fecha." ".$TMP_hora; } /////////////////////////////////////////////////////////////////////////////////////// function ValidaApuntes() { global $RAD_dbi, $V_dir; $TMP_cont=0; $result = sql_query("SELECT * FROM GIE_apuntes WHERE fecha IS NULL OR fecha='' OR fecha LIKE '0000%'", $RAD_dbi); while($row = sql_fetch_array($result,$RAD_dbi)) { $result2 = sql_query("SELECT * FROM GIE_asientos WHERE idasiento='".$row[idasiento]."'", $RAD_dbi); $row2 = sql_fetch_array($result2,$RAD_dbi); if ($row2[fecha]=="" || substr($row2[fecha],0,4)=="0000") continue; $cmdSQL="UPDATE GIE_apuntes SET fecha='".$row2[fecha]."' WHERE idapunte='".$row[idapunte]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); $TMP_cont++; } $result = sql_query("SELECT * FROM GIE_apuntes WHERE idejercicio IS NULL OR idejercicio='' OR idejercicio='0'", $RAD_dbi); while($row = sql_fetch_array($result,$RAD_dbi)) { $result2 = sql_query("SELECT * FROM GIE_asientos WHERE idasiento='".$row[idasiento]."'", $RAD_dbi); $row2 = sql_fetch_array($result2,$RAD_dbi); if ($row2[fecha]=="" || substr($row2[fecha],0,4)=="0000") continue; $cmdSQL="UPDATE GIE_apuntes SET idejercicio='".$row2[idejercicio]."' WHERE idapunte='".$row[idapunte]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); $TMP_cont++; } // if ($TMP_cont>0) echo "\n"; // Copia la descripcion y referencia del asiento a sus apuntes // $result = sql_query("SELECT * FROM GIE_asientos", $RAD_dbi); // $row = sql_fetch_array($result,$RAD_dbi); // while($row = sql_fetch_array($result,$RAD_dbi)) { // $cmdSQL="UPDATE GIE_apuntes SET descripcion='".$row[asiento]."', comprobante='".$row[referencia]."' WHERE idasiento='".$row[idasiento]."'"; // RAD_printLog($cmdSQL); // sql_query($cmdSQL, $RAD_dbi); // } } /////////////////////////////////////////////////////////////////////////////////////// function borraHuerfanos() { global $RAD_dbi, $V_dir, $conf; $result = sql_query("SELECT * FROM GIE_asientos", $RAD_dbi); while($row = sql_fetch_array($result,$RAD_dbi)) { $ASIENTOS[$row[idasiento]]="x"; if ($row[tipoasiento]!="P") $ASIENTONOPATRON[$row[idasiento]]="x"; } $TMP_cont=0; $cmdSQL=""; $result = sql_query("SELECT * FROM GIE_apuntes", $RAD_dbi); while($row = sql_fetch_array($result,$RAD_dbi)) { if ($ASIENTOS[$row[idasiento]]!="") continue; $cmdSQL="DELETE FROM GIE_apuntes WHERE idapunte='".$row[idapunte]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL, $RAD_dbi); $TMP_errores.="No existe Asiento ".$row[idasiento].". Se borra su antiguo apunte ".$row[idapunte]."
"; $TMP_cont++; } if ($TMP_cont>0) echo "\n"; // $TMP_cont=0; // if (count($ASIENTONOPATRON)>0) foreach($ASIENTONOPATRON as $idasiento=>$val) { // Cambio -comentado- // $result = sql_query("SELECT count(*) FROM GIE_apuntes WHERE idasiento='$idasiento' AND cuenta LIKE '57%'", $RAD_dbi); // $row = sql_fetch_array($result,$RAD_dbi); // if ($row[0]==2) { // $result = sql_query("SELECT * FROM GIE_apuntes WHERE idasiento='$idasiento' AND cuenta LIKE '57%'", $RAD_dbi); // while($row = sql_fetch_array($result,$RAD_dbi)) { // $TMP_debe=$row[valorhaber]; // $TMP_haber=$row[valordebe]; // $cmdSQL="UPDATE GIE_apuntes SET valordebe='$TMP_debe', valorhaber='$TMP_haber' WHERE idapunte='".$row[idapunte]."'"; // RAD_printLog($cmdSQL); // if ($conf!="") sql_query($cmdSQL, $RAD_dbi); // $TMP_upds.=$cmdSQL."
"; // $TMP_cont++; // } // } // } // if ($TMP_cont>0) echo "\n"; // Borra movimientos de Almacen con Linea de Detalle Borrada $TMP_result = sql_query("SELECT * FROM GIE_articulosalmacen", $RAD_dbi); $TMP_cont=0; while($TMP_row = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_cont++; if ($TMP_row[iddetalleventa]>0) { $TMP_idventa=RAD_lookup("GIE_ventasdetalle","idventa","id",$TMP_row[iddetalleventa]); if ($TMP_idventa>0) $TMP_idventa=RAD_lookup("GIE_ventas","idventa","idventa",$TMP_idventa); if ($TMP_idventa=="") { // linea de detalle de compra borrada, se borra movimiento de almacen $cmdSQL="DELETE FROM GIE_articulosalmacen WHERE id='".$TMP_row[id]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL,$RAD_dbi); continue; } } if ($TMP_row[iddetallecompra]>0) { $TMP_idcompra=RAD_lookup("GIE_comprasdetalle","idcompra","id",$TMP_row[iddetallecompra]); if ($TMP_idcompra>0) $TMP_idcompra=RAD_lookup("GIE_compras","idcompra","idcompra",$TMP_idcompra); if ($TMP_idcompra=="") { // linea de detalle de compra borrada, se borra movimiento de almacen $cmdSQL="DELETE FROM GIE_articulosalmacen WHERE id='".$TMP_row[id]."'"; RAD_printLog($cmdSQL); sql_query($cmdSQL,$RAD_dbi); continue; } } } } /////////////////////////////////////////////////////////////////////////////////////// function ValidaAsientos($idejercicio="") { global $RAD_dbi, $PHP_SELF, $V_dir, $SESSION_SID, $cont, $V_idmod, $V_mod, $headeroff, $footeroff, $blocksoff, $op, $dbname; if ($cont=="") $cont=0; $TMP_resultado=""; $TMP_URL=$PHP_SELF."?V_dir=$V_dir&V_mod=asientos&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&par0="; $TMP_URLcuenta=$PHP_SELF."?V_dir=$V_dir&V_mod=cuentas&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&par0="; $TMP_URLcompras=$PHP_SELF."?V_dir=$V_dir&V_mod=comprasfactura&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&V_lap=Contabilidad&par0="; $TMP_URLventas=$PHP_SELF."?V_dir=$V_dir&V_mod=ventasfactura&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&V_lap=Contabilidad&par0="; $TMP_URLfraccioncompras=$PHP_SELF."?V_dir=$V_dir&V_mod=compraspagos&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&par0="; $TMP_URLfraccionventas=$PHP_SELF."?V_dir=$V_dir&V_mod=ventascobros&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&par0="; $TMP_URLasientos=$PHP_SELF."?V_dir=$V_dir&V_mod=asientos&headeroff=x&footeroff=x&blocksoff=x".$SESSION_SID."&func=detail&dbname=$dbname&par0="; $TMP_cont=0; $TMP_q=sql_query("SELECT * FROM GIE_asientos",$RAD_dbi); while($TMP_asientos=sql_fetch_array($TMP_q,$RAD_dbi)) { if ($TMP_asientos['idfraccionventa']!="") { if (ereg(",",$TMP_asientos['idfraccionventa'])) { $TMP_idventa=explode(",",$TMP_asientos['idfraccionventa']); foreach($TMP_idventa as $k => $i){ if ($i>0) { $TMP_q2=sql_query("SELECT * FROM GIE_ventascobros WHERE id='".$i."'",$RAD_dbi); $TMP_venta=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_venta['fechacobro'],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_venta['fechacobro'],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_venta['fechacobro'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_venta['fechacobro'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } } else { $TMP_q2=sql_query("SELECT * FROM GIE_ventascobros WHERE id='".$TMP_asientos['idfraccionventa']."'",$RAD_dbi); $TMP_venta=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_venta['fechacobro'],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_venta['fechacobro'],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_venta['fechacobro'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_venta['fechacobro'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } elseif ($TMP_asientos['idventa']!="") { if (eregi("cobro",$TMP_asientos['asiento'])) { $litfecha="fechacobro"; }else{ $litfecha="fechaventa"; } if (ereg(",",$TMP_asientos['idventa'])) { $TMP_idventa=explode(",",$TMP_asientos['idventa']); foreach($TMP_idventa as $k => $i){ if ($i>0) { $TMP_q2=sql_query("SELECT * FROM GIE_ventas WHERE idventa='".$i."'",$RAD_dbi); $TMP_venta=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_venta[$litfecha],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_venta[$litfecha],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_venta[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_venta[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } } else { $TMP_q2=sql_query("SELECT * FROM GIE_ventas WHERE idventa='".$TMP_asientos['idventa']."'",$RAD_dbi); $TMP_venta=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_venta[$litfecha],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_venta[$litfecha],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_venta[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_venta[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } elseif ($TMP_asientos['idfraccioncompra']!="") { if (ereg(",",$TMP_asientos['idfraccioncompra'])) { $TMP_idcompra=explode(",",$TMP_asientos['idfraccioncompra']); foreach($TMP_idcompra as $k => $i){ if ($i>0) { $TMP_q2=sql_query("SELECT * FROM GIE_compraspagos WHERE id='".$i."'",$RAD_dbi); $TMP_compra=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_compra['fechapago'],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_compra['fechapago'],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_compra['fechapago'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_compra['fechapago'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } } else { $TMP_q2=sql_query("SELECT * FROM GIE_compraspagos WHERE id='".$TMP_asientos['idfraccioncompra']."'",$RAD_dbi); $TMP_compra=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_compra['fechapago'],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_compra['fechapago'],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_compra['fechapago'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_compra['fechapago'],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } elseif ($TMP_asientos['idcompra']!="") { if (eregi("pago",$TMP_asientos['asiento'])) { $litfecha="fechapago"; }else{ $litfecha="fechacompra"; } if (ereg(",",$TMP_asientos['idcompra'])) { $TMP_idcompra=explode(",",$TMP_asientos['idcompra']); foreach($TMP_idcompra as $k => $i){ if ($i>0) { $TMP_q2=sql_query("SELECT * FROM GIE_compras WHERE idcompra='".$i."'",$RAD_dbi); $TMP_compra=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_compra[$litfecha],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_compra[$litfecha],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_compra[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_compra[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } } else { $TMP_q2=sql_query("SELECT * FROM GIE_compras WHERE idcompra='".$TMP_asientos['idcompra']."'",$RAD_dbi); $TMP_compra=sql_fetch_array($TMP_q2,$RAD_dbi); if ($TMP_asientos['fecha']!=substr($TMP_compra[$litfecha],0,10)) { echo "Fecha asiento ".$TMP_asientos['fecha']." y fecha factura ".substr($TMP_compra[$litfecha],0,10)." ".$litfecha."
"; $TMP_cont++; if ($_GET['cambiar']=="x") { $TMP_query="UPDATE GIE_asientos SET fecha='".substr($TMP_compra[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); $TMP_query="UPDATE GIE_apuntes SET fecha='".substr($TMP_compra[$litfecha],0,10)."' WHERE idasiento='".$TMP_asientos['idasiento']."'"; RAD_printLog($TMP_query); sql_query($TMP_query,$RAD_dbi); } } } } } if ($_GET['cambiar']!="x") echo '
Realizar cambios
'; else "
Cambios Realizados
"; if ($TMP_cont>0) echo "


".$TMP_cont." registros a cambiar"; /* $result=sql_query("SELECT * FROM GIE_apuntes", $RAD_dbi); $TMP_cont=0; while($row = sql_fetch_array($result,$RAD_dbi)) { // if ($row[idasiento]==195) // { // RAD_debugClear(); // RAD_debug("Asiento con id=" . $row[idasiento] . " - cuenta=[" . $row[cuenta] . "]"); // } $A_DEBE[$row[idasiento]]+=$row[valordebe]; $A_HABER[$row[idasiento]]+=$row[valorhaber]; if (substr($row[cuenta],0,2)=="48"||substr($row[cuenta],0,2)=="47"||substr($row[cuenta],0,2)=="46"||substr($row[cuenta],0,1)=="6"||substr($row[cuenta],0,1)=="7") { // $TMP_resultado.="El asiento ".$row[idasiento]." tiene compraventa.
"; $A_APUNTECOMPRAVENTA[$row[idasiento]]=$row[idapunte]; } // las del grupo 40,41 y 43 se llevan a $A_APUNTECOMPRAVENTA2 en lugar de a $A_APUNTECOMPRAVENTA if (substr($row[cuenta],0,2)=="40"||substr($row[cuenta],0,2)=="41"||substr($row[cuenta],0,2)=="43") { // $TMP_resultado.="El asiento ".$row[idasiento]." tiene compraventa.
"; $A_APUNTECOMPRAVENTA2[$row[idasiento]]=$row[idapunte]; } if (substr($row[cuenta],0,1)=="5" || substr($row[cuenta],0,2)=="48") { // $TMP_resultado.="El asiento ".$row[idasiento]." tiene cobropago.
"; $A_APUNTECOBROPAGO[$row[idasiento]]=$row[idapunte]; } if (substr($row[cuenta],0,2)=="57") { $A_APUNTE57[$row[idasiento]]=$row[idapunte]; $A_CUENTACAJA[$row[idasiento]]=$row[cuenta]; } } $cmd="SELECT * FROM GIE_asientos"; if ($idejercicio>0) $cmd.=" WHERE idejercicio='$idejercicio'"; $result=sql_query($cmd, $RAD_dbi); $TMP_cont=0; while($row = sql_fetch_array($result,$RAD_dbi)) { if ($row[idventa]>0) $row[idfraccionventa]=0; // Si corresponde a venta no cuenta si corresponde a fraccion if ($row[idcompra]>0) $row[idfraccioncompra]=0; // Si corresponde a compra no cuenta si corresponde a fraccion if ($row[tipoasiento]=="P") continue; $A_A[$row[idasiento]]=$row[asiento]; $A_fecha[$row[idasiento]]=$row[fecha]; $A_Atotal[$row[idasiento]]=$row[valor]; if (trim(floor($row[valor]*1))!=trim(floor($A_DEBE[$row[idasiento]]*1)) || trim(floor($row[valor]*1))!=trim(floor($A_HABER[$row[idasiento]]*1))) { $TMP_resultado.= "E01. El asiento ".$row[numasiento]." tiene "; $TMP_resultado.= "un total ".$row[valor]." pero la suma de sus Apuntes es Debe=".$A_DEBE[$row[idasiento]].". Haber=".$A_HABER[$row[idasiento]]."
\n"; ///esto supongo q lo puso JA para probar algo ... lo quito -------> *".trim(floor($row[valor]*1))."*".trim(floor($A_DEBE[$row[idasiento]]*1))."*".trim(floor($A_HABER[$row[idasiento]]*1))."*
\n"; } if ($A_APUNTECOMPRAVENTA[$row[idasiento]]=="" && $A_APUNTECOMPRAVENTA2[$row[idasiento]]=="" && $A_APUNTECOBROPAGO[$row[idasiento]]=="") { $TMP_resultado.="E02. El asiento ".$row[numasiento]." (".$row[valor].") no es Compraventa ni Cobropago
"; } if ($A_APUNTECOMPRAVENTA[$row[idasiento]]>0) { if ($row[idventa]>0) { if ($A_Aventa[$row[idventa]]=="") $A_Aventa[$row[idventa]]=$row[idasiento]; else { $TMP_asiento1=$row[idasiento]; $TMP_asiento2=$A_Aventa[$row[idventa]]; if ($A_APUNTE57[$TMP_asiento1]=="" && $A_APUNTE57[$TMP_asiento2]=="") { $TMP_resultado.= "E03. El asiento ".$row[numasiento]." y "; $TMP_resultado.= "".$A_Aventa[$row[idventa]]." comparten la misma "; $TMP_resultado.= " Venta
"; } } } if ($row[idcompra]>0) { $row[idfraccioncompra]=0; // Si corresponde a compra no cuenta si corresponde a fraccion if ($A_Acompra[$row[idcompra]]=="") $A_Acompra[$row[idcompra]]=$row[idasiento]; else { $TMP_asiento1=$row[idasiento]; $TMP_asiento2=$A_Acompra[$row[idventa]]; if ($A_APUNTE57[$TMP_asiento1]=="" && $A_APUNTE57[$TMP_asiento2]=="") { $TMP_resultado.= "E04. El asiento ".$row[numasiento]." y "; $TMP_resultado.= "".$A_Acompra[$row[idcompra]]." comparten la misma "; $TMP_resultado.= " Compra
"; } } } } if ($A_APUNTECOMPRAVENTA2[$row[idasiento]]>0) { if ($row[idventa]>0) { if ($A_Aventa2[$row[idventa]]=="") $A_Aventa2[$row[idventa]]=$row[idasiento]; } if ($row[idcompra]>0) { if ($A_Acompra2[$row[idcompra]]=="") $A_Acompra2[$row[idcompra]]=$row[idasiento]; } } if ($A_APUNTE57[$row[idasiento]]>0) { // ----> Comprueba si una venta o compra tiene mas de un asiento con apuntes en la cuenta 57 if ($row[idventa]>0) { if ($A_Aventa57[$row[idventa]]=="") $A_Aventa57[$row[idventa]]=$row[idasiento]; else { $TMP_asiento1=$row[idasiento]; $TMP_asiento2=$A_Aventa[$row[idventa]]; if ($A_APUNTE57[$TMP_asiento1]=="" && $A_APUNTE57[$TMP_asiento2]=="") { $TMP_resultado.= "E05. El asiento de CobroPago ".$row[numasiento]." y "; $TMP_resultado.= "".$A_Aventa57[$row[idventa]]." comparten la misma "; $TMP_resultado.= " Venta
"; } } } if ($row[idcompra]>0) { if ($A_Acompra57[$row[idcompra]]=="") $A_Acompra57[$row[idcompra]]=$row[idasiento]; else { $TMP_asiento1=$row[idasiento]; $TMP_asiento2=$A_Aventa[$row[idcompra]]; if ($A_APUNTE57[$TMP_asiento1]=="" && $A_APUNTE57[$TMP_asiento2]=="") { $TMP_resultado.= "E06. El asiento de CobroPago ".$row[numasiento]." y "; $TMP_resultado.= "".$A_Acompra57[$row[idcompra]]." comparten la misma "; $TMP_resultado.= " Compra
"; } } } // <---- } if ($A_APUNTECOBROPAGO[$row[idasiento]]>0) { if ($row[idfraccionventa]>0) { if ($A_Afraccionventa[$row[idfraccionventa]]=="") $A_Afraccionventa[$row[idfraccionventa]]=$row[idasiento]; else { $TMP_resultado.= "E07. El asiento ".$row[numasiento]." y "; $TMP_resultado.= "".$A_Afraccionventa[$row[idfraccionventa]]." comparten la misma "; $TMP_resultado.= " Fraccion de Venta ".$A_Afraccionventa[$row[idfraccionventa]]."
"; } } if ($row[idfraccioncompra]>0) { if ($A_Afraccioncompra[$row[idfraccioncompra]]=="") $A_Afraccioncompra[$row[idfraccioncompra]]=$row[idasiento]; else { $TMP_resultado.= "E08. El asiento ".$row[numasiento]." y "; $TMP_resultado.= "".$A_Afraccioncompra[$row[idfraccioncompra]]." comparten la misma "; $TMP_resultado.= " Fraccion de Compra ".$A_Afraccioncompra[$row[idfraccioncompra]]."
"; } } } if ($row[idfraccioncompra]>0) { $TMP_sql2="SELECT * FROM GIE_compraspagos WHERE id='".$row[idfraccioncompra]."'"; $result2=sql_query($TMP_sql2, $RAD_dbi); $row2 = sql_fetch_array($result2,$RAD_dbi); // // Antes ponía: // if ($row2[idfraccioncompra]!=$row[idfraccioncompra]) // cuando GIE_compraspgos no tiene campo idfraccioncompra. Realmente debería ser // if ($row2[id]!=$row[idfraccioncompra]) // Es decir, parece que se quería hacer un count. Si hay registro, ok, si no , fracción de cobro borrada. if ($row2[id]!=$row[idfraccioncompra]) { $TMP_resultado.= " E09. Error Asiento ".$row[numasiento]." tiene fraccion de compra borrada ".$row[idfraccioncompra].".
"; } else { // Comprueba la fecha del asiento if (substr($row2[fechapago],0,10)!="0000-00-00" && substr($row2[fechapago],0,10)!=$row[fecha]) { $TMP_resultado.= " E30. Error Asiento ".$row[numasiento]." ".$row[fecha]." tiene fecha diferente a la fecha del pago ".substr($row2[fechapago],0,10).".
"; // $TMP_sqlUpd="UPDATE GIE_asientos Set fecha='".substr($row2[fechapago],0,10)."' WHERE idasiento='".$row[idasiento]."'"; // RAD_printLog($TMP_sqlUpd); // sql_query($TMP_sqlUpd, $RAD_dbi); // $TMP_resultado.= $TMP_sqlUpd."
"; // $TMP_sqlUpd="UPDATE GIE_apuntes Set fecha='".substr($row2[fechapago],0,10)."' WHERE idasiento='".$row[idasiento]."'"; // RAD_printLog($TMP_sqlUpd); // sql_query($TMP_sqlUpd, $RAD_dbi); // $TMP_resultado.= $TMP_sqlUpd."
"; } // Comprueba el total if ($row2[total]!=$row[valor]) { $TMP_sqlUpd="UPDATE GIE_asientos SET valor='".$row2[total]."' WHERE idasiento='".$row[idasiento]."'"; RAD_printLog($TMP_sqlUpd); sql_query($TMP_sqlUpd, $RAD_dbi); //$TMP_resultado.= $TMP_sqlUpd."
"; $result2=sql_query("SELECT count(*) FROM GIE_apuntes WHERE idasiento='".$row[idasiento]."'", $RAD_dbi); $row2 = sql_fetch_array($result2,$RAD_dbi); // if ($row2[0]==2) cuadraAsiento($row[idasiento]); // else $TMP_resultado.= " Error Asiento ".$row[numasiento]." no tiene bien el total y tiene mas de dos apuntes.
"; $TMP_resultado.= " E10. Error Asiento ".$row[numasiento]." no tiene bien el total. Editar y retocar los apuntes.
"; } // Comprueba la Cuenta de Caja $cuentaCaja=RAD_lookup("GIE_cuentasbanco","cuentacontable","idcuentabanco",$row2[idcuentabanco]); if ($cuentaCaja!=$A_CUENTACAJA[$row[idasiento]]) { $TMP_resultado.= " E11. Error Asiento ".$row[numasiento]." no tiene la misma cuenta de Caja que su Pago.
"; } } } if ($row[idfraccionventa]>0) { $TMP_sql2="SELECT * FROM GIE_ventascobros WHERE id='".$row[idfraccionventa]."'"; $result2=sql_query($TMP_sql2, $RAD_dbi); $row2 = sql_fetch_array($result2,$RAD_dbi); // // Antes ponía: // if ($row2[idfraccionventa]!=$row[idfraccionventa]) // cuando GIE_ventascobros no tiene campo idfraccionventa. Realmente debería ser // if ($row2[id]!=$row[idfraccionventa]) // Es decir, parece que se quería hacer un count. Si hay registro, ok, si no , fracción de cobro borrada. if ($row2[id]!=$row[idfraccionventa]) { $TMP_resultado.= " E12. Error Asiento ".$row[numasiento]." tiene fraccion de venta borrada ".$row[idfraccionventa].".
"; } else { // Comprueba la fecha del asiento if (substr($row2[fechacobro],0,10)!="0000-00-00" && substr($row2[fechacobro],0,10)!=$row[fecha]) { $TMP_resultado.= " E31. Error Asiento ".$row[numasiento]." ".$row[fecha]." tiene fecha diferente a la fecha del cobro ".substr($row2[fechacobro],0,10).".
"; // $TMP_sqlUpd="UPDATE GIE_asientos set fecha='".substr($row2[fechacobro],0,10)."' WHERE idasiento='".$row[idasiento]."'"; // RAD_printLog($TMP_sqlUpd); // sql_query($TMP_sqlUpd, $RAD_dbi); // $TMP_resultado.= $TMP_sqlUpd."
"; // $TMP_sqlUpd="UPDATE GIE_apuntes set fecha='".substr($row2[fechacobro],0,10)."' WHERE idasiento='".$row[idasiento]."'"; // RAD_printLog($TMP_sqlUpd); // sql_query($TMP_sqlUpd, $RAD_dbi); // $TMP_resultado.= $TMP_sqlUpd."
"; } // Comprueba el total if ($row2[total]!=$row[valor]) { $TMP_sqlUpd="UPDATE GIE_asientos SET valor='".$row2[total]."' WHERE idasiento='".$row[idasiento]."'"; RAD_printLog($TMP_sqlUpd); sql_query($TMP_sqlUpd, $RAD_dbi); $TMP_resultado.= $TMP_sqlUpd."
"; // if ($row2[0]==2) cuadraAsiento($row[idasiento]); // else $TMP_resultado.= " Error Asiento ".$row[numasiento]." no tiene bien el total y tiene mas de dos apuntes.
"; $TMP_resultado.= " E12. Error Asiento ".$row[numasiento]." no tiene bien el total. Editar y retocar los apuntes.
"; } // Comprueba la Cuenta de Caja $cuentaCaja=RAD_lookup("GIE_cuentasbanco","cuentacontable","idcuentabanco",$row2[idcuentabanco]); if ($cuentaCaja!=$A_CUENTACAJA[$row[idasiento]]) { $TMP_resultado.= " E13. Error Asiento ".$row[numasiento]." no tiene la misma cuenta de Caja que su Cobro.
"; } } } /////////////// Comprueba todas las Compras $result=sql_query("SELECT * FROM GIE_compras WHERE tipocompra='CFA' AND (anulado IS NULL OR anulado='' OR anulado='0')", $RAD_dbi); $TMP_cont=0; while($row = sql_fetch_array($result,$RAD_dbi)) { if (substr($row[fechacompra],0,4)=="2004") continue; // Ignora las operaciones del 2004 $A_C[$row[idcompra]]=$row[concepto]; $A_Ctotal[$row[idcompra]]=$row[total]; if ($row[procesado]=="1" && $A_Acompra[$row[idcompra]]=="" && $A_Acompra2[$row[idcompra]]=="") { $TMP_resultado.= "E14. La Compra ".$row[numalbaran]."-".$row[concepto]." indica que esta contabilizada pero no posee asiento
"; continue; } // if ($row[procesado]=="1" && $A_Acompra[$row[idcompra]]>0) { // $TMP_resultado.= "... ".$row[numalbaran]."-".$row[concepto]." indica que esta contabilizada y su asiento es ".$A_Acompra[$row[idcompra]]."*
"; // } if ($row[procesado]!="1" && $A_Acompra[$row[idcompra]]>0) { $TMP_resultado.= "E15. La Compra ".$row[numalbaran]."-".$row[concepto]." indica que esta no contabilizada pero posee el asiento "; $TMP_resultado.= "".$A_Acompra[$row[idcompra]]."*
"; } if ($row[procesado]!="1" && $A_Acompra[$row[idcompra]]=="") continue; $TMP_asiento=$A_Acompra[$row[idcompra]]; if ($TMP_asiento=="") $TMP_asiento=$A_Acompra2[$row[idcompra]]; $TMP_totalasiento=$A_Atotal[$TMP_asiento]; if (substr($row[fechacompra],0,10)!=$A_fecha[$TMP_asiento]) { $TMP_resultado.= " E32. Error Asiento ".$A_fecha[$TMP_asiento]." tiene fecha diferente a la fecha de la factura de compra ".substr($row[fechacompra],0,10).".
"; // $cmdSQL="UPDATE GIE_asientos SEt fecha='".substr($row[fechacompra],0,10)."' WHERE idasiento='".$TMP_asiento."'"; // RAD_printLog($cmdSQL); // sql_query($cmdSQL,$RAD_dbi); // $cmdSQL="UPDATE GIE_apuntes SEt fecha='".substr($row[fechacompra],0,10)."' WHERE idasiento='".$TMP_asiento."'"; // RAD_printLog($cmdSQL); // sql_query($cmdSQL,$RAD_dbi); // $TMP_resultado.= "E16. La Compra ".$row[numalbaran]."-".$row[concepto]." tiene Fecha ".substr($row[fechacompra],0,10); // $TMP_resultado.= " y su asiento ".$A_Acompra[$row[idcompra]]."* tiene fecha ".$A_fecha[$TMP_asiento]."
".$cmdSQL."
"; } // $row[total]=$row[total]-$row[retencion]; if ($row[total]*1!=$TMP_totalasiento*1) { $TMP_resultado.= "E17. La Compra ".$row[numalbaran]."-".$row[concepto]." tiene de total ".$row[total]; $TMP_resultado.= " y su asiento ".$A_Acompra[$row[idcompra]]." tiene total $TMP_totalasiento
"; } if ($row[idcuentabanco]>0 && $A_CUENTACAJA[$row[idasiento]]) { // Comprueba la Cuenta de Caja $cuentaCaja=RAD_lookup("GIE_cuentasbanco","cuentacontable","idcuentabanco",$row[idcuentabanco]); if ($cuentaCaja!=$A_CUENTACAJA[$row[idasiento]]) { $TMP_resultado.= " E18. Error Asiento ".$row[numasiento]." no tiene la misma cuenta de Caja que su Factura.
"; } } } /////////////// Comprueba todas las Ventas $result=sql_query("SELECT * FROM GIE_ventas WHERE tipoventa='VFA' AND (anulado IS NULL OR anulado='' OR anulado='0')", $RAD_dbi); $TMP_cont=0; while($row = sql_fetch_array($result,$RAD_dbi)) { if (substr($row[fechaventa],0,4)=="2004") continue; // Ignora las operaciones del 2004 $A_C[$row[idventa]]=$row[concepto]; $A_Ctotal[$row[idventa]]=$row[total]; if ($row[procesado]=="1" && $A_Aventa[$row[idventa]]=="" && $A_Aventa2[$row[idventa]]=="") { $TMP_resultado.= "E19. La Venta ".$row[numalbaran]."-".$row[concepto]." indica que esta contabilizada pero no posee asiento
"; continue; } // if ($row[procesado]=="1" && $A_Aventa[$row[idventa]]>0) { // $TMP_resultado.= "... ".$row[numalbaran]."-".$row[concepto]." indica que esta contabilizada y su asiento es ".$A_Aventa[$row[idventa]]."*
"; // } if ($row[procesado]!="1" && $A_Aventa[$row[idventa]]>0) { $TMP_resultado.= "E20. La Venta ".$row[numalbaran]."-".$row[concepto]." indica que esta no contabilizada pero posee el asiento "; $TMP_resultado.= "".$A_Aventa[$row[idventa]]."*
"; } if ($row[procesado]!="1" && $A_Aventa[$row[idventa]]=="") continue; $TMP_asiento=$A_Aventa[$row[idventa]]; if ($TMP_asiento=="") $TMP_asiento=$A_Aventa2[$row[idventa]]; $TMP_totalasiento=$A_Atotal[$TMP_asiento]; // $row[total]=$row[total]-$row[retencion]; if ($row[total]*1!=$TMP_totalasiento*1) { $TMP_resultado.= "E21. La Venta ".$row[numalbaran]."-".$row[concepto]." tiene de total ".$row[total]; $TMP_resultado.= " y su asiento ".$A_Aventa[$row[idventa]]."* tiene total $TMP_totalasiento
"; } if ($row[idcuentabanco]>0 && $A_CUENTACAJA[$row[idasiento]]) { // Comprueba la Cuenta de Caja $cuentaCaja=RAD_lookup("GIE_cuentasbanco","cuentacontable","idcuentabanco",$row[idcuentabanco]); if ($cuentaCaja!=$A_CUENTACAJA[$row[idasiento]]) { $TMP_resultado.= "E22. Error Asiento ".$row[numasiento]." no tiene la misma cuenta de Caja que su Factura.
"; } } } /////////////// Falta Comprobar todas las fraccion de Ventas y compras */ return $TMP_resultado; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// function checkMedidas($where) { global $RAD_dbi; $TMP_sql="SELECT * FROM GIE_recursosmedidas WHERE (idorden='' OR idorden IS NULL OR idorden='0')"; if ($where!="") $TMP_sql.=" AND ".$where; $TMP_sql.=" GROUP BY fechamedida"; $TMP_result=sql_query($TMP_sql, $RAD_dbi); while($TMP_row = sql_fetch_array($TMP_result,$RAD_dbi)) { $fechamed=$TMP_row[fechamedida]; $idcliente=$TMP_row[idcliente]; $idempleado=$TMP_row[idempleado]; $TMP_sql2="INSERT INTO GIE_ordenes SET descripcion='Diagnostico', idcliente='$idcliente', idempleado='$idempleado', fechainicioprevista='".date("Y-m-d H:i:s",$fechamed)."', fechainicioreparacion='".date("Y-m-d H:i:s",$fechamed)."'"; RAD_printLog($TMP_sql2); sql_query($TMP_sql2,$RAD_dbi); $idorden=sql_insert_id($RAD_dbi); $TMP_sql2="UPDATE GIE_recursosmedidas SET idorden='$idorden' WHERE (idorden='' OR idorden IS NULL OR idorden='0') AND fechamedida='$fechamed' AND idcliente='$idcliente'"; RAD_printLog($TMP_sql2); sql_query($TMP_sql2,$RAD_dbi); } } ?> PresentacionNoticias Noticias
EOD; if ($idejercicio>0) $TMP.=regeneraUnPlanContable($idejercicio); else { $TMP_result=sql_query("SELECT * FROM GIE_ejercicios WHERE activo='1' ORDER BY ejercicio DESC",$RAD_dbi); while ($TMP_row=sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP.=regeneraUnPlanContable($TMP_row[idejercicio]); } } if ($numCuentasARegenerar>0) $TMP .="

    Regenera el Plan Contable del ejercicio $TMP_litejerc


Copia Cuentas del Plan de Cuentas Patron y Recalcula Cuentas Padre
Cuenta Contable Imputable ".$TMP_row[cuenta]." no existe en Ejercicio, se copia.
Cuentas Comprobadas : $TMP_conttotal
Cuentas Cambiadas : $TMP_cont


CUENTAS DE CLIENTE
" ." " ." " ." " . $TMP_row[cliente] ."Cuenta Contable ".$TMP_row[cuentacontable]." de Cliente con longitud menor a 7 digitos (" . strlen($TMP_row[cuentacontable]) . ")" ."
" ." " ." " ." " ." " ." " ."Cuenta Contable ".$TMP_row[cuentacontable]." de Cliente ".$TMP_row[cliente]." no existe en Ejercicio." ."
" ."" ."" ."Cuentas de Clientes Comprobadas : $TMP_conttotal


CUENTAS DE PROVEEDOR
" ." " ." " ." " . $TMP_row[proveedor] ."Cuenta Contable ".$TMP_row[cuentacontable]." de Proveedor con longitud menor a 7 digitos (" . strlen($TMP_row[cuentacontable]) . ")" ."
" ." " ." " ." " ." " ." " ."Cuenta Contable ".$TMP_row[cuentacontable]." de Proveedor ".$TMP_row[proveedor]." no existe en Ejercicio." ."
" ."" ."" ."Cuentas de Proveedores Comprobadas : $TMP_conttotal


CUENTAS DE CAJAS Y BANCOS
" ." " ." " ." " . $TMP_row[nombre] ."Cuenta Contable ".$TMP_row[cuentacontable]." de Caja y Banco con longitud menor a 7 digitos (" . strlen($TMP_row[cuentacontable]) . ")" ."
" ." " ." " ." " ." " ." " ."Cuenta Contable ".$TMP_row[cuentacontable]." de Caja y Banco ".$TMP_row[nombre]." no existe en Ejercicio." ."
" ."" ."" ."Cuentas de Banco y Caja Comprobadas : $TMP_conttotal
Cuenta Contable ".$TMP_row[cuenta]." tiene Apuntes pero no existe en Ejercicio.
".$TMP_rowA[asiento]."
Cuentas de Apuntes Comprobadas : $TMP_conttotal
$cmdSQL

    Regenerado el Plan Contable del ejercicio $TMP_litejerc


Recálculo de Cuentas Padre
Cuenta Contable Imputable ".$TMP_row[cuenta]." no existe en Ejercicio, se copia.
$cmdSQL
Cuentas Comprobadas : $TMP_conttotal
Cuentas Cambiadas : $TMP_cont
Cuenta Contable ".$TMP_row[cuentacontable]." de Cliente ".$TMP_row[cliente]." no existe en Ejercicio.
Cuentas de Clientes Comprobadas : $TMP_conttotal
Cuenta Contable ".$TMP_row[cuentacontable]." de Proveedor ".$TMP_row[proveedor]." no existe en Ejercicio.
Cuentas de Proveedores Comprobadas : $TMP_conttotal
Cuenta Contable ".$TMP_row[cuenta]." tiene Apuntes pero no existe en Ejercicio.
Cuentas de Apuntes Comprobadas : $TMP_conttotal
No hay Registros de Saldo de Cuenta. No se calculan SALDOS
Registros de Saldos de Cuentas Calculados$TMP_contsaldos (de $TMP_contapuntes Apuntes)

    Renumerados los Asientos del ejercicio $TMP_litejerc


Asiento ".$TMP_row[idasiento]." con fecha ".$TMP_row[fecha]." fuera de ejercicio. Se cambia a Ejercicio $TMP_ejercicio
Asiento ".$TMP_row[idasiento]." con fecha ".$TMP_row[fecha]." fuera de ejercicio
$cmdSQL
$cmdSQL
$cmdSQL
$cmdSQL
$cmdSQL
$cmdSQL
$cmdSQL
$cmdSQL
$cmdSQL
Apuntes Corregidos :".$TMP_cont; // echo $TMP_errores."
Borrado de Apuntes Huerfanos:".$TMP_errores."
Cambios de Apuntes :".$TMP_upds."
Usuario 
Clave 

Titulares |  



EDISA Tecnologias de Software Libre S.L. Pto. Sta. Cruz. Oleiros A Coruña. Telf: 981 61 42 28.Plano Situación | Aviso Legal | Mapa Web
Esperamos sus comentarios en el correo electrónico webmaster@edisaopensource.es o rellenando nuestro formulario de contacto