";
}
function uf_pintardetalle(&$lo_object,$ai_totrows)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_pintardetalle
// Access: private
// Argumento: $aa_object // arreglo de objetos
// $ai_totrows // ultima fila pintada en el grid
// Returns:
// Description: Funcion que se encarga de repintar el detalle existente en el grid.
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 11/04/2006 Fecha Última Modificación : 11/04/2006
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
for($li_i=1;$li_i<$ai_totrows;$li_i++)
{
$ls_codact= $_POST["txtcodact".$li_i];
$ls_denact= $_POST["txtdenact".$li_i];
$ls_idact= $_POST["txtidact".$li_i];
//$ls_desmov= $_POST["txtdesmov".$li_i];
$li_monact= $_POST["txtmonact".$li_i];
$lo_object[$li_i][1]="";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="";
$lo_object[$li_i][4]="";
$lo_object[$li_i][5]="";
}
uf_agregarlineablanca($lo_object,$ai_totrows);
}
?>
 |
||||||||||||||
|
||||||||||||||
 |
 |
 |
 |
 |
||||||||||
";
}
uf_agregarlineablanca($lo_object,$li_totrows);
break;
case "GUARDAR":
uf_limpiarvariables();
$li_totrows = uf_obtenervalor("totalfilas",1);
$ls_codusureg=$_SESSION["la_logusr"];
$ls_cmpres=$_POST["txtcmpres"];
$ls_coduniadmcede=$_POST["txtcoduniadmced"];
$ls_denuniadmcede=$_POST["txtdenuniadmced"];
$ls_codresced=$_POST["txtcodresced"];
$ls_nomresced=$_POST["txtnomresced"];
$ls_testced=$_POST["txtestced"];
$ls_codreserec=$_POST["txtcodresrece"];
$ls_nomresrec=$_POST["txtnomresrec"];
//$ls_testrec=$_POST["txtestrec"];
$ls_coduniadmrece=$_POST["txtcoduniadmrec"];
$ls_denuniadmrece=$_POST["txtdenuniadmrec"];
$ld_fecenacta=$_POST["txtfecenacta"];
//$ls_descmp=$_POST["txtdescmp"];
$ls_codper=$_POST["txtcodper"];
$ls_nomper=$_POST["txtnomper"];
$ls_estpres="0";
if( ($ls_coduniadmcede=="")||($ls_codresced=="")||($ls_codreserec=="")||($ls_coduniadmrece=="")||($ls_codper==""))
{
$io_msg->message("Debe compeltar los campos");
}
else
{
$ld_fecenacta=$io_fun->uf_convertirdatetobd($ld_fecenacta);
$lb_existe=$io_saf->uf_saf_select_prestamo($ls_codemp,$ls_cmpres,$ld_fecenacta,$ls_coduniadmcede,$ls_coduniadmrece);
if($lb_existe)
{
if ($ls_estpres=="0")
{
for($li_i=1;$li_i<=$li_totrows;$li_i++)
{
$ls_codact= $_POST["txtcodact".$li_i];
$ls_denact= $_POST["txtdenact".$li_i];
$ls_idact= $_POST["txtidact".$li_i];
//$ls_desmov= $_POST["txtdesmov".$li_i];
$li_monact= $_POST["txtmonact".$li_i];
$lb_valido=$io_saf->uf_saf_update_prestamo($ls_codemp,$ls_cmpres,$ld_fecenacta,$ls_coduniadmcede,
$ls_coduniadmrece,$ls_codresced,$ls_codreserec,$ls_codper,
$ls_estpres,$la_seguridad);
}
if ($lb_valido)
{
$ls_estactpre="1";
$lb_valido=$io_saf->uf_saf_update_saf_dta($ls_codemp,$ls_codact,$ls_coduniadmcede,$ls_idact,
$ls_estactpre,$ld_fecenacta,$ls_coduniadmrece,$la_seguridad);
}
if($lb_valido)
{
$io_msg->message("El registro fue actualizado con exito");
uf_limpiarvariables();
}
else
{
$io_msg->message("El registro no pudo ser actualizado");
uf_limpiarvariables();
}
} // fin del if $ls_estpres
}
else
{
$ld_fecenacta=$io_fun->uf_convertirdatetobd($ld_fecenacta);
$io_sql->begin_transaction();
$lb_valido=$io_saf->uf_saf_insertar_prestamo($ls_codemp,$ls_cmpres,$ld_fecenacta,$ls_coduniadmcede,
$ls_coduniadmrece,$ls_codresced,$ls_codreserec,$ls_codper,$ls_estpres,$la_seguridad);
if($lb_valido)
{
$io_sql->commit();
for($li_i=1;$li_i<$li_totrows;$li_i++)
{
$ls_codact= $_POST["txtcodact".$li_i];
$ls_denact= $_POST["txtdenact".$li_i];
$ls_idact= $_POST["txtidact".$li_i];
//$ls_desmov= $_POST["txtdesmov".$li_i];
$li_monact= $_POST["txtmonact".$li_i];
$li_monact= str_replace(".","",$li_monact);
$li_monact= str_replace(",",".",$li_monact);
$ld_fecenacta=$io_fun->uf_convertirdatetobd($ld_fecenacta);
$lb_valido=$io_saf->uf_saf_insert_dt_prestamo($ls_codemp,$ls_cmpres,$ld_fecenacta,$ls_coduniadmcede,
$ls_coduniadmrece,$ls_codact,$ls_idact,$la_seguridad);
if ($lb_valido)
{
$ls_estactpre="1";
$lb_valido=$io_saf->uf_saf_update_saf_dta($ls_codemp,$ls_codact,$ls_coduniadmcede,$ls_idact,
$ls_estactpre,$ld_fecenacta,$ls_coduniadmrece,$la_seguridad);
}
}
$io_msg->message("El registro fue incluido con exito");
$ls_estpres=0;
uf_agregarlineablanca($lo_object,1);
uf_limpiarvariables();
$li_totrows=1;
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo incluir el registro");
uf_pintardetalle($lo_object,$ai_totrows);
}
}
}
break;
case "ELIMINARDETALLE":
uf_limpiarvariables();
$li_totrows = uf_obtenervalor("totalfilas",1);
$ls_cmpres=$_POST["txtcmpres"];
$li_totrows=$li_totrows-1;
$li_rowdelete=$_POST["filadelete"];
$li_temp=0;
$ls_cmpres=$_POST["txtcmpres"];
$ls_coduniadmcede=$_POST["txtcoduniadmced"];
$ls_denuniadmcede=$_POST["txtdenuniadmced"];
$ls_codresced=$_POST["txtcodresced"];
$ls_nomresced=$_POST["txtnomresced"];
$ls_testced=$_POST["txtestced"];
$ls_codreserec=$_POST["txtcodresrece"];
$ls_nomresrec=$_POST["txtnomresrec"];
// $ls_testrec=$_POST["txtestrec"];
$ls_coduniadmrece=$_POST["txtcoduniadmrec"];
$ls_denuniadmrece=$_POST["txtdenuniadmrec"];
$ld_fecenacta=$_POST["txtfecenacta"];
//$ls_descmp=$_POST["txtdescmp"];
$ls_codper=$_POST["txtcodper"];
$ls_nomper=$_POST["txtnomper"];
for($li_i=1;$li_i<=$li_totrows;$li_i++)
{
if($li_i!=$li_rowdelete)
{
$li_temp++;
$ls_codact= $_POST["txtcodact".$li_i];
$ls_denact= $_POST["txtdenact".$li_i];
$ls_idact= $_POST["txtidact".$li_i];
//$ls_desmov= $_POST["txtdesmov".$li_i];
$li_monact= $_POST["txtmonact".$li_i];
$lo_object[$li_temp][1]="";
$lo_object[$li_temp][2]="";
$lo_object[$li_temp][3]="";
$lo_object[$li_temp][4]="";
$lo_object[$li_temp][5]="";
}
else
{
$li_rowdelete= 0;
}
}
if ($li_temp==0)
{
$li_totrows=1;
uf_agregarlineablanca($lo_object,$li_totrows);
}
else
{
uf_agregarlineablanca($lo_object,$li_totrows);
}
break;
case "BUSCARDETALLE":
uf_limpiarvariables();
$ls_cmpres = $_POST["txtcmpres"];
$ls_coduniadmcede = $_POST["txtcoduniadmced"];
$ls_denuniadmcede = $_POST["txtdenuniadmced"];
$ls_codresced = $_POST["txtcodresced"];
$ls_nomresced = $_POST["txtnomresced"];
$ls_testced = $_POST["txtestced"];
$ls_codreserec = $_POST["txtcodresrece"];
$ls_nomresrec = $_POST["txtnomresrec"];
$ls_testrec = $_POST["txtestres"];
$ls_coduniadmrece = $_POST["txtcoduniadmrec"];
$ls_denuniadmrece = $_POST["txtdenuniadmrec"];
$ld_fecenacta = $_POST["txtfecenacta"];
$ls_codper = $_POST["txtcodper"];
$ls_nomper = $_POST["txtnomper"];
$ls_estpres = $_POST["hidestpres"];
$li_montot="";
$lb_valido=$io_saf->uf_saf_load_detalle_prestamo($ls_codemp,$ls_cmpres,$ld_fecenacta,$ls_coduniadmcede,
$ls_coduniadmrece,$li_totrows,$lo_object);
break;
case "PROCESAR":
$ls_estpres="1";
$ls_cmpres=$_POST["txtcmpres"];
$ld_fecenacta=$_POST["txtfecenacta"];
$ls_coduniadmcede=$_POST["txtcoduniadmced"];
$ls_coduniadmrece=$_POST["txtcoduniadmrec"];
$ld_fecenacta=$io_fun->uf_convertirdatetobd($ld_fecenacta);
$io_sql->begin_transaction();
$lb_valido=$io_saf->uf_saf_update_procesarprestamo($ls_codemp,$ls_cmpres,$ls_coduniadmcede,
$ls_coduniadmrece,$ld_fecenacta,$ls_estpres,$la_seguridad);
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("El registro fue procesado con exito");
uf_agregarlineablanca($lo_object,1);
uf_limpiarvariables();
$li_totrows=1;
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo procesar el registro");
uf_limpiarvariables();
uf_agregarlineablanca($lo_object,1);
}
break;
case "REVERSAR":
$ls_cmpres=$_POST["txtcmpres"];
$ls_coduniadmcede=$_POST["txtcoduniadmced"];
$ls_coduniadmrece=$_POST["txtcoduniadmrec"];
$ld_fecenacta=$_POST["txtfecenacta"];
$ld_fecenacta=$io_fun->uf_convertirdatetobd($ld_fecenacta);
$ls_estpres=0;
$io_sql->begin_transaction();
$lb_valido=$io_saf->uf_saf_update_procesarprestamo($ls_codemp,$ls_cmpres,$ls_coduniadmcede,
$ls_coduniadmrece,$ld_fecenacta,$ls_estpres,$la_seguridad);
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("El registro fue reversado con exito");
uf_agregarlineablanca($lo_object,1);
uf_limpiarvariables();
$li_totrows=1;
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo reversar el registro");
uf_limpiarvariables();
uf_agregarlineablanca($lo_object,1);
}
break;
} // fin del switch
?>
