#!/usr/bin/perl $| = 1; # Para que Perl no utilize su buffer use DBI; # Usar el DataBase Interface use CGI qw/:standard/; # Usar el GCI.pm module use strict 'vars'; use vars '$dbh'; # Database handler use vars '$sth'; # Statement handlers print header(-expires=>'-10m'); print start_html(-title=>"Notaria Sanchez Manrique - Consultas", -style=>{'src'=>"/consultas/style.css"}, -leftmargin=>'0', -topmargin=>'0', -marginwidth=>'0', - marginheight=>'0', -BGCOLOR=>'FFFFFF' ); $dbh = DBI->connect("DBI:mysql:sanchezm_db", "sanchezm", "juris024"); if (!defined $dbh) { print "No se puede conectar a la base de datos...\n"; exit; } &show_data; print end_html; exit; ############################################################################### sub show_data { my ($kardex, $clave, @data); $clave = param('clave'); $kardex = param('kardex'); $sth = $dbh->prepare( "SELECT N_KARDEX, REP_CREDITO, AUTORIZACION_GASTOS, DATE_FORMAT(FEC_DOC_RECIBIDA,'%d-%m-%Y'), DATE_FORMAT(FEC_ENTREGA_DOC,'%d-%m-%Y'), DATE_FORMAT(FEC_OBTENCION_DOC,'%d-%m-%Y'), DATE_FORMAT(FEC_ENT_DOC_TASADOR,'%d-%m-%Y'), DATE_FORMAT(FEC_RECIB_TASACION,'%d-%m-%Y'), NOMBRE_TASADOR, VALOR_REALIZACION, DATE_FORMAT(FEC_COMUNICACION_OF,'%d-%m-%Y'), CONFORME, NO_CONFORME, NO_RESPONDIO, DATE_FORMAT(FEC_CONFORMIDAD_OF,'%d-%m-%Y'), DATE_FORMAT(FEC_SOLICITUD_2DA_TASACION,'%d-%m-%Y'), DATE_FORMAT(FEC_ENT_DOC_TASADOR_2,'%d-%m-%Y'), DATE_FORMAT(FEC_RECIB_TASACION_2,'%d-%m-%Y'), NOMBRE_TASADOR_2, VALOR_REALIZACION_2, CONFORME_2, NO_CONFORME_2, DATE_FORMAT(FEC_CONF_INMUEBLES,'%d-%m-%Y'), DATE_FORMAT(FEC_COMUNICACION_OF_2,'%d-%m-%Y'), DATE_FORMAT(FEC_SOLICITUD_3RA_TASACION,'%d-%m-%Y'), DATE_FORMAT(FEC_RECIB_TASACION_3,'%d-%m-%Y'), NOMBRE_TASADOR_3, VALOR_REALIZACION_3, DATE_FORMAT(FEC_CONF_INMUEBLES_2,'%d-%m-%Y'), DATE_FORMAT(FEC_COMUNICACION_OF_3,'%d-%m-%Y'), DATE_FORMAT(FEC_FORMALIZACION,'%d-%m-%Y') FROM dato WHERE N_KARDEX='$kardex'"); $sth->execute; @data = $sth->fetchrow; $sth->finish; if ($data[3] ne '') { my ($vip); # primero boscamos si es vip => puede ver el nombre del tasador $sth = $dbh->prepare("SELECT VIP from clientes WHERE CLAVE='$clave'"); $sth->execute; $vip = $sth->fetchrow; $sth->finish; print qq~
TASACIONES
~; if ($vip) { print qq~ ~; } print qq~ \n"; if ($data[15]) { # Segundo Tasador print qq~ ~; if ($vip) { print qq~ ~; } print qq~ \n"; } if ($data[24]) { # Tercer Tasador print qq~ ~; if ($vip) { print qq~ ~; } print qq~ ~; } print qq~
Documentación recibida:~; print "Reporte de Credito Autorización de Gastos
Fecha Documentación Recibida de Oficina: $data[3]
Fecha Entrega de Documentos por Cliente: $data[4]
Fecha Obtencion Documentos por Notaria: $data[5]
Fecha Entrega Documentos al Tasador: $data[6]
Fecha Recepcion de Tasación: $data[7]
Nombre del Tasador: $data[8]
Valor de Realización: $data[9]
Fecha Comunicación a Oficina: $data[10]
Fecha Conformidad por Oficina: $data[14]
~; print "Conforme No Conforme No respondio
Fecha Solicitud 2da Tasación: $data[15]
Fecha Entrega Documentos al 2do. Tasador: $data[16]
Fecha Recepcion 2da Tasación: $data[17]
Nombre del Tasador: $data[18]
Valor de Realización: $data[19]
Fecha Conformidad por Inmuebles: $data[22]
Fecha Comunicación a Oficina: $data[23]
~; print "Conforme No Conforme
Fecha Solicitud 3ra Tasación: $data[24]
Fecha Recepcion 3ra Tasación: $data[25]
Nombre del Tasador: $data[26]
Valor de Realización: $data[27]
Fecha Conformidad por Inmuebles: $data[28]
Fecha Comunicación a Oficina: $data[29]
Fecha Autorización Oficina
Formalización / Toma Seguro:		 $data[30]
~; } else { print "

Kardex No $kardex no encontrado

\n" } }