#!/usr/bin/perl -w
#
use DBI;
my $dbh = DBI->connect("dbi:Informix:b_xxxx:168.xxx.xxx.x","usuario","password")
    or die "Can't connect to Informix";
my $prep = "select * from txxxx";
my $sth = $dbh->prepare($prep);
$sth->execute( );
$dbh->disconnect;

#****************************************************#
#! /usr/bin/perl -w
use CGI;
use DBI;

$q = new CGI;

# mandando servidor los encabezados de la pagina html                           
print $q->header;                                                               
print $q->start_html(-title=>"Centros de Consulta", -bgcolor=>"#3333CC", -text=>"#FFFFFF");
print "<center><H2>CONSULTA DE SUELDO BASE</H2></center>";
print $q->hr();                                                                 
#creando una form o ventana                                                   
print $q->startform();                                                         
print "<font color=\"white\">";                                               
print "RFC del empleado:  ";                                             
print $q->textfield('RFC','',13);                                             
print $q->hr();
# creando un submit button                                                     
print $q->submit('BUSCAR');                                                 
# cerrando la forma                                                             
print $q->endform();                                                           

#se preciona el boton                                                           
#if ( $q->param('BUSCAR')) { 
#lee el textfeld
$v_rfc = $q->('RFC');

# creando conexion
my $dbh = DBI->connect('dbi:Informix:nomina@basedatos','pato','pato')or die print "No hay conexion con la base<br>";

#consulta el numero de registros existentes para ese empleado
my $prep = "select count(*) from sueldos where rfc= ? ";
my $sth = $dbh->prepare($prep);
$sth->execute($v_rfc );
my ($n_registros) = $sth->fetchrow_array();     
print "este es el numero $n_registros\n";                                                   
#Verifica si existe el empleado entonces
if($n_registros eq 0 ) {
#no existe
print "No existe ese registro<BR>";
$sth->finish;                                                                   
$dbh->disconnect();                                                             
print $q->hr();                                                                 
print $q->end_html();
}#fi($n_registros ==0)       

#Existen registros para ese empleado
if($n_registros eq 1 ) {
#hace una nueva busqueda
$sth->finish;                                                                 
my $prep = "select empledo, puesto, qna, cheque from sueldos where rfc=? ";
my $sth = $dbh->prepare($prep);
$sth->execute($v_rfc );

#Cebeza de la tabla
print "<TABLE Border=10 CellPadding=5><TR>";
# construyendo los encabezados de la tabla                                     
print "<th bgcolor=Red>EMPLEADO</th>
       <th bgcolor=Red>PUESTO</th>
       <th bgcolor=Red>QUINCENA</th>           
       <th bgcolor=Red>SUELDO</th>                                             
       </TR>";

while ( my ($empleado, $puesto, $qna, $cheque)=$sth->fetchrow_array() ) {
#Construccion de la tabla para este usuario
# llena la tabla                                                               
print "<TR><TD>"."$empleado"."</TD><TD>"."$puesto"."</TD><TD>"."$qna"."</TD><TD>"."$cheque"."</TD><TD></TR>";     
};                                                                             
print "</TABLE>";

};#fin while
};#fin else
$sth->finish;                                                                   
$dbh->disconnect();                                                             
print $q->hr();                                           
print $q->end_html();
#};#fin if boton


##******************************************************

#!/usr/bin/env perl
use warnings;

my $dbh = DBI->connect('dbi:Informix:nomina@basedatos','pato','pato')or die print "No hay conexion con la base<br>";