uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
// proceso a ejecutar
$ls_proceso=$io_funciones_cxp->uf_obtenervalor("proceso","");
// fecha(emision) de inicio de busqueda
$ld_fecemides=$io_funciones_cxp->uf_obtenervalor("fecemides","");
// fecha(emision) de fin de busqueda
$ld_fecemihas=$io_funciones_cxp->uf_obtenervalor("fecemihas","");
$tipsolpag=$_POST['tipsolpag'];
switch($ls_proceso)
{
case "FORMATO2":
uf_print_solicitudes($ld_fecemides,$ld_fecemihas);
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_solicitudes($ld_fecemides,$ld_fecemihas)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_solicitudes
// Access: private
// Argument: ad_fecregdes // Fecha (Registro) de inicio de la Busqueda
// ad_fecreghas // Fecha (Registro) de fin de la Busqueda
// Description: Método que impirme el grid de las solicitudes de pago a imprimir en el reporte
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 16/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_cxp, $io_funciones, $io_sql, $io_mensajes,$tipsolpag;
// Titulos del Grid de Solicitudes
$lo_title[1]="";
$lo_title[2]="Solicitud";
$lo_title[3]="Proveedor / Beneficiario";
$lo_title[4]="Concepto";
$lo_title[5]="Fecha";
$lo_title[6]="Monto";
$lo_title[7]="Tipo";
$ld_fecemides=$io_funciones->uf_convertirdatetobd($ld_fecemides);
$ld_fecemihas=$io_funciones->uf_convertirdatetobd($ld_fecemihas);
$rs_datasol=uf_load_solicitudes($ld_fecemides,$ld_fecemihas);
$li_fila=0;
while($row=$io_sql->fetch_row($rs_datasol))
{
$li_fila=$li_fila + 1;
$ls_numsol=$row["numsol"];
$ld_fecemisol=$row["fecemisol"];
$ld_fecemisol=$io_funciones->uf_formatovalidofecha($ld_fecemisol);
$ls_proben=utf8_encode($row["nombre"]);
$ls_consol=utf8_encode($row["consol"]);
$li_monsol=number_format($row["monsol"],2,',','.');
$ld_fecemisol=$io_funciones->uf_convertirfecmostrar($ld_fecemisol);
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
}
if($li_fila==0)
{
$io_mensajes->message("No se encontraron resultados");
$li_fila=1;
$lo_object[$li_fila][1]="";
$lo_object[$li_fila][2]="";
$lo_object[$li_fila][3]="";
$lo_object[$li_fila][4]="";
$lo_object[$li_fila][5]="";
$lo_object[$li_fila][6]="";
$lo_object[$li_fila][7]="";
}
$io_grid->makegrid($li_fila,$lo_title,$lo_object,700,"Solicitudes de Pago","gridsolicitudes");
}// end function uf_print_solicitudes
//-----------------------------------------------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_solicitudes($ad_fecemides,$ad_fecemihas)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_solicitudes
// Access: public
// Arguments: ad_fecemides // Fecha de Emision Desde
// ad_fecemihas // Fecha de Emision Hasta
// Returns: lb_valido True si se creo el Data stored correctamente ó False si no se creo
// Description: función que busca la información de las solicitudes de pago en el intervalo indicado
// Creado Por: Ing. Yesenia Moreno / Ing. Luis Lang
// Fecha Creación: 16/06/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_codemp, $io_sql, $io_funciones,$tipsolpag;
$lb_valido=true;
$ls_criterio="";
if(!empty($ad_fecemides))
{
$ad_fecemides=$io_funciones->uf_convertirdatetobd($ad_fecemides);
$ls_criterio=$ls_criterio. " AND cxp_solicitudes.fecemisol>='".$ad_fecemides."'";
}
if(!empty($ad_fecemihas))
{
$ad_fecemihas=$io_funciones->uf_convertirdatetobd($ad_fecemihas);
$ls_criterio=$ls_criterio. " AND cxp_solicitudes.fecemisol<='".$ad_fecemihas."'";
}
switch ($_SESSION["ls_gestor"])
{
case "MYSQLT":
$ls_cadena="CONCAT(rpc_beneficiario.nombene,' ',rpc_beneficiario.apebene)";
break;
case "POSTGRES":
$ls_cadena="rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene";
break;
case "INFORMIX":
$ls_cadena="rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene";
break;
}
if($tipsolpag){$ls_criterio .= " AND cxp_solicitudes.tipsolpag='".$tipsolpag."' ";}
$ls_sql="SELECT DISTINCT cxp_solicitudes.tipproben,cxp_solicitudes.numsol,cxp_solicitudes.cod_pro,cxp_solicitudes.ced_bene, ".
" cxp_solicitudes.fecemisol,cxp_solicitudes.estprosol,cxp_solicitudes.monsol,cxp_solicitudes.consol,cxp_solicitudes.tipsolpag,".
" (CASE tipproben WHEN 'P' THEN (SELECT rpc_proveedor.nompro ".
" FROM rpc_proveedor ".
" WHERE rpc_proveedor.codemp=cxp_solicitudes.codemp ".
" AND rpc_proveedor.cod_pro=cxp_solicitudes.cod_pro) ".
" WHEN 'B' THEN (SELECT ".$ls_cadena." ".
" FROM rpc_beneficiario ".
" WHERE rpc_beneficiario.codemp=cxp_solicitudes.codemp ".
" AND rpc_beneficiario.ced_bene=cxp_solicitudes.ced_bene) ".
" ELSE 'NINGUNO' END ) AS nombre ".
" FROM cxp_solicitudes ".
" WHERE cxp_solicitudes.codemp='".$ls_codemp."' ".
" ".$ls_criterio." ".
" ORDER BY cxp_solicitudes.numsol";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$this->io_mensajes->message("CLASE->reportes_ajax MÉTODO->uf_load_solicitudes ERROR->".$this->io_funciones->uf_convertirmsg($this->io_sql->message));
$lb_valido=false;
}
else
{
return $rs_data;
}
}// end function uf_load_solicitudes
//-----------------------------------------------------------------------------------------------------------------------------------
?>