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
 


Hipoteca
Ofrezco/Demando ...
Ofrezco Demando



Contacten conmigo...
Piso 
'".date("Y-m-d H:i:s")."') AND (fechapublicacion='' OR fechapublicacion IS NULL OR fechapublicacion LIKE '0000%' OR fechapublicacion<'".date("Y-m-d H:i:s")."') AND (compraventa IS NULL OR compraventa='' OR compraventa LIKE '%A%' OR compraventa LIKE '%O%' OR compraventa LIKE '%Q%' OR compraventa LIKE '%T%' OR compraventa LIKE '%X%')"; if (is_admin() || is_editor()) $defaultfilter=""; if ($defaultfilter!="") $tmpdefaultfilter.=" AND ".$defaultfilter; if ($V_typePrint=="PDF" || $V_typeSave=="PDF") { $TMP=""; $footeroff=""; } else $TMP="
"; if ($id=="") $id=miArticulo($pos); if (is_user()) $TMP_result = sql_query("SELECT * fROM GIE_articulos WHERE idarticulo='$id' AND (muestratienda!='0' OR muestratienda IS NULL)", $RAD_dbi); else $TMP_result = sql_query("SELECT * fROm GIE_articulos WHERE idarticulo='$id' AND (muestratienda!='0' OR muestratienda IS NULL) AND ".$tmpdefaultfilter, $RAD_dbi); $TMP_row = sql_fetch_array($TMP_result, $RAD_dbi); $TMP_A=explode(",",$TMP_row[idfamilia].","); // Si tiene varias familias coge una sola. for($ki=0; $ki0) { // toma datos de padre si lo tiene $TMP_resultpadre = sql_query("SELECT * fRoM GIE_articulos WHERE idarticulo='".$TMP_row[idarticulopadre]."'", $RAD_dbi); $TMP_rowpadre = sql_fetch_array($TMP_resultpadre, $RAD_dbi); foreach($TMP_rowpadre as $TMP_key=>$TMP_val) { if ($TMP_row[$key]=="") $TMP_row[$key]=$TMP_rowpadre[$key]; } } $TMP_idfam=$TMP_row[idfamilia]; $TMP_FAM=RAD_lookup("GIE_articulosfamilias", "familia", "idfamilia", $TMP_row[idfamilia]); $TMP_CODFAM=RAD_lookup("GIE_articulosfamilias", "codreferencia", "idfamilia", $TMP_row[idfamilia]); // $TMP.=""; $TMP_classH="bgcolor='#e0e0e0'"; $TMP_classD=""; $TMP_lit=""; $TMP_lit2=""; if ( ereg("P",$TMP_row[compraventa]) || ereg("D",$TMP_row[compraventa]) || ereg("U",$TMP_row[compraventa]) || ereg("1",$TMP_row[compraventa]) || ereg("6",$TMP_row[compraventa]) || ereg("7",$TMP_row[compraventa]) || ereg("8",$TMP_row[compraventa])) die("No existe Ficha "); if (ereg("O",$TMP_row[compraventa])) $TMP_lit="Oferta:"; else if (ereg("D",$TMP_row[compraventa])) $TMP_lit="Demanda:"; else if (ereg("X",$TMP_row[compraventa])) $TMP_lit="Promocion:"; else if (ereg("Q",$TMP_row[compraventa])) $TMP_lit="Alquiler:"; else if (ereg("P",$TMP_row[compraventa])) $TMP_lit="Demanda de Alquiler:"; else if (ereg("T",$TMP_row[compraventa])) $TMP_lit="Oferta Traspaso:"; else if (ereg("U",$TMP_row[compraventa])) $TMP_lit="Demanda Traspaso:"; else if (ereg("1",$TMP_row[compraventa])) { $TMP_lit="Demanda:"; $TMP_lit2=" Completada"; } else if (ereg("2",$TMP_row[compraventa])) { $TMP_lit="Oferta:"; $TMP_lit2=" Vendida"; } else if (ereg("3",$TMP_row[compraventa])) { $TMP_lit="Oferta de Alquiler:"; $TMP_lit2=" Alquilada"; } else if (ereg("4",$TMP_row[compraventa])) { $TMP_lit="Oferta de Traspaso"; $TMP_lit2=" Traspasada"; } else if (ereg("5",$TMP_row[compraventa])) { $TMP_lit="Oferta:"; $TMP_lit2=" Reservada"; } else if (ereg("6",$TMP_row[compraventa])) { $TMP_lit="Oferta de Alquiler:"; $TMP_lit2=" Reservada"; } else if (ereg("7",$TMP_row[compraventa])) { $TMP_lit="Demanda de Alquiler:"; $TMP_lit2=" Completada"; } else if (ereg("8",$TMP_row[compraventa])) { $TMP_lit="Demanda de Traspaso:"; $TMP_lit2=" Completada"; } $TMP.="\n"; $TMP.="\n"; if ($TMP_row[idarticulopadre]>0) { $TMP_PROMO=RAD_lookup("GIE_articulos", "articulo", "idarticulo", $TMP_row[idarticulopadre]); $TMP.="\n"; } if ($TMP_row[muestratienda]=="2") $TMP.=""; else { if ($TMP_row[totalventa]==""||$TMP_row[totalventa]=="0") $TMP_row[totalventa]=$TMP_row[precioventa]; $TMP_pesetas=floor($TMP_row[totalventa]*166.386); if ($TMP_row[totalventa]!=0) $TMP.=""; } if (substr($TMP_CODFAM,0,2)!="IS" && trim($TMP_row[carac13])!="") { $TMP.=""; } else if (substr($TMP_CODFAM,0,2)!="IS" && trim($TMP_row[carac4])!="") { $TMP.=""; } else if (trim($TMP_row[fechaalta])!="") $TMP.=""; else $TMP.=""; //if (trim($TMP_row[codreferencia])!="") $TMP.="\n"; $TMP_mapa=""; $TMP_URLmapa=""; $TMP_provincia=RAD_lookup("provincias","provincia","codprovincia",$TMP_row[codprovincia]); $TMP_result2=sql_query("SELECT * FROM municipios WHERE codprovincia='".$TMP_row[codprovincia]."' AND codmunicipio='".$TMP_row[codmunicipio]."'", $RAD_dbi); $TMP_row2=sql_fetch_array($TMP_result2, $RAD_dbi); $TMP_municipio=$TMP_row2[municipio]; $TMP_descripcionmunicipio=$TMP_row2[descripcion]; $TMP_municipioURL=urlencode($TMP_municipio.","); $TMP_provinciaURL=urlencode($TMP_provincia.","); if ($TMP_provincia!="") { $TMP_mapa=" Mapa de Provincia"; $TMP_URLmapa=""; } if ($TMP_municipio!="") { $TMP_mapa=" Mapa de Municipio"; $TMP_URLmapa=""; } $TMP.="\n"; if ((trim($TMP_row[latitud])!=""&&$TMP_row[latitud]!="0") || (trim($TMP_row[longitud])!=""&&$TMP_row[longitud]!="0")) { $TMP_latURL=$PHP_SELF."?V_dir=$V_dir&V_mod=$V_mod&id=$id&subop=map&op=search&blocksoff=x".$SESSION_SID; $TMP.=""; } else $TMP.=""; $TMP_numcol=0; $TMP.=""; if ($TMP_row[estado]>0) { $TMP_numcol++; if ($TMP_row[estado]==1) $TMP.=""; if ($TMP_row[estado]==2) $TMP.=""; if ($TMP_row[estado]==3) $TMP.=""; if ($TMP_row[estado]==4) $TMP.=""; if ($TMP_row[estado]==5) $TMP.=""; } if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if (trim($TMP_row[carac1])!="") { if (substr($TMP_CODFAM,0,2)=="IS") { // Suelo $TMP.=""; } else { $TMP.=""; } $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if (trim($TMP_row[carac6])!="") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if (substr($TMP_CODFAM,0,2)=="IS") { // Suelo if ($TMP_row[carac4]=="0") $TMP.=""; else if ($TMP_row[carac4]=="1") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if ($TMP_row[carac6]=="0") $TMP.=""; else if ($TMP_row[carac6]=="1") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if ($TMP_row[carac3]=="0") $TMP.=""; else if ($TMP_row[carac3]=="1") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if ($TMP_row[carac7]=="1") $TMP.=""; else if ($TMP_row[carac7]=="0") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if ($TMP_row[carac5]=="0") $TMP.=""; else if ($TMP_row[carac5]=="1") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if ($TMP_row[carac10]!="") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if (trim($TMP_row[carac9])!="") $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } if ($TMP_row[carac2]=="0") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } else if ($TMP_row[carac2]=="1") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if ($TMP_row[carac8]!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } } if (substr($TMP_CODFAM,0,3)=="IVC") { // Casa $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } else if (substr($TMP_CODFAM,0,2)=="IV") { // Otra Vivienda if ($TMP_row[carac7]=="0") $TMP.=""; else if ($TMP_row[carac7]=="1") $TMP.=""; else $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if (substr($TMP_CODFAM,0,2)=="IL") { // Local if (trim($TMP_row[carac3])!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } } if (trim($TMP_row[carac5])!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if (trim($TMP_row[carac12])!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if (substr($TMP_CODFAM,0,2)!="IS") { // Suelo if ($TMP_row[carac10]!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } } if (substr($TMP_CODFAM,0,3)=="IVC"||substr($TMP_CODFAM,0,2)=="IL") { // Casas y Locales if (trim($TMP_row[carac11])!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } } else { if (trim($TMP_row[carac11])!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } } if (substr($TMP_CODFAM,0,2)!="IS") { if (trim($TMP_row[carac9])!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if ($TMP_row[carac2]=="0") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } else if ($TMP_row[carac2]=="1") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } else if ($TMP_row[carac2]!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if ($TMP_row[carac8]=="0") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } else if ($TMP_row[carac8]=="1") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } else if ($TMP_row[carac8]!="") { $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } } $TMP_result2 = sql_query("SELECT * FROM GIE_datosadicionales WHERE idreg='$id'", $RAD_dbi); while($TMP_row2 = sql_fetch_array($TMP_result, $RAD_dbi)) { $TMP_literal=RAD_lookup("GIE_tiposdatosadicionales","titulo","idtipo",$TMP_row2[idtipo]); $TMP.=""; $TMP_numcol++; if ($TMP_numcol>1) { $TMP_numcol=0; $TMP.=""; } } if ($TMP_numcol>0) { $TMP_numcol=0; $TMP.=""; } $foto=galeriaFotos($TMP_row[foto],2); if ($foto!="") $TMP.="\n"; if (ereg("X",$TMP_row[compraventa])) { // si es un articulo con hijos, los muestra $TMP_URL=$PHP_SELF."?".$SESSION_SID."&V_dir=$V_dir&V_mod=$V_mod&headeroff=$headeroff&footeroff=$footeroff&blocksoff=$blocksoff&id="; $TMP_contcompo=0; $TMP_inmuebles=""; $TMP_inmuebles.=""; } } if (trim($TMP_row[observaciones])!="") { if (substr($TMP_CODFAM,0,2)=="IL") $TMP.=""; } else { $TMP_caraclin=0; $TMP_Alin=explode("\n",$TMP_row[observaciones]); if (count($TMP_Alin)>0) foreach($TMP_Alin as $idx=>$TMP_lin) if (strlen($TMP_lin)>$TMP_caraclin) $TMP_caraclin=strlen($TMP_lin); if ($TMP_caraclin>150) $TMP.=$TMP_row[observaciones]."\n\n"; else $TMP.="
".$TMP_row[observaciones]."
\n\n"; //$TMP.="
".$TMP_row[observaciones]."
\n\n"; } } if ($cmd=="print") $fotogaleria=galeriaFotos($TMP_row[fotogaleria],2); else $fotogaleria=galeriaFotos($TMP_row[fotogaleria],0); if ($fotogaleria!="") { if ($cmd=="print") $TMP.="
\n"; else $TMP.="\n"; } $fotoplano=galeriaFotos($TMP_row[fotoplano],2); if ($fotoplano!="") $TMP.="\n"; $fotoentorno=galeriaFotos($TMP_row[fotoentorno],2); if ($fotoentorno!="") $TMP.="\n"; $fotomapa=galeriaFotos($TMP_row[fotomapa],2); if ($fotomapa!="") $TMP.="\n"; $fotoaerea=galeriaFotos($TMP_row[fotoaerea],2); if ($fotoaerea!="") $TMP.="\n"; $TMP_row[descripcion].=$TMP_descripcionmunicipio; if (trim($TMP_row[descripcion])!="") { $TMP.=""; } else { $TMP_caraclin=0; $TMP_Alin=explode("\n",$TMP_row[descripcion]); if (count($TMP_Alin)>0) foreach($TMP_Alin as $idx=>$TMP_lin) if (strlen($TMP_lin)>$TMP_caraclin) $TMP_caraclin=strlen($TMP_lin); if ($TMP_caraclin>150) $TMP.=$TMP_row[descripcion]."\n\n"; else $TMP.="
".$TMP_row[descripcion]."
\n\n"; //$TMP.="
".$TMP_row[descripcion]."
\n\n"; } } if ($cmd=="print") { if ($HTTPS_SERVER[HTTPS]!="" || $_SERVER[HTTPS]!="") $TMP_URL="https://".$GLOBALS["HTTP_HOST"]; else $TMP_URL="http://".$GLOBALS["HTTP_HOST"]; $TMP_URL.=$PHP_SELF."?V_dir=$V_dir&V_mod=$V_mod&id=$id"; $TMP.="
".$TMP_lit."".$TMP_row[articulo].$TMP_lit2."Num. Ficha:".$TMP_row[idarticulo]."
Promocion".$TMP_PROMO."
Precio:A Consultar
Precio:".RAD_numero($TMP_row[totalventa],"0")." Euros. (".RAD_numero($TMP_pesetas,"0")." Pts.)Fecha Entrega:".$TMP_row[carac13]."
Año Construcción:".$TMP_row[carac4]."
Fecha:".$TMP_row[fechaalta]."
Cod.Referencia:".$TMP_row[codreferencia]."
Municipio:".$TMP_URLmapa.$TMP_municipio.". ".$TMP_provincia.". ".$TMP_row[codpostal]."".$TMP_mapa."Longitud / Latitud:".RAD_numero($TMP_row[latitud],3)." / ".RAD_numero($TMP_row[longitud],3)." Ver Mapa
Estado:En ProyectoEstado:En ConstrucciónEstado:Nueva ConstrucciónEstado:Segunda Mano Perfecto EstadoEstado:Segunda Mano
Superficie:Superficie Util:".$TMP_row[carac1]." m2
Superficie Construida:".$TMP_row[carac6]." m2
Servicios Saneamiento:NoServicios Saneamiento:SiServicios Saneamiento:".$TMP_row[carac4]."
Teléfono:NoTeléfono:SiTeléfono:".$TMP_row[carac6]."
Calle Acceso:NoCalle Acceso:SiCalle Acceso:".$TMP_row[carac3]."
Vigilancia:SiVigilancia:NoVigilancia:".$TMP_row[carac7]."
Electricidad:NoElectricidad:SiElectricidad:".$TMP_row[carac5]."
Altura de Edificación:".$TMP_row[carac10]."Altura de Edificación:".$TMP_row[carac10]."
Edificabilidad:".$TMP_row[carac9]." (en m2/m2)
Urbanizable:No
Urbanizable:Si
Parcela Mínima:".$TMP_row[carac8]." m2
Superficie Parcela:".$TMP_row[carac7]." m2
Num. Habitaciones:".$TMP_row[carac3]."
Trastero:NoTrastero:SiTrastero:".$TMP_row[carac7]."
Num. Habitaciones:".$TMP_row[carac3]."
Num. Despachos:".$TMP_row[carac3]."
Num. Baños:".$TMP_row[carac5]."
Num. Aseos:".$TMP_row[carac12]."
Num. Terrazas:".$TMP_row[carac10]."
Num. Plantas:".$TMP_row[carac11]."
Num. Planta:".$TMP_row[carac11]."
Num. Plazas Garaje:".$TMP_row[carac9]."
Ascensor:No
Ascensor:Si
Ascensor:".$TMP_row[carac2]."
Amueblado:No
Amueblado:Si
Amueblado:".$TMP_row[carac8]."
$TMP_literal".$TMP_row2[valor]."
Foto:
".$foto."
INMUEBLES DISPONIBLES EN LA PROMOCION
"; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_result2 = sql_query("SELECT * frOM GIE_articulos WHERE idarticulopadre='$id' ORDER BY carac11", $RAD_dbi); while($TMP_row2 = sql_fetch_array($TMP_result2, $RAD_dbi)) { //if (!ereg("O",$TMP_row2[compraventa]) && !ereg("Q",$TMP_row2[compraventa]) && !ereg("5",$TMP_row2[compraventa])) continue; if (ereg("O",$TMP_row2[compraventa])) $regimen="En Venta"; if (ereg("5",$TMP_row2[compraventa])) $regimen="Reservado"; if (ereg("Q",$TMP_row2[compraventa])) $regimen="En Alquiler"; if ($TMP_row2[muestratienda]=="0") continue; if ($TMP_class!="class=row1") $TMP_class="class=row1"; else $TMP_class="class=row2"; $TMP_contcompo++; $TMP_inmuebles.=""; if ($TMP_row2[muestratienda]=="2") $TMP_inmuebles.=""; else $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; $TMP_inmuebles.=""; } $TMP_inmuebles.="
RégimenPrecioNum.PlantaSuperf.Hab.BañoGaraje
$regimen A Consultar".RAD_numero($TMP_row2[precioventa],"")."".$TMP_row2[carac11]."".$TMP_row2[carac1]."".$TMP_row2[carac3]."".$TMP_row2[carac5]."".$TMP_row2[carac9]."
"; if ($TMP_contcompo>0) { $TMP.=$TMP_inmuebles; } else { $TMP.="
No existen Inmuebles disponibles en esta Promocion
Caracteristicas:
"; else if (substr($TMP_CODFAM,0,2)=="IS") $TMP.="
Detalles:
"; else $TMP.="
Memoria Calidades:
\n"; if (eregi("\n
Galería de Fotos:
".$fotogaleria."
Galería de Fotos:
".$fotogaleria."
Plano:
".$fotoplano."
Foto Entorno:
".$fotoentorno."
Mapa:
".$fotomapa."
Foto Aerea:
".$fotoaerea."
Descripción:
\n"; if (eregi("\n
Pagina WEB:$TMP_URL
"; } $TMP.="
"; if ($nocesta=="") $TMP.=" Agregar a cesta"; return $TMP; ?>Inicio ==> Inmuebles --> Vivienda --> Piso


1
Imprimir Imprimir | PDF PDF
© 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