#!/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'=>"/home/accesnot/public_html/notariasanchezmanrique/consultas/style-det.css"},
		 -leftmargin=>'0', -topmargin=>'0', -marginwidth=>'0',
                 - marginheight=>'0', -BGCOLOR=>'FFFFFF' );

$dbh = DBI->connect("DBI:mysql:accesnot_sanchezm", "accesnot_sanman", "SanMan1100");

if (!defined $dbh) {
  print "No se puede conectar a la base de datos...\n";
  exit;
}

&show_kardex;
print end_html;
exit;

###############################################################################

sub show_kardex {

  my ($kardex, $clave, @data, @titles, @fields, $str, $count, $val, $especial);

  $especial = param('especial');
  $clave    = param('clave');
  $kardex   = param('kardex'); 

  $sth = $dbh->prepare(
  "SELECT CLAVE, CLAVE_PRINCIPAL, CLAVE_ESPECIAL, N_KARDEX, CLIENTE, 
  CONTRATO, OTORGANTES, BENEFICIARIOS, N_ESCRITURA, N_MINUTA,
  DATE_FORMAT(F_ESCRITURA,'%d-%m-%Y'), DATE_FORMAT(F_FIRMAS,'%d-%m-%Y'), 
  N_TITULO, DATE_FORMAT(F_REGISTROS,'%d-%m-%Y'), ESTADO_REGISTROS, 
  OBSERVACIONES, DATE_FORMAT(F_ACTUALIZACION,'%d-%m-%Y'), HISTORICO_ESTADOS,
  TIPO_GARANTIA, DATE_FORMAT(F_NOTARIA,'%d-%m-%Y'), DATE_FORMAT(F_MINUTA,'%d-%m-%Y'), 
  DATE_FORMAT(F_FIRMA_MINUTA,'%d-%m-%Y'), DATE_FORMAT(F_ESTIM_BLOQUEO,'%d-%m-%Y'),
  DATE_FORMAT(F_BLOQUEO,'%d-%m-%Y'), DATE_FORMAT(F_INGRESO_RRPP,'%d-%m-%Y'),
  DATE_FORMAT(F_INSCRIPCION_RRPP,'%d-%m-%Y'), TASACION
  FROM dato WHERE N_KARDEX='$kardex'");
  $sth->execute;  @data = $sth->fetchrow;  $sth->finish;

  if ($data[3] ne '') {

    if ($especial) {
       @titles = ("N° de Kardex", "Cliente Corporativo", "Tipo de Contrato", "Tipo de Garantia", 
                  "Otorgantes", "Beneficiarios", "N° de Escritura/Instrumento", "N° de Minuta", 
                  "N° de Titulos", "Fecha de Ingreso a la Notaria", 
                  "Fecha elaboracion minuta", "Fecha firma minuta", "Fecha estimada de bloqueo registral",
                  "Fecha real de bloqueo", "Fecha de Escritura/Instrumento", "Fecha de Firma Notario",
                  "Fecha Ingreso Reg. Pub.", "Fecha inscripcion en RR.PP", "Observaciones");
       @fields = (3, 4, 5, 18, 6, 7, 8, 9, 12, 19, 20, 21, 22, 23, 10, 11, 24, 25, 15);
    }
    else {
	@titles = ("N° de Kardex", "Cliente Corporativo", "Tipo de Contrato", "Otorgantes",
                   "Beneficiarios", "N° de Escritura/Instrumento", "N° de Minuta",
		   "Fecha de Escritura/Instrumento", "Fecha de Firma Notario", "Fecha Ingreso Reg. Pub.",
		   "N° de Titulos", "Estado en Reg. Publicos", "Estado Historico", "Observaciones");
	@fields = (3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 12, 14, 17, 15);
    }

    print qq~
    <BR><TABLE ALIGN=CENTER WIDTH=95% BORDER=1>
    <TR><TD BGCOLOR=#000000 COLSPAN=2 CLASS=small_font ALIGN=center><FONT 
    COLOR=#FFFFFF><B>INFORMACION DE SU CONTRATO</B></FONT></TD>
    ~;
    $count = 0;
    foreach $str (@titles) {
      print "<TR><TD CLASS=small_font BGCOLOR=#BBBBBB>$str</TD>\n",
            "<TD CLASS=smaller_font>";
      if ( ($data[$fields[$count]]) and ($data[$fields[$count]] ne '') ) { 
        # reemplazamos \n con <br>
        $val = $data[$fields[$count]];
        $val =~ s/\n/<br>/g;
        print $val;
      }
      else {
	if ($especial) {
            if (($count == 7) and ($data[8] != 0)) { print "sin minuta"; }
        }
        else {
            if (($count == 6) and ($data[8] != 0)) { print "sin minuta"; }
        }
      }

      print "&nbsp;</TD></TR>\n";
      $count++;
    }
    print "\n</TABLE>\n";
    print qq~
    <TABLE ALIGN=CENTER BORDER=0 cellspacing="2" cellpadding="2"><TR><TD ALIGN=left valign="bottom">
    <P CLASS=small_font ALIGN=center><A HREF="#" onclick="window.print();">
    <IMG SRC=/images/printer.gif BORDER=0 VSPACE=1><BR>Imprimir</A></P>
    </TD>
    <TD ALIGN=left valign="bottom">
    <P CLASS=small_font ALIGN=center><A HREF="mailto:jdelpino\@notariasanchezmanrique.com">
    <IMG SRC=/images/mail.jpg BORDER=0 VSPACE=1><BR>Consulta a Notar&iacute;a</A></P>
    </TD><TD ALIGN=right VALIGN=top>~;
    if (($especial) &&  ($data[26] == 1)) {                    # boton tasacion
	print qq~
       <INPUT TYPE=button VALUE="Ver Tasacion" NAME="tasacion"
       onClick="window.open('/cgi-bin/tasacion?clave=$clave&kardex=$kardex', 'Tasacion',
       'menubar=no,scrollbars=yes,resizable=1,width=640,height=540')">~;
    }
    else { print "&nbsp;"; }
    print "</TD></TABLE>\n";
  }
  else {
    print "<P ALIGN=center class='big_font'>Kardex N&deg; $kardex no encontrado</P>\n"
  }
}