uf_spg_load_fuefin_estructura($ls_empresa,$ls_estpro1,$ls_estpro2,$ls_estpro3,$ls_estpro4,$ls_estpro5,$ls_estcla,$ls_cuentaplan);
if($row=$io_sql->fetch_row($rs_load))
{
$data=$io_sql->obtener_datos($rs_load);
$ds_aper->data=$data;
$li_num=$ds_aper->getRowCount("codfuefin");
$li_totnum=$li_num;
for($i=1;$i<=$li_num;$i++)
{
$ls_codfuefin = $data["codfuefin"][$i];
$ls_denfuefin = $data["denfuefin"][$i];
$ld_monto =number_format($data["monto"][$i],2,",",".");
$object[$i][1]="";
$object[$i][2]="";
$object[$i][3]="";
}//for
//$io_class_grid->make_gridScroll($li_totnum,$title,$object,610,'DISTRIBUCION DE LA FUENTE DE FINANCIAMIENTO',$ls_nombre,245);
$io_class_grid->make_gridScroll($li_totnum,$title,$object,550,'DISTRIBUCION DE LA FUENTE DE FINANCIAMIENTO',$ls_nombre,150);
}//if
else
{
$io_msg->message("No se han definido Fuentes de Financimiento para la Estructura Seleccionada");
print "";
}
}
if($ls_operacion=="GUARDARDISFUEFIN")
{
$li_num=$_POST["li_totnum"];
$lb_valido=true;
$lb_existe=true;
$ls_cuenta=$_POST["txtcuenta"];
$ls_estpro1=$_POST["codestpro1"];
$ls_estpro2=$_POST["codestpro2"];
$ls_estpro3=$_POST["codestpro3"];
if($li_estmodest==2)
{
$ls_estpro4=$_POST["codestpro4"];
$ls_estpro5=$_POST["codestpro5"];
}
elseif($li_estmodest == 1)
{
$ls_estpro4="0000000000000000000000000";
$ls_estpro5="0000000000000000000000000";
}
if($li_estmodest==2)
{
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_estpro1,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_estpro2,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_estpro3,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro4=$io_function->uf_cerosizquierda($ls_estpro4,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro5=$io_function->uf_cerosizquierda($ls_estpro5,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
}
else
{
$ls_codestpro1=$io_function->uf_cerosizquierda($ls_estpro1,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro2=$io_function->uf_cerosizquierda($ls_estpro2,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro3=$io_function->uf_cerosizquierda($ls_estpro3,25); // CAMBIO DE TAMAŅO DE LA ESTRUCTURA PROGRAMATICA
$ls_codestpro4=$io_function->uf_cerosizquierda(0,25);
$ls_codestpro5=$io_function->uf_cerosizquierda(0,25);
}
$ls_estcla =$_POST["estcla"];
for($i=1;$i<=$li_num;$i++)
{
$ls_codfuefin=$_POST["txtCodfuefin".$i];
$ls_denfuefin=$_POST["txtDenfuefin".$i];
$ld_monto=$_POST["txtMonto".$i];
$ld_monto=str_replace('.','',$ld_monto);
$ld_monto=str_replace(',','.',$ld_monto);
$object[$i][1]="";
$object[$i][2]="";
$object[$i][3]="";
$lb_existe = $io_class_apertura->uf_spg_existe_fuefin_estructura($ls_empresa,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuenta,$ls_codfuefin);
if(!$lb_existe)
{
$lb_existe = $io_class_apertura->uf_spg_existe_fuefin_estructura($ls_empresa,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuenta,"--");
if(!$lb_existe)
{
$lb_valido=$io_class_apertura->uf_spg_insert_fuefin_estructura($ls_empresa,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuenta,"--",0);
}
if($lb_valido)
{
$lb_valido=$io_class_apertura->uf_spg_insert_fuefin_estructura($ls_empresa,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuenta,$ls_codfuefin,$ld_monto);
}
}
else
{
$lb_valido=$io_class_apertura->uf_spg_update_fuefin_estructura($ls_empresa,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuenta,$ls_codfuefin,$ld_monto);
}
}
if($lb_valido)
{
$io_msg->message("La Distribucion de lo Asignado por Fuente de Financiamiento fue registrado con Exito.....");
$ls_evento="PROCESS";
$ls_estrutura = "";
if($li_estmodest==1)
{
$ls_estrutura = substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3);
}
elseif($li_estmodest==1)
{
$ls_estrutura = substr($ls_codestpro1,-$ls_loncodestpro1)."-".substr($ls_codestpro2,-$ls_loncodestpro2)."-".substr($ls_codestpro3,-$ls_loncodestpro3)."-".substr($ls_codestpro4,-$ls_loncodestpro4)."-".substr($ls_codestpro5,-$ls_loncodestpro5);
}
$ls_desc_event="Se asigno monto a las Fuentes de Financiamiento de la Cuenta de Gasto ".$ls_cuenta." de la Estructura Presupuestaria ".$ls_estrutura;
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event);
}
else
{
$io_msg->message("Ocurrio un Error en la Distribucion de lo Asignado por Fuente de Financiamiento.....");
}
$io_class_grid->make_gridScroll($li_totnum,$title,$object,550,'DISTRIBUCION DE LA FUENTE DE FINANCIAMIENTO',$ls_nombre,150);
}
?>
|