"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } $ls_logusr=$_SESSION["la_logusr"]; require_once("class_funciones_banco.php"); $io_fun_banco= new class_funciones_banco(); $io_fun_banco->uf_load_seguridad("SCB","sigesp_scb_p_desprogpago.php",$ls_permisos,$la_seguridad,$la_permisos); $li_diasem = date('w'); switch ($li_diasem){ case '0': $ls_diasem='Domingo'; break; case '1': $ls_diasem='Lunes'; break; case '2': $ls_diasem='Martes'; break; case '3': $ls_diasem='Miércoles'; break; case '4': $ls_diasem='Jueves'; break; case '5': $ls_diasem='Viernes'; break; case '6': $ls_diasem='Sábado'; break; } ?> Desprogramación de Pagos
Caja y Banco
 
       
Nuevo Guardar Salir Ayuda
uf_conectar(); $io_grid = new grid_param(); $io_despag = new sigesp_scb_c_desprogpago($la_seguridad); $li_estciespg = $io_fun_banco->uf_load_estatus_cierre($li_estciespi,$li_estciescg); if (array_key_exists("operacion",$_POST))//Cuando aplicamos alguna operacion { $ls_operacion = $_POST["operacion"]; if (array_key_exists("rb_provbene",$_POST)) { $ls_tipproben = $_POST["rb_provbene"]; } else { $ls_tipproben = '-'; } } else { $ls_tipproben = '-'; $ls_operacion = "NUEVO" ; } $ls_disable = ""; if ($li_estciescg==1) { $ls_disable = "disabled"; } if (($li_estciespg==1 || $li_estciespi==1) && $li_estciescg==0 && $ls_operacion=="NUEVO") { $io_msg->message("Ya fué procesado el Cierre Presupuestario, sólo serán cargadas Solicitudes de Pago asociadas a Recepciones de Documentos netamente Contables !!!"); } elseif($li_estciespg==1 && $li_estciespi==1 && $li_estciescg==1 && $ls_operacion=="NUEVO") { $io_msg->message("Ya fué procesado el Cierre Contable, No pueden efectuarse movimientos, Contacte al Administrador del Sistema !!!"); } if ($ls_tipproben=='P') { $rb_prov = "checked"; $rb_bene = ""; } elseif($ls_tipproben=='B') { $rb_prov = ""; $rb_bene = "checked"; } else { $rb_prov = ""; $rb_bene = ""; } //Encabezado del Grid. $titleProg[1]="Check"; $titleProg[2]="Solicitud"; $titleProg[3]="Monto"; $titleProg[4]="Prov/Benef."; $titleProg[5]="Fecha Prog."; $titleProg[6]="Banco"; $titleProg[7]="Cuenta Banco"; $gridProg="grid_prog"; if (($ls_operacion=="CAMBIO_TIPO")||($ls_operacion=="GUARDAR")) { //Cargo los datos de las programaciones. $rs_solpag = $io_despag->uf_cargar_programaciones($_SESSION["la_empresa"]["codemp"],$ls_tipproben); $li_totsolpag = $io_despag->SQL->num_rows($rs_solpag); if ($li_totsolpag>0) { $li_i = 0; while(!$rs_solpag->EOF) { $li_detspg = $rs_solpag->fields["detspg"]; if (($li_estciespg==1 || $li_estciespi==1) && ($li_detspg==0 && $li_estciescg==0) || ($li_estciespg==0 && $li_estciespi==0 && $li_estciescg==0)) { $li_i++; $ls_numsol = $rs_solpag->fields["numsol"]; $ld_monsolpag = $rs_solpag->fields["monsol"]; $ls_codproben = $rs_solpag->fields["codproben"]; if ($ls_tipproben=='P') { $ls_nomproben = $rs_solpag->fields["nomproben"]; } elseif($ls_tipproben=='B') { $ls_nomproben = $rs_solpag->fields["nombene"]; $ls_apeben = $rs_solpag->fields["apebene"]; if (!empty($ls_apeben)) { $ls_nomproben = $ls_nomproben.', '.$ls_apeben; } } $ld_fecpropag = $io_funcion->uf_convertirfecmostrar($rs_solpag->fields["fecpropag"]); $ls_codban = $rs_solpag->fields["codban"]; $ls_nomban = $rs_solpag->fields["nomban"]; $ls_ctaban = $rs_solpag->fields["ctaban"]; $ls_denctaban = $rs_solpag->fields["dencta"]; $object[$li_i][1] = ""; $object[$li_i][2] = ""; $object[$li_i][3] = ""; $object[$li_i][4] = ""; $object[$li_i][5] = ""; $object[$li_i][6] = ""; $object[$li_i][7] = ""; } $rs_solpag->MoveNext(); } $li_totsolpag = $li_i; if ($li_totsolpag==0) { $ls_operacion = "NUEVO"; } } else { $ls_operacion = "NUEVO"; } } if ($ls_operacion=="NUEVO") { $ls_tipproben = '-'; $li_totsolpag = $i = 1; $object[1][1] = ""; $object[1][2] = ""; $object[1][3] = ""; $object[1][4] = ""; $object[1][5] = ""; $object[1][6] = ""; $object[1][7] = ""; } elseif($ls_operacion=="GUARDAR") { $li_totsolpag=$_POST["totsol"]; $lb_valido=true; $io_despag->SQL->begin_transaction(); for ($i=0;($i<=$li_totsolpag)&&($lb_valido);$i++) { if (array_key_exists("chksel".$i,$_POST)) { $ls_numsol = $_POST["txtnumsol".$i]; $ldec_monto = $_POST["txtmonsol".$i]; $ls_codban = $_POST["txtcodban".$i]; $ls_ctaban = $_POST["txtctaban".$i]; $ls_provbene = $_POST["txtcodproben".$i]; $ls_tipproben = $_POST["rb_provbene"]; $ld_fecpropag = $_POST["txtfecprog".$i]; $ls_estmov = 'D'; $lb_valido = $io_despag->uf_procesar_desprogramacion($ls_numsol,$ld_fecpropag,$ls_estmov,$ls_codban,$ls_ctaban,$ls_provbene,$ls_tipproben); } } if ($lb_valido) { $io_despag->SQL->commit(); $io_msg->message("El movimiento fue registrado"); } else { $io_despag->SQL->rollback(); } } ?>
uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'"); unset($io_fun_banco); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>
Desprogramación de Pagos
 
 


 
 
makegrid($li_totsolpag,$titleProg,$object,770,'Solicitudes Programadas',$gridProg);?>