"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } $ls_logusr=$_SESSION["la_logusr"]; require_once("class_funciones_gasto.php"); $io_gasto= new class_funciones_gasto(); $ls_origen=$io_gasto->uf_obtenervalor_get("origen",""); if($ls_origen=="") { $ls_origen=$io_gasto->uf_obtenervalor("txtorigen","");; } $io_gasto->uf_load_seguridad("SPG",$ls_origen,$ls_permisos,$la_seguridad,$la_permisos); $ls_estmodprog= $_SESSION["la_empresa"]["estmodprog"]; if($ls_estmodprog!="1") { print ""; } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?> Programacion Mensual uf_obteneroperacion(); $ls_readonly=""; switch($ls_operacion) { case "NUEVO": $ls_fecha=$io_gasto->uf_obtenervalor_get("fecha",date("d/m/Y")); $ls_comprobante=$io_gasto->uf_obtenervalor_get("comprobante",""); $ls_cuentaspg=$io_gasto->uf_obtenervalor_get("cuentaspg",""); $ls_dencta=$io_gasto->uf_obtenervalor_get("dencta",""); $ls_codestpro=$io_gasto->uf_obtenervalor_get("codestpro",""); $ls_estcla=$io_gasto->uf_obtenervalor_get("estcla",""); $ls_procede=$io_gasto->uf_obtenervalor_get("procede",""); $ls_operacion=$io_gasto->uf_obtenervalor_get("operacion",""); $li_monto=$io_gasto->uf_obtenervalor_get("monto",""); $li_mondis=$li_monto; $ls_mes=substr($ls_fecha,3,2); $li_enero="0,00"; $li_febrero="0,00"; $li_marzo="0,00"; $li_abril="0,00"; $li_mayo="0,00"; $li_junio="0,00"; $li_julio="0,00"; $li_agosto="0,00"; $li_septiembre="0,00"; $li_octubre="0,00"; $li_noviembre="0,00"; $li_diciembre="0,00"; $io_gasto->uf_formatoprogramatica($ls_codestpro,$ls_programatica); $ls_codestpro1=substr($ls_codestpro,0,25); $ls_codestpro2=substr($ls_codestpro,25,25); $ls_codestpro3=substr($ls_codestpro,50,25); $ls_codestpro4=substr($ls_codestpro,75,25); $ls_codestpro5=substr($ls_codestpro,100,25); $ld_fecha=$io_fun->uf_convertirdatetobd($ls_fecha); $rs_data=$io_spg->uf_select_dtmp_mensual($ls_procede,$ls_comprobante,$ld_fecha,$ls_codestpro1,$ls_codestpro2, $ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuentaspg, $ls_operacion); if((!$rs_data->EOF)) { $li_enero=number_format($rs_data->fields["enero"],2,',','.'); $li_febrero=number_format($rs_data->fields["febrero"],2,',','.'); $li_marzo=number_format($rs_data->fields["marzo"],2,',','.'); $li_abril=number_format($rs_data->fields["abril"],2,',','.'); $li_mayo=number_format($rs_data->fields["mayo"],2,',','.'); $li_junio=number_format($rs_data->fields["junio"],2,',','.'); $li_julio=number_format($rs_data->fields["julio"],2,',','.'); $li_agosto=number_format($rs_data->fields["agosto"],2,',','.'); $li_septiembre=number_format($rs_data->fields["septiembre"],2,',','.'); $li_octubre=number_format($rs_data->fields["octubre"],2,',','.'); $li_noviembre=number_format($rs_data->fields["noviembre"],2,',','.'); $li_diciembre=number_format($rs_data->fields["diciembre"],2,',','.'); $li_mondis="0,00"; } break; case "GUARDAR": $ls_fecha=$io_gasto->uf_obtenervalor("txtfecha",date("d/m/Y")); $ls_mes=substr($ls_fecha,3,2); $ls_comprobante=$io_gasto->uf_obtenervalor("txtcomprobante",""); $li_mondis=$io_gasto->uf_obtenervalor("txtmondis","0,00"); $ls_cuentaspg=trim($io_gasto->uf_obtenervalor("txtcuentaspg","")); $ls_dencta=rtrim(ltrim($io_gasto->uf_obtenervalor("txtdenominacion",""))); $ls_codestpro=$io_gasto->uf_obtenervalor("txtcodestpro",""); $ls_estcla=$io_gasto->uf_obtenervalor("txtestcla",""); $ls_procede=$io_gasto->uf_obtenervalor("txtprocede",""); $ls_operacion=$io_gasto->uf_obtenervalor("txtoperacion",""); $li_monto=$io_gasto->uf_obtenervalor("txtmonto",""); $li_enero=$io_gasto->uf_obtenervalor("txtenero",0); $li_febrero=$io_gasto->uf_obtenervalor("txtfebrero",0); $li_marzo=$io_gasto->uf_obtenervalor("txtmarzo",0); $li_abril=$io_gasto->uf_obtenervalor("txtabril",0); $li_mayo=$io_gasto->uf_obtenervalor("txtmayo",0); $li_junio=$io_gasto->uf_obtenervalor("txtjunio",0); $li_julio=$io_gasto->uf_obtenervalor("txtjulio",0); $li_agosto=$io_gasto->uf_obtenervalor("txtagosto",0); $li_septiembre=$io_gasto->uf_obtenervalor("txtseptiembre",0); $li_octubre=$io_gasto->uf_obtenervalor("txtoctubre",0); $li_noviembre=$io_gasto->uf_obtenervalor("txtnoviembre",0); $li_diciembre=$io_gasto->uf_obtenervalor("txtdiciembre",0);; $io_gasto->uf_formatoprogramatica($ls_codestpro,$ls_programatica); $ld_fecha=$io_fun->uf_convertirdatetobd($ls_fecha); $ls_codestpro1=substr($ls_codestpro,0,25); $ls_codestpro2=substr($ls_codestpro,25,25); $ls_codestpro3=substr($ls_codestpro,50,25); $ls_codestpro4=substr($ls_codestpro,75,25); $ls_codestpro5=substr($ls_codestpro,100,25); $lb_valido=$io_spg->uf_select_mp_mensual($ls_procede,$ls_comprobante,$ld_fecha,$ls_estapro); if($lb_valido) { if($ls_estapro=="0") { $io_spg->io_sql->begin_transaction(); $rs_data=$io_spg->uf_select_dtmp_mensual($ls_procede,$ls_comprobante,$ld_fecha,$ls_codestpro1,$ls_codestpro2, $ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuentaspg, $ls_operacion); if((!$rs_data->EOF)) { $lb_valido=$io_spg->uf_delete_dtmp_mensual($ls_procede,$ls_comprobante,$ld_fecha,$ls_codestpro1, $ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5, $ls_estcla,$ls_cuentaspg,$ls_operacion,$la_seguridad); if($lb_valido) { $lb_valido=$io_spg->uf_insert_mp_mensual($ls_procede,$ls_comprobante,$ld_fecha,$ls_codestpro1, $ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5, $ls_estcla,$ls_cuentaspg,$ls_operacion,$li_enero,$li_febrero, $li_marzo,$li_abril,$li_mayo,$li_junio,$li_julio,$li_agosto, $li_septiembre,$li_octubre,$li_noviembre,$li_diciembre,$la_seguridad); } } else { $lb_valido=$io_spg->uf_insert_mp_mensual($ls_procede,$ls_comprobante,$ld_fecha,$ls_codestpro1, $ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5, $ls_estcla,$ls_cuentaspg,$ls_operacion,$li_enero,$li_febrero, $li_marzo,$li_abril,$li_mayo,$li_junio,$li_julio,$li_agosto, $li_septiembre,$li_octubre,$li_noviembre,$li_diciembre,$la_seguridad); } if($lb_valido) { $io_spg->io_sql->commit(); $io_msg->message("La distribucion mensual se ha registrado satisfactoriamente"); } else { $io_spg->io_sql->rollback(); $io_msg->message("La ha ocurrido un error al realizar la distribucion mensual."); } } else { $io_msg->message("La modificacion ha sido aprobada y no puede ser modificada"); } } break; } ?>

 

Programacion Mensual
 
Fecha
Cuenta
Denominación
Monto Max.
Disponible
       
Enero
onBlur="javascript: ue_calcular_disponible();">
Julio
 onBlur="javascript: ue_calcular_disponible();">
   
Febrero
 onBlur="javascript: ue_calcular_disponible();">
Agosto
 onBlur="javascript: ue_calcular_disponible();">
   
Marzo
 onBlur="javascript: ue_calcular_disponible();">
Septiembre
 onBlur="javascript: ue_calcular_disponible();">
   
Abril
 onBlur="javascript: ue_calcular_disponible();">
Octubre
 onBlur="javascript: ue_calcular_disponible();">
   
Mayo
 onBlur="javascript: ue_calcular_disponible();">
Noviembre
 onBlur="javascript: ue_calcular_disponible();">
   
Junio
onBlur="javascript: ue_calcular_disponible();">
Diciembre
 onBlur="javascript: ue_calcular_disponible();">