";
}
$la_objectretenciones[$li_filasretenciones][1]="";
$la_objectretenciones[$li_filasretenciones][2]="";
$la_objectretenciones[$li_filasretenciones][3]="";
$la_objectretenciones[$li_filasretenciones][4]="";
$la_objectretenciones[$li_filasretenciones][5]="";
}
///////////////////////////////////////////////////////////////////////////////////////////////////
}
else
{
$ls_datosasignacion="OCULTAR";
$ls_datosobra="OCULTAR";
$ls_datoscontrato="OCULTAR";
$ls_puncueasi="";
$ls_fecasi="";
$ls_contasi="";
$ls_inspasi="";
$ls_monasi="";
$ls_codobr="";
$ls_desobr="";
$ls_estobr="";
$ls_munobr="";
$ls_parobr="";
$ls_comobr="";
$ls_dirobr="";
$ls_codasi="";
$ls_codcon="";
$ls_fecfincon="";
$ls_feccon ="";
$ls_destipcon ="";
$ls_fecinicon ="";
$li_placon="";
$ls_monto="0,00";
$ls_monmaxcon="0,00";
$ls_pormaxcon="0,00";
$ls_hidprefijo="";
$ls_mulcon="0,00";
$ls_lapgarcon="";
$ls_obscon="";
$ls_estcon="";
$ls_porejefiscon="";
$ls_porejefincon="";
$ls_monejefincon="";
$li_filascondiciones=1;
$li_filasgarantias=1;
$li_filasretenciones=1;
$li_removerretenciones="";
$li_removercondiciones="";
$li_removergarantias="";
$ls_lapmulcon="";
$ls_operacion="";
$li_placon="";
$ls_codunigarantia="";
$ls_coduniduracion="";
$ls_coduniretraso="";
$ls_codtco="";
$ls_carasi="";
$ls_montotasi="";
$ls_estado="";
$ls_hidstatus="";
$li_hidfilasretenciones=1;
$la_objectretenciones[1][1]="";
$la_objectretenciones[1][2]="";
$la_objectretenciones[1][3]="";
$la_objectretenciones[1][4]="";
$la_objectretenciones[1][5]="";
$li_filascondiciones=1;
$la_objectcondiciones[1][1]="";
$la_objectcondiciones[1][2]="";
$la_objectcondiciones[1][3]="";
$la_objectcondiciones[1][4]="";
$la_objectcondiciones[1][5]="";
$li_filasgarantias=1;
$la_objectgarantias[1][1]="";
$la_objectgarantias[1][2]="";
$la_objectgarantias[1][3]="";
}
/////////Instrucciones para evitar que las cajitas pierdan la informacion cada vez que se realiza un submit/////////////
if (array_key_exists("hiddatosasignacion",$_POST)){ $ls_datosasignacion=$_POST["hiddatosasignacion"]; }
else{$ls_datosasignacion="OCULTAR";}
if (array_key_exists("hiddatosobra",$_POST)){ $ls_datosobra=$_POST["hiddatosobra"]; }
else{$ls_datosobra="OCULTAR";}
if (array_key_exists("hiddatoscontrato",$_POST)){ $ls_datoscontrato=$_POST["hiddatoscontrato"]; }
else{$ls_datoscontrato="OCULTAR";}
if (array_key_exists("operacion",$_POST)){ $ls_operacion=$_POST["operacion"]; }
else{$ls_operacion="";}
if (array_key_exists("txtcodcon",$_POST)){ $ls_codcon=$_POST["txtcodcon"]; }
else{$ls_codcon="";}
if (array_key_exists("txtpuncueasi",$_POST)){ $ls_puncueasi=$_POST["txtpuncueasi"]; }
else{$ls_puncueasi="";}
if (array_key_exists("txtfecasi",$_POST)){ $ls_fecasi=$_POST["txtfecasi"]; }
else{$ls_fecasi="";}
if (array_key_exists("txtcontasi",$_POST)){$ls_contasi=$_POST["txtcontasi"]; }
else{$ls_contasi="";}
if (array_key_exists("txtmontasi",$_POST)){$ls_montasi=$_POST["txtmontasi"]; }
else{$ls_montasi="";}
if (array_key_exists("txtinspasi",$_POST)){$ls_inspasi=$_POST["txtinspasi"]; }
else{$ls_inspasi="";}
if (array_key_exists("txtmonasi",$_POST)){$ls_monasi=$_POST["txtmonasi"]; }
else{$ls_monasi="";}
if (array_key_exists("txtcodobr",$_POST)){$ls_codobr=$_POST["txtcodobr"]; }
else{$ls_codobr="";}
if (array_key_exists("txtdesobr",$_POST)){$ls_desobr=$_POST["txtdesobr"]; }
else{$ls_desobr="";}
if (array_key_exists("txtestobr",$_POST)){$ls_estobr=$_POST["txtestobr"]; }
else{$ls_estobr="";}
if (array_key_exists("txtmunobr",$_POST)){$ls_munobr=$_POST["txtmunobr"]; }
else{$ls_munobr="";}
if (array_key_exists("txtparobr",$_POST)){$ls_parobr=$_POST["txtparobr"]; }
else{$ls_parobr="";}
if (array_key_exists("txtcomobr",$_POST)){$ls_comobr=$_POST["txtcomobr"]; }
else{$ls_comobr="";}
if (array_key_exists("txtdirobr",$_POST)){$ls_dirobr=$_POST["txtdirobr"]; }
else{$ls_dirobr="";}
if (array_key_exists("txtcodasi",$_POST)){$ls_codasi=$_POST["txtcodasi"]; }
else{$ls_codasi="";}
if (array_key_exists("txtcodcon",$_POST)){$ls_codcon=$_POST["txtcodcon"]; }
else{$ls_codcon="";}
if (array_key_exists("txtfeccon",$_POST)){$ls_feccon=$_POST["txtfeccon"]; }
else{$ls_feccon="";}
if (array_key_exists("txtdestipcon",$_POST)){$ls_destipcon=$_POST["txtdestipcon"]; }
else{$ls_destipcon="";}
if (array_key_exists("txtfecinicon",$_POST)){$ls_fecinicon=$_POST["txtfecinicon"]; }
else{$ls_fecinicon="";}
if (array_key_exists("txtmonto",$_POST)){$ls_monto=$_POST["txtmonto"]; }
else{$ls_monto="0,00";}
if (array_key_exists("txtmonmaxcon",$_POST)){$ls_monmaxcon=$_POST["txtmonmaxcon"]; }
else{$ls_monmaxcon="0,00";}
if (array_key_exists("txtpormaxcon",$_POST)){$ls_pormaxcon=$_POST["txtpormaxcon"]; }
else{$ls_pormaxcon="0,00";}
if (array_key_exists("txtmulcon",$_POST)){$ls_mulcon=$_POST["txtmulcon"]; }
else{$ls_mulcon="0,00";}
if (array_key_exists("txtlapgarcon",$_POST)){$ls_lapgarcon=$_POST["txtlapgarcon"]; }
else{$ls_lapgarcon="";}
if (array_key_exists("txtobscon",$_POST)){$ls_obscon=$_POST["txtobscon"]; }
else{$ls_obscon="";}
if (array_key_exists("txtestcon",$_POST)){$ls_estcon=$_POST["txtestcon"]; }
else{$ls_estcon="";}
if (array_key_exists("txtporejefiscon",$_POST)){$ls_porejefiscon=$_POST["txtporejefiscon"]; }
else{$ls_porejefiscon="";}
if (array_key_exists("txtporejefincon",$_POST)){$ls_porejefincon=$_POST["txtporejefincon"]; }
else{$ls_porejefincon="";}
if (array_key_exists("txtmonejefincon",$_POST)){$ls_monejefincon=$_POST["txtmonejefincon"]; }
else{$ls_monejefincon="";}
if (array_key_exists("hidfilascondiciones",$_POST)){$li_filascondiciones=$_POST["hidfilascondiciones"]; }
else{$li_filascondiciones=1;}
if (array_key_exists("hidfilasgarantias",$_POST)){$li_filasgarantias=$_POST["hidfilasgarantias"]; }
else{$li_filasgarantias=1;}
if (array_key_exists("hidfilasretenciones",$_POST)){$li_filasretenciones=$_POST["hidfilasretenciones"]; }
else{$li_filasretenciones=1;}
if (array_key_exists("hidremoverretenciones",$_POST)){$li_removerretenciones=$_POST["hidremoverretenciones"]; }
else{$li_removerretenciones="";}
if (array_key_exists("hidremovercondiciones",$_POST)){$li_removercondiciones=$_POST["hidremovercondiciones"]; }
else{$li_removercondiciones="";}
if (array_key_exists("hidremovergarantias",$_POST)){$li_removergarantias=$_POST["hidremovergarantias"]; }
else{$li_removergarantias="";}
if (array_key_exists("txtplacon",$_POST)){$li_placon=$_POST["txtplacon"]; }
else{$li_placon="";}
if (array_key_exists("txtlapmulcon",$_POST)){$ls_lapmulcon=$_POST["txtlapmulcon"]; }
else{$ls_lapmulcon="";}
if (array_key_exists("hidgarantia",$_POST)){$ls_codunigarantia=$_POST["hidgarantia"]; }
else{$ls_codunigarantia="";}
if (array_key_exists("hidduracion",$_POST)){$ls_coduniduracion=$_POST["hidduracion"]; }
else{$ls_coduniduracion="";}
if (array_key_exists("hidretraso",$_POST)){$ls_coduniretraso=$_POST["hidretraso"]; }
else{$ls_coduniretraso="";}
if (array_key_exists("hidtipocontrato",$_POST)){$ls_codtco=$_POST["hidtipocontrato"]; }
else{$ls_codtco="";}
if (array_key_exists("cmbgarantia",$_POST)){$ls_codunigarantia=$_POST["cmbgarantia"]; }
else{$ls_codunigarantia="";}
if (array_key_exists("cmbduracion",$_POST)){$ls_coduniduracion=$_POST["cmbduracion"]; }
else{$ls_coduniduracion="";}
if (array_key_exists("cmbretraso",$_POST)){$ls_coduniretraso=$_POST["cmbretraso"]; }
else{$ls_coduniretraso="";}
if (array_key_exists("cmbtipocontrato",$_POST)){$ls_codtco=$_POST["cmbtipocontrato"]; }
else{$ls_codtco="";}
if (array_key_exists("txtcarasi",$_POST)){$ls_carasi=$_POST["txtcarasi"]; }
else{$ls_carasi="";}
if (array_key_exists("txtmontotasi",$_POST)){$ls_montotasi=$_POST["txtmontotasi"]; }
else{$ls_montotasi="";}
if (array_key_exists("txtestcon",$_POST)){$ls_estado=$_POST["txtestcon"]; }
else{$ls_estado="";}
if (array_key_exists("txtfecfincon",$_POST)){$ls_fecfincon=$_POST["txtfecfincon"]; }
else{$ls_fecfincon="";}
if (array_key_exists("hidprefijo",$_POST)){$ls_hidprefijo=$_POST["hidprefijo"]; }
else{$ls_hidprefijo="";}
if (array_key_exists("hidfecasi",$_POST)){$ls_fecasiaux=$_POST["hidfecasi"]; }
else{$ls_fecasiaux="";}
if (array_key_exists("hidstatus",$_POST)){$ls_hidstatus=$_POST["hidstatus"]; }
else{$ls_hidstatus="";}
if (array_key_exists("hidestapr",$_POST)){$ls_estapr=$_POST["hidestapr"]; }
else{$ls_estapr="";}
////////////////////////////////Operaciones de Actualizacion//////////////////////////////////////
if($ls_operacion=="ue_nuevo")//Abre una ficha de obra nueva
{
$io_asignacion->uf_select_estado($ls_codasi,$ls_estasi);
if($ls_estasi!=1 && $ls_estasi!=5 && $ls_estasi!=6)
{
$ls_estado=$io_funnum->uf_convertir_numeroestado($ls_estasi);
$io_msg->message("Debe seleccionar una nueva Asignación, ya que su estado es $ls_estado");
$ls_codasi="";
$ls_codcon="";
$ls_estado="";
$ls_feccon ="";
$ls_monto="";
$ls_monmaxcon="";
}
else
{
require_once("../shared/class_folder/class_funciones_db.php");
require_once ("../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_connect=$io_include->uf_conectar();
$io_funcdb=new class_funciones_db($io_connect);
$la_empresa=$_SESSION["la_empresa"];
require_once("../shared/class_folder/sigesp_c_generar_consecutivo.php");
$io_keygen= new sigesp_c_generar_consecutivo();
$ls_codcon= $io_keygen->uf_generar_numero_nuevo("SOB","sob_contrato","codcon","SOBCON",12,"","","");
if($ls_codcon===false)
{
print "";
}
//$ls_codcon=$io_funcdb->uf_generar_codigo(true,$la_empresa["codemp"],"sob_contrato","codcon",6);
$ls_estado="EMITIDO";
//$fecha=date("d/m/Y");
//$ls_feccon=$ls_fecasi;
$lb_valido=$io_contrato->uf_select_asignacion($ls_codasi,$la_asignacion);
if ($lb_valido)
{
$io_datastore->data=$la_asignacion;
$li_i=1;
$ls_monto=$io_datastore->getValue("montotasi",$li_i);
$ls_monto=$io_funnum->uf_convertir_numerocadena($ls_monto);
//$ls_monmaxcon=$ls_monto;
}
}
$ls_datoscontrato="OCULTAR";
$ls_destipcon ="";
$ls_fecinicon ="";
$ls_monmaxcon="0,00";
$ls_pormaxcon="0,00";
$ls_mulcon="0,00";
$ls_lapgarcon="";
$ls_codtco="";
$ls_obscon="";
$ls_estcon="";
$ls_fecfincon="";
$li_placon="";
$ls_porejefiscon="";
$ls_porejefincon="";
$ls_hidprefijo="";
$ls_monejefincon="";
$li_filascondiciones=1;
$li_filasgarantias=1;
$li_filasretenciones=1;
$li_removerretenciones="";
$li_removercondiciones="";
$li_removergarantias="";
$ls_lapmulcon="";
// $ls_operacion="";
$ls_codunigarantia="";
$ls_coduniduracion="";
$ls_coduniretraso="";
$li_hidfilasretenciones=1;
$ls_hidstatus="";
$la_objectretenciones[1][1]="";
$la_objectretenciones[1][2]="";
$la_objectretenciones[1][3]="";
$la_objectretenciones[1][4]="";
$la_objectretenciones[1][5]="";
}
elseif($ls_operacion=="ue_cargarretenciones")
{
$li_filasretenciones=$li_filasretenciones+1;
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$ls_codigo=$_POST["txtcodret".$li_i];
$ls_descripcion=$_POST["txtdesret".$li_i];
$ls_cuenta=$_POST["txtcueret".$li_i];
$ls_deduccion=$_POST["txtdedret".$li_i];
$la_objectretenciones[$li_i][1]="";
$la_objectretenciones[$li_i][2]="";
$la_objectretenciones[$li_i][3]="";
$la_objectretenciones[$li_i][4]="";
$la_objectretenciones[$li_i][5]=" ";
}
$la_objectretenciones[$li_filasretenciones][1]="";
$la_objectretenciones[$li_filasretenciones][2]="";
$la_objectretenciones[$li_filasretenciones][3]="";
$la_objectretenciones[$li_filasretenciones][4]="";
$la_objectretenciones[$li_filasretenciones][5]="";
}
elseif($ls_operacion=="ue_removerretenciones")
{
$li_filasretenciones=$li_filasretenciones-1;
$li_temp=0;
for($li_i=1;$li_i<=$li_filasretenciones;$li_i++)
{
if($li_i!=$li_removerretenciones)
{
$li_temp=$li_temp+1;
$ls_codigo=$_POST["txtcodret".$li_i];
$ls_descripcion=$_POST["txtdesret".$li_i];
$ls_cuenta=$_POST["txtcueret".$li_i];
$ls_deduccion=$_POST["txtdedret".$li_i];
$la_objectretenciones[$li_temp][1]="";
$la_objectretenciones[$li_temp][2]="";
$la_objectretenciones[$li_temp][3]="";
$la_objectretenciones[$li_temp][4]="";
$la_objectretenciones[$li_temp][5]=" ";
}
}
$la_objectretenciones[$li_filasretenciones][1]="";
$la_objectretenciones[$li_filasretenciones][2]="";
$la_objectretenciones[$li_filasretenciones][3]="";
$la_objectretenciones[$li_filasretenciones][4]="";
$la_objectretenciones[$li_filasretenciones][5]="";
}
elseif($ls_operacion=="ue_cargarcondiciones")
{
$li_filascondiciones=$li_filascondiciones+1;
for($li_i=1;$li_i<$li_filascondiciones;$li_i++)
{
$ls_moncon=$_POST["txtmoncon".$li_i];
$ls_porcentaje=$_POST["txtporcon".$li_i];
$ls_fecha=$_POST["txtfeccon".$li_i];
$la_objectcondiciones[$li_i][1]="";
$la_objectcondiciones[$li_i][2]="";
$la_objectcondiciones[$li_i][3]="";
$la_objectcondiciones[$li_i][4]="";
$la_objectcondiciones[$li_i][5]=" ";
}
$la_objectcondiciones[$li_filascondiciones][1]="";
$la_objectcondiciones[$li_filascondiciones][2]="";
$la_objectcondiciones[$li_filascondiciones][3]="";
$la_objectcondiciones[$li_filascondiciones][4]="";
$la_objectcondiciones[$li_filascondiciones][5]="";
}
elseif($ls_operacion=="ue_removercondiciones")
{
$li_filascondiciones=$li_filascondiciones-1;
$li_removercondiciones=$_POST["hidremovercondiciones"];
$li_temp=0;
for($li_i=1;$li_i<=$li_filascondiciones;$li_i++)
{
if($li_i!=$li_removercondiciones)
{
$li_temp=$li_temp+1;
$ls_numero=$_POST["txtnumcon".$li_i];
$ls_monto=$_POST["txtmoncon".$li_i];
$ls_porcentaje=$_POST["txtporcon".$li_i];
$ls_fecha=$_POST["txtfeccon".$li_i];
$la_objectcondiciones[$li_temp][1]="";
$la_objectcondiciones[$li_temp][2]="";
$la_objectcondiciones[$li_temp][3]="";
$la_objectcondiciones[$li_temp][4]="";
$la_objectcondiciones[$li_temp][5]=" ";
}
}
$la_objectcondiciones[$li_filascondiciones][1]="";
$la_objectcondiciones[$li_filascondiciones][2]="";
$la_objectcondiciones[$li_filascondiciones][3]="";
$la_objectcondiciones[$li_filascondiciones][4]="";
$la_objectcondiciones[$li_filascondiciones][5]="";
}elseif($ls_operacion=="ue_cargargarantias")
{
$li_filasgarantias=$li_filasgarantias+1;
for($li_i=1;$li_i<$li_filasgarantias;$li_i++)
{
$ls_descripcion=$_POST["txtdesgar".$li_i];
$la_objectgarantias[$li_i][1]="";
$la_objectgarantias[$li_i][2]="";
$la_objectgarantias[$li_i][3]=" ";
}
$la_objectgarantias[$li_filasgarantias][1]="";
$la_objectgarantias[$li_filasgarantias][2]="";
$la_objectgarantias[$li_filasgarantias][3]="";
}
elseif($ls_operacion=="ue_removergarantias")
{
$li_filasgarantias=$li_filasgarantias-1;
$li_removergarantias=$_POST["hidremovergarantias"];
$li_temp=0;
for($li_i=1;$li_i<=$li_filasgarantias;$li_i++)
{
if($li_i!=$li_removergarantias)
{
$li_temp=$li_temp+1;
$ls_descripcion=$_POST["txtdesgar".$li_temp];
$la_objectgarantias[$li_temp][1]="";
$la_objectgarantias[$li_temp][2]="";
$la_objectgarantias[$li_temp][3]=" ";
}
}
$la_objectgarantias[$li_filasgarantias][1]="";
$la_objectgarantias[$li_filasgarantias][2]="";
$la_objectgarantias[$li_filasgarantias][3]="";
}
elseif($ls_operacion=="ue_cargarasignacion")
{
$lb_valido=$io_contrato->uf_select_asignacion($ls_codasi,$la_asignacion);
if ($lb_valido)
{
$io_datastore->data=$la_asignacion;
$li_i=1;
$ls_puncueasi=$io_datastore->getValue("puncueasi",$li_i);
$ls_fecasi=$io_function->uf_convertirfecmostrar($io_datastore->getValue("fecasi",$li_i));
$ls_contasi=$io_datastore->getValue("contasi",$li_i);
$ls_monasi=$io_datastore->getValue("monparasi",$li_i);
$ls_monasi=$io_funnum->uf_convertir_numerocadena($ls_monasi);
$ls_codobr=$io_datastore->getValue("codobr",$li_i);
$ls_desobr=$io_datastore->getValue("desobr",$li_i);
$ls_estobr=$io_datastore->getValue("desest",$li_i);
$ls_munobr=$io_datastore->getValue("denmun",$li_i);
$ls_parobr=$io_datastore->getValue("denpar",$li_i);
$ls_comobr=$io_datastore->getValue("nomcom",$li_i);
$ls_dirobr=$io_datastore->getValue("dirobr",$li_i);
$ls_montotasi=$io_datastore->getValue("montotasi",$li_i);
$ls_montotasi=$io_funnum->uf_convertir_numerocadena($ls_montotasi);
$ls_validocargo=$io_contrato->uf_select_cargoasignacion($ls_codasi,$la_cargos);
if($ls_validocargo)
{
$io_datastore->data=$la_cargos;
$li_totalcargos=$io_datastore->getRowCount("dencar");
$ls_cadenacargos="";
for ($li_i=1;$li_i<=$li_totalcargos;$li_i++)
{
if ($ls_cadenacargos=="")
{
$ls_cadenacargos=$io_datastore->getValue("dencar",$li_i);
}
else
{
$ls_cadenacargos=$ls_cadenacargos.", ".$io_datastore->getValue("dencar",$li_i);
}
}
$ls_carasi=$ls_cadenacargos;
}
}
}
elseif($ls_operacion=="ue_guardar")
{
$lb_flag=false;
$ls_feccon=$io_function->uf_convertirdatetobd($ls_feccon);
$ls_fecinicon=$io_function->uf_convertirdatetobd($ls_fecinicon);
$ls_fecfincon=$io_function->uf_convertirdatetobd($ls_fecfincon);
$ls_estcon=1;
$ls_hidstatus=$_POST["hidstatus"];
$lb_existe=$io_contrato->uf_select_contrato($ls_codcon,$la_data);
if($ls_hidstatus!="C")
{
if($ls_lapmulcon=="" || $ls_lapmulcon=="0")
$ls_coduniretraso="---";
if($ls_lapgarcon=="" || $ls_lapgarcon=="0")
$ls_codunigarantia="---";
$ls_precon=$_POST["hidprefijo"];
$io_contrato->io_sql->begin_transaction();
$ls_codconaux=$ls_codcon;
if($la_data!="")
{
$lb_flag=true;
}
$lb_valido = $io_contrato->uf_guardar_contrato($ls_codcon ,$ls_codasi,$ls_monto,$ls_feccon,$ls_fecinicon,$li_placon,
$ls_coduniduracion,$ls_mulcon,$ls_lapmulcon,$ls_coduniretraso,$ls_lapgarcon,$ls_codunigarantia,
$ls_codtco ,$ls_monmaxcon,$ls_pormaxcon,$ls_estcon,$ls_obscon,$ls_fecfincon,$ls_hidprefijo,
$la_seguridad,$lb_flag);
if($lb_valido)
{
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,4,$la_seguridad);
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$ls_codded=$_POST["txtcodret".$li_i];
$lb_validoretenciones=$io_contrato->uf_guardar_retenciones($ls_codcon,$ls_codded,$la_seguridad);
if (!$lb_validoretenciones)
{
print "Hubo un error al intentar insertar la retencion $li_i";
$lb_valido=false;
break;
}
}
if($lb_valido)
{
$lb_estadocontrato=$io_contrato->uf_update_estado($ls_codcon,1,$la_seguridad);
if($ls_codconaux!=$ls_codcon)
{
$io_msg->message("Se le asigno un nuevo numero ".$ls_codcon."");
}
$io_mensaje->incluir();
$ls_hidstatus="C";
}
else
{
if(!$lb_validoretenciones)
$io_msg->message("Error en retenciones!!!");
if(!$lb_validocondiciones)
$io_msg->message("Error en condiciones!!!");
if(!$lb_validogarantias)
$io_msg->message("Error en garantias!!!");
}
}
else
{
$io_mensaje->error_incluir();
}
if($lb_valido)
{
$io_contrato->io_sql->commit();
}
else
{
$io_contrato->io_sql->rollback();
}
$ls_imprimir=$_POST["hidimprimir"];
if($ls_imprimir=="IMPRIMIR")
{
$ls_documento="CONTRATO";
$ls_pagina="sigesp_sob_d_filechooser.php?codcon=".$ls_codcon."&documento=".$ls_documento;
print "";
}
}//end del if si existe
else
{
if($lb_existe)
{
$lb_valido=$io_contrato->uf_select_estado($ls_codcon,$li_estado);
$li_estadocontabilizacion=$io_obra->uf_contabilizado("SELECT estspgscg FROM sob_contrato WHERE codemp='$ls_codemp' AND codcon='$ls_codcon'");
if($lb_valido)
{
$io_contrato->io_sql->begin_transaction();
if($li_estado==1 && $li_estadocontabilizacion==0)
{
if($la_data["codasi"][1]!=$ls_codasi)
{
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,4,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_asignacion->uf_update_estado($la_data["codasi"][1],6,$la_seguridad);
if(!$lb_valido)
{
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,6,$la_seguridad);
$io_msg->message("El campo Asignacion no fue actualizado");
}
}
else
{
$io_msg->message("El campo Asignacion no fue actualizado");
}
}
if($ls_lapmulcon=="" || $ls_lapmulcon=="0")
$ls_coduniretraso="---";
if($ls_lapgarcon=="" || $ls_lapgarcon=="0")
$ls_codunigarantia="---";
$lb_valido=$io_contrato->uf_update_contrato($ls_codcon ,$ls_codasi,$ls_monto,$ls_feccon,$ls_fecinicon,$li_placon,
$ls_coduniduracion,$ls_mulcon,$ls_lapmulcon,$ls_coduniretraso,$ls_lapgarcon,$ls_codunigarantia,
$ls_codtco ,$ls_monmaxcon,$ls_pormaxcon,$ls_estcon,$ls_obscon,$ls_fecfincon,$ls_hidprefijo,$la_seguridad);
if($lb_valido)
{
$la_retenciones["codret"][1]="";
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$la_retenciones["codret"][$li_i]=$_POST["txtcodret".$li_i];
}
$lb_valido=$io_contrato->uf_update_retenciones($ls_codcon,$la_retenciones,$li_filasretenciones,$la_seguridad);
}//fin del if del valido si se modifico exitosamente la cabecera
if($lb_valido===true)
{
$io_mensaje->modificar();
}
}
elseif($li_estado==6 && $li_estadocontabilizacion==0)
{
if($la_data["codasi"][1]!=$ls_codasi)
{
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,4,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_asignacion->uf_update_estado($la_data["codasi"][1],6,$la_seguridad);
if(!$lb_valido)
{
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,6,$la_seguridad);
$io_msg->message("El campo Asignacion no fue actualizado");
}
}
else
{
$io_msg->message("El campo Asignacion no fue actualizado");
}
}
if($ls_lapmulcon=="" || $ls_lapmulcon=="0")
$ls_coduniretraso="---";
if($ls_lapgarcon=="" || $ls_lapgarcon=="0")
$ls_codunigarantia="---";
$lb_valido=$io_contrato->uf_update_contrato($ls_codcon ,$ls_codasi,$ls_monto,$ls_feccon,$ls_fecinicon,$li_placon,
$ls_coduniduracion,$ls_mulcon,$ls_lapmulcon,$ls_coduniretraso,$ls_lapgarcon,$ls_codunigarantia,
$ls_codtco ,$ls_monmaxcon,$ls_pormaxcon,$ls_estcon,$ls_obscon,$ls_fecfincon,$ls_hidprefijo,$la_seguridad);
if($lb_valido)
{
$la_retenciones["codret"][1]="";
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$la_retenciones["codret"][$li_i]=$_POST["txtcodret".$li_i];
}
$lb_validoretenciones=$io_contrato->uf_update_retenciones($ls_codcon,$la_retenciones,$li_filasretenciones,$la_seguridad);
}//fin del if del valido si se modifico exitosamente la cabecera
if($lb_valido===true)
{
$io_mensaje->modificar();
}
else
{
if($lb_validocondiciones || $lb_validoretenciones || $lb_validogarantias)
$io_mensaje->modificar();
}
}
else
{
if($li_estadocontabilizacion==0)
{
$ls_estado=$io_funnum->uf_convertir_numeroestado($li_estado);
$io_msg->message("Este Contrato no puede ser modificado, su estado es ".$ls_estado);
}
else
{
$io_msg->message("Este Contrato no puede ser modificado, ya esta Contabilizado");
}
}
if($lb_valido)
{
$io_contrato->io_sql->commit();
}
else
{
$io_msg->message("Se produjo un error al procesar la solicitud");
$io_contrato->io_sql->rollback();
}
}
else
{
$io_msg->message("El Contrato no existe");
}
}
}
$ls_datosasignacion="OCULTAR";
$ls_datosobra="OCULTAR";
$ls_datoscontrato="OCULTAR";
/* $ls_puncueasi="";
$ls_fecasi="";
$ls_contasi="";
$ls_inspasi="";
$ls_monasi="";
$ls_codobr="";
$ls_desobr="";
$ls_estobr="";
$ls_munobr="";
$ls_parobr="";
$ls_hidprefijo="";
$ls_comobr="";
$ls_dirobr="";
$ls_codasi="";
$ls_codcon="";
$ls_estado="";
$ls_fecfincon="";
$ls_feccon ="";
$ls_destipcon ="";
$ls_fecinicon ="";
$li_placon="";
$ls_monto="0,00";
$ls_monmaxcon="0,00";
$ls_pormaxcon="0,00";
$ls_mulcon="0,00";
$ls_lapgarcon="";
$ls_obscon="";
$ls_estcon="";
$ls_hidstatus="";
$ls_porejefiscon="";
$ls_porejefincon="";
$ls_monejefincon="";
$li_filascondiciones=1;
$li_filasgarantias=1;
$li_filasretenciones=1;
$li_removerretenciones="";
$li_removercondiciones="";
$li_removergarantias="";
$ls_lapmulcon="";
$ls_operacion="";
$li_placon="";
$ls_codunigarantia="";
$ls_coduniduracion="";
$ls_coduniretraso="";
$ls_codtco="";
$ls_carasi="";
$ls_montotasi="";
$li_hidfilasretenciones=1;
$la_objectretenciones[1][1]="";
$la_objectretenciones[1][2]="";
$la_objectretenciones[1][3]="";
$la_objectretenciones[1][4]="";
$la_objectretenciones[1][5]="";*/
}//end del elseif guardar
elseif($ls_operacion=="ue_cargarcontrato")
{
$ls_codtco=$_POST["hidtipocontrato"];
$lb_validoretenciones=$io_contrato->uf_select_retenciones ($ls_codcon,$la_data,$filas);
if($lb_validoretenciones)
{
$li_filasretenciones=$filas+1;
}
else
{
$li_filasretenciones=1;
}
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$ls_codigo=$la_data["codded"][$li_i];
$ls_descripcion=$la_data["dended"][$li_i];
$ls_cuenta=$la_data["cuenta"][$li_i];
$ls_deduccion=$io_funnum->uf_convertir_numerocadena($la_data["deducible"][$li_i]);
$la_objectretenciones[$li_i][1]="";
$la_objectretenciones[$li_i][2]="";
$la_objectretenciones[$li_i][3]="";
$la_objectretenciones[$li_i][4]="";
$la_objectretenciones[$li_i][5]=" ";
}
$la_objectretenciones[$li_filasretenciones][1]="";
$la_objectretenciones[$li_filasretenciones][2]="";
$la_objectretenciones[$li_filasretenciones][3]="";
$la_objectretenciones[$li_filasretenciones][4]="";
$la_objectretenciones[$li_filasretenciones][5]="";
}
elseif($ls_operacion=="ue_eliminar")///Esto es una eliminacion lógica!
{
$lb_existe=$io_contrato->uf_select_contrato($ls_codcon,$la_data);
if ($lb_existe)
{
$lb_ultimoregistro=$io_contrato->uf_verificar_contratoeliminar($ls_codcon);
if($lb_ultimoregistro)
{
$io_contrato->io_sql->begin_transaction();
$lb_valido=$io_contrato->uf_delete_retencionescontrato($ls_codcon,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_contrato->uf_delete_contratos($ls_codcon,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,6,$la_seguridad);
}
}
if($lb_valido)
{
$io_msg->message("El contrato se ha eliminado exitosamente");
$io_contrato->io_sql->commit();
}
else
{
$io_msg->message("Ocurrio un error al Eliminar este contrato");
$io_contrato->io_sql->rollback();
}
}
else
{
$io_contrato->io_sql->begin_transaction();
$lb_valido=$io_asignacion->uf_update_estado($ls_codasi,5,$la_seguridad);
$lb_valido=$io_contrato->uf_select_estado($ls_codcon,$li_estado);
$li_estadocontabilizacion=$io_obra->uf_contabilizado("SELECT estspgscg FROM sob_contrato WHERE codemp='0001' AND codcon='000001'");
if($lb_valido)
{
if($li_estado==1 && $li_estadocontabilizacion==0)
{
$lb_valido=$io_contrato->uf_update_estado($ls_codcon,3,$la_seguridad);
if($lb_valido)
{
$io_mensaje->anular();
$io_contrato->io_sql->commit();
}
else
{
$io_msg->message("Ocurrio un error al Anular este contrato");
$io_contrato->io_sql->rollback();
}
}
else
{
if($li_estadocontabilizacion==0)
{
$ls_estado=$io_funnum->uf_convertir_numeroestado($li_estado);
if ($ls_estado=="ANULADO")
$io_msg->message("Este Contrato ya está Anulado!!!");
else
$io_msg->message("Este Contrato no puede ser Anulado, su estado es ".$ls_estado);
}
else
{
$io_msg->message("Este Contrato no puede ser Anulado, ya esta Contabilizado");
}
}
}
}
}
else
{
$io_msg->message("Debe seleccionar un Contrato existente!!!");
}
$ls_datosasignacion="OCULTAR";
$ls_datosobra="OCULTAR";
$ls_datoscontrato="OCULTAR";
$ls_puncueasi="";
$ls_fecasi="";
$ls_contasi="";
$ls_inspasi="";
$ls_monasi="";
$ls_codobr="";
$ls_desobr="";
$ls_estobr="";
$ls_munobr="";
$ls_hidprefijo="";
$ls_parobr="";
$ls_comobr="";
$ls_dirobr="";
$ls_fecfincon="";
$ls_codasi="";
$ls_codcon="";
$ls_feccon ="";
$ls_estado="";
$ls_destipcon ="";
$ls_fecinicon ="";
$li_placon="";
$ls_monto="0,00";
$ls_monmaxcon="0,00";
$ls_pormaxcon="0,00";
$ls_mulcon="0,00";
$ls_lapgarcon="";
$ls_obscon="";
$ls_estcon="";
$ls_porejefiscon="";
$ls_porejefincon="";
$ls_monejefincon="";
$li_filascondiciones=1;
$li_filasgarantias=1;
$li_filasretenciones=1;
$li_removerretenciones="";
$li_removercondiciones="";
$li_removergarantias="";
$ls_lapmulcon="";
$ls_operacion="";
$li_placon="";
$ls_codunigarantia="";
$ls_coduniduracion="";
$ls_coduniretraso="";
$ls_codtco="";
$ls_carasi="";
$ls_montotasi="";
$ls_hidstatus="";
$li_hidfilasretenciones=1;
$la_objectretenciones[1][1]="";
$la_objectretenciones[1][2]="";
$la_objectretenciones[1][3]="";
$la_objectretenciones[1][4]="";
$la_objectretenciones[1][5]="";
}
elseif($ls_operacion=="ue_cargar_estadocontrato")
{
$lb_existe=$io_contrato->uf_select_contrato($ls_codcon,$la_data);
if ($lb_existe)
{
$li_filas=0;
$io_contrato->uf_select_estadoactual ($ls_codcon,$la_estadocontrato,$li_filas);
$ls_estado=$io_funnum->uf_convertir_numeroestado($la_estadocontrato["estcon"][1]);
$ls_porejefiscon=$io_funnum->uf_convertir_numerocadena($la_estadocontrato["porejefiscon"][1]);
$ls_porejefincon=$io_funnum->uf_convertir_numerocadena($la_estadocontrato["porejefincon"][1]);
$ls_monejefincon=$io_funnum->uf_convertir_numerocadena($la_estadocontrato["monejefincon"][1]);
}
else
{
$io_msg->message("Debe seleccionar un Contrato Existente!!!");
$ls_datoscontrato="OCULTAR";
}
}
?>
 |
||||
|
||||
      |