|
BASC CHAPTERS |
|
|
| ECUADOR |
 |
President: Javier Moreira
Address: Cdla. Los Almendros, Calle Gaviota y Peatonal 5ta, Guayaquil, Ecuador
Phone: 593-42447801
Regional Chapters:
• Azuay
• Guayaquil
• Pichincha
• Umiña
Web: www.basc-pichincha.org/
|
| |
|
| MÉXICO |
|
Avenida Américas 1545 Piso 20
Oficina 2017 Colonia Providencia
Guadalajara, Jalisco. CP 44630
Phone: +52 33 8000 0393
Regional Chapters:
BASC Ciudad de México
BASC Occidente
|
| PANAMÁ |
|
President: Giomar E. González M.
Address: Paitilla, Torres de Las Américas, Blvd.Punta Pacífica y Calle Darién, Piso 9, Oficina B-901 Ciudad de Panamá, Panamá.
Phone: (507) 204-5719
|
| PARAGUAY |
|
President: Jan Marc Bosch
Address: Avenida Artigas 552-1402, Asunción Paraguay
Phones: (595-21) 213 778
|
| |
| |
|
|
|
 |
 |
 |
 |
BASC -Business Alliance for Secure Commerce-, is an international business alliance, created to promote secure international trade in cooperation with governments and international organizations.
BASC is a private sector led and controlled coalition that has been supported by U.S. Customs and Border Protection (CBP) since its creation in 1996. As a non-profit organization incorporated in the State of Delaware as the World BASC Organization, the BASC is an international business alliance created to promote supply chain security in cooperation with government agencies and international organizations.
The BASC was created to address the problem of concealing contraband in commercial trade. As a voluntary program for businesses, with no government-imposed mandates, corporate participants are expected to follow BASC’s security standards which are designed to significantly improve their security practices and in the process deter contraband smugglers and terrorists from using their companies to introduce contraband and implements of terror in legitimate shipments.
The BASC program examines the entire process of manufacturing and shipping of merchandise from foreign countries to the United States, emphasizing the creation of a more security-conscious environment throughout the supply chain. The BASC currently has over 2,500 companies that have been certified by the organization. And it operates in 13 countries of Latin America and the Caribbean: Colombia, Costa Rica, Ecuador, El Salvador, Guatemala, Haiti, Mexico, Panama, Peru, the Dominican Republic, Paraguay and Venezuela. |
BASC News |
#!/usr/local/bin/perl
##########################################################################
#
# OJO: MODIFICACIÓN TABLAS
#
# En febrero 2010 se modifica la tabla notlistas, adicionando columna así:
#
#
##########################################################################
use DBI;
use CGI qw(:cgi);
#use strict;
$x = index($ENV{DOCUMENT_ROOT}, "/htdocs");
$document_root = substr($ENV{DOCUMENT_ROOT}, 0, $x) if ($x != -1);
$document_root = "/home/wmviejowbasco/public_html";
require "$document_root/noticias/config.cgi";
require "pdlib.pl";
local ($dbh,$sth,$query,$numreg,$numret,@row,%numcampo,$nivel,$fila);
local @meslit = qw(Ene Feb Mar Abr May Jun Jul Ago Sep Oct Nov Dic);
print "Content-type: text/html\n\n";
# ¶metros retorna un HASH conteniendo $PARAM{variable} = valor
¶metros;
if (21==1) {
print "**** ENV ****";
while (($key, $val) = each %ENV) {
print "$key = $val
\n"; }
print "**** PARAM ****";
while (($key, $val) = each %PARAM) {
print "$key = $val
\n"; }
}
$ev = $PARAM{ev};
# Conecto Base de Datos
#&conectardb("$document_root/cgi-bin/noticias/$ENV{SERVER_NAME}");
&conectardb("$db_file");
# Obtenemos el codigo de la noticia a mostrar del URL.
$codigo = $ENV{QUERY_STRING_UNESCAPED};
##########################################################################
#
# Mostrar la noticia
#
##########################################################################
if ($PARAM{muestranot} == 1) {
# Se requiere imprimir noticia, tomamos configuracion de la noticia
$query = "SELECT * FROM notcontrol WHERE cod_aut = '$ev'";
$sth = $dbh->prepare($query) or die "Error - $query : $dbh->errstr
\n";
$rv = $sth->execute or die "Error $sth->errstr
\n";
if ($sth->rows == 0)
{
&mensaje("No hay programación para esta lista.","#");
exit 0;
}
$row = $sth->fetchrow_hashref;
foreach (keys %$row) {$$_ = $$row{$_}}
$query = "SELECT f_not,titulo,resumen,texto FROM noticias WHERE codigo = '$codigo'";
$sth = $dbh->prepare($query) or die "Error - $query : $dbh->errstr
\n";
$rv = $sth->execute or die "Error $sth->errstr
\n";
if ($sth->rows == 0)
{
&mensaje("La noticia seleccionada no se encuentra disponible.","#");
exit 0;
}
$row = $sth->fetchrow_hashref;
foreach (keys %$row) {$$_ = $$row{$_}}
($ano_not,$mes_not,$dia_not) = split /-/,$f_not;
###
### En febrero 2010 se modifica el programa para lo siguiente:
### Si la noticia no contiene contenido ($texto), y además sólo hay un documento adjunto...
### entonces se muestra el documento de una vez. Si es imagen se muestra como una noticia normal, pero si es documento, se abra el documento de una vez.
#################################
### La rutina documentos_adjuntos revisa los documentos adjuntados a una noticia y retorna dos variables que contienen:
### $listaimagenes - El código html necesario para mostrar las imágenes que están adjuntadas con la noticias
### $listadocumentos - El código html para mostrar la lista de documentos asociados (no imágenes) con sus enlaces para abrirlos
###
($listaimagenes, $listadocumentos) = documentos_adjuntos($codigo);
### Ojo, quité la clase a $texto ya que viene incluida cuando se usa FCKeditor.
print <$titulo
$dia_not-$meslit[$mes_not-1]-$ano_not
$resumen
$texto
ENDTEXT
# Muestra las imágenes
print $listaimagenes;
# Muestra la lista de documentos adjuntos
if ($listadocumentos ne '') {
print qq~
Documentos relacionados:
~;
print $listadocumentos;
print ' ';
}
}
##########################################################################
#
# Mostrar la lista de noticias
#
##########################################################################
if ($PARAM{lista} ne "") {
local $querycodigo;
my $enlace_noticia;
# Se requiere imprimir lista, tomamos configuracion de la lista
my $query = "SELECT * FROM notlistas WHERE ntlista = '$PARAM{lista}'";
my $sth = $dbh->prepare($query) or die "Error - $query : $dbh->errstr
\n";
my $rv = $sth->execute or die "Error $sth->errstr
\n";
if ($sth->rows == 0)
{
&mensaje("No hay programación para esta lista.","#");
exit 0;
}
my $row = $sth->fetchrow_hashref;
foreach (keys %$row) {$$_ = $$row{$_}}
# Seleccionamos las noticias a mostrar
#if ($codigo eq "") {$querycodigo = ""} else {$querycodigo = " and codigo<>$codigo"}
$querycodigo = ($codigo eq "") ? '' : " and codigo <> $codigo";
# Si número máximo noticias a mostrar es -1, mostrar todas las noticias
my $limite = ($ntmaxlista < 0) ? "" : " LIMIT $ntmaxlista";
$query = "SELECT codigo, portada, f_not, titulo, resumen
FROM noticias
WHERE tipo='$ev' and activo='Y' $querycodigo and f_ini <= CURDATE() and f_fin >= CURDATE() ORDER BY f_not DESC, codigo $limite";
$sth = $dbh->prepare($query) or die "Error - $query : $dbh->errstr
\n";
$rv = $sth->execute or die "Error $sth->errstr
\n";
if ($sth->rows == 0)
{
print "| $ntsininf | ";
}
else
{
$fila = 1;
$td_not = "td1_not";
$a_not = "a_not";
while ( $row = $sth->fetchrow_hashref ) {
foreach (keys %$row) {$$_ = $$row{$_}}
if ($ntdirecto eq 'S') {
($listaimagenes, $listadocumentos) = documentos_adjuntos($codigo, $ntdirecto);
$enlace_noticia = ($listadocumentos eq '') ? "$nturl?$codigo" : $listadocumentos;
#$enlace_noticia = $listadocumentos;
} else {
$enlace_noticia = "$nturl?$codigo";
}
($ano_ini,$mes_ini,$dia_ini) = split /-/,$f_ini;
($ano_fin,$mes_fin,$dia_fin) = split /-/,$f_fin;
($ano_not,$mes_not,$dia_not) = split /-/,$f_not;
if ($fila == 1) {
$tdsty = $nttdlis1;
$fecsty = $ntfeclis1;
$titsty = $nttitlis1;
$ressty = $ntreslis1;
$massty = $ntmaslis1;
$sinsty = $ntsinlis;
$fila = 2;
} else {
$tdsty = $nttdlis2;
$fecsty = $ntfeclis2;
$titsty = $nttitlis2;
$ressty = $ntreslis2;
$massty = $ntmaslis2;
$sinsty = $ntsinlis;
$fila = 1;
} #endif
if ( $PARAM{lista} eq 'p1' && 1 == 0) {
# Esto sólo es para mcconsultores
&muestra_procesos_seleccion;
} else {
print "\n",
"";
if ($ntportada eq 'S') {
if ( -e $dir_documentos."/th_".$portada) {
print qq~ ~;
}
}
if ($ntfecha eq "S") {
print "$dia_not-$meslit[$mes_not-1]-$ano_not
";
}
if ($ntfecha eq "L") {
print "$dia_not-$meslit[$mes_not-1]-$ano_not
";
}
if ($nttitulo eq "S") {
print "$titulo
";
}
if ($nttitulo eq "L") {
print "$titulo
";
}
if ($ntresumen eq "S") {
print "$resumen
";
}
if ($ntresumen eq "L") {
print "$resumen
";
}
if ($ntmasinf eq "S") {
print "$ntmeninf";
}
print " | ";
}
} # endwhile
} # endif ($sth->rows == 0)
}# if (($PARAM{lista} ne "")
# Desconectamos de Base de Datos
$sth->finish;
$rv = $dbh->disconnect;
exit 0;
#################################
### documentos_adjuntos
#################################
sub documentos_adjuntos {
my ($codigo, $ntdirecto) = @_;
my $query, $sth, $dbh, $row, $rv, $documentos, $listaimagenes, $listadocumentos, @array, $exten, $imagenes, $esimagen, $enlace, $enlace_fin;
$listaimagenes = $listadocumentos = '';
# Verificamos si hay documentos adjuntos a esta noticia
$query = "SELECT * FROM notdocum WHERE codigo = '$codigo' order by orden";
$sth = $dbh->prepare($query) or die "Error - $query : $dbh->errstr
\n";
$rv = $sth->execute or die "Error $sth->errstr
\n";
if ($sth->rows != 0)
{
# Suponemos que no hay documentos relacionados (posiblemente son todos imagenes)
$documentos = 0;
$listaimagenes = '';
#$listadocumentos = qq~
Documentos relacionados:
~;
while ( $row = $sth->fetchrow_hashref ) {
foreach (keys %$row) {$$_ = $$row{$_}}
if ($documento ne "") {
@array = split(/\./, $documento);
$exten = pop(@array);
$imagenes = "gif jpeg jpg jpe png tiff tif GIF JPEG JPG JPE PNG TIFF";
$esimagen = index($imagenes, $exten);
local $enlace = $enlace_fin = '';
if ($esimagen != -1)
{
if ( -e $dir_documentos."/mx_".$documento) {
$enlace = qq~~;
$enlace_fin = '';
}
### cuando la lista requiere enlace directo al documento (sin abrir la noticia), se retorna el url del documento, sino se crea la lista de imágenes.
if ($ntdirecto eq 'S') {
$listadocumentos = "$url_documentos/$documento";
last;
} else {
$listaimagenes .= qq~$enlace  $enlace_fin
~;
}
#print qq~$enlace $enlace_fin
~;
} else
{
# Marcamos que si hay documentos relacionados
$documentos = 1;
if ($ntdirecto eq 'S') {
$listadocumentos = "$url_documentos/$documento";
last;
} else {
$listadocumentos .= qq~- $descripcion ($documento)
~;
}
}
}
}
# Si hay documentos relacionados, los mostramos.
#$listadocumentos .= ' ' if ($listadocumentos ne '');
#if ($documentos) {print "$listadocum"}
}
$sth->finish;
return ($listaimagenes, $listadocumentos);
}
#################################
### Muestra procesos selección
#################################
sub muestra_procesos_seleccion {
print <
|
|
TITULO
print "\n",
"| ";
if ($nttitulo eq "S") {
print "$titulo";
}
if ($nttitulo eq "L") {
print "$titulo";
}
print <
|
FINTITULO
if ($ntresumen eq "S") {
print "$resumen
";
}
if ($ntresumen eq "L") {
print "$resumen
";
}
if ($ntmasinf eq "S") {
print "$ntmeninf";
}
print < |
|
|
|
|
| |
|
FINNOTA
}
|
| |
|
|
|
|
