";
}
$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]="";
$la_objectretenciones[$li_filasretenciones][6]="";
$la_objectretenciones[$li_filasretenciones][7]="";
}
if ($ls_operacion != "ue_cargarcargo" && $ls_operacion != "ue_removercargo")
{
$li_filascargos=$_POST["filascargos"];
for($li_i=1;$li_i<$li_filascargos;$li_i++)
{
$ls_codigo=$_POST["txtcodcar".$li_i];
$ls_nombre=$_POST["txtnomcar".$li_i];
$ls_moncue=$_POST["txtmoncar".$li_i];
$ls_formula=$_POST["formu".$li_i];
$ls_codestpro=$_POST["codestpro".$li_i];
$ls_spgcuenta=$_POST["spgcuenta".$li_i];
$ls_estcla=$_POST["estcla".$li_i];
$la_objectcargos[$li_i][1]="";
$la_objectcargos[$li_i][2]="".
"";
$la_objectcargos[$li_i][3]="";
$la_objectcargos[$li_i][4]="";
}
$la_objectcargos[$li_filascargos][1]="";
$la_objectcargos[$li_filascargos][2]="".
"";
$la_objectcargos[$li_filascargos][3]="";
$la_objectcargos[$li_filascargos][4]="";
}
$li_filascuentas= $_POST["filascuentas"];
for($li_row=1;$li_row<=$li_filascuentas;$li_row++)
{
$ls_codestpro1=$_POST["codest1".$li_row];
$ls_codestpro2=$_POST["codest2".$li_row];
$ls_codestpro3=$_POST["codest3".$li_row];
$ls_codestpro4=$_POST["codest4".$li_row];
$ls_codestpro5=$_POST["codest5".$li_row];
$ls_estcla=$_POST["txtestcla".$li_row];
$ls_spgcuenta=$_POST["txtnomcue".$li_row];
$ls_moncue=$_POST["txtmoncue".$li_row];
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_sob->uf_formatoprogramatica($ls_codestpro,$as_programatica);
$la_objectcuentas[$li_row][1]="".
"";
$la_objectcuentas[$li_row][2]="";
$la_objectcuentas[$li_row][3]="";
$la_objectcuentas[$li_row][4]="";
$la_objectcuentas[$li_row][5]="";
}
}
/*******************************************************************************************************************************************************/
/************************************************ INICIALIZA LAS VARIABLES SI NO HAY SUBMIT *******************************************************************************************************/
else
{
$ls_codtipdoc="";
$ls_dentipdoc="";
$ls_opemostrar="";
$ls_opemostrarA="";
$ls_operacion="";
$ls_codval="";
$ls_codcon="";
$ls_fecinival="";
$ls_fecfinval="";
$ls_obsval="";
$ls_fecha="";
$ls_estadoval="";
$ls_amoant="0,00";
$ls_amotot="0,00";
$ls_poramoactual="0,00";
$ls_amoactual="0,00";
$ls_amoobs="";
$ls_amores="0,00";
$ls_totant="";
$ls_totcon="";
$ls_desobr="";
$ls_estapr="";
$ls_puncue="";
$ls_estcon="";
$ls_moncon="";
$ls_feccon="";
$ls_hidamototbd="";
$ls_hidamoresbd="";
$li_removerretenciones="";
$li_removercargo="";
$ls_subtotpar="0,00";
$ls_subtot="0,00";
$ls_basimpval="0,00";
$ls_montotval="0,00";
$ls_totreten="0,00";
$ls_hidcodasi="";
$ls_chk="";
$ls_codtipdoc="";
$ls_dentipdoc="";
$ld_subtot="0,00";
$ls_numrecdoc="";
$ls_numref="";
$li_filasretenciones=1;
$la_objectretenciones[1][1]="";
$la_objectretenciones[1][2]="";
$la_objectretenciones[1][3]="";
$la_objectretenciones[1][4]="";
$la_objectretenciones[1][5]="";
$la_objectretenciones[1][6]="";
$la_objectretenciones[1][7]="";
$li_filaspartidas=1;
$la_objectpartidas[$li_filaspartidas][1]="";
$la_objectpartidas[$li_filaspartidas][2]="";
$la_objectpartidas[$li_filaspartidas][3]="";
$la_objectpartidas[$li_filaspartidas][4]="";
$la_objectpartidas[$li_filaspartidas][5]="";
$la_objectpartidas[$li_filaspartidas][6]="";
$la_objectpartidas[$li_filaspartidas][7]="";
$la_objectpartidas[$li_filaspartidas][8]="";
$la_objectpartidas[$li_filaspartidas][9]="";
$la_objectpartidas[$li_filaspartidas][10]="";
$li_filascargos=1;
$la_objectcargos[$li_filascargos][1]="";
$la_objectcargos[$li_filascargos][2]="".
"";
$la_objectcargos[$li_filascargos][3]="";
$la_objectcargos[$li_filascargos][4]="";
$li_filascuentas=1;
$la_objectcuentas[1][1]="";
$la_objectcuentas[1][2]="";
$la_objectcuentas[1][3]="";
$la_objectcuentas[1][4]="";
$la_objectcuentas[1][5]="";
}
/***************************************************************************************************************************************************************************/
/************************************************ PREPARANDO INSERCION DE NUEVO REGISTRO ****************************************************************************/
if($ls_operacion=="ue_nuevo")
{
$ls_codtipdoc="";
$ls_dentipdoc="";
$ls_opemostrar="";
$ls_opemostrarA="";
$ls_operacion="";
$ls_codval="";
$ls_codcon="";
$ls_fecinival="";
$ls_fecfinval="";
$ls_obsval="";
$ls_fecha="";
$ls_estadoval="";
$ls_amoant="0,00";
$ls_amotot="0,00";
$ls_poramoactual="0,00";
$ls_amoactual="0,00";
$ls_amoobs="";
$ls_amores="0,00";
$ls_totant="";
$ls_totcon="";
$ls_desobr="";
$ls_estapr="";
$ls_puncue="";
$ls_estcon="";
$ls_moncon="";
$ls_feccon="";
$ls_hidamototbd="";
$ls_hidamoresbd="";
$li_removerretenciones="";
$li_removercargo="";
$ls_subtotpar="0,00";
$ls_subtot="0,00";
$ls_basimpval="0,00";
$ls_montotval="0,00";
$ls_totreten="0,00";
$ls_hidcodasi="";
$ls_chk="";
$ls_codtipdoc="";
$ls_dentipdoc="";
$ld_subtot="0,00";
$ls_numrecdoc="";
$ls_numref="";
$li_filaspartidas=1;
$la_objectpartidas[$li_filaspartidas][1]="";
$la_objectpartidas[$li_filaspartidas][2]="";
$la_objectpartidas[$li_filaspartidas][3]="";
$la_objectpartidas[$li_filaspartidas][4]="";
$la_objectpartidas[$li_filaspartidas][5]="";
$la_objectpartidas[$li_filaspartidas][6]="";
$la_objectpartidas[$li_filaspartidas][7]="";
$la_objectpartidas[$li_filaspartidas][8]="";
$la_objectpartidas[$li_filaspartidas][9]="";
$la_objectpartidas[$li_filaspartidas][10]="";
$li_filasretenciones=1;
$la_objectretenciones[1][1]="";
$la_objectretenciones[1][2]="";
$la_objectretenciones[1][3]="";
$la_objectretenciones[1][4]="";
$la_objectretenciones[1][5]="";
$la_objectretenciones[1][6]="";
$la_objectretenciones[1][7]="";
$li_filascargos=1;
$la_objectcargos[$li_filascargos][1]="";
$la_objectcargos[$li_filascargos][2]="".
"";
$la_objectcargos[$li_filascargos][3]="";
$la_objectcargos[$li_filascargos][4]="";
$li_filascuentas=1;
$la_objectcuentas[1][1]="";
$la_objectcuentas[1][2]="";
$la_objectcuentas[1][3]="";
$la_objectcuentas[1][4]="";
$la_objectcuentas[1][5]="";
}
/***************************************************************************************************************************************************************************/
/*************************************************INSERTAR CAMPO EN GRID RETENCIONES**************************************************************************************************************************/
elseif($ls_operacion=="ue_cargarretenciones")
{
$li_filasretenciones=$li_filasretenciones+1;
$ls_totreten=0;
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];
$ls_monret=$_POST["txtmonret".$li_i];
$ls_totret=$_POST["txttotret".$li_i];
$ls_formula=$_POST["formula".$li_i];
$li_iva=$io_valuacion->uf_select_tipodeduccion($ls_codigo);
$ls_readonly="";
if($li_iva==1)
{
$ls_monret=$ld_subtot;
$ls_totret=$io_evalform->uf_evaluar($ls_formula,$ls_monret,$lb_valido);
$ls_totreten=$ls_totreten+$ls_totret;
$ls_monret=number_format($ls_monret,2,',','.');
$ls_totret=number_format($ls_totret,2,',','.');
$ls_readonly="readonly";
}
else
{
$ls_monret=$io_funcsob->uf_convertir_cadenanumero($ls_basimpval);
$ls_totret=$io_evalform->uf_evaluar($ls_formula,$ls_monret,$lb_valido);
$ls_totreten=$ls_totreten+$ls_totret;
$ls_monret=number_format($ls_monret,2,',','.');
$ls_totret=number_format($ls_totret,2,',','.');
}
$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_i][6]="";
$la_objectretenciones[$li_i][7]="";
}
$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]="";
$la_objectretenciones[$li_filasretenciones][6]="";
$la_objectretenciones[$li_filasretenciones][7]="";
$ls_subcar=$io_funcsob->uf_convertir_cadenanumero($ls_subtot);
$ls_montotval=$ls_subcar-$ls_totreten;
$ls_totreten=$io_funcsob->uf_convertir_numerocadena($ls_totreten);
$ls_montotval=$io_funcsob->uf_convertir_numerocadena($ls_montotval);
}
/***************************************************************************************************************************************************************************/
/*******************************************************REMOVER CAMPO EN GRID RETENCIONES********************************************************************************************************************/
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_monret=$_POST["txtmonret".$li_i];
$ls_totret=$_POST["txttotret".$li_i];
$ls_deduccion=$_POST["txtdedret".$li_i];
$ls_formula=$_POST["formula".$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_temp][6]="";
$la_objectretenciones[$li_temp][7]="";
}
}
$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]="";
$la_objectretenciones[$li_filasretenciones][6]="";
$la_objectretenciones[$li_filasretenciones][7]="";
}
/***************************************************************************************************************************************************************************/
/*************************************************INSERTAR CAMPO EN GRID CARGOS**************************************************************************************************************************/
elseif($ls_operacion=="ue_cargarcargo")
{
$ls_subtotpar=$_POST["txtsubtotpar"];
$ls_basimpval=$_POST["txtbasimpval"];
$ls_baseimponible=$_POST["baseimponible"];
$ld_basimpval=$io_funcsob->uf_convertir_cadenanumero($ls_basimpval);
$ld_subtotpar=$io_funcsob->uf_convertir_cadenanumero($ls_subtotpar);
$ld_subtot=0;
$li_filascargos=$_POST["filascargos"];
$li_filascargos=$li_filascargos+1;
for($li_i=1;$li_i<$li_filascargos;$li_i++)
{
$ls_codigo=$_POST["txtcodcar".$li_i];
$ls_nombre=$_POST["txtnomcar".$li_i];
$ls_formula=$_POST["formu".$li_i];
$ls_codestpro=$_POST["codestpro".$li_i];
$ls_spgcuenta=$_POST["spgcuenta".$li_i];
$ls_estcla=$_POST["estcla".$li_i];
$ld_result=$io_evalform->uf_evaluar($ls_formula,$ls_baseimponible,$lb_valido);
$ld_subtot=$ld_subtot+$ld_result;
$la_objectcargos[$li_i][1]="";
$la_objectcargos[$li_i][2]="".
"";
$la_objectcargos[$li_i][3]="";
$la_objectcargos[$li_i][4]="";
}
$la_objectcargos[$li_filascargos][1]="";
$la_objectcargos[$li_filascargos][2]="".
"";
$la_objectcargos[$li_filascargos][3]="";
$la_objectcargos[$li_filascargos][4]="";
$ld_subtotal=$ld_subtotpar-$ld_basimpval;
$ld_resultado=$ld_basimpval+$ld_subtot;
$ls_subtot=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
$ld_subtot=$io_funcsob->uf_convertir_numerocadena($ld_subtot);
$ls_montotval=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
$li_filascuentas= $_POST["filascuentas"];
for($li_row=1;$li_row<=$li_filascuentas;$li_row++)
{
$ls_codestpro1=$_POST["codest1".$li_row];
$ls_codestpro2=$_POST["codest2".$li_row];
$ls_codestpro3=$_POST["codest3".$li_row];
$ls_codestpro4=$_POST["codest4".$li_row];
$ls_codestpro5=$_POST["codest5".$li_row];
$ls_estcla=$_POST["txtestcla".$li_row];
$ls_spgcuenta=$_POST["txtnomcue".$li_row];
$ls_moncue=$_POST["txtmoncue".$li_row];
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_sob->uf_formatoprogramatica($ls_codestpro,$as_programatica);
$la_objectcuentas[$li_row][1]="".
"";
$la_objectcuentas[$li_row][2]="";
$la_objectcuentas[$li_row][3]="";
$la_objectcuentas[$li_row][4]="";
$la_objectcuentas[$li_row][5]="";
}
}
/***************************************************************************************************************************************************************************/
/*******************************************************REMOVER CAMPO EN GRID CARGOS********************************************************************************************************************/
elseif($ls_operacion=="ue_removercargo")
{
$ls_subtotpar=$_POST["txtsubtotpar"];
$ls_basimpval=$_POST["txtbasimpval"];
$ld_basimpval=$io_funcsob->uf_convertir_cadenanumero($ls_basimpval);
$ld_subtotpar=$io_funcsob->uf_convertir_cadenanumero($ls_subtotpar);
$ld_subtot=0;
$li_filascargos=$_POST["filascargos"];
$li_filascargos=$li_filascargos-1;
$li_removercargo=$_POST["hidremovercargo"];
$li_temp=0;
for($li_i=1;$li_i<=$li_filascargos;$li_i++)
{
if($li_i!=$li_removercargo)
{
$li_temp=$li_temp+1;
$ls_codigo=$_POST["txtcodcar".$li_i];
$ls_nombre=$_POST["txtnomcar".$li_i];
$ls_formula=$_POST["formu".$li_i];
$ls_codestpro=$_POST["codestpro".$li_i];
$ls_spgcuenta=$_POST["spgcuenta".$li_i];
$ls_estcla=$_POST["estcla".$li_i];
$ld_result=$io_evalform->uf_evaluar($ls_formula,$ld_basimpval,$lb_valido);
$ld_subtot=$ld_subtot+$ld_result;
$la_objectcargos[$li_temp][1]="";
$la_objectcargos[$li_temp][2]="".
"";
$la_objectcargos[$li_temp][3]="";
$la_objectcargos[$li_temp][4]="";
}
}
$la_objectcargos[$li_filascargos][1]="";
$la_objectcargos[$li_filascargos][2]="".
"";
$la_objectcargos[$li_filascargos][3]="";
$la_objectcargos[$li_filascargos][4]="";
$ld_subtotal=$ld_subtotpar-$ld_basimpval;
$ld_resultado=$ld_basimpval+$ld_subtot+$ld_subtotal;
$ls_subtot=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
$ls_montotval=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
}
/***************************************************************************************************************************************************************************/
/*******************************************INSERCION DE REGISTRO EN BD*******************************************************************************************************************************/
elseif($ls_operacion=="ue_guardar")
{
$ld_fecha=$io_function->uf_convertirdatetobd($ls_fecha);
$ld_fecinival=$io_function->uf_convertirdatetobd($ls_fecinival);
$ld_fecfinval=$io_function->uf_convertirdatetobd($ls_fecfinval);
$io_valuacion->io_sql->begin_transaction();
$ls_codvalaux=$ls_codval;
$lb_valido=$io_valuacion->uf_guardar_valuacion($ls_codval,$ls_codcon,$ld_fecha,$ld_fecinival,$ld_fecfinval,$ls_obsval,$ls_amoactual,$ls_amoobs,$ls_amoant,
$ls_amotot,$ls_amores,$ls_basimpval,$ls_montotval,$ls_subtotpar,$ls_totreten,$ls_subtot,$la_seguridad,$ls_chk,
$ls_numrecdoc,$ls_numref,$ls_poramoactual);
if($lb_valido)
{
/************************************PARTIDAS*******************************************/
$li_partidas=1;
$la_partidas["codpar"][1]="";
$la_partidas["canteje"][1]="";
$la_partidas["cant"][1]="";
$la_partidas["preref"][1]="";
$la_partidas["preval"][1]="";
$la_partidas["codasi"][1]="";
$la_partidas["codobr"][1]="";
for ($li_i=1;$li_i<$li_filaspartidas;$li_i++)
{
if(!empty($_POST["flagpar".$li_i]))
{
$la_partidas["codpar"][$li_partidas]=$_POST["txtcodpar".$li_i];
$la_partidas["canteje"][$li_partidas]=$_POST["canpareje".$li_i];
$la_partidas["cant"][$li_partidas]=$_POST["txtcantpar".$li_i];
$la_partidas["preref"][$li_partidas]=$_POST["txtpreuni".$li_i];
$la_partidas["preval"][$li_partidas]=$_POST["txtpreunimod".$li_i];
$la_partidas["codasi"][$li_partidas]=$_POST["codasi".$li_i];
$la_partidas["codobr"][$li_partidas]=$_POST["codobr".$li_i];
$li_partidas++;
}
}
$lb_valido=$io_valuacion->uf_update_dtpartidas($ls_codval,$ls_codcon,$la_partidas,$li_partidas,$la_seguridad);
/*****************************************************************************************/
if($lb_valido)
{
/***********************************CUENTAS PRESUPUESTARIAS************************************************/
$la_cuentas["codest1"][1]="";
$la_cuentas["codest2"][1]="";
$la_cuentas["codest3"][1]="";
$la_cuentas["codest4"][1]="";
$la_cuentas["codest5"][1]="";
$la_cuentas["estcla"][1]="";
$la_cuentas["nomcue"][1]="";
$la_cuentas["moncue"][1]="";
for ($li_i=1;$li_i<=$li_filascuentas;$li_i++)
{
$la_cuentas["codest1"][$li_i]=$_POST["codest1".$li_i];
$la_cuentas["codest2"][$li_i]=$_POST["codest2".$li_i];
$la_cuentas["codest3"][$li_i]=$_POST["codest3".$li_i];
$la_cuentas["codest4"][$li_i]=$_POST["codest4".$li_i];
$la_cuentas["codest5"][$li_i]=$_POST["codest5".$li_i];
$la_cuentas["estcla"][$li_i]=$_POST["txtestcla".$li_i];
$la_cuentas["nomcue"][$li_i]=$_POST["txtnomcue".$li_i];
$la_cuentas["moncue"][$li_i]=$_POST["txtmoncue".$li_i];
}
$lb_valido=$io_valuacion->uf_update_dtcuentas($ls_codval,$ls_codcon,$la_cuentas,$li_filascuentas,$la_seguridad);
/*****************************************************************************************/
}
if($lb_valido)
{
/***********************************CARGOS************************************************/
$la_cargos["codcar"][1]="";
$la_cargos["monto"][1]="";
$la_cargos["formula"][1]="";
for ($li_i=1;$li_i<$li_filascargos;$li_i++)
{
$la_cargos["codcar"][$li_i]=$_POST["txtcodcar".$li_i];
$la_cargos["monto"][$li_i]=$_POST["txtmoncar".$li_i];
$la_cargos["formula"][$li_i]=$_POST["formu".$li_i];
$la_cargos["codestpro"][$li_i]=$_POST["codestpro".$li_i];
$la_cargos["spgcuenta"][$li_i]=$_POST["spgcuenta".$li_i];
$la_cargos["estcla"][$li_i]=$_POST["estcla".$li_i];
}
$lb_valido=$io_valuacion->uf_update_dtcargos($ls_codval,$ls_codcon,$ls_basimpval,$la_cargos,$li_filascargos,$la_seguridad);
/*****************************************************************************************/
}
if($lb_valido)
{
/***********************************RETENCIONES*******************************************/
$la_retenciones["codret"][1]="";
$la_retenciones["monret"][1]="";
$la_retenciones["montotret"][1]="";
for ($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$la_retenciones["codret"][$li_i]=$_POST["txtcodret".$li_i];
$la_retenciones["monret"][$li_i]=$_POST["txtmonret".$li_i];
$la_retenciones["montotret"][$li_i]=$_POST["txttotret".$li_i];
}
$lb_valido=$io_valuacion->uf_update_retenciones($ls_codval,$ls_codcon,$la_retenciones,$li_filasretenciones,$la_seguridad);
/*****************************************************************************************/
}
}
if($lb_valido)
{
if( $ls_codvalaux!=$ls_codval)
{
$io_msg->message("Se le asigno un nuevo numero de valuacion. ".$ls_codval);
}
print "";
$io_msg->message("La operacion se proceso exitosamente");
$io_valuacion->io_sql->commit();
$ls_hidstatus="C";
}
else
{
$io_msg->message("Ocurrio un error al procesar la operacion");
$io_valuacion->io_sql->rollback();
}
/* print "";
*/}
/***************************************************************************************************************************************************************************/
elseif($ls_operacion=="PROCESAR")
{
$lb_valido=$io_valuacion->uf_validar_contabilizado($ls_hidcodasi);
if($lb_valido)
{
$ld_montotval=$io_funcsob->uf_convertir_cadenanumero($ls_montotval);
$ld_totreten=$io_funcsob->uf_convertir_cadenanumero($ls_totreten);
$ld_subtot=$io_funcsob->uf_convertir_cadenanumero($ls_subtot);
$ld_basimpval=$io_funcsob->uf_convertir_cadenanumero($ls_basimpval);
$lb_valido=$io_valuacion->uf_procesar_recepcion_documentos($ls_codcon,$ls_codtipdoc,$ls_obsval,$ls_fecha,$ld_montotval,$ld_totreten,$ld_subtot,
$ls_codcon,$ld_basimpval,$ls_hidcodasi,$ls_codval,$la_seguridad);
}
else
{
$io_msg->message("La Asignacion asociada debe estar contabilizada");
}
}
/*******************************************BUSCAR DATOS DE CONTRATO*********************************************************************/
elseif($ls_operacion=="ue_datcontrato")
{
$ls_codcon=$_POST["txtcodcon"];
$io_valuacion->uf_select_contrato($ls_codcon,$la_contrato);
$io_valuacion->uf_select_anticipos($ls_codcon,$ls_totant);
$io_valuacion->uf_select_variaciones($ls_codcon,$ld_aum,1);
$io_valuacion->uf_select_variaciones($ls_codcon,$ld_dis,2);
$ls_desobr=$la_contrato["desobr"][1];
$ls_puncue=$la_contrato["codasi"][1];
$ls_estcon=$io_funcsob->uf_convertir_numeroestado ($la_contrato["estcon"][1]);
$ls_moncon=$la_contrato["monto"][1];
$ls_feccon=$io_function->uf_convertirfecmostrar($la_contrato["feccon"][1]);
$ls_totcon=$la_contrato["monto"][1]+$ld_aum+$ld_dis;
$lb_validop=$io_valuacion->uf_select_partidasasignadas($ls_codcon,$la_partidas,$li_totalfilas);
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"];
// $io_valuacion->uf_select_newcodigo($ls_codcon,$ls_codval);
require_once("../shared/class_folder/sigesp_c_generar_consecutivo.php");
$io_keygen= new sigesp_c_generar_consecutivo();
$ls_codval= $io_keygen->uf_generar_numero_nuevo("SOB","sob_valuacion","codval","SOBVAL",3,"","codcon",$ls_codcon);
$ls_fecinival="";
$ls_fecfinval="";
$ls_obsval="";
$ls_fecha=date("d/m/Y");
$ls_estadoval="EMITIDO";
$lb_flag=$io_valuacion->uf_select_valanterior($ls_codcon,$ls_codval,$la_data);
if($lb_flag)
{
$ls_amoant=$io_funcsob->uf_convertir_numerocadena($la_data["amoval"][1]);
$ls_amotot=$io_funcsob->uf_convertir_numerocadena($la_data["amototval"][1]);
$ls_hidamototbd=$la_data["amototval"][1];
$ls_amores=$io_funcsob->uf_convertir_numerocadena($la_data["amoresval"][1]);
}
else
{
$ls_hidamoant="0,00";
$ls_hidamotot="0,00";
$ls_hidamores="0,00";
}
if($lb_validop)
{
$io_datastore->data=$la_partidas;
$li_filaspartidas=$io_datastore->getRowCount("codpar");
for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codpar",$li_i);
$ls_nombre=$io_datastore->getValue("nompar",$li_i);
$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
$ls_preuni=$io_datastore->getValue("prerefparasi",$li_i);
$ls_preunimod=$io_datastore->getValue("preparasi",$li_i);
$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
$ls_canpareje=$io_datastore->getValue("canasipareje",$li_i);
$ls_codasi=$io_datastore->getValue("codasi",$li_i);
$ls_codobr=$io_datastore->getValue("codobr",$li_i);
$la_objectpartidas[$li_i][1]="";
$la_objectpartidas[$li_i][2]="";
$la_objectpartidas[$li_i][3]="";
$la_objectpartidas[$li_i][4]="";
$la_objectpartidas[$li_i][5]="";
$la_objectpartidas[$li_i][6]="";
$la_objectpartidas[$li_i][7]="";
$la_objectpartidas[$li_i][8]="";
$la_objectpartidas[$li_i][9]="";
$la_objectpartidas[$li_i][10]="";
if($ls_canttot==0)
{
$la_objectpartidas[$li_i][1]="";
$la_objectpartidas[$li_i][2]="";
$la_objectpartidas[$li_i][3]="";
$la_objectpartidas[$li_i][4]="";
$la_objectpartidas[$li_i][5]="";
$la_objectpartidas[$li_i][6]="";
$la_objectpartidas[$li_i][7]="";
$la_objectpartidas[$li_i][8]="";
$la_objectpartidas[$li_i][9]="";
$la_objectpartidas[$li_i][10]="";
}
}
$li_filaspartidas=$li_filaspartidas+1;
$la_objectpartidas[$li_filaspartidas][1]="";
$la_objectpartidas[$li_filaspartidas][2]="";
$la_objectpartidas[$li_filaspartidas][3]="";
$la_objectpartidas[$li_filaspartidas][4]="";
$la_objectpartidas[$li_filaspartidas][5]="";
$la_objectpartidas[$li_filaspartidas][6]="";
$la_objectpartidas[$li_filaspartidas][7]="";
$la_objectpartidas[$li_filaspartidas][8]="";
$la_objectpartidas[$li_filaspartidas][9]="";
$la_objectpartidas[$li_filaspartidas][10]="";
}
$lb_valido=$io_valuacion->uf_load_cuentaspresupuestarias($ls_codcon,$rs_datacuentas,$ai_rowscuentas);
$li_row=0;
if($ai_rowscuentas>0)
{
while(!$rs_datacuentas->EOF)
{
$ls_codestpro1=$rs_datacuentas->fields["codestpro1"];
$ls_codestpro2=$rs_datacuentas->fields["codestpro2"];
$ls_codestpro3=$rs_datacuentas->fields["codestpro3"];
$ls_codestpro4=$rs_datacuentas->fields["codestpro4"];
$ls_codestpro5=$rs_datacuentas->fields["codestpro5"];
$ls_estcla=$rs_datacuentas->fields["estcla"];
$ls_spgcuenta=$rs_datacuentas->fields["spg_cuenta"];
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_sob->uf_formatoprogramatica($ls_codestpro,$as_programatica);
$li_row++;
$la_objectcuentas[$li_row][1]="".
"";
$la_objectcuentas[$li_row][2]="";
$la_objectcuentas[$li_row][3]="";
$la_objectcuentas[$li_row][4]="";
$la_objectcuentas[$li_row][5]="";
$rs_datacuentas->MoveNext();
}
}
$li_filascuentas=$li_row;
}
/***************************************************************************************************************************************************************************/
/*******************************************ANULAR UNA ASIGNACION*******************************************************************************************************************************/
elseif($ls_operacion=="ue_anular")
{
$lb_valido=true;
$io_valuacion->uf_select_estado($ls_codval,$ls_estasi);
if(($ls_estasi==1)||($ls_estasi==6))
{
$lb_ultimavaluacion=$io_valuacion->uf_verificar_valuacioneliminar($ls_codcon,$ls_codval);
if($lb_ultimavaluacion)
{
$io_valuacion->io_sql->begin_transaction();
$lb_valido=$io_valuacion->uf_delete_partidas($ls_codcon,$ls_codval,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_valuacion->uf_delete_retencionesvaluacion($ls_codcon,$ls_codval,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_valuacion->uf_delete_cargos($ls_codcon,$ls_codval,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_valuacion->uf_delete_cuentas($ls_codval,$ls_codcon);
if($lb_valido)
{
$lb_valido=$io_valuacion->uf_delete_valuaciones($ls_codcon,$ls_codval,$la_seguridad);
if($lb_valido)
{
for ($li_i=1;($li_i<$li_filaspartidas)&&($lb_valido);$li_i++)
{
if(!empty($_POST["flagpar".$li_i]))
{
$ls_codparG=$_POST["txtcodpar".$li_i];
$ls_canejeG=$_POST["canpareje".$li_i];
$ls_canparG=$_POST["txtcantpar".$li_i];
$lb_valido=$io_valuacion->uf_update_Actcantidaejecutada($ls_codasi,$ls_codparG,$ls_canparG,$ls_canejeG,$la_seguridad);
}
}
}
}
}
}
}
if($lb_valido)
{
$io_msg->message("La Valuacion fue Eliminada exitosamente!!");
$io_valuacion->io_sql->commit();
}
else
{
$io_msg->message("Ocurrio un error al Eliminar la Valuacion");
$io_valuacion->io_sql->rollback();
}
}
else
{
$io_valuacion->io_sql->begin_transaction();
for ($li_i=1;($li_i<$li_filaspartidas)&&($lb_valido);$li_i++)
{
if(!empty($_POST["flagpar".$li_i]))
{
$ls_codparG=$_POST["txtcodpar".$li_i];
$ls_canejeG=$_POST["canpareje".$li_i];
$ls_canparG=$_POST["txtcantpar".$li_i];
$lb_valido=$io_valuacion->uf_update_Actcantidaejecutada($ls_codasi,$ls_codparG,$ls_canparG,$ls_canejeG,$la_seguridad);
}
}
if($lb_valido)
{
$io_valuacion->uf_update_estado($ls_codval,3,$la_seguridad,$ls_codcon);
}
if($lb_valido)
{
$io_msg->message("Esta Valuacion fue Anulada!!");
}
else
{
$io_msg->message("Ocurrio un error al anular la Valuacion");
}
}
}
else
{
$io_msg->message("Esta Valuacion no puede ser Anulada!!");
}
print "";
}
/***************************************************************************************************************************************************************************/
/*******************************************CARGAR DATOS DE LA VALUACION*******************************************************************************************************************************/
elseif($ls_operacion=="ue_cargarvaluacion")
{
$ls_codval=$_POST["txtcodval"];
$ls_hidcodasi =$_POST["hidcodasi"];
$ls_moncon=$_POST["txtmoncon"];
$io_valuacion->uf_select_anticipos($ls_codcon,$ls_totant);
$ld_subtot=number_format($ld_subtot,2,',','.');
/************************CARGANDO PARTIDAS*************************************************/
$lb_validop=$io_valuacion->uf_select_allpartidas($ls_codval,$ls_hidcodasi,$la_partidas,$li_totalfilas);
if($lb_validop)
{
$io_datastore->data=$la_partidas;
$li_filaspartidas=$io_datastore->getRowCount("codpar");
for($li_i=1;$li_i<=$li_filaspartidas;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codpar",$li_i);
$ls_nombre=$io_datastore->getValue("nompar",$li_i);
$ls_unidad=$io_datastore->getValue("nomuni",$li_i);
$ls_preuni=$io_datastore->getValue("preparasi",$li_i);
$ls_preunimod=$io_datastore->getValue("prerefparasi",$li_i);
$ls_canttot=$io_datastore->getValue("canxeje",$li_i);
$ls_canpareje=$io_datastore->getValue("canasipareje",$li_i);
$ls_canvalpar=$io_datastore->getValue("canvalpar",$li_i);
$ls_codasi=$io_datastore->getValue("codasi",$li_i);
$ls_codobr=$io_datastore->getValue("codobr",$li_i);
if($ls_canvalpar=="")
{
$la_objectpartidas[$li_i][1]="";
$ls_total="0,00";
}
else
{
$la_objectpartidas[$li_i][1]="";
$ls_canttot=$ls_canttot+$ls_canvalpar;
$ls_total=$ls_canvalpar*$ls_preunimod;
}
$la_objectpartidas[$li_i][2]="";
$la_objectpartidas[$li_i][3]="";
$la_objectpartidas[$li_i][4]="";
$la_objectpartidas[$li_i][5]="";
$la_objectpartidas[$li_i][6]="";
$la_objectpartidas[$li_i][7]="";
$la_objectpartidas[$li_i][8]="";
$la_objectpartidas[$li_i][9]="";
$la_objectpartidas[$li_i][10]="";
if($ls_canttot==0)
{
$la_objectpartidas[$li_i][1]="";
$la_objectpartidas[$li_i][2]="";
$la_objectpartidas[$li_i][3]="";
$la_objectpartidas[$li_i][4]="";
$la_objectpartidas[$li_i][5]="";
$la_objectpartidas[$li_i][6]="";
$la_objectpartidas[$li_i][7]="";
$la_objectpartidas[$li_i][8]="";
$la_objectpartidas[$li_i][9]="";
$la_objectpartidas[$li_i][10]="";
}
}
$li_filaspartidas=$li_filaspartidas+1;
$la_objectpartidas[$li_filaspartidas][1]="";
$la_objectpartidas[$li_filaspartidas][2]="";
$la_objectpartidas[$li_filaspartidas][3]="";
$la_objectpartidas[$li_filaspartidas][4]="";
$la_objectpartidas[$li_filaspartidas][5]="";
$la_objectpartidas[$li_filaspartidas][6]="";
$la_objectpartidas[$li_filaspartidas][7]="";
$la_objectpartidas[$li_filaspartidas][8]="";
$la_objectpartidas[$li_filaspartidas][9]="";
$la_objectpartidas[$li_filaspartidas][10]="";
}
/*****************************************************************************************/
/************************CARGANDO CUENTAS**************************************************/
$lb_valido=$io_valuacion->uf_select_cuentaspresupuestarias($ls_codval,$ls_codcon,$rs_datacuentas,$ai_rowscuentas);
$li_row=0;
if($ai_rowscuentas>0)
{
while(!$rs_datacuentas->EOF)
{
$ls_codestpro1=$rs_datacuentas->fields["codestpro1"];
$ls_codestpro2=$rs_datacuentas->fields["codestpro2"];
$ls_codestpro3=$rs_datacuentas->fields["codestpro3"];
$ls_codestpro4=$rs_datacuentas->fields["codestpro4"];
$ls_codestpro5=$rs_datacuentas->fields["codestpro5"];
$ls_estcla=$rs_datacuentas->fields["estcla"];
$ls_spgcuenta=$rs_datacuentas->fields["spg_cuenta"];
$li_monto=number_format($rs_datacuentas->fields["monto"],2,',','.');
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_sob->uf_formatoprogramatica($ls_codestpro,$as_programatica);
$li_row++;
$la_objectcuentas[$li_row][1]="".
"";
$la_objectcuentas[$li_row][2]="";
$la_objectcuentas[$li_row][3]="";
$la_objectcuentas[$li_row][4]="";
$la_objectcuentas[$li_row][5]="";
$rs_datacuentas->MoveNext();
}
}
$li_filascuentas=$li_row;
/*****************************************************************************************/
/************************CARGANDO CARGOS**************************************************/
$lb_validoca=$io_valuacion->uf_select_cargos($ls_codval,$ls_codcon,$la_cargos,$li_totalfilas);
if($lb_validoca)
{
$io_datastore->data=$la_cargos;
$li_filascargos=$io_datastore->getRowCount("codcar");
for($li_i=1;$li_i<=$li_filascargos;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codcar",$li_i);
$ls_nombre=$io_datastore->getValue("dencar",$li_i);
$ls_moncar=$io_datastore->getValue("monto",$li_i);
$ls_formula=$io_datastore->getValue("formula",$li_i);
$ls_codestpro=$io_datastore->getValue("codestpro",$li_i);
$ls_spgcuenta=$io_datastore->getValue("spgcuenta",$li_i);
$ls_estcla=$io_datastore->getValue("estcla",$li_i);
$la_objectcargos[$li_i][1]="";
$la_objectcargos[$li_i][2]="".
"";
$la_objectcargos[$li_i][3]="";
$la_objectcargos[$li_i][4]="";
}
$li_filascargos=$li_filascargos+1;
$la_objectcargos[$li_filascargos][1]="";
$la_objectcargos[$li_filascargos][2]="".
"";
$la_objectcargos[$li_filascargos][3]="";
$la_objectcargos[$li_filascargos][4]="";
}
/*****************************************************************************************/
/************************CARGANDO RETENCIONES**************************************************/
$lb_validor=$io_valuacion->uf_select_retenciones($ls_codval,$ls_codcon,$la_retenciones,$li_totalfilas);
if($lb_validor)
{
$io_datastore->data=$la_retenciones;
$li_filasretenciones=$io_datastore->getRowCount("codded");
for($li_i=1;$li_i<=$li_filasretenciones;$li_i++)
{
$ls_codigo=$io_datastore->getValue("codded",$li_i);
$ls_descripcion=$io_datastore->getValue("dended",$li_i);
$ls_cuenta=$io_datastore->getValue("sc_cuenta",$li_i);
$ls_deduccion=$io_datastore->getValue("monded",$li_i);
$ls_monret=$io_datastore->getValue("monret",$li_i);
$ls_totret=$io_datastore->getValue("montotret",$li_i);
$ls_formula=$io_datastore->getValue("formula",$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_i][6]="";
$la_objectretenciones[$li_i][7]="";
}
$li_filasretenciones=$li_filasretenciones+1;
$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]="";
$la_objectretenciones[$li_filasretenciones][6]="";
$la_objectretenciones[$li_filasretenciones][7]="";
}
/*****************************************************************************************/
}
/***************************************************************************************************************************************************************************/
/*******************************************CALCULAR RETENCION DE LA VALUACION*******************************************************************************************************************************/
elseif($ls_operacion=="ue_calcretencion")
{
$ls_subtot=$_POST["txtsubtot"];
$ld_subtot=$io_funcsob->uf_convertir_cadenanumero($ls_subtot);
$ld_acum=0;
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];
$ls_monret=$_POST["txtmonret".$li_i];
$ls_formula=$_POST["formula".$li_i];
$ld_monret=$io_funcsob->uf_convertir_cadenanumero($ls_monret);
$ld_result=$io_evalform->uf_evaluar($ls_formula,$ld_monret,$lb_valido);
$ld_acum=$ld_acum+$ld_result;
$ls_totret=$io_funcsob->uf_convertir_numerocadena($ld_result);
$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_i][6]="";
$la_objectretenciones[$li_i][7]="";
}
$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]="";
$la_objectretenciones[$li_filasretenciones][6]="";
$la_objectretenciones[$li_filasretenciones][7]="";
if($ld_acum<$ld_subtot)
{
$ls_totreten=$io_funcsob->uf_convertir_numerocadena($ld_acum);
$ld_montotval=$ld_subtot-$ld_acum;
$ls_montotval=$io_funcsob->uf_convertir_numerocadena($ld_montotval);
}
else
{
$io_msg->message("El total en retenciones supera el subtotal acumulado!!");
}
}
?>
 |
||||
|
||||
     |