\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); } } ?> InicioLa EmpresaInmobiliariaEmpresasParticularesParticulares
English 

Inmobiliaria LITOGAL
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."
 


Ofrezco/Demando ...
Ofrezco Demando



Contacten conmigo...

Particulares

Consultar Ficha de Inmueble
Si ha registrado una Ficha de Inmueble puede acceder al Panel de Control para gestionar su Ficha introduciendo el Número de la Ficha y su Clave

Num. Ficha:
Clave Ficha:



Registrar Ficha de Inmueble
Si desea introducir una nueva Ficha de Inmueble utilice el formulario siguiente. Al registrar una Ficha se le asignará un Número de Ficha y una Clave que debe recordar, para posteriormente acceder a su Panel de Control y poder gestionarla (modificar sus datos, ver las visitas que obtienen y los comentarios que hacen de ellos los visitantes). Las Fichas se publicarán en el Portal Inmobiliario de Inmuebles S.L..

Ofrezco :
Demando :
Inmueble :
      Imprimir Imprimir
© www.litogal.es 2006 Gran Vía 169 baixo. 15100 Carballo (A Coruña). Telf: 981 757 635. Movil: 661 363 435 .
Esperamos sus comentarios en el correo electrónico info@litogal.es o rellenando nuestro formulario de sugerencias
Plano Situación | Aviso Legal | Mapa Web | Desarrollado por EDISA