decodificar_post();
// tipo de SEP si es de BIENES ó de SERVICIOS
$ls_tipo=$io_funciones_soc->uf_obtenervalor("tipo","-");
// proceso a ejecutar
$ls_proceso=$io_funciones_soc->uf_obtenervalor("proceso","");
// total de filas de Sep
$li_totalsep=$io_funciones_soc->uf_obtenervalor("totalsep","1");
// total de filas de Proveedores
$li_totalproveedores=$io_funciones_soc->uf_obtenervalor("totalproveedores","1");
// total de filas de Bienes
$li_totalbienes=$io_funciones_soc->uf_obtenervalor("totalbienes","1");
// total de filas de Servicios
$li_totalservicios=$io_funciones_soc->uf_obtenervalor("totalservicios","1");
//Obtenemos el numero de la solicitud de cotizacion.
$ls_numsolcot = $io_funciones_soc->uf_obtenervalor("numsolcot","");
//Obtenemos el numero de la SEP.
$ls_numsep = $io_funciones_soc->uf_obtenervalor("numsep","-");
$ls_opesep = $io_funciones_soc->uf_obtenervalor("opesep","-");
$ls_titulo="";
$la_cuentacargo[0]="";
$li_cuenta=1;
switch($ls_proceso)
{
case "LIMPIAR":
switch($ls_tipo)
{
case "B": // Bienes
$ls_titulo="Bien o Material";
uf_print_bienes($li_totalbienes);
uf_print_proveedores($li_totalproveedores);
break;
case "S": // Servicios
$ls_titulo="Servicios";
uf_print_servicios($li_totalservicios);
uf_print_proveedores($li_totalproveedores);
break;
}
break;
case "AGREGARBIENES":
$ls_titulo="Bien o Material";
uf_print_sep($li_totalsep);
uf_print_bienes($li_totalbienes);
uf_print_proveedores($li_totalproveedores);
break;
case "AGREGARSERVICIOS":
$ls_titulo="Servicios";
uf_print_sep($li_totalsep);
uf_print_servicios($li_totalservicios);
uf_print_proveedores($li_totalproveedores);
break;
case "AGREGARPROVEEDORES":
$ls_titulo="Proveedores";
uf_print_sep($li_totalsep);
if ($ls_tipo=='B')
{
uf_print_bienes($li_totalbienes);
}
elseif($ls_tipo=='S')
{
uf_print_servicios($li_totalservicios);
}
uf_print_proveedores($li_totalproveedores);
break;
case "AGREGARSEP":
uf_print_sep($li_totalsep);
if ($ls_tipo=='B')
{
uf_load_bienes_sep($li_totalbienes,$ls_numsep,$ls_opesep);
}
elseif($ls_tipo=='S')
{
uf_load_servicios_sep($li_totalservicios,$ls_numsep,$ls_opesep);
}
uf_print_proveedores($li_totalproveedores);
break;
case "LOADBIENES":
$ls_titulo="Bien o Material";
uf_load_sep($ls_numsolcot);
uf_load_bienes($ls_numsolcot);
uf_load_proveedores($ls_numsolcot,"B");
break;
case "LOADSERVICIOS":
$ls_titulo="Servicios";
uf_load_sep($ls_numsolcot);
uf_load_servicios($ls_numsolcot);
uf_load_proveedores($ls_numsolcot,"S");
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_proveedores($ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_proveedores
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que imprime el grid de los Bienes
// Creado Por: Ing. Néstor Falcon
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc;
// Titulos del Grid de Proveedores
$lo_title[1]="Código";
$lo_title[2]="Nombre";
$lo_title[3]="Dirección";
$lo_title[4]="Teléfono";
$lo_title[5]="";
// Recorrido de todos los Proveedores del Grid
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_codpro = $io_funciones_soc->uf_obtenervalor("txtcodpro".$li_fila,"");
$ls_nompro = $io_funciones_soc->uf_obtenervalor("txtnompro".$li_fila,"");
$ls_dirpro = $io_funciones_soc->uf_obtenervalor("txtdirpro".$li_fila,"");
$ls_telpro = $io_funciones_soc->uf_obtenervalor("txttelpro".$li_fila,"");
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
if($li_fila==$ai_total)// si el la última fila no pinto el eliminar
{
$lo_object[$li_fila][5]="";
}
else
{
$lo_object[$li_fila][5]="";
}
}
print "
";
$io_grid->make_gridScroll($ai_total,$lo_title,$lo_object,800,"Proveedores","gridproveedores",100);
}// end function uf_print_proveedores
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_bienes($ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_bienes
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que imprime el grid de los Bienes
// Creado Por: Ing. Néstor Falcon
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc;
// Titulos del Grid de Bienes
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="";
// Recorrido de todos los Bienes del Grid
for($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_codart = $io_funciones_soc->uf_obtenervalor("txtcodart".$li_fila,"");
$ls_denart = $io_funciones_soc->uf_obtenervalor("txtdenart".$li_fila,"");
$li_canart = $io_funciones_soc->uf_obtenervalor("txtcanart".$li_fila,"0,00");
$ls_numsep = $io_funciones_soc->uf_obtenervalor("hidnumsep".$li_fila,"");
$ls_codunieje = $io_funciones_soc->uf_obtenervalor("hidcodunieje".$li_fila,"");
$ls_codestpro = $io_funciones_soc->uf_obtenervalor("hidcodestpro".$li_fila,"");
$ls_estcla = $io_funciones_soc->uf_obtenervalor("estcla".$li_fila,"");
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
if($li_fila==$ai_total)// si el la última fila no pinto el eliminar
{
$lo_object[$li_fila][4]="";
}
else
{
$lo_object[$li_fila][4]="";
}
}
print "
";
$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,800,"Proveedores","gridproveedores",100);
}// end function uf_load_proveedores
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_sep($as_numsolcot)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_numsol // Número de Solicitud
// as_titulo // Titulo de bienes o servicios
// as_tipo // Tipo de SEP si es de bienes ó de servicios
// Description: Método que busca los creditos de una solicitud y las imprime
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $la_cuentacargo, $li_cuenta;
// Titulos del Grid de Proveedores
$lo_title[1]="Nro Solicitud";
$lo_title[2]="Descripción";
$lo_title[3]="Monto";
$lo_title[4]="";
$lo_object[0]="";
require_once("sigesp_soc_c_solicitud_cotizacion.php");
$io_solicitud = new sigesp_soc_c_solicitud_cotizacion("../../");
$rs_data = $io_solicitud->uf_load_sep_solcot($as_numsolcot);
$li_fila=0;
while ($row=$io_solicitud->io_sql->fetch_row($rs_data))
{
$li_fila++;
$ls_numsep = $row["numsep"];
$ls_densep = $row["densep"];
$ld_monsep = number_format($row["monsep"],2,",",".");
$ls_unieje = $row["codunieje"];
$ls_denuni = $row["denuniadm"];
$ls_estcla = $row["estcla"];
$ls_codestpro = trim($row["codestpro1"]).trim($row["codestpro2"]).trim($row["codestpro3"]).trim($row["codestpro4"]).trim($row["codestpro5"]);
$lo_object[$li_fila][1] = "";
$lo_object[$li_fila][2] = "";
$lo_object[$li_fila][3] = "";
$lo_object[$li_fila][4] = "";
}
$li_fila++;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4] ="";
if ($li_fila>1)
{
print "
";
$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,800,"Solicitudes de Ejecución Presupuestaria","gridsep",100);
}
unset($io_solicitud);
}// end function uf_load_sep
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_bienes_sep($ai_total,$as_numsep,$as_opesep)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_bienes_sep
// Access: private
// Arguments: ai_total
// Description: Método que busca los creditos de una solicitud y las imprime
// Creado Por: Ing.Néstor Falcon
// Fecha Creación: 15/05/2007 Fecha Última Modificación : 15/05/2007
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc;
// Titulos del Grid de Bienes
$lo_title[1]="Código";
$lo_title[2]="Denominación";
$lo_title[3]="Cantidad";
$lo_title[4]="";
require_once("sigesp_soc_c_solicitud_cotizacion.php");
$io_solicitud = new sigesp_soc_c_solicitud_cotizacion("../../");
for ($li_fila=1;$li_fila<$ai_total;$li_fila++)
{
$ls_codart = trim($io_funciones_soc->uf_obtenervalor("txtcodart".$li_fila,""));
$ls_denart = $io_funciones_soc->uf_obtenervalor("txtdenart".$li_fila,"");
$ld_canart = $io_funciones_soc->uf_obtenervalor("txtcanart".$li_fila,"0,00");
//$ld_canart = number_format( $ld_canart, ,2,',','.');
$ls_numsep = trim($io_funciones_soc->uf_obtenervalor("hidnumsep".$li_fila,""));
$ls_codunieje = trim($io_funciones_soc->uf_obtenervalor("hidcodunieje".$li_fila,""));
$ls_codestpro = trim($io_funciones_soc->uf_obtenervalor("hidcodestpro".$li_fila,""));
$ls_estcla = $io_funciones_soc->uf_obtenervalor("estcla".$li_fila,"");
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
}
if (!empty($as_numsep) && ($as_opesep!="DELETE"))
{
$rs_data = $io_solicitud->uf_load_bienes_sep($as_numsep);
while ($row=$io_solicitud->io_sql->fetch_row($rs_data))
{
$ls_codart = trim($row["codart"]);
$ls_denart = $row["denart"];
$ls_unidad = $row["unidad"];//Mayor o Detal
$ld_uniart = $row["uniart"];//Unidad de Medida.
$ld_canart = $row["canart"];
if ($ls_unidad=='M')
{
$ld_canart = ($ld_canart*$ld_uniart);
}
$ld_canart = number_format($ld_canart,2,',','.');
$ls_codunieje = trim($row["coduniadm"]);
$ls_codestpro = trim($row["codestpro1"].$row["codestpro2"].$row["codestpro3"].$row["codestpro4"].$row["codestpro5"]);
$ls_estcla = trim($row["estcla"]);
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$li_fila++;
}
}
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
print "
";
$io_grid->make_gridScroll($li_fila,$lo_title,$lo_object,800,"Detalle de Servicios","gridservicios",100);
unset($io_solicitud);
}// end function uf_load_servicios_sep
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_sep($ai_total)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_sep
// Access: private
// Arguments: ai_total // Total de filas a imprimir
// Description: Método que imprime el grid de las Solicitudes de Ejecución Presupuestaria.
// Creado Por: Ing. Néstor Falcon
// Fecha Creación: 17/03/2007 Fecha Última Modificación : 02/05/2007.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_soc;
// Titulos del Grid de Proveedores
$lo_title[1]="Nro Solicitud";
$lo_title[2]="Descripción";
$lo_title[3]="Monto";
$lo_title[4]="";
// Recorrido de todos las Solicitudes de Ejecución Presupuestaria del Grid.
if ($ai_total>1)
{
for ($li_fila=1;$li_fila<=$ai_total;$li_fila++)
{
$ls_numsep = $io_funciones_soc->uf_obtenervalor("txtnumsep".$li_fila,"");
$ls_densep = $io_funciones_soc->uf_obtenervalor("txtdensep".$li_fila,"");
$ld_monsep = $io_funciones_soc->uf_obtenervalor("txtmonsep".$li_fila,"");
$ls_unieje = $io_funciones_soc->uf_obtenervalor("txtunieje".$li_fila,"");
$ls_denuni = $io_funciones_soc->uf_obtenervalor("txtdenuni".$li_fila,"");
$ls_estcla = $io_funciones_soc->uf_obtenervalor("estcla".$li_fila,"");
$ls_codestpro = $io_funciones_soc->uf_obtenervalor("hidcodestpro".$li_fila,"");
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
if ($li_fila==$ai_total)// si el la última fila no pinto el eliminar
{
$lo_object[$li_fila][4]="";
}
else
{
$lo_object[$li_fila][4]="";
}
}
print "
";
$io_grid->make_gridScroll($ai_total,$lo_title,$lo_object,800,"Solicitudes de Ejecución Presupuestaria","gridsep",100);
}
}// end function uf_print_sep
//-----------------------------------------------------------------------------------------------------------------------------------
?>
Agregar Proveedor