<p>&nbsp;</p>
<?php
require_once("../shared/class_folder/grid_param.php");
require_once("class_folder/sigesp_scb_c_progpago_creditos.php");
$io_scb  = new sigesp_scb_c_progpago_creditos("../");
$io_grid = new grid_param();

uf_limpiar_variables();
switch ($ls_operacion){
  case 'CARGAR_DT':
	uf_load_variables();
	$la_object = $io_scb->uf_load_detalles_desembolso($ls_rutfil.'/'.$ls_filnam,$li_totrows);
  break;
  case 'PROCESAR':
    uf_load_variables();
	uf_load_grid($li_totrows,$la_object);
	$lb_valido = $io_scb->uf_procesar_programacion($ls_rutfil.'/'.$ls_filnam,$li_totrows,$la_seguridad);
  break;
}
?>
<form id="sigesp_scb_p_progpago_creditos.php" name="form1" method="post" action="">
<?php
//////////////////////////////////////////////         SEGURIDAD               /////////////////////////////////////////////
	$io_fun_scb->uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'");
	unset($io_fun_scb);
//////////////////////////////////////////////         SEGURIDAD               /////////////////////////////////////////////
?>
  <table width="557" border="0" align="center" cellpadding="0" cellspacing="0" class="formato-blanco">
    <tr class="titulo-ventana">
      <td height="22" colspan="4" class="titulo-ventana"><input name="operacion" type="hidden" id="operacion" value="<?php echo $ls_operacion ?>" />
      Cr&eacute;ditos - Programaci&oacute;n de Pagos 
	     $la_objscg = $io_scb->uf_print_detalles_scg($ls_rutfil.'/'.$ls_filnam,$la_datscg,$li_totrowscg,$ls_codope,$ls_codban,$ls_ctaban,$ls_scgcta,$ld_montotspg,$ld_monret);
	     if ($li_totrowscg<2)
		    {
			  uf_limpiar_variables();
			  uf_clear_grid();
			}
	   }
    else
	   {
	     uf_limpiar_variables();
		 uf_clear_grid();
	   }
  break;
  case 'PROCESAR':
    uf_load_variables($la_seguridad);
	uf_load_grid($li_totrows,$la_object,$li_totrowscg,$la_objscg);
	$la_datos["codban"] = $ls_codban;
	$la_datos["ctaban"] = $ls_ctaban;
	$la_datos["numdoc"] = $ls_numdoc;
	$la_datos["codope"] = $ls_codope;
	$la_datos["cedben"] = $ls_cedben;
	$la_datos["nomben"] = $ls_nomben;
	$la_datos["nombenalt"] = $ls_nombenalt;
	$la_datos["fecmov"] = $ls_fecmov;
	$la_datos["mondoc"] = $ld_mondoc;
	$la_datos["conmov"] = $ls_conmov;	
	$la_datos["chevau"] = $ls_chevau;
	$la_datos["docnum"] = $ls_docnum;
	$la_datos["monret"] = $ld_monret;
	if (!$lb_existe)
	   {