$ls_totreten=$_POST["txttotreten"];
$ls_hidamototbd=$_POST["hidamototbd"];
$ls_hidamoresbd=$_POST["hidamoresbd"];
$li_filaspartidas=$_POST["filaspartidas"];
$li_filascargos=$_POST["filascargos"];
$ls_hidcodasi =$_POST["hidcodasi"];
$ls_chk=$_POST["hidstatus"];
$ls_codtipdoc=$_POST["txtcodtipdoc"];
$ls_dentipdoc=$_POST["txtdentipdoc"];
$li_filaspartidas=$_POST["filaspartidas"];
if($li_filascargos>1)
{
for($li_i=1;$li_i<$li_filascargos;$li_i++)
{
$ls_moncar=$_POST["txtmoncar".$li_i];
$ls_moncar=$io_funcsob->uf_convertir_cadenanumero($ls_moncar);
$ld_subtot=$ld_subtot+$ls_moncar;
}
}
for($li_i=1;$li_i<$li_filaspartidas;$li_i++)
{
$ls_codigo=$_POST["txtcodpar".$li_i];
$ls_nombre=$_POST["txtnompar".$li_i];
$ls_unidad=$_POST["txtnomuni".$li_i];
$ls_preuni=$_POST["txtpreuni".$li_i];
$ls_preunimod=$_POST["txtpreunimod".$li_i];
$ls_canttot=$_POST["txtcanttot".$li_i];
$ls_cantpar=$_POST["txtcantpar".$li_i];
$ls_total=$_POST["txttotal".$li_i];
$ls_canpareje=$_POST["canpareje".$li_i];
$ls_codasi=$_POST["codasi".$li_i];
$ls_hidlista1="Código de la Obra?o.codobr-3?Descripcion de la Obra?o.desobr-3?
Monto del Contrato?con.monto-3?Fecha de Registro?con.feccon-3?Fecha de Inicio del Contrato?con.fecinicon-3?Fecha de Fin del Contrato?
con.fecfincon-3";
$ls_hidlista2="Código del Contrato?con.codcon-3";
$ls_hidlista3="Código de la Valuación?val.codval-4?Fecha de Inicio?val.fecinival-4?Fecha de Fin?val.fecfinval-4?
Observación?val.obsval-4?Amortización?val.amoval-4?Amortización Total a la Fecha?
val.amototval-4?Restante por Amortizar a la Fecha?val.amoresval-4?Observación de la Amortización?val.obsamoval-4
?Base Imponible?val.basimpval-4?Total Retenciones?val.totreten-4?Monto Total de la Valuacion?val.montotval-4
?Monto por Partidas Valuadas?val.subtotpar-4";
$ls_hidlista4="";
}
/*Cuando la operacion es UE_NUEVO*/
if($ls_operacion=="ue_buscar")
{
if($io_funsob->uf_convertir_cadenanumero($ls_moncon)==0)
$ls_moncon="";
$la_parametro[1][1]="con.codcon";
$la_parametro[1][2]=$ls_codcon;
$la_parametro[1][3]=" like ";
$la_parametro[1][4]=3;
$la_parametro[2][1]="o.desobr";
$la_parametro[2][2]=$ls_desobr;
$la_parametro[2][3]=" like ";
$la_parametro[2][4]=3;
$la_parametro[3][1]="con.fecfincon";
$la_parametro[3][2]=$io_funcion->uf_convertirdatetobd($ls_fecfincon);
$la_parametro[3][3]=$ls_cmbfecfincon;
$la_parametro[3][4]=3;
$la_parametro[4][1]="con.fecinicon";
$la_parametro[4][2]=$io_funcion->uf_convertirdatetobd($ls_fecinicon);
}
$io_anticipo->uf_calcular_montoanticipo($ls_codcon,$ld_montototalanticipoaux);
$ld_montototalanticipo=$io_funsob->uf_convertir_numerocadena($ld_montototalanticipoaux);
$ld_montocontrato=$la_contrato["monto"][1];
$ld_montocontratofinal=$ld_montocontrato+$ld_totalvariacion;
$ld_montocontrato=$io_funsob->uf_convertir_numerocadena($ld_montocontrato);
$ld_montocontratofinal=$io_funsob->uf_convertir_numerocadena($ld_montocontratofinal);
$ld_monvar=$io_funsob->uf_convertir_numerocadena($ld_totalvariacion);
$lb_valido=$io_obra->uf_select_obra($io_datastore->getValue("codobr",$li_i),$la_obra);
if($lb_valido)
$ls_desobr=$la_obra["desobr"][1];
}
elseif($ls_operacion=="ue_guardar")
{
$ld_monto=$io_funsob->uf_convertir_cadenanumero($ls_monto);
$ld_montotant=$io_funsob->uf_convertir_cadenanumero($ls_montotant);
$ld_porant=$io_funsob->uf_convertir_cadenanumero($ls_porant);
$lf_fecant=$io_function->uf_convertirdatetobd($ls_fecant);
$lf_fecintant=$io_function->uf_convertirdatetobd($ls_fecintant);
$lb_existe=$io_anticipo->uf_select_anticipo ($ls_codant,$ls_codcon,$la_data);
$ls_hidstatus=$_POST["hidstatus"];
if($ls_hidstatus!="C")
{
$io_anticipo->io_sql->begin_transaction();
$ls_codantaux=$ls_codant;
$lb_valido=$io_anticipo->uf_guardar_anticipo($ls_codcon ,$ls_codant ,$lf_fecant,$lf_fecintant,$ld_porant,$ld_monto,$ls_conant,$ld_montotant,$ls_sc_cuenta,$la_seguridad);
if($lb_valido)
{
$lb_validoretenciones=true;
if ($li_filasretenciones>1)
$la_objectcuentas[$li_filascuentas][2]="<input name=txtestcla".$li_filascuentas." type=text id=txtestcla".$li_filascuentas." class=sin-borde style= text-align:center size=20 readonly>";
$la_objectcuentas[$li_filascuentas][3]="<input name=txtnomcue".$li_filascuentas." type=text id=txtnomcue".$li_filascuentas." class=sin-borde style= text-align:left size=10 readonly>";
$la_objectcuentas[$li_filascuentas][4]="<input name=txtmoncue".$li_filascuentas." type=text id=txtmoncue".$li_filascuentas." class=sin-borde size=20 style= text-align:center readonly><input name=disponible".$li_filascuentas." type=hidden id=disponible".$li_filascuentas.">";
$la_objectcuentas[$li_filascuentas][5]="<input name=txtvacio".$li_filascuentas." type=text id=txtvacio class=sin-borde style= text-align:center size=5 readonly>";
}
/***************************************************************************************************************************************************************************/
/*************************************************INSERTAR CAMPO EN GRID CARGOS**************************************************************************************************************************/
elseif($ls_operacion=="ue_cargarcargo")
{
$lb_valido =false;
$ls_baseimp =$_POST["txtbasimpasi"];
$ls_montpar =$_POST["txtmonparasi"];
$ld_baseimpo=$io_funcsob->uf_convertir_cadenanumero($ls_baseimp);
$ld_montopar=$io_funcsob->uf_convertir_cadenanumero($ls_montpar);
$ld_montotasi=0;
/////////////////////////////////////////////////////CARLOS////////////////////////////////////////////////////////////////////////
$li_filasfuentes=$_POST["filascuentas"];
for($li_i=1;$li_i<$li_filasfuentes;$li_i++)
{
$ls_codigo=$_POST["txtcodcue".$li_i];
$ls_codest1=$_POST["codest1".$li_i];
$ls_codest2=$_POST["codest2".$li_i];
$ls_codest3=$_POST["codest3".$li_i];
$ls_codest4=$_POST["codest4".$li_i];
$ls_codest5=$_POST["codest5".$li_i];
$ls_disponible=$_POST["disponible".$li_i];
$ls_nombre=$_POST["txtnomcue".$li_i];
$ls_moncar=$_POST["txtmoncue".$li_i];
$la_objectpartidas[$li_filaspartidas][6]="<input name=txtpreunimod".$li_filaspartidas." type=text id=txtpreunimod".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>";
$la_objectpartidas[$li_filaspartidas][7]="<input name=txtcanttot".$li_filaspartidas." type=text id=txtcanttot".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>";
$la_objectpartidas[$li_filaspartidas][8]="<input name=txtcantpar".$li_filaspartidas." type=text id=txtcantpar".$li_filaspartidas." class=sin-borde size=5 style= text-align:center readonly>";
$la_objectpartidas[$li_filaspartidas][9]="<input name=txttotal".$li_filaspartidas." type=text id=txttotal".$li_filaspartidas." class=sin-borde size=15 style= text-align:center readonly>";
}
/*****************************************************************************************/
/*************************CARGANDO CUENTAS**********************/
$lb_validoc=$io_variacion->uf_select_cuentas($ls_codvar,$ls_codcon,$la_cuentas,$li_totalfilas);
if($lb_validoc)
{
$io_datastore->data=$la_cuentas;
$li_filascuentas=$io_datastore->getRowCount("spg_cuenta");
for($li_i=1;$li_i<=$li_filascuentas;$li_i++)
{
$ls_codest1=$io_funcsob->uf_convertir_cadenanumero($io_datastore->getValue("codestpro1",$li_i));
$ls_codest2=$io_funcsob->uf_convertir_cadenanumero($io_datastore->getValue("codestpro2",$li_i));
$ls_codest3=$io_funcsob->uf_convertir_cadenanumero($io_datastore->getValue("codestpro3",$li_i));
$ls_codest4=$io_funcsob->uf_convertir_cadenanumero($io_datastore->getValue("codestpro4",$li_i));
$ls_codest5=$io_funcsob->uf_convertir_cadenanumero($io_datastore->getValue("codestpro5",$li_i));
$ls_codigo=$ls_codest1.$ls_codest2.$ls_codest3.$ls_codest4.$ls_codest5;
$ls_nombre=$io_datastore->getValue("spg_cuenta",$li_i);
$ls_moncar=$io_datastore->getValue("monto",$li_i);
$ls_disponible=$io_datastore->getValue("disponible",$li_i);
$ls_estcla=$io_datastore->getValue("estcla",$li_i);
if($ls_estcla=="A")
{
$ls_estcla="ACCION";
}
else
{
$ls_cmbcanpar="";
$ls_hidlista1="Descripción de la Obra?o.desobr-1?Estado (Ubicación)?e.desest-2?
Fecha de Registro de la Obra?o.feccreobr-1?Fecha de Finalización de la Obra?o.fecfinobr-1?Fecha de Inicio de la Obra?
o.feciniobr-1?Monto Total de la Obra?o.monto-1?Municipio?m.denmun-3?Parroquia?p.denpar-4";
$ls_hidlista2="Código de la Obra?o.codobr-1";
$ls_hidlista3="Cantidad?parobr.canparobr-6?Categoría de la Partida?cat.descatpar-9?Código COVENIN?par.codcovpar-7?
Código de la Partida?par.codpar-7?Descripción de la Partida?par.nompar-7?Precio Unitario?
par.prepar-7?Unidad de Medición?u.nomuni-8";
$ls_hidlista4="";
}
/*Cuando la operacion es UE_NUEVO*/
if($ls_operacion=="ue_imprimir")
{
if($io_funsob->uf_convertir_cadenanumero($ls_prepar)==0)
$ls_prepar="";
if($io_funsob->uf_convertir_cadenanumero($ls_canpar)==0)
$ls_canpar="";
$la_parametro[1][1]="o.feccreobr";
$la_parametro[1][2]=$io_funcion->uf_convertirdatetobd($ls_feccreobrdesde);
$la_parametro[1][3]=">=";
$la_parametro[1][4]=1;
$la_parametro[2][1]="o.feciniobr";
$la_parametro[2][2]=$io_funcion->uf_convertirdatetobd($ls_feciniobr);
$la_parametro[2][3]=$ls_parfeciniobr;
$la_parametro[2][4]=1;
$la_parametro[3][1]="o.fecfinobr";
$la_parametro[3][2]=$io_funcion->uf_convertirdatetobd($ls_fecfinobr);
$la_parametro[3][3]=$ls_parfecfinobr;
$la_parametro[3][4]=1;
$ls_desobr="";
$ls_codpai="001";
$la_parametro[1][1]="";
$ls_hidlista1="Código de la Obra?o.codobr-1?Comunidad?c.nomcom-5?Descripción de la Obra?o.desobr-1?Dirección de la Obra?o.dirobr-1?Estado (Ubicación)?e.desest-2?
Fecha de Registro de la Obra?o.feccreobr-1?Fecha de Finalización de la Obra?o.fecfinobr-1?Fecha de Inicio de la Obra?
o.feciniobr-1?Monto Total de la Obra?o.monto-1?Municipio?m.denmun-3?Organismo Ejecutor?pro.nompro as orgejec-7?
Parroquia?p.denpar-4?Responsable de la Obra?o.resobr-1?Sistema Constructivo?sc.nomsiscon-11?Tenencia de la Tierra
?t.nomten-8?Tipo de Estructura?te.nomtipest-10?Tipo de Obra?tob.nomtob-9";
$ls_hidlista2="";
}
//echo "operacion!!!!";
//print $ls_operacion;
/*Cuando la operacion es UE_NUEVO*/
if($ls_operacion=="ue_imprimir")
{
if(($io_funsob->uf_convertir_cadenanumero($ls_monto))==0)
$ls_monto="";
$la_parametro[1][1]="o.feccreobr";
$la_parametro[1][2]=$io_funcion->uf_convertirdatetobd($ls_feccreobrdesde);
$la_parametro[1][3]=">=";
$la_parametro[1][4]=1;
$la_parametro[2][1]="o.feciniobr";
$la_parametro[2][2]=$io_funcion->uf_convertirdatetobd($ls_feciniobr);
$la_parametro[2][3]=$ls_parfeciniobr;
$la_parametro[2][4]=1;
$la_parametro[3][1]="o.fecfinobr";
$la_parametro[3][2]=$io_funcion->uf_convertirdatetobd($ls_fecfinobr);
$la_parametro[3][3]=$ls_parfecfinobr;
$la_parametro[3][4]=1;
$la_parametro[4][1]="o.codpro";
$ld_dateinicio=$io_function->uf_convertirdatetobd($ls_feciniobr);
$ld_datefin=$io_function->uf_convertirdatetobd($ls_fecfinobr);
$lb_existe=$io_obra->uf_select_obra ($ls_codobr,$la_datos);
$ld_datecreacion=$io_function->uf_convertirdatetobd($ls_feccreobr);
if($ls_hidstatus!="C")
{
$io_sql->begin_transaction();
$ls_codobraux=$ls_codobr;
$lb_valido=$io_obra->uf_guardar_obra(&$ls_codobr,$ls_codten,$ls_codtipest,$ls_codest,$ls_codmun,$ls_codpar,$ls_codcom,$ls_codsiscon,$ls_codpro,$ls_codtob,$ls_nomobr,$ls_dirobr,$ls_obsobr,$ls_resobr,$ld_dateinicio,$ld_datefin,$li_monto,$ld_datecreacion,$la_seguridad);
if ($lb_valido)
{
for ($li_i=1;$li_i<$li_filaspartidas;$li_i++)//Guardando las partidas asociadas a la obra
{
$ls_codigo=$_POST["txtcodpar".$li_i];
$ls_cantidad=$io_funsob->uf_convertir_cadenanumero($_POST["txtcanpar".$li_i]);
$lb_partida=$io_obra->uf_guardar_dtpartidas($ls_codobr,$ls_codigo,$ls_cantidad,$la_seguridad);
}
for ($li_i=1;$li_i<$li_filasfuentes;$li_i++)//Guardando las fuentes de financiamiento asociadas a la obra
{
$ls_codigo=$_POST["txtcodfuefin".$li_i];
$ld_monto=$_POST["txtmonfuefin".$li_i];
$lb_fuente=$io_obra->uf_guardar_dtfuentesfinanciamiento($ls_codobr,$ls_codigo,$ld_monto,$la_seguridad);
}
}
if ($lb_valido && $lb_partida && $lb_fuente)
{
if($ls_codobraux!=$ls_codobr)
{
$ls_codpai="001";
$ls_hidlista1="Descripción de la Obra?o.desobr-1?Estado (Ubicación)?e.desest-2?
Fecha de Registro de la Obra?o.feccreobr-1?Fecha de Finalización de la Obra?o.fecfinobr-1?Fecha de Inicio de la Obra?
o.feciniobr-1?Monto Total de la Obra?o.monto-1?Municipio?m.denmun-3?Parroquia?p.denpar-4";
$ls_hidlista2="Código de la Obra?o.codobr-1";
$ls_hidlista3="Código de la Asignación?a.codasi-6?Punto de Cuenta?a.puncueasi-6?Empresa Contratista?pro.nompro-7?
Fecha de la Asignación?a.fecasi-6?Monto Parcial?a.monparasi-6?Base Imponible?
a.basimpasi-6?Monto Total?a.montotasi-6";
$ls_hidlista4="";
}
/*Cuando la operacion es UE_NUEVO*/
if($ls_operacion=="ue_imprimir")
{
if($io_funsob->uf_convertir_cadenanumero($ls_montotasi)==0)
$ls_montotasi="";
$la_parametro[1][1]="o.feccreobr";
$la_parametro[1][2]=$io_funcion->uf_convertirdatetobd($ls_feccreobrdesde);
$la_parametro[1][3]=">=";
$la_parametro[1][4]=1;
$la_parametro[2][1]="o.feciniobr";
$la_parametro[2][2]=$io_funcion->uf_convertirdatetobd($ls_feciniobr);
$la_parametro[2][3]=$ls_parfeciniobr;
$la_parametro[2][4]=1;
$la_parametro[3][1]="o.fecfinobr";
$la_parametro[3][2]=$io_funcion->uf_convertirdatetobd($ls_fecfinobr);
$la_parametro[3][3]=$ls_parfecfinobr;
$la_parametro[3][4]=1;
$la_parametro[4][1]="o.codobr";
$la_parametro[4][2]="%".$ls_codobr."%";
