#!/usr/bin/perl
use Mail::Sendmail;
require "cgi-lib.pl";
#variables que recibira de su forma
#los nombres dentro de $in (results, subject, etc) deben coincidir
&ReadParse;
$results = $in{'results'}; delete $in{'results'};
$subject = $in{'subject'}; delete $in{'subject'};
$sendto = $in{'sendto'}; delete $in{'sendto'};
$form = $in{'form'}; delete $in{'form'};
$website = $in{'website'}; delete $in{'website'};
delete $in{'submit'};
delete $in{'Submit'};
delete $in{'Reset'};
$url = $ENV{'HTTP_REFERER'};
$fecha = time();
&PrintError("No se especifico un email.") if ($sendto eq '');
&PrintError("No se especifico un subject.") if ($subject eq '');
&PrintError("No se especifico pagina de resultados.") if ($results eq '');
&send_an_email;
&send_a_redirect;
sub send_an_email
{
$date = &getDate;
$info = "Alguien ha llenado información en el formulario de $form:\n $url\ncon la siguiente información:\n";
$info .= "Date: $date\n";
$info .= "\n";
$info .= "\n";
foreach $key (keys(%in)) {
$info .= " $in{$key}\n";
}
$info .= "\n---Fin del mensaje---";
%mail = ( To => $sendto,
From => 'Foro La Prensa ',
Subject => $subject,
Message => $info
);
&sendmail(%mail) or die $Mail::Sendmail::error;
}
sub send_a_redirect
{
print "Location: http://$website/$results\n\n";
}
sub getDate{
@RealDay = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
@RealMonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
$year += ($year < 90) ? 2000 : 1900;
$mins = (sprintf ("%02d",$min));
$daweek = $RealDay[$wday];
$month = $RealMonth[$mon];
#if ($TZ eq "") {
# offset in hours
#my $offset = sprintf "%.1f", (timegm(localtime) - time) / 3600;
#my $minutes = sprintf "%02d", ( $offset - int($offset) ) * 60;
#$TZ = sprintf("%+03d", int($offset)) . $minutes;
#}
$am = "AM";
$am = "PM" if($hour>12);
$hour -= 12 if($hour>12);
return "$daweek, $mday $month $year $hour:$mins $am -0600";
}
|
|
|

Entra en vigencia nuevo sistema de ahorro en el Banexpo
 |
|
|
Adolfo Argüello. |
| |
Mayda Isabel Meléndez mayda.melendez@laprensa.com.ni
Las medidas que el Banco de la Exportación (Banexpo), puso en vigencia a partir del primero de junio, responden a la intención de enfocarse en el segmento de los ahorrantes formales, aseguró Adolfo Argüello, director ejecutivo de esa entidad financiera.
El Banexpo estableció que el monto mínimo para abrir una cuenta de ahorro debe ser de 500 dólares o cinco mil córdobas; si el saldo promedio mensual es menor al límite establecido, se le cobrará al cliente una comisión mensual por mantenimiento de cuenta de 5 dólares ó 75 córdobas según corresponda.
“Hay un cargo para que las cuentas que sean altamente transaccionales y que tengan bajo saldo paguen por el costo de su servicio y de esta manera los que tengan ahorro de largo plazo no estén subsidiando ese costo”, dijo Argüello.
Dijo que la idea es incentivar a quienes desean ahorrar a largo plazo, “más que sólo dar un servicio de pago de cuentas o pago de cheques. Nuestra especialización es el ahorrante y el énfasis es por el ahorrante”.
“Si usted está ahorrando y mes tras mes saca un porcentaje de su cheque y lo quiere poner en una cuenta de ahorro para la educación de sus hijos, para comprar una casa o comprar un bien, o simplemente para su retiro, nosotros queremos poderle pagar la máxima tasa por esa acción que está tomando y no ponerla a subsidiar el costo de otras transacciones”, aseveró.
NO HAY IMPACTOS
Todo lo que esa institución bancaria está haciendo es enfocarse en el segmento ahorrantes formales y no en los transaccionales. De hecho, según Argüello, los clientes que son “altamente transaccionales” no mantienen saldos en el banco, pues generalmente utilizan la institución sólo para realizar operaciones.
Enfatizó que Banexpo pretende dedicarse a los ahorrantes en sí, y no a las transacciones. “O sea que si esa gente no opera con nosotros, no es ningún impacto en el banco porque, de por sí, no son la gente que mantiene los depósitos. Nosotros queremos remunerar en la mejor forma posible a los depositantes y por eso tomamos esta medida, para poder hacer lo mejor con los depositantes”, aclaró Argüello. 
|


|
|
|
|