Programación de Pagos

"; 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_progpago.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; } ?> Programación de Pagos

Caja y Banco

uf_conectar(); $obj_con = new ddlb_conceptos($ls_conect); $li_estciespg = $io_fun_banco->uf_load_estatus_cierre($li_estciespi,$li_estciescg); $io_ctaban = new sigesp_c_cuentas_banco(); require_once("sigesp_scb_c_progpago.php"); $io_propag=new sigesp_scb_c_progpago($la_seguridad); if (array_key_exists("chktipvia",$_POST)) { $li_tipvia = $_POST["chktipvia"]; } else { $li_tipvia = 0; } if ($li_tipvia=='0') { $ls_checked = ''; } else { $ls_checked = 'checked'; } if (array_key_exists("operacion",$_POST))//Cuando aplicamos alguna operacion { $ls_operacion = $_POST["operacion"]; $ld_fecha = $_POST["txtfecha"]; $ls_codban = $_POST["txtcodban"]; $ls_denban = $_POST["txtdenban"]; $ls_cuenta_banco = $_POST["txtcuenta"]; $ls_dencuenta_banco = $_POST["txtdenominacion"]; if (array_key_exists("rb_provbene",$_POST)) { $ls_tipproben = $_POST["rb_provbene"]; } else { $ls_tipproben = '-'; } if (array_key_exists("cmboperacion",$_POST)) { $ls_mov_operacion=$_POST["cmboperacion"]; if($ls_mov_operacion=='ND') { $lb_nd="selected"; $lb_ch=""; } if($ls_mov_operacion=='CH') { $lb_nd=""; $lb_ch="selected"; } } if($ls_operacion=="CAMBIO_OPERA") { $ls_opepre=0; $ls_codconmov="---"; } if(array_key_exists("opepre",$_POST)) { $ls_opepre=$_POST["opepre"]; } if(array_key_exists("ddlb_conceptos",$_POST)) { $ls_codigoconcepto=$_POST["ddlb_conceptos"]; } } else//Caso de apertura de la pagina o carga inicial { $ls_mov_operacion="ND"; if($ls_mov_operacion=='ND') { $lb_nd="selected"; $lb_ch=""; } if($ls_mov_operacion=='CH') { $lb_nd=""; $lb_ch="selected"; } $ls_operacion= "NUEVO" ; $ls_mov_operacion="NC"; $ls_seleccionado=""; $ls_codban=""; $ls_denban=""; $ls_cuenta_banco=""; $ls_dencuenta_banco=""; $ls_tipproben='-'; $array_fecha=getdate(); $ls_dia=$array_fecha["mday"]; $ls_mes=$array_fecha["mon"]; $ls_ano=$array_fecha["year"]; $ld_fecha=$fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano; $ldec_total_prog = 0; } $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 = ""; $ls_disabled = "disabled"; } elseif($ls_tipproben=='B') { $rb_prov = ""; $rb_bene = "checked"; $ls_disabled = ""; } else { $rb_prov = ""; $rb_bene = ""; $ls_disabled = "disabled"; } //Declaración de parametros del grid. $titleProg[1]=''; $titleProg[2]="Solicitud"; $titleProg[3]="Monto"; $titleProg[4]="Saldo"; $titleProg[5]="Fecha"; $titleProg[6]="Proveedor\Beneficiario"; $titleProg[7]="Fecha Prog."; $titleProg[8]="Tipo"; $gridProg="grid_prog"; if ($ls_operacion=="NUEVO") { $ls_mov_operacion="ND"; if($ls_mov_operacion=='ND') { $lb_nd="selected"; $lb_ch=""; } if($ls_mov_operacion=='CH') { $lb_nd=""; $lb_ch="selected"; } $ls_codconmov="---"; $rb_prov = ""; $rb_bene = ""; $ls_codban=""; $ls_denban=""; $ls_cuenta_banco=""; $ls_dencuenta_banco=""; $ls_tipproben='-'; $ldec_total_prog = 0; $array_fecha=getdate(); $ls_dia = $array_fecha["mday"]; $ls_mes = $array_fecha["mon"]; $ls_ano = $array_fecha["year"]; $ld_fecha = $fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano; uf_clear_grid($li_totsolpag,$object); } if ($ls_operacion=="GUARDAR") { $li_totsolpag = $_POST["totsol"]; $lb_valido = true; $io_dssolvia = new class_datastore(); $io_propag->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]; $li_saldo = $_POST["txtsaldo".$i]; $ls_codban = $_POST["txtcodban"]; $ls_ctaban = $_POST["txtcuenta"]; $ls_provbene = $_POST["txtcodproben".$i]; $ls_tipproben = $_POST["rb_provbene"]; $ld_fecpropag = $_POST["txtfecprog".$i]; if ($ld_fecpropag!="") { $ls_estmov='P'; $lb_valido=$io_propag->uf_procesar_programacion($ls_numsol,$ld_fecpropag,$ls_estmov,$ls_codban,$ls_ctaban,$ls_provbene,$ls_tipproben,$li_tipvia); } else { $io_msg->message("Seleccione la, solicitud a programar y asigne la fecha de programación"); } } } if ($lb_valido) { $io_propag->SQL->commit(); $io_msg->message("El movimiento fue registrado"); } else { $io_propag->SQL->rollback(); $io_msg->message($io_propag->is_msg_error); } } if (($ls_operacion=="CAMBIO_TIPO")||($ls_operacion=="GUARDAR")||($ls_operacion=="CAMBIO_OPERA")) { if(array_key_exists("opepre",$_POST)) { $ls_opepre=$_POST["opepre"]; } if(array_key_exists("ddlb_conceptos",$_POST)) { $ls_codigoconcepto=$_POST["ddlb_conceptos"]; } if(array_key_exists("codconmov",$_POST)) { $ls_codconmov=$_POST["codconmov"]; } //Cargo los datos de las programaciones. $ldec_total_prog = $_POST["txttotalprog"]; $rs_solpag = $io_propag->uf_cargar_solicitudes($ls_codemp,$ls_tipproben,$li_tipvia); $li_totsolpag = $io_propag->SQL->num_rows($rs_solpag); if ($li_totsolpag>0) { $li_i = 0; while(!$rs_solpag->EOF) { $ld_montotsal = $ld_montotnot = 0; $ls_numsol = $rs_solpag->fields["numsol"]; $ls_codproben = $rs_solpag->fields["codproben"]; $ld_monsolpag = $rs_solpag->fields["monsol"]; $ls_fecpagsol = $rs_solpag->fields["fecpagsol"]; $tipsolpag = $rs_solpag->fields["tipsolpag"]; $io_propag->uf_load_notas_asociadas($ls_codemp,$ls_numsol,$ld_montotnot); $ld_montotsal = $ld_monsolpag+$ld_montotnot; $ls_fecemisol = $fun->uf_convertirfecmostrar($rs_solpag->fields["fecemisol"]); $ls_codproben = trim($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; } } //$ls_procede = $rs_solpag->fields["procede"]; $ls_valor=$io_propag->uf_buscar_detalles_pre($ls_codemp,$ls_numsol, $ls_tipproben); if (($li_estciespg==1 || $li_estciespi==1) && ($ls_valor==0 && $li_estciescg==0) || ($li_estciespg==0 && $li_estciespi==0 && $li_estciescg==0)) { $li_i++; $ls_numordpagmin = $rs_solpag->fields["numordpagmin"]; $ls_codtipfon = $rs_solpag->fields["codtipfon"]; if (!empty($ls_numordpagmin) && !empty($ls_codtipfon) && $ls_codtipfon!='----' && $ls_numordpagmin!='-') { $ls_banco = $io_propag->uf_load_datos_orden_pago($ls_numordpagmin,$ls_codtipfon,$ls_cuenta,$ls_nomban,$ls_dencta); $io_ctaban->uf_verificar_saldo($ls_banco,$ls_cuenta,$ld_totmondis); } else { $ls_cuenta = $ls_banco = $ls_nomban = $ls_dencta = $ld_totmondis = ""; $ld_totmondis = "0,00"; } $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] = ""; // ".$ls_procede." Va en el value del hidprocede OJO!! $object[$li_i][8] = $tipsolpag; }//fin del if ($ls_valor==0 && $li_estciescg==0) $rs_solpag->MoveNext(); } $li_totsolpag = $li_i; if ($li_i==0) { uf_clear_grid($li_totsolpag,$object); } } else { uf_clear_grid($li_totsolpag,$object); } } function uf_clear_grid($li_totsolpag,$object) { //////////////////////////////////////////////////////////////////////////////////////////////////////// // Funcion = uf_clear_grid. // Descripcion = Método que permite imprimir el grid en blanco cuando no haya registros para mostrar. // Creación = 10/09/2008. // Creado Por = Ing. Néstor Falcón. /////////////////////////////////////////////////////////////////////////////////////////////////////// global $ls_disabled,$ldec_total_prog; $li_totsolpag = $i = 1; $ldec_total_prog = 0; $object[1][1] = ""; $object[1][2] = ""; $object[1][3] = ""; $object[1][4] = ""; $object[1][5] = ""; $object[1][6] = ""; $object[1][7] = ""; $object[1][8] = ""; } ?>

uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'"); unset($io_fun_banco); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

Programación de Pagos

	> Proveedor > Beneficiario		Tipo Viático onClick="javascript:uf_cambiar();">
Operación
Tipo Concepto	uf_cargar_conceptos($ls_mov_operacion,$ls_codconmov); ?>
Banco
Cuenta
Disponible

Detalles Solicitudes

Solicitud		Fecha
Prov/Bene		Fecha Programada	onKeyDown="javascript:ue_formato_fecha(this,'/',patron,true,event);" onBlur="javascript: ue_validar_formatofecha(this);">
Monto
	Procesar Programación Aplicar Fecha a Todas
make_gridScroll($li_totsolpag,$titleProg,$object,870,'Solicitudes a Programar ',$gridProg,120);?>
		Total Programación	" readonly>

uf_conectar(); $io_sql = new class_sql($con); $ls_codcon = $_POST["opepre"]; $ls_totalbancos=$in_classmovbco->uf_total_bancos($ls_codcon,'',''); if ($ls_totalbancos >1) { $ls_pagina="sigesp_cat_bancos.php?codcon=$ls_codcon"; ?> uf_bancos_ctaconcepto($ls_codcon,'',''); while (!$rs_data_ban->EOF) { $li_row++; $ls_codban = $rs_data_ban->fields["codban"]; $ls_nomban = $rs_data_ban->fields["nomban"]; $rs_data_ban->MoveNext(); $ls_totalcuentas=$in_classmovbco->uf_total_cuentas($ls_codcon,$ls_codban,'',''); } ?>