Catálogo de Préstamos
		Rango de Fechas Desde Hasta
Comprobante
	Buscar

uf_conectar(); require_once("../shared/class_folder/class_datastore.php"); $ds=new class_datastore(); require_once("../shared/class_folder/class_sql.php"); $io_sql=new class_sql($con); require_once("../shared/class_folder/class_mensajes.php"); $io_msg=new class_mensajes(); require_once("../shared/class_folder/class_funciones.php"); $io_fun= new class_funciones(); $arre=$_SESSION["la_empresa"]; $ls_codemp=$arre["codemp"]; $ls_gestor = $_SESSION["ls_gestor"]; require_once("sigesp_saf_c_activo.php"); $io_saf = new sigesp_saf_c_activo(); if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; $ls_cmpres="%".$_POST["txtcmpmov"]."%"; $ld_fecdes="%".$_POST["txtdesde"]."%"; $ld_fechas="%".$_POST["txthasta"]."%"; if(($ld_fecdes=="%%")||($ld_fechas=="%%")) { $ld_fecdes=""; $ld_fechas=""; } else { $ld_fecdes=substr($ld_fecdes,1,10); $ld_fechas=substr($ld_fechas,1,10); $ld_fecdes=$io_fun->uf_convertirdatetobd($ld_fecdes); $ld_fechas=$io_fun->uf_convertirdatetobd($ld_fechas); } } else { $ls_operacion=""; } print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; if($ls_operacion=="BUSCAR") { if(strtoupper($ls_gestor)=="MYSQLT") { $ls_cadena_personal="CONCAT(sno_personal.nomper,' ',sno_personal.apeper)"; } else { $ls_cadena_personal="sno_personal.nomper||' '||sno_personal.apeper"; } if(strtoupper($ls_gestor)=="MYSQLT") { $ls_cadena_beneficiario="CONCAT(rpc_beneficiario.nombene,' ',rpc_beneficiario.apebene)"; } else { $ls_cadena_beneficiario="rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene"; } $ls_estcat=$io_saf->uf_select_valor_config($ls_codemp); if(($ld_fecdes!="")&&($ld_fechas!="")) { $ls_sqlint=" AND saf_prestamo.fecpreact >= '". $ld_fecdes ." 00:00:00'". " AND saf_prestamo.fecpreact <= '". $ld_fechas ." 23:59:59' "; } else { $ls_sqlint=""; } $ls_sqlaux = $ls_tabaux = ""; if ($ls_tipo=='retorno') { $ls_sqlaux = " AND saf_prestamo.codresrec = '".$ls_codbenpre."'"; $ls_tabaux = " , saf_dta"; $ls_sqlaux = $ls_sqlaux." AND saf_dta.estactpre = '1' AND saf_dt_prestamo.codemp=saf_dta.codemp AND saf_dt_prestamo.codact=saf_dta.codact AND saf_dt_prestamo.ideact=saf_dta.ideact"; } $ls_sql="SELECT distinct saf_prestamo.cmppre,saf_prestamo.coduniced, saf_prestamo.obspre, (select srh_organigrama.desorg from srh_organigrama where srh_organigrama.codemp='".$ls_codemp."' and saf_prestamo.coduniced=srh_organigrama.codorg)AS nomadmced, saf_prestamo.codunirec, (select srh_organigrama.desorg from srh_organigrama where srh_organigrama.codemp='".$ls_codemp."' and saf_prestamo.codunirec=srh_organigrama.codorg)AS nomadmrec, saf_prestamo.fecpreact,saf_prestamo.codresced, (select $ls_cadena_personal from sno_personal where sno_personal.codemp='".$ls_codemp."' and saf_prestamo.codresced=sno_personal.codper)AS nomresced, saf_prestamo.codresrec, (select $ls_cadena_personal from sno_personal where sno_personal.codemp='".$ls_codemp."' and saf_prestamo.codresrec=sno_personal.codper)AS nomresrec,saf_prestamo.codtespre, (select $ls_cadena_personal from sno_personal where sno_personal.codemp='".$ls_codemp."' and saf_prestamo.codtespre=sno_personal.codper)AS nomtest, saf_prestamo.estpropre FROM saf_prestamo,saf_dt_prestamo $ls_tabaux WHERE saf_prestamo.codemp='".$ls_codemp."' AND saf_prestamo.codemp = '".$ls_codemp."' $ls_sqlint AND saf_prestamo.cmppre like '".$ls_cmpres."' $ls_sqlaux AND saf_prestamo.cmppre=saf_dt_prestamo.cmppre AND saf_prestamo.coduniced=saf_dt_prestamo.coduniced AND saf_prestamo.codunirec=saf_dt_prestamo.codunirec"; //print "---------->".$ls_sql; $rs_cta=$io_sql->select($ls_sql); $li_row=$io_sql->num_rows($rs_cta); if($li_row>0) { while($row=$io_sql->fetch_row($rs_cta)) { print ""; $ls_cmpres=$row["cmppre"]; $ls_coduniced=$row["coduniced"]; $ls_desuniced=$row["nomadmced"]; $ls_codunirec=$row["codunirec"]; $ls_desunirec=$row["nomadmrec"]; $ld_feccmp=$row["fecpreact"]; $ld_feccmp=$io_fun->uf_convertirfecmostrar($ld_feccmp); $ls_codresced = $row["codresced"]; $ls_nomresced = $row["nomresced"]; $ls_codresrec= $row["codresrec"]; $ls_nomresrec = $row["nomresrec"]; $ls_codtest= $row["codtespre"]; $ls_nomtest= $row["nomtest"]; $ls_estpropre= $row["estpropre"]; if ($ls_tipo=='retorno') { print ""; } else { print ""; } print ""; print ""; print ""; print ""; print ""; } } else { $io_msg->message("No hay registros"); } } print "

Comprobante	Unidad Cedente	Unidad Receptora	Fecha	Testigo
".$ls_cmpres."	".$ls_cmpres."	".$ls_desuniced."	".$ls_desunirec."	".$ld_feccmp."	".$ls_codtest."

"; ?>