title="Periodicity"; $RAD_NLS["idtipotarea"]="Type2"; $fields[$findex['personacontacto']]->title="Contact Person"; // EDIT AFTER THIS LINE $RAD_NLS["Parametros/Indicadores"]="Parameters"; $RAD_NLS["Tipos de Elementos"]="Types"; $RAD_NLS["Tipo"]="Type"; $fields[$findex["title"]]->title="Titulo"; // showarticulo.marca define("_DEF_NLSFamilia","Familia"); define("_DEF_NLSMarca","Marca"); define("_DEF_NLSModelo","Modelo"); define("_DEF_NLSMotor","Motor"); define("_DEF_NLSCodMotor","Cod.Motor"); define("_DEF_NLSReferencia","Referencia"); define("_DEF_NLSTipoRef","Tipo Ref."); define("_DEF_NLSCriterioBusqueda", "Criterio de Búsqueda"); define("_DEF_NLSAnos","Años"); define("_DEF_NLSKIT","KIT"); define("_DEF_NLSRef","Ref."); define(_DEF_NLSCodCorrea,"Cod.Correa"); define(_DEF_NLSCodRodTras,"Cod.Rod. Tras."); define(_DEF_NLSCodRodDel,"Cod.Rod."); //define(_DEF_NLSCodRodDel,"Cod.Rod. Del."); define(_DEF_NLSCodKitTras,"Cod. KIT Tras."); define("_DEF_NLSComent","Comentarios"); define("_DEF_NLSTARIFA","TARIFA"); define("_DEF_NLSAmpliar","Ampliar"); define("_DEF_SWM_1","Esta busqueda ha encontrado mas de "); define("_DEF_SWM_2","articulos. Restrinja el Criterio de busqueda"); define("_DEF_SWM_3","No se han encontrado articulos con Cod.Referencia"); define("_DEF_SWM_4","Seleccione Cod.Referencia"); define("_DEF_SWM_5","No existen articulos con este Criterio"); define("_DEF_SWM_6","Plano No Disponible"); define("_DEF_SWM_7","Foto No Disponible"); define("_DEF_SWM_8","El KIT"); define("_DEF_SWM_9","se compone de los siguientes articulos"); define("_DEF_SWM_10","REFERENCIAS ORIGEN"); define("_DEF_SWM_11","Se aplica en los siguientes Modelos"); ?> 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 .="
\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.="
Copia Cuentas del Plan de Cuentas Patron y Recalcula Cuentas Padre
"; $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.="Cuenta Contable Imputable ".$TMP_row[cuenta]." no existe en Ejercicio, se copia."; } } list($TMP_conttotal,$TMP_cont)=recalculaCuentasPadre($idejercicio); $TMP.="Cuentas Comprobadas : $TMP_conttotal\n"; $TMP.="Cuentas Cambiadas : $TMP_cont\n"; // Cuentas contables de cliente $TMP.="

"; $TMP.="
CUENTAS DE CLIENTE
"; $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.="" ."" ." " ." " ." " . $TMP_row[cliente] ."" ."Cuenta Contable ".$TMP_row[cuentacontable]." de Cliente con longitud menor a 7 digitos (" . strlen($TMP_row[cuentacontable]) . ")" ."" .""; continue; } array_push($aCli,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ." " ." " ." " ." " ." " ."" ."Cuenta Contable ".$TMP_row[cuentacontable]." de Cliente ".$TMP_row[cliente]." no existe en Ejercicio." ."" .""; } $TMP.="" ."" ."" ."Cuentas de Clientes Comprobadas : $TMP_conttotal\n"; // Cuentas contables de proveedor $TMP.="

"; $TMP.="
CUENTAS DE PROVEEDOR
"; $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.="" ."" ." " ." " ." " . $TMP_row[proveedor] ."" ."Cuenta Contable ".$TMP_row[cuentacontable]." de Proveedor con longitud menor a 7 digitos (" . strlen($TMP_row[cuentacontable]) . ")" ."" .""; continue; } array_push($aProv,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ." " ." " ." " ." " ." " ."" ."Cuenta Contable ".$TMP_row[cuentacontable]." de Proveedor ".$TMP_row[proveedor]." no existe en Ejercicio." ."" .""; } $TMP.="" ."" ."" ."Cuentas de Proveedores Comprobadas : $TMP_conttotal\n"; // Cuentas contables de Caja y Banco $TMP.="

"; $TMP.="
CUENTAS DE CAJAS Y BANCOS
"; $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.="" ."" ." " ." " ." " . $TMP_row[nombre] ."" ."Cuenta Contable ".$TMP_row[cuentacontable]." de Caja y Banco con longitud menor a 7 digitos (" . strlen($TMP_row[cuentacontable]) . ")" ."" .""; continue; } array_push($aCaj,$TMP_conttotal); $numCuentasARegenerar++; $TMP.="" ."" ." " ." " ." " ." " ." " ."" ."Cuenta Contable ".$TMP_row[cuentacontable]." de Caja y Banco ".$TMP_row[nombre]." no existe en Ejercicio." ."" .""; } $TMP.="" ."" ."" ."Cuentas de Banco y Caja Comprobadas : $TMP_conttotal\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.="Cuenta Contable ".$TMP_row[cuenta]." tiene Apuntes pero no existe en Ejercicio.
".$TMP_rowA[asiento].""; } } // 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.="Cuentas de Apuntes Comprobadas : $TMP_conttotal\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.="$cmdSQL\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.="
Recálculo de Cuentas Padre
"; // $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.="Cuenta Contable Imputable ".$TMP_row[cuenta]." no existe en Ejercicio, se copia."; } $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.="$cmdSQL\n"; } } } $TMP.="Cuentas Comprobadas : $TMP_conttotal\n"; $TMP.="Cuentas Cambiadas : $TMP_cont\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.="Cuenta Contable ".$TMP_row[cuentacontable]." de Cliente ".$TMP_row[cliente]." no existe en Ejercicio."; } $TMP.="Cuentas de Clientes Comprobadas : $TMP_conttotal\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.="Cuenta Contable ".$TMP_row[cuentacontable]." de Proveedor ".$TMP_row[proveedor]." no existe en Ejercicio."; } $TMP.="Cuentas de Proveedores Comprobadas : $TMP_conttotal\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="Cuenta Contable ".$TMP_row[cuenta]." tiene Apuntes pero no existe en Ejercicio."; } if ($TMP_conttotal>0) { $TMP.="Cuentas de Apuntes Comprobadas : $TMP_conttotal\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 "No hay Registros de Saldo de Cuenta. No se calculan SALDOS"; $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 "Registros de Saldos de Cuentas Calculados$TMP_contsaldos (de $TMP_contapuntes Apuntes)"; } //////////////////////////////////////////////////////////////////////////////////////////////////////////// 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.="Asiento ".$TMP_row[idasiento]." con fecha ".$TMP_row[fecha]." fuera de ejercicio. Se cambia a Ejercicio $TMP_ejercicio "; } else { $TMP.="Asiento ".$TMP_row[idasiento]." con fecha ".$TMP_row[fecha]." fuera de ejercicio "; } } } } $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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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.="$cmdSQL\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 "Apuntes Corregidos :".$TMP_cont; // echo $TMP_errores."\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 "Borrado de Apuntes Huerfanos:".$TMP_errores."\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 "Cambios de Apuntes :".$TMP_upds."\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); } } ?> $val) if (!is_array($val) &&$key!="V_idmod" && $key!="V_mod") $TMP_URL.=$key."=".$val."&"; $TMP_URL.="V_mod=articulos.inmo"; echo "\n\n"; die(); } if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && $subbrowseSID!="") { // cambia el comportamiento del modulo en subbrowse $fields[$findex[codmunicipio]]->browsable=false; $fields[$findex[codpostal]]->browsable=false; $fields[$findex[particular]]->browsable=false; $fields[$findex[datoscliente]]->browsable=false; } if ($V_mod=="articulos.pisos" && ($subbrowseSID!=""||$func=="update")) { // cambia el comportamiento del modulo en subbrowse de los componentes de una Promocion $fields[$findex[compraventa]]->browsedit=false; $fields[$findex[compraventa]]->extra="O:Venta,2:Vendida,5:Venta Reservada"; // $fields[$findex[compraventa]]->dtype="checkboxm"; $fields[$findex[precioventa]]->browsedit=true; $fields[$findex[carac1]]->browsedit=true; $fields[$findex[carac1]]->ilength=6; $fields[$findex[carac11]]->ilength=20; $fields[$findex[carac11]]->browsable=true; $fields[$findex[carac11]]->browsedit=true; $fields[$findex[carac3]]->ilength=12; $fields[$findex[carac3]]->browsedit=true; $fields[$findex[carac5]]->ilength=5; $fields[$findex[carac5]]->browsedit=true; $fields[$findex[carac9]]->ilength=4; $fields[$findex[carac9]]->browsedit=true; $fields[$findex[articulo]]->browsable=false; global $rows_limit; $rows_limit=500; } if ($V_mod=="tareascalendario" && $func=="new" && $subfunc=="browse") { // cambia el modulo tareascalendario (eventos de la agenda) por mensaje.inmo (anotaciones) $TMP_URL=$PHP_SELF."?"; foreach($_REQUEST as $key=>$val) if (!is_array($val) && $key!="V_mod") $TMP_URL.=$key."=".$val."&"; $TMP_URL.="V_mod=mensajes.inmo"; echo "\n\n"; die; } //////////////////////////////////////////////////////////// // Cambios de Titulos de Modulos //////////////////////////////////////////////////////////// if ($V_mod=="direcciones") $title.=" (Propietarios/Clientes/Visitantes)"; if ($V_mod=="articulosfamilias") $title="Tipos de Inmuebles"; //////////////////////////////////////////////////////////// // Oculta campos de GIE que en INMO no se usan //////////////////////////////////////////////////////////// RAD_delField("idproyecto"); RAD_delField("recursosparametros"); RAD_delField("idproveedor"); RAD_delField("idcategoria"); RAD_delField("articulosanuncios"); // de momento no se permiten anuncios //////////////////////////////////////////////////////////// // Muestra campos en INMO que en GIE no se usan //////////////////////////////////////////////////////////// // muestra el articulo/ficha (que pudiera estar oculto en GIE) if (substr($tablename,strlen($tablename)-13)!="GIE_articulos" && $fields[$findex["idarticulo"]]>0) RAD_setFieldProperty("idarticulo", "searchable=true,nonew=false,nodetail=false,noedit=false,noinsert=false,noupdate=false,false"); if ($tablename=="GIE_personal") { RAD_delField("personalCostes"); RAD_delField("cotizacion"); RAD_setFieldProperty("escomercial", "searchable=true,nonew=false,nodetail=false,noedit=false,noinsert=false,noupdate=false,false"); RAD_setFieldProperty("porcentajecomision", "searchable=true,nonew=false,nodetail=false,noedit=false,noinsert=false,noupdate=false,false"); RAD_setFieldProperty("plusfijomes", "searchable=true,nonew=false,nodetail=false,noedit=false,noinsert=false,noupdate=false,false"); } if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && ereg("idarticulopadre",$V_roi)) { $fields[$findex[numinmuebles]]->nonew=false; } if (substr($tablename,strlen($tablename)-13)=="GIE_articulosprecios") { $title="Precios/Ofertas del Inmueble"; RAD_delField("idunidad"); $fields[$findex["fechainicio"]]->title="Fecha Inicio Oferta"; $fields[$findex["fechafin"]]->title="Fecha Fin Oferta"; $fields[$findex["idcliente"]]->help="
Especificar Cliente y Precio Total Compra si es una Oferta de un Cliente"; } // muestra el canal (oculto en GIE) if ($fields[$findex["canal"]]>0) RAD_setFieldProperty("canal", "nodetail=false,searchable=true,nonew=false,noedit=false,noinsert=false,noupdate=false,noprint=false"); //////////////////////////////////////////////////////////// // Cambia formatos de campos para todos los modulos //////////////////////////////////////////////////////////// if ($findex["idpersona"]>0) $fields[$findex["idpersona"]]->dtype="plistdb"; // Permite la captura de Coordenadas if ($findex[latitud]>0) $fields[$findex[longitud]]->help="Captura Coordenadas"; // Permite asociar al campo telefono la funcion de buscar en todos los telefonos if ($findex[telefono]>0) if ($fields[$findex[telefono]]->funclink=="") $fields[$findex[telefono]]->funclink="telefonos"; if ($findex["mensajes"]>0) { // muestra campo de anotaciones con cambios $findex["mensajes.inmo"]=$findex["mensajes"]; $fields[$findex["mensajes.inmo"]]->title="Anotaciones/Visitas"; $fields[$findex["mensajes.inmo"]]->name="mensajes.inmo"; RAD_setFieldProperty("mensajes.inmo","nodetail=false,noprint=false,browsedit=true"); } //////////////////////////////////////////////////////////// // Cambios en comportamiento de todos los modulos de las fichas //////////////////////////////////////////////////////////// // Ver tambien articulos.casas.common.php // Ver tambien articulos.pisos.common.php if (substr($tablename,strlen($tablename)-13)=="GIE_articulos") { global $RAD_tablename; if (trim($RAD_tablename)!="") $defaultfilter=str_replace("GIE_articulos",$RAD_tablename,$defaultfilter); // Los modulos de articulos tratan nombre de tabla GIE_articulos y otros nombres que acaben en GIE_articulos // al editar un precio de un articulo permite editar su regimen de compraventa tambien if (($func=="edit"||$func=="update") && $V_lap=="Precio") $fields[$findex["compraventa"]]->overlap="Precio"; if ($func==""||$func=="browse"||$func=="search") { $fields[$findex["idarticulo"]]->title="#"; $fields[$findex["articulo"]]->title="Desc.Breve"; $fields[$findex["carac1"]]->title="Superf."; $fields[$findex["carac3"]]->title="Hab."; $fields[$findex["carac5"]]->title="Baño"; $fields[$findex["carac9"]]->title="Garaje"; $fields[$findex["exclusiva"]]->title="Exc."; $fields[$findex["muestratienda"]]->title="Web"; $fields[$findex["codpostal"]]->title="C.Postal"; $fields[$findex["particular"]]->title="Part."; } $vartipo=$V_idmod."tipo"; if (${$vartipo}=="*") { setSessionVar("SESSION_".$V_idmod."_tipo","",0); ${$vartipo}=""; } else if (${$vartipo}=="") ${$vartipo}=getSessionVar("SESSION_".$V_idmod."_tipo"); else setSessionVar("SESSION_".$V_idmod."_tipo",${$vartipo},0); if ((${$vartipo}!="")&&($func==""||$func=="browse"||$func=="search")) { $TMP_defaultfilter="(idfamilia='".${$vartipo}."' OR idfamilia LIKE '%,".${$vartipo}.",%')"; $litfamilia=RAD_lookup("GIE_articulosfamilias","familia","idfamilia",${$vartipo}); $title.=" ".$litfamilia; if ($defaultfilter!="") $defaultfilter="(".$defaultfilter.") AND ".$TMP_defaultfilter; else $defaultfilter=$TMP_defaultfilter; } $varsubtipo=$V_idmod."subtipo"; if (${$varsubtipo}=="*") { setSessionVar("SESSION_".$V_idmod."_subtipo","",0); ${$varsubtipo}=""; } else if (${$varsubtipo}=="") ${$varsubtipo}=getSessionVar("SESSION_".$V_idmod."_subtipo"); else setSessionVar("SESSION_".$V_idmod."_subtipo",${$varsubtipo},0); if ((${$varsubtipo}!="")&&($func==""||$func=="browse"||$func=="search")) { $TMP_defaultfilter="(compraventa LIKE '%,".${$varsubtipo}.",%')"; if ($defaultfilter!="") $defaultfilter="(".$defaultfilter.") AND ".$TMP_defaultfilter; else $defaultfilter=$TMP_defaultfilter; } $varprov=$V_idmod."prov"; if (${$varprov}=="*") { setSessionVar("SESSION_".$V_idmod."_prov","",0); ${$varprov}=""; } else if (${$varprov}=="") ${$varprov}=getSessionVar("SESSION_".$V_idmod."_prov"); else setSessionVar("SESSION_".$V_idmod."_prov",${$varprov},0); if ((${$varprov}!="")&&($func==""||$func=="browse"||$func=="search")) { $TMP_defaultfilter="(codprovincia='".${$varprov}."')"; if ($defaultfilter!="") $defaultfilter="(".$defaultfilter.") AND ".$TMP_defaultfilter; else $defaultfilter=$TMP_defaultfilter; } if ($subbrowseSID=="" && ereg("O",$RAD_defaultfilter)) $title.=". Ventas"; // modulo de ventas if ($subbrowseSID=="" && ereg("Q",$RAD_defaultfilter)) { // modulo de alquileres $title.=". Alquileres"; RAD_setFieldProperty("garantiaventa","nonew=false,noedit=false,nodetail=false,noprint=false,noupdate=false,noinsert=false"); } if ($subbrowseSID=="" && ereg("D",$defaultsubmenu)) { // modulo de demandas $title.=". Demandas de Inmueble"; $fields[$findex["idcomercial"]]->browsable=true; $fields[$findex["precioventaud"]]->browsable=false; include("modules/".$V_dir."/articulos.inmo.demanda.php"); } if ($orderby=="") $orderby="idarticulo DESC"; if ($func=="detail" && $V_prevfunc=="insert") { // en el alta de una ficha se muestra la clave de acceso a un no usuario $idarticulo=$par0; $TMP_uniqidarticulo=RAD_lookup($tablename,"uniqidarticulo","idarticulo",$idarticulo); if (!is_user()) { echo "
Datos para acceder a la Ficha como Particular
"; echo "Num. Ficha: ".$idarticulo."
"; echo "Clave: ".substr(md5($TMP_uniqidarticulo),0,6)."
"; } } if ($subbrowseSID==""&&$par0>0&&($V_mod=="articulos"||$V_mod=="articulos.inmo") &&($func=="detail"||$func=="new"||$func=="edit")) { $TMP_idfamilia=RAD_lookup($tablename,"idfamilia","idarticulo",$par0); /* if ($TMP_idfamilia=='31' || $TMP_idfamilia=='32' || $TMP_idfamilia=='33' || $TMP_idfamilia=='34' || ereg(",31,",$TMP_idfamilia) || ereg(",32,",$TMP_idfamilia) || ereg(",33,",$TMP_idfamilia) || ereg(",34,",$TMP_idfamilia) ) $V_mod="articulos.casas"; if ($TMP_idfamilia=='35' || $TMP_idfamilia=='36' || $TMP_idfamilia=='37' || $TMP_idfamilia=='38' || $TMP_idfamilia=='39' || ereg(",35,",$TMP_idfamilia) || ereg(",36,",$TMP_idfamilia) || ereg(",37,",$TMP_idfamilia) || ereg(",38,",$TMP_idfamilia) || ereg(",39,",$TMP_idfamilia) ) $V_mod="articulos.pisos"; if ($TMP_idfamilia=='20' || $TMP_idfamilia=='21' || $TMP_idfamilia=='22' || $TMP_idfamilia=='23' || ereg(",20,",$TMP_idfamilia) || ereg(",21,",$TMP_idfamilia) || ereg(",22,",$TMP_idfamilia) || ereg(",23,",$TMP_idfamilia) ) $V_mod="articulos.suelo"; if ($TMP_idfamilia=='10' || $TMP_idfamilia=='11' || $TMP_idfamilia=='12' || $TMP_idfamilia=='40' || ereg(",10,",$TMP_idfamilia) || ereg(",11,",$TMP_idfamilia) || ereg(",12,",$TMP_idfamilia) || ereg(",40,",$TMP_idfamilia) ) $V_mod="articulos.locales"; if ($TMP_idfamilia=='49' || $TMP_idfamilia=='51' || $TMP_idfamilia=='52' || $TMP_idfamilia=='50' || ereg(",49,",$TMP_idfamilia) || ereg(",51,",$TMP_idfamilia) || ereg(",52,",$TMP_idfamilia) || ereg(",50,",$TMP_idfamilia) ) $V_mod="articulos.promocion"; if ($V_mod!="articulos" && $V_mod!="articulos.inmo") { $TMP_URL=$PHP_SELF."?V_mod=".$V_mod; foreach ($_REQUEST as $TMP_key=>$TMP_val) { if (!is_array($TMP_val)) { if ($TMP_key!="V_mod" && $TMP_key!="V_idmod") $TMP_URL.="&".$TMP_key."=".$TMP_val; } } echo "\n\n"; die(); } */ } if (($func=="detail"||$func=="edit")) { // al editar una ficha si es demanda se salta al modulo de demandas $TMP_compraventa=RAD_lookup($tablename,"compraventa","idarticulo",$par0); if ($TMP_compraventa=="") $TMP_compraventa="_"; if (ereg($TMP_compraventa,"DPU1")) { $title.=". Demanda"; include("modules/".$V_dir."/articulos.inmo.demanda.php"); } } } //////////////////////////////////////////////////////////// // Cambios de comportamiento de modulos de fichas para un Particular/Propietario ($owner!=""). // Oculta muchos campos y funciones. Y solo deja ver la ficha del propietario //////////////////////////////////////////////////////////// if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && is_admin()) { // $menudelete=true; // $RAD_menudelete=""; } if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && $owner!="" && !is_admin()) { // Fichas del Propietario $idcliente=0; $title="Mis ".$title; $RAD_menuprint="x"; $RAD_menureport="x"; $RAD_menudelete="x"; // $RAD_menusearch="x"; $TMP_user=base64_decode($HTTP_SESSION_VARS["SESSION_user"]); if ($TMP_user!="") $idcliente=RAD_lookup("usuarios","idcliente","usuario",$TMP_user); if ($subbrowseSID=="") { $TMP_userprofile=getSessionVar("SESSION_profiles"); if (!ereg(",con,",$TMP_userprofile)) $TMP_defaultfilter="idcliente='$idcliente'"; if ($par0>0) { $TMP_cmd="SELECT * FROM $tablename WHERE idarticulo='$par0'"; if ($TMP_defaultfilter!="") $TMP_cmd.=" AND ".$TMP_defaultfilter; $TMP_res=sql_query($TMP_cmd, $RAD_dbi); $TMP_row=sql_fetch_array($TMP_res, $RAD_dbi); $TMP_userprofile=getSessionVar("SESSION_profiles"); if (!ereg(",con,",$TMP_userprofile)) { // Consultor de Fichas if ($TMP_row[idarticulo]!=$par0) { error("Para acceder a esta Ficha debes ser el propietario"); die(); } } global $menucursor; $RAD_menuedit="x"; $RAD_menunew="x"; $menucursor=false; } if ($defaultfilter!="") $defaultfilter="(".$defaultfilter.") AND ".$TMP_defaultfilter; else $defaultfilter=$TMP_defaultfilter; } RAD_delField("articulosgasto.inmo"); RAD_delField("articulosprecios"); RAD_delField("articulosanuncios"); RAD_delField("comision"); RAD_delField("tareas"); RAD_delField("observacionesint"); RAD_delField("mensajes.inmo"); RAD_delField("mensajes"); RAD_delField("observacionesventa"); RAD_delField("articulos.inmo.anotaciones.php"); // RAD_delField("datosadicionales.articulos"); $fields[$findex["datosadicionales.articulos"]]->browsedit=false; $fields[$findex["idcliente"]]->readonly=false; $fields[$findex["idcliente"]]->vdefault=$idcliente; } //////////////////////////////////////////////////////////// // Cambios en el modulo de Promociones //////////////////////////////////////////////////////////// if ($V_mod=="articulos.promocion" && $subbrowseSID=="") { $title.=". Promociones"; if ($func==""||$func=="browse"||$func=="search") { $TMP_defaultfilter="compraventa LIKE '%X%'"; // promocion por defecto if ($defaultfilter!="") $defaultfilter="(".$defaultfilter.") AND ".$TMP_defaultfilter; else $defaultfilter=$TMP_defaultfilter; } if ($func=="detail"||$func=="edit") { // dependiendo del tipo de promocion muestra unos campos u otros $TMP_idfamilia=RAD_lookup($tablename,"idfamilia","idarticulo",$par0); $codreffamilia=RAD_lookup("GIE_articulosfamilias","codreferencia","idfamilia",$TMP_idfamilia); // OJO: se deja solo articulos.inmo por si no tuviesen bien el tipo los inmuebles de la promocion // if ($codreffamilia=="PU") { // RAD_setFieldProperty("articulos.casas","noedit=false,nodetail=false,noprint=false,browsedit=true"); // RAD_setFieldProperty("articulos.inmo","noedit=true,nodetail=true,noprint=true"); // } // if ($codreffamilia=="PP") { // RAD_setFieldProperty("articulos.pisos","noedit=false,nodetail=false,noprint=false,browsedit=true"); // RAD_setFieldProperty("articulos.inmo","noedit=true,nodetail=true,noprint=true"); // } // if ($codreffamilia=="PI") { // RAD_setFieldProperty("articulos.locales","noedit=false,nodetail=false,noprint=false,browsedit=true"); // RAD_setFieldProperty("articulos.inmo","noedit=true,nodetail=true,noprint=true"); // } } } // muestra fecha de fin de construccion en los subbrowse de promociones (solo hay subbrowse de articulos en promociones) if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && $subbrowseSID!="") RAD_setFieldProperty("carac13", "searchable=true,browsable=true,nonew=false,nodetail=false,noedit=false,noinsert=false,noupdate=false,noprint=false"); //////////////////////////////////////////////////////////// // Cambios en el modulo de Agenda //////////////////////////////////////////////////////////// if ($V_mod=="showcalendar") { // muestra en la agenda mas contenidos de los habituales global $RAD_taskscalendar, $RAD_taskscalendarmin, $noshowmensajes; $noshowmensajes="x"; if (is_modulepermitted("", $V_dir, "articulos.inmo")) { // agrega fichas de inmuebles a la agenda segun fecha de alta $TMP_result=sql_query("SELECT * FROM GIE_articulos",$RAD_dbi); while($TMP_row=sql_fetch_array($TMP_result,$RAD_dbi)) { $TMP_fecha=$TMP_row[fechaalta]; // Muestra las Altas en la agenda if (substr($TMP_fecha,0,1)=="2") { $xdia=substr($TMP_fecha,8,2); $xmes=substr($TMP_fecha,5,2); $xano=substr($TMP_fecha,0,4); if ($year!="" && $xano!=$year) continue; $TMP_url=$PHP_SELF."?".$SESSION_SID."&V_dir=".$V_dir."&V_mod=articulos.inmo&func=detail&headeroff=x&footeroff=x&blocksoff=x&subfunc=browse&par0=".$TMP_row[idarticulo]; $RAD_taskscalendar{$xdia.$xmes.$xano."24"}.="".$TMP_row[articulo]." Alta ".$TMP_row[idarticulo]."
"; } $TMP_fecha=$TMP_row[fechacaducidad]; // Muestra las Caducidades en la agenda if (substr($TMP_fecha,0,1)=="2") { $xdia=substr($TMP_fecha,8,2); $xmes=substr($TMP_fecha,5,2); $xano=substr($TMP_fecha,0,4); if ($year!="" && $xano!=$year) continue; $TMP_url=$PHP_SELF."?".$SESSION_SID."&V_dir=".$V_dir."&V_mod=articulos.inmo&func=detail&headeroff=x&footeroff=x&blocksoff=x&subfunc=browse&V_lap=Web&par0=".$TMP_row[idarticulo]; $RAD_taskscalendar{$xdia.$xmes.$xano."24"}.="".$TMP_row[articulo]." Caduca ".$TMP_row[idarticulo]."
"; } $TMP_fecha=$TMP_row[fechafinexclusiva]; // Muestra los Fin de Exclusiva en la agenda if (substr($TMP_fecha,0,1)=="2") { $xdia=substr($TMP_fecha,8,2); $xmes=substr($TMP_fecha,5,2); $xano=substr($TMP_fecha,0,4); if ($year!="" && $xano!=$year) continue; $TMP_url=$PHP_SELF."?".$SESSION_SID."&V_dir=".$V_dir."&V_mod=articulos.inmo&func=detail&headeroff=x&footeroff=x&blocksoff=x&subfunc=browse&V_lap=Web&par0=".$TMP_row[idarticulo]; $RAD_taskscalendar{$xdia.$xmes.$xano."24"}.="".$TMP_row[articulo]." Fin Exclusiva ".$TMP_row[idarticulo]."
"; } } } if (is_modulepermitted("", $V_dir, "mensajes.inmo")) { $TMP_result=sql_query("SELECT * FROM GIE_incidencias WHERE fecha_inicio_real LIKE '$year%'",$RAD_dbi); while($TMP_row=sql_fetch_array($TMP_result,$RAD_dbi)) { $TMP_descripcion=str_replace("'","",$TMP_row[descripcion]); $TMP_fecha=$TMP_row[fecha_inicio_real]; $xdia=substr($TMP_fecha,8,2); $xmes=substr($TMP_fecha,5,2); $xano=substr($TMP_fecha,0,4); if (substr($TMP_row[hora_inicio],3,2)>29) $TMP_hora=substr($TMP_row[hora_inicio],0,2)."30"; else $TMP_hora=substr($TMP_row[hora_inicio],0,2)."00"; if ($year!="" && $xano!=$year) continue; $TMP_url=$PHP_SELF."?".$SESSION_SID."&V_dir=".$V_dir."&V_mod=mensajes.inmo&func=detail&headeroff=x&footeroff=x&blocksoff=x&subfunc=browse&par0=".$TMP_row[idincidencia]; if ($day>0||$week>0) { if ($RAD_taskscalendarmin{$xdia.$xmes.$xano.$TMP_hora}!="") $RAD_taskscalendarmin{$xdia.$xmes.$xano.$TMP_hora}.="
\n"; $RAD_taskscalendarmin{$xdia.$xmes.$xano.$TMP_hora}.="".substr($TMP_row[descripcion],0,10)." "; } else { if ($RAD_taskscalendar{$xdia.$xmes.$xano.substr($TMP_row[hora_inicio],0,2)}!="") $RAD_taskscalendar{$xdia.$xmes.$xano.substr($TMP_row[hora_inicio],0,2)}.="
\n"; $RAD_taskscalendar{$xdia.$xmes.$xano.substr($TMP_row[hora_inicio],0,2)}.="".substr($TMP_row[descripcion],0,10)." "; } } } } //////////////////////////////////////////////////////////// // Cambios en el modulo mensaje.inmo //////////////////////////////////////////////////////////// if ($V_mod=="mensajes.inmo" && $func=="new" && $subfunc=="browse") { $fields[$findex[fecha_alta]]->vdefault=$year."-".$month."-".$day; $fields[$findex[hora_alta]]->vdefault=$V_horainicio.":".$V_mininicio.":00"; } //////////////////////////////////////////////////////////// // Cambios en Clientes y Comerciales //////////////////////////////////////////////////////////// if ($tablename=="GIE_clientes" || $tablename=="GIE_comerciales") { RAD_delField("cuentacontable"); RAD_delField("instalaciones"); RAD_delField("contratos"); RAD_delField("proyectos"); RAD_delField("ventaspresupuesto"); RAD_delField("ventaspedido"); RAD_delField("ventasalbaran"); RAD_delField("ordenes"); RAD_delField("tarifas"); RAD_delField("incidencias"); $fields[$findex["cif"]]->canbenull=true; $fields[$findex["cliente"]]->title="Nombre del Cliente"; $fields[$findex["articulos"]]->title="Inmuebles"; $TMP_props=""; foreach($fields[$findex["articulos"]] as $attr=>$val) { if ($attr=="name") $TMP_props.=$attr."=\"admin/usuarios\","; else if ($attr=="title") $TMP_props.=$attr."=\"Usuarios\","; else if ($attr=="nodetail") $TMP_props.=$attr."=false,"; else if ($attr=="browsedit") $TMP_props.=$attr."=true,"; else if (is_string($val)) $TMP_props.=$attr."=\"".$val."\","; else if ($val==1) $TMP_props.=$attr."=true,"; else $TMP_props.=$attr."=false,"; } $TMP_props=substr($TMP_props,0,strlen($TMP_props)-1); RAD_addField($numf-1, "usuarios", $TMP_props); RAD_delField("descripcion"); if ($owner!="" && !is_admin()) { $lapoff="x"; RAD_delField("ventasfactura"); RAD_delField("fechabaja"); RAD_delField("idcomercial"); RAD_delField("documentos"); RAD_delField("observaciones"); RAD_delField("pagaiva"); RAD_delField("formapago"); RAD_delField("descuento"); RAD_delField("IBAN"); RAD_delField("numero_cuenta"); RAD_delField("filtromesg"); RAD_delField("mensajes"); RAD_delField("direcciones"); $fields[$findex["fechaalta"]]->readonly=true; $RAD_menubrowse="x"; $RAD_menusearch="x"; $RAD_menuprint="x"; $RAD_menureport="x"; $RAD_menudelete="x"; global $menucursor; $menucursor=false; // $lapoff="x"; if ($func!="new") $RAD_menunew="x"; if ($func!="detail" && $func!="update" && $func!="new" && $func!="edit" && $func!="insert") $func="detail"; $par0=0; if ($func!="new" && $func!="insert") { $TMP_user=base64_decode($HTTP_SESSION_VARS["SESSION_user"]); if ($TMP_user!="") $par0=RAD_lookup("usuarios","idcliente","usuario",$TMP_user); } if ($par0==0 && $func=="detail") { alert("Acceso No Permitido"); die; } } $fields[$findex["idtipocliente"]]->dtype="plistdb"; RAD_setFieldProperty("idtipocliente", "browsable=true,searchable=true,nonew=false,nodetail=false,noedit=false,noinsert=false,noupdate=false,noprint=false"); $findex["articulos.inmo"]=$findex["articulos"]; // cambia articulos por articulos.inmo unset($findex["articulos"]); $fields[$findex["articulos.inmo"]]->nodetail=false; $fields[$findex["articulos.inmo"]]->name="articulos.inmo"; } //////////////////////////////////////////////////////////// // Tratamiento de los submenu de todos los modulos de Fichas //////////////////////////////////////////////////////////// if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && $subbrowseSID=="" && ($func==""||$func=="browse"||$func=="search") && $V_mod!="articulos.inmo.edit") { $TMP_defaultfilter=""; if ($submenu=="") $submenu=getSessionVar("SESSION_submenu".$V_idmod); if ($submenu=="" && $defaultsubmenu!="") { $submenu=$defaultsubmenu; setSessionVar("SESSION_submenu".$V_idmod,$submenu,0); } if ($submenu=="A") $TMP_defaultfilter="(fechabaja IS NULL OR fechabaja='' OR fechabaja LIKE '0000%')"; if ($submenu=="DT") $TMP_defaultfilter="(compraventa LIKE '%D%' OR compraventa LIKE '%P%' OR compraventa LIKE '%U%')"; if ($submenu=="B") $TMP_defaultfilter="(fechabaja IS NOT NULL AND fechabaja!='' AND fechabaja NOT LIKE '0000%')"; if ($submenu=="AO") { if (ereg("Q",$RAD_defaultfilter)) $TMP_defaultfilter="(fechabaja IS NULL OR fechabaja='' OR fechabaja LIKE '0000%')"; else $TMP_defaultfilter="(fechabaja IS NULL OR fechabaja='' OR fechabaja LIKE '0000%') AND (compraventa LIKE '%O%' OR compraventa LIKE '%X%')"; } if ($submenu=="AD") $TMP_defaultfilter="(fechabaja IS NULL OR fechabaja='' OR fechabaja LIKE '0000%') AND (compraventa LIKE '%D%' OR compraventa LIKE '%P%' OR compraventa LIKE '%U%')"; if ($submenu=="DB") $TMP_defaultfilter="(fechabaja IS NOT NULL AND fechabaja!='' AND fechabaja NOT LIKE '0000%') AND (compraventa LIKE '%D%' OR compraventa LIKE '%P%' OR compraventa LIKE '%U%')"; if ($TMP_defaultfilter!="") { if ($defaultfilter=="") $defaultfilter=$TMP_defaultfilter; else $defaultfilter="(".$defaultfilter.") AND ".$TMP_defaultfilter; } } //////////////////////////////////////////////////////////// // Cambios en el modulo de Tipos Datos Adicionales //////////////////////////////////////////////////////////// if ($tablename=="GIE_tiposdatosadicionales") { // Muestra el campo registro $fields[$findex["registro"]]->browsable=true; $fields[$findex["registro"]]->searchable=true; $fields[$findex["registro"]]->nonew=false; $fields[$findex["registro"]]->nodetail=false; $fields[$findex["registro"]]->noedit=false; $fields[$findex["registro"]]->noinsert=false; $fields[$findex["registro"]]->noupdate=false; $fields[$findex["registro"]]->noprint=false; $fields[$findex["registro"]]->dtype="plistdbmtree"; $fields[$findex["registro"]]->extra="GIE_articulosfamilias:idfamilia:familia::idfamiliapadre"; } //////////////////////////////////////////////////////////// // Calcula el Codigo de Referencia de una Ficha automaticamente //////////////////////////////////////////////////////////// if (substr($tablename,strlen($tablename)-13)=="GIE_articulos" && ($func=="insert"||($func=="update"&&$V0_codreferencia==""))) { $TMP_codfamilia=RAD_lookup("GIE_articulosfamilias","codreferencia","idfamilia",$V0_idfamilia); $TMP_fechaalta_year=substr(date("Y"),2); if (is_array($V0_compraventa)) $TMP_V0_compraventa=$V0_compraventa[0]; else $TMP_V0_compraventa=$V0_compraventa; if (strlen($V0_fechaalta_year)==4) $TMP_fechaalta_year=substr($V0_fechaalta_year,2); if (strlen($V0_fechaalta_year)==2) $TMP_fechaalta_year=$V0_fechaalta_year; $TMP_cmd="SELECT MAX(codreferencia) FROM $tablename WHERE compraventa LIKE '%$TMP_V0_compraventa%' AND (idfamilia='$V0_idfamilia' OR idfamilia LIKE ',%$V0_idfamilia%,') AND fechaalta LIKE '$V0_fechaalta_year%'"; $TMP_res=sql_query($TMP_cmd, $RAD_dbi); $TMP_row=sql_fetch_array($TMP_res, $RAD_dbi); $fields[$findex["codreferencia"]]->vdefault=$TMP_V0_compraventa.$TMP_codfamilia."/".$TMP_fechaalta_year."/"; $TMP_num=substr($TMP_row[0],strlen($fields[$findex["codreferencia"]]->vdefault)); if ($TMP_num=="") $TMP_num="1"; else $TMP_num++; $fields[$findex["codreferencia"]]->vdefault.=str_repeat("0",(3-strlen($TMP_num))).$TMP_num; // 3 cifras de inmuebles por año } if ($V_send!="" && $V_typeSend!="" && $V_mod=="showarticulo" && $id>0) { $descripcion="Enviado mensaje de correo de esta ficha a: $V_to de: $V_from "; if ($V_cc!="") $descripcion.=" con copia a: $V_cc"; if ($V_bcc!="") $descripcion.=" con copia oculta a: $V_bcc"; $descripcion.="\nAsunto: ".$V_asunto; $descripcion.="\nMensaje: ".$V_mensaje; $TMP_cmd="INSERT INTO GIE_incidencias SET idarticulo=".converttosql($id).", descripcion=".converttosql($descripcion); RAD_printLog($TMP_cmd); sql_query($TMP_cmd, $RAD_dbi); } return ""; ?> Inmobiliaria LITOGAL
English 

Inmobiliaria LITOGAL
InicioLa EmpresaInmobiliariaEmpresasParticulares
 


Ofrezco/Demando ...
Ofrezco Demando



Contacten conmigo...
Chalet Individual  
Chalet Individual en Laracha.
 177100 € + info  
Finca de 3362 m2 y casa de piedra para restaurar.
 36000 € [Alq.] + info  
Casa en el Campo en Coristanco.
 193000 € + info  
Chalet en construcción en Corme.
 215000 € + info  
Chalet en construcción en Corme.
 210000 € + info  
Chalet en Sanxenxo.
 1000000 € + info  
Chalet en Laxe.
 310000 € + info  
Finca de 3362 m2 y casa de piedra para restaurar.
36000 Euros. (5989896 Pts.)
Alquiler
Casa en el Campo en Coristanco.
193000 Euros. (32112498 Pts.)

Chalet en construcción en Corme.
215000 Euros. (35772990 Pts.)

Chalet en construcción en Corme.
210000 Euros. (34941060 Pts.)

Chalet en Sanxenxo.
1000000 Euros. (166386000 Pts.)

Chalet en Laxe.
310000 Euros. (51579660 Pts.)

Chalet Individual en Laracha.
177100 Euros. (29466960 Pts.)

1    1-7 [7]