<?
//include("head.php");
include("head.php");
include("datacon.php"); 


$fechayhoraField = date("j_n_Y_") . date("h_i_s");
$nombre_archivo = './exportacion/credito_' . $lacedula . '_' . $fechayhoraField . '.txt';
$contenido = '';
$gestor = fopen($nombre_archivo, 'w');
if ($gestor) {


$querysearch = "select * from solicitudcredito_deudor where cedula='$lacedula'";
$resultsearch = MYSQL_QUERY($querysearch);
$numbersearch = mysql_Numrows($resultsearch);
if ($numbersearch==0) {

//    echo "<font size=2 face=\"Arial, Helvetica, sans-serif\"><b>No se encontraron Solicitudes de Crédito !</b></font>"; 

}
else if ($numbersearch>0) {

$x=0;
        while ($x<$numbersearch)
        {

//            if (($x%2)==0) { $bgcolor="#FFFFFF"; } else { $bgcolor="#C0C0C0"; }

?>
  
              <? $ciudad=mysql_result($resultsearch,$x,"ciudad"); ?>
              <? $fecha=mysql_result($resultsearch,$x,"fecha"); ?>
              <? $apellidosynombres=mysql_result($resultsearch,$x,"apellidosynombres"); ?>
              <? $cedula=mysql_result($resultsearch,$x,"cedula"); ?>
              <? $cedulade=mysql_result($resultsearch,$x,"cedulade"); ?>
              <? $empresa=mysql_result($resultsearch,$x,"empresa"); ?>
              <? $tiemposervicio=mysql_result($resultsearch,$x,"tiemposervicio"); ?>
              <? $grado=mysql_result($resultsearch,$x,"grado"); ?>
              <? $ocupacion=mysql_result($resultsearch,$x,"ocupacion"); ?>
              <? $codigo=mysql_result($resultsearch,$x,"codigo"); ?>
              <? $estadocivil=mysql_result($resultsearch,$x,"estadocivil"); ?>
              <? $direccionresidencia=mysql_result($resultsearch,$x,"direccionresidencia"); ?>
              <? $ciudadresidencia=mysql_result($resultsearch,$x,"ciudadresidencia"); ?>
              <? $barrio=mysql_result($resultsearch,$x,"barrio"); ?>
              <? $telefono=mysql_result($resultsearch,$x,"telefono"); ?>
              <? $banco=mysql_result($resultsearch,$x,"banco"); ?>
              <? $cuenta=mysql_result($resultsearch,$x,"cuenta"); ?>
              <? $sucursal=mysql_result($resultsearch,$x,"sucursal"); ?>
              <? $tipodemercancia=mysql_result($resultsearch,$x,"tipodemercancia"); ?>
              <? $valorsolicitado=mysql_result($resultsearch,$x,"valorsolicitado"); ?>
              <? $plazomeses=mysql_result($resultsearch,$x,"plazomeses"); ?>
              <? $valorcuotas=mysql_result($resultsearch,$x,"valorcuotas"); ?>
              <? $devengado=mysql_result($resultsearch,$x,"devengado"); ?>
              <? $descuentos=mysql_result($resultsearch,$x,"descuentos"); ?>
              <? $disponible=mysql_result($resultsearch,$x,"disponible"); ?>
              <? $valorcredito=mysql_result($resultsearch,$x,"valorcredito"); ?>
              <? $valorlibranza=mysql_result($resultsearch,$x,"valorlibranza"); ?>
              <? $valorcuota=mysql_result($resultsearch,$x,"valorcuota"); ?>
              <? $refco_nombre1=mysql_result($resultsearch,$x,"refco_nombre1"); ?>
              <? $refco_direccion1=mysql_result($resultsearch,$x,"refco_direccion1"); ?>
              <? $refco_telefono1=mysql_result($resultsearch,$x,"refco_telefono1"); ?>
              <? $refco_nombre2=mysql_result($resultsearch,$x,"refco_nombre2"); ?>
              <? $refco_direccion2=mysql_result($resultsearch,$x,"refco_direccion2"); ?>
              <? $refco_telefono2=mysql_result($resultsearch,$x,"refco_telefono2"); ?>
              <? $refco_nombre3=mysql_result($resultsearch,$x,"refco_nombre3"); ?>
              <? $refco_direccion3=mysql_result($resultsearch,$x,"refco_direccion3"); ?>
              <? $refco_telefono3=mysql_result($resultsearch,$x,"refco_telefono3"); ?>
              <? $refper_nombre1=mysql_result($resultsearch,$x,"refper_nombre1"); ?>
              <? $refper_direccion1=mysql_result($resultsearch,$x,"refper_direccion1"); ?>
              <? $refper_telefono1=mysql_result($resultsearch,$x,"refper_telefono1"); ?>
              <? $refper_nombre2=mysql_result($resultsearch,$x,"refper_nombre2"); ?>
              <? $refper_direccion2=mysql_result($resultsearch,$x,"refper_direccion2"); ?>
              <? $refper_telefono2=mysql_result($resultsearch,$x,"refper_telefono2"); ?>
              <? $refper_nombre3=mysql_result($resultsearch,$x,"refper_nombre3"); ?>
              <? $refper_direccion3=mysql_result($resultsearch,$x,"refper_direccion3"); ?>
              <? $refper_telefono3=mysql_result($resultsearch,$x,"refper_telefono3"); ?>
  <?

        $x++;
    } // end while 
} // end if 

// ==================================================== A APARTIR DE ACA SE CREA EL ARCHIVO PLANO DE SOLICITUD =========================================//


$longitudciudad = strlen($ciudad);
while ($longitudciudad < 38) {
	$ciudad = $ciudad . ' ' ;
	$longitudciudad = $longitudciudad + 1;
}
$longitudfecha = strlen($fecha);
while ($longitudfecha < 36) {
	$fecha = $fecha . ' ' ;
	$longitudfecha = $longitudfecha + 1;
}

$longitudapellidosynombres = strlen($apellidosynombres);
while ($longitudapellidosynombres < 69) {
	$apellidosynombres = $apellidosynombres . ' ' ;
	$longitudapellidosynombres = $longitudapellidosynombres + 1;
}

$longitudcedula = strlen($cedula);
while ($longitudcedula < 41) {
	$cedula = $cedula . ' ' ;
	$longitudcedula = $longitudcedula + 1;
}

$longitudcedulade = strlen($cedulade);
while ($longitudcedulade < 40) {
	$cedulade = $cedulade . ' ' ;
	$longitudcedulade = $longitudcedulade + 1;
}

$longitudempresa = strlen($empresa);
while ($longitudempresa < 29) {
	$empresa = $empresa . ' ' ;
	$longitudempresa = $longitudempresa + 1;
}

$longitudtiemposervicio = strlen($tiemposervicio);
while ($longitudtiemposervicio < 23) {
	$tiemposervicio = $tiemposervicio . ' ' ;
	$longitudtiemposervicio = $longitudtiemposervicio + 1;
}

$longitudgrado = strlen($grado);
while ($longitudgrado < 39) {
	$grado = $grado . ' ' ;
	$longitudgrado = $longitudgrado + 1;
}

$longitudocupacion = strlen($ocupacion);
while ($longitudocupacion < 26) {
	$ocupacion = $ocupacion . ' ' ;
	$longitudocupacion = $longitudocupacion + 1;
}

$longitudcodigo = strlen($codigo);
while ($longitudcodigo < 38) {
	$codigo = $codigo . ' ' ;
	$longitudcodigo = $longitudcodigo + 1;
}

$longitudestadocivil = strlen($estadocivil);
while ($longitudestadocivil < 29) {
	$estadocivil = $estadocivil . ' ' ;
	$longitudestadocivil = $longitudestadocivil + 1;
}

$longituddireccionresidencia = strlen($direccionresidencia);
while ($longituddireccionresidencia < 65) {
	$direccionresidencia = $direccionresidencia . ' ' ;
	$longituddireccionresidencia = $longituddireccionresidencia + 1;
}

$longitudciudadresidencia = strlen($ciudadresidencia);
while ($longitudciudadresidencia < 23) {
	$ciudadresidencia = $ciudadresidencia . ' ' ;
	$longitudciudadresidencia = $longitudciudadresidencia + 1;
}

$longitudbarrio = strlen($barrio);
while ($longitudbarrio < 23) {
	$barrio = $barrio . ' ' ;
	$longitudbarrio = $longitudbarrio + 1;
}

$longitudtelefono = strlen($telefono);
while ($longitudtelefono < 16) {
	$telefono = $telefono . ' ' ;
	$longitudtelefono = $longitudtelefono + 1;
}

$longitudbanco = strlen($banco);
while ($longitudbanco < 24) {
	$banco = $banco . ' ' ;
	$longitudbanco = $longitudbanco + 1;
}

$longitudcuenta = strlen($cuenta);
while ($longitudcuenta < 22) {
	$cuenta = $cuenta . ' ' ;
	$longitudcuenta = $longitudcuenta + 1;
}

$longitudsucursal = strlen($sucursal);
while ($longitudsucursal < 16) {
	$sucursal = $sucursal . ' ' ;
	$longitudsucursal = $longitudsucursal + 1;
}

$longitudtipodemercancia = strlen($tipodemercancia);
while ($longitudtipodemercancia < 71) {
	$tipodemercancia = $tipodemercancia . ' ' ;
	$longitudtipodemercancia = $longitudtipodemercancia + 1;
}

$longitudvalorsolicitado = strlen($valorsolicitado);
while ($longitudvalorsolicitado < 13) {
	$valorsolicitado = $valorsolicitado . ' ' ;
	$longitudvalorsolicitado = $longitudvalorsolicitado + 1;
}

$longitudplazomeses = strlen($plazomeses);
while ($longitudplazomeses < 18) {
	$plazomeses = $plazomeses . ' ' ;
	$longitudplazomeses = $longitudplazomeses + 1;
}

$longitudvalorcuotas = strlen($valorcuotas);
while ($longitudvalorcuotas < 12) {
	$valorcuotas = $valorcuotas . ' ' ;
	$longitudvalorcuotas = $longitudvalorcuotas + 1;
}

$longituddevengado= strlen($devengado);
while ($longituddevengado < 19) {
	$devengado = $devengado . ' ' ;
	$longituddevengado = $longituddevengado + 1;
}

$longituddescuentos= strlen($descuentos);
while ($longituddescuentos < 18) {
	$descuentos = $descuentos . ' ' ;
	$longituddescuentos = $longituddescuentos + 1;
}

$longituddisponible= strlen($disponible);
while ($longituddisponible < 13) {
	$disponible = $disponible . ' ' ;
	$longituddisponible = $longituddisponible + 1;
}

$longitudvalorcredito= strlen($valorcredito);
while ($longitudvalorcredito < 15) {
	$valorcredito = $valorcredito . ' ' ;
	$longitudvalorcredito = $longitudvalorcredito + 1;
}

$longitudvalorlibranza= strlen($valorlibranza);
while ($longitudvalorlibranza < 14) {
	$valorlibranza = $valorlibranza . ' ' ;
	$longitudvalorlibranza = $longitudvalorlibranza + 1;
}

$longitudvalorcuota= strlen($valorcuota);
while ($longitudvalorcuota < 11) {
	$valorcuota = $valorcuota . ' ' ;
	$longitudvalorcuota = $longitudvalorcuota + 1;
}

$longitudrefco_nombre1= strlen($refco_nombre1);
while ($longitudrefco_nombre1 < 37) {
	$refco_nombre1 = $refco_nombre1 . ' ' ;
	$longitudrefco_nombre1 = $longitudrefco_nombre1 + 1;
}

$longitudrefco_direccion1= strlen($refco_direccion1);
while ($longitudrefco_direccion1 < 37) {
	$refco_direccion1 = $refco_direccion1 . ' ' ;
	$longitudrefco_direccion1 = $longitudrefco_direccion1 + 1;
}

$longitudrefco_telefono1= strlen($refco_telefono1);
while ($longitudrefco_telefono1 < 16) {
	$refco_telefono1 = $refco_telefono1 . ' ' ;
	$longitudrefco_telefono1 = $longitudrefco_telefono1 + 1;
}

$longitudrefco_nombre2= strlen($refco_nombre2);
while ($longitudrefco_nombre2 < 37) {
	$refco_nombre2 = $refco_nombre2 . ' ' ;
	$longitudrefco_nombre2 = $longitudrefco_nombre2 + 1;
}

$longitudrefco_direccion2= strlen($refco_direccion2);
while ($longitudrefco_direccion2 < 37) {
	$refco_direccion2 = $refco_direccion2 . ' ' ;
	$longitudrefco_direccion2 = $longitudrefco_direccion2 + 1;
}

$longitudrefco_telefono2= strlen($refco_telefono2);
while ($longitudrefco_telefono2 < 16) {
	$refco_telefono2 = $refco_telefono2 . ' ' ;
	$longitudrefco_telefono2 = $longitudrefco_telefono2 + 1;
}

$longitudrefco_nombre3= strlen($refco_nombre3);
while ($longitudrefco_nombre3 < 37) {
	$refco_nombre3 = $refco_nombre3 . ' ' ;
	$longitudrefco_nombre3 = $longitudrefco_nombre3 + 1;
}

$longitudrefco_direccion3= strlen($refco_direccion3);
while ($longitudrefco_direccion3 < 37) {
	$longitudrefco_nombre3 = $longitudrefco_nombre3 . ' ' ;
	$longitudrefco_direccion3 = $longitudrefco_direccion3 + 1;
}

$longitudrefco_telefono3= strlen($refco_telefono3);
while ($longitudrefco_telefono3 < 16) {
	$refco_telefono3 = $refco_telefono3 . ' ' ;
	$longitudrefco_telefono3 = $longitudrefco_telefono3 + 1;
}




$longitudrefper_nombre1= strlen($refper_nombre1);
while ($longitudrefper_nombre1 < 37) {
	$refper_nombre1 = $refper_nombre1 . ' ' ;
	$longitudrefper_nombre1 = $longitudrefper_nombre1 + 1;
}

$longitudrefper_direccion1= strlen($refper_direccion1);
while ($longitudrefper_direccion1 < 37) {
	$refper_direccion1 = $refper_direccion1 . ' ' ;
	$longitudrefper_direccion1 = $longitudrefper_direccion1 + 1;
}

$longitudrefper_telefono1= strlen($refper_telefono1);
while ($longitudrefper_telefono1 < 16) {
	$refper_telefono1 = $refper_telefono1 . ' ' ;
	$longitudrefper_telefono1 = $longitudrefper_telefono1 + 1;
}

$longitudrefper_nombre2= strlen($refper_nombre2);
while ($longitudrefper_nombre2 < 37) {
	$refper_nombre2 = $refper_nombre2 . ' ' ;
	$longitudrefper_nombre2 = $longitudrefper_nombre2 + 1;
}

$longitudrefper_direccion2= strlen($refper_direccion2);
while ($longitudrefper_direccion2 < 37) {
	$refper_direccion2 = $refper_direccion2 . ' ' ;
	$longitudrefper_direccion2 = $longitudrefper_direccion2 + 1;
}

$longitudrefper_telefono2= strlen($refper_telefono2);
while ($longitudrefper_telefono2 < 16) {
	$refper_telefono2 = $refper_telefono2 . ' ' ;
	$longitudrefper_telefono2 = $longitudrefper_telefono2 + 1;
}

$longitudrefper_nombre3= strlen($refper_nombre3);
while ($longitudrefper_nombre3 < 37) {
	$refper_nombre3 = $refper_nombre3 . ' ' ;
	$longitudrefper_nombre3 = $longitudrefper_nombre3 + 1;
}

$longitudrefper_direccion3= strlen($refper_direccion3);
while ($longitudrefper_direccion3 < 37) {
	$longitudrefper_nombre3 = $longitudrefper_nombre3 . ' ' ;
	$longitudrefper_direccion3 = $longitudrefper_direccion3 + 1;
}

$longitudrefper_telefono3= strlen($refper_telefono3);
while ($longitudrefper_telefono3 < 16) {
	$refper_telefono3 = $refper_telefono3 . ' ' ;
	$longitudrefper_telefono3 = $longitudrefper_telefono3 + 1;
}



$contenido= "                             INFORMACION DEL SOLICITANTE                                 " . " \n";
$contenido.= "\n";
$contenido.= "CIUDAD: " . $ciudad . " FECHA: " . $fecha . "\n\n";
$contenido.= "APELLIDOS Y NOMBRES: " . $apellidosynombres . "\n";
$contenido.= "C.C. " . $cedula . " DE " . $cedulade . "\n";
$contenido.= "EMPRESA/ENTIDAD: " . $empresa . " TIEMPO DE SERVICIO: " . $tiemposervicio . "\n";
$contenido.= "GRADO: " . $grado . " OCUPACION CARGO: " . $ocupacion . "\n";
$contenido.= "CODIGO: " . $codigo . " ESTADO CIVIL: " . $estadocivil . "\n\n";
$contenido.= "DIRECCION DE RESIDENCIA: " . $direccionresidencia . "\n";
$contenido.= "CIUDAD: " . $ciudadresidencia . " BARRIO: " . $barrio . " TELEFONO: " . $telefono . "\n\n";
$contenido.= "BANCO: " . $banco . " CTA No.: " . $cuenta . " SUCURSAL: " . $sucursal . "\n";
$contenido.= "TIPO DE MERCANCIA: " . $tipodemercancia . "\n\n";
$contenido.= "VALOR SOLICITADO: " . $valorsolicitado . " PLAZO MESES: " . $plazomeses . " VALOR CUOTAS: " . $valorcuotas . "\n";
$contenido.= "DEVENGADO: $" . $devengado . " DESCUENTOS: $" . $descuentos . " DISPONIBLE: $" . $disponible . "\n";
$contenido.= "VALOR CREDITO: $" . $valorcredito . " VALOR LIBRANZA: $" . $valorlibranza . " VALOR CUOTA : $" . $valorcuota . "\n";
$contenido.= "\nREFERENCIAS PERSONALES Y/O COMERCIALES" . "\n\n";
$contenido.= "         NOMBRE                       DIRECCION                           TELEFONO        " . "\n";
$contenido.= $refco_nombre1 .  $refco_direccion1 . $refco_telefono1 . "\n";
$contenido.= $refco_nombre2 .  $refco_direccion2 . $refco_telefono2 . "\n";
$contenido.= $refco_nombre3 .  $refco_direccion3 . $refco_telefono3 . "\n";
$contenido.= "\nREFERENCIAS FAMILIARES" . "\n\n";
$contenido.= "         NOMBRE                       DIRECCION                           TELEFONO        " . "\n";
$contenido.= $refper_nombre1 .  $refper_direccion1 . $refper_telefono1 . "\n";
$contenido.= $refper_nombre2 .  $refper_direccion2 . $refper_telefono2 . "\n";
$contenido.= $refper_nombre3 .  $refper_direccion3 . $refper_telefono3 . "\n";
$contenido.= "\n";

/*	if (fwrite($gestor, $contenido) == FALSE) {
//   		echo "No se puede escribir al archivo ($nombre_archivo)";
	   exit;
   	}*/

// ==================================================== BUSCA INFORMACION CODEUDOR =========================================//

$querysearchco = "select * from solicitudcredito_codeudor where cedula='$lacedula'";
$resultsearchco = MYSQL_QUERY($querysearchco);
$numbersearchco = mysql_Numrows($resultsearchco);
if ($numbersearchco==0) {

//    echo "<font size=2 face=\"Arial, Helvetica, sans-serif\"><b>No se encontraron Solicitudes de Crédito !</b></font>"; 

}
else if ($numbersearchco>0) {

$x=0;
        while ($x<$numbersearchco)
        {

//            if (($x%2)==0) { $bgcolor="#FFFFFF"; } else { $bgcolor="#C0C0C0"; }

?>
  
              <? $ciudad=mysql_result($resultsearchco,$x,"ciudad"); ?>
              <? $fecha=mysql_result($resultsearchco,$x,"fecha"); ?>
              <? $apellidosynombres=mysql_result($resultsearchco,$x,"apellidosynombres"); ?>
              <? $cedula=mysql_result($resultsearchco,$x,"cedula"); ?>
              <? $cedulade=mysql_result($resultsearchco,$x,"cedulade"); ?>
              <? $empresa=mysql_result($resultsearchco,$x,"empresa"); ?>
              <? $tiemposervicio=mysql_result($resultsearchco,$x,"tiemposervicio"); ?>
              <? $grado=mysql_result($resultsearchco,$x,"grado"); ?>
              <? $ocupacion=mysql_result($resultsearchco,$x,"ocupacion"); ?>
              <? $codigo=mysql_result($resultsearchco,$x,"codigo"); ?>
              <? $estadocivil=mysql_result($resultsearchco,$x,"estadocivil"); ?>
              <? $direccionresidencia=mysql_result($resultsearchco,$x,"direccionresidencia"); ?>
              <? $ciudadresidencia=mysql_result($resultsearchco,$x,"ciudadresidencia"); ?>
              <? $barrio=mysql_result($resultsearchco,$x,"barrio"); ?>
              <? $telefono=mysql_result($resultsearchco,$x,"telefono"); ?>
              <? $devengado=mysql_result($resultsearchco,$x,"devengado"); ?>
              <? $descuentos=mysql_result($resultsearchco,$x,"descuentos"); ?>
              <? $disponible=mysql_result($resultsearchco,$x,"disponible"); ?>
              <? $valorcredito=mysql_result($resultsearchco,$x,"valorcredito"); ?>
              <? $valorlibranza=mysql_result($resultsearchco,$x,"valorlibranza"); ?>
              <? $valorcuota=mysql_result($resultsearchco,$x,"valorcuota"); ?>
              <? $refco_nombre1=mysql_result($resultsearchco,$x,"refco_nombre1"); ?>
              <? $refco_direccion1=mysql_result($resultsearchco,$x,"refco_direccion1"); ?>
              <? $refco_telefono1=mysql_result($resultsearchco,$x,"refco_telefono1"); ?>
              <? $refco_nombre2=mysql_result($resultsearchco,$x,"refco_nombre2"); ?>
              <? $refco_direccion2=mysql_result($resultsearchco,$x,"refco_direccion2"); ?>
              <? $refco_telefono2=mysql_result($resultsearchco,$x,"refco_telefono2"); ?>
              <? $refco_nombre3=mysql_result($resultsearchco,$x,"refco_nombre3"); ?>
              <? $refco_direccion3=mysql_result($resultsearchco,$x,"refco_direccion3"); ?>
              <? $refco_telefono3=mysql_result($resultsearchco,$x,"refco_telefono3"); ?>
              <? $refper_nombre1=mysql_result($resultsearchco,$x,"refper_nombre1"); ?>
              <? $refper_direccion1=mysql_result($resultsearchco,$x,"refper_direccion1"); ?>
              <? $refper_telefono1=mysql_result($resultsearchco,$x,"refper_telefono1"); ?>
              <? $refper_nombre2=mysql_result($resultsearchco,$x,"refper_nombre2"); ?>
              <? $refper_direccion2=mysql_result($resultsearchco,$x,"refper_direccion2"); ?>
              <? $refper_telefono2=mysql_result($resultsearchco,$x,"refper_telefono2"); ?>
              <? $refper_nombre3=mysql_result($resultsearchco,$x,"refper_nombre3"); ?>
              <? $refper_direccion3=mysql_result($resultsearchco,$x,"refper_direccion3"); ?>
              <? $refper_telefono3=mysql_result($resultsearchco,$x,"refper_telefono3"); ?>
  <?

        $x++;
    } // end while 
} // end if 


$longitudciudad = strlen($ciudad);
while ($longitudciudad < 38) {
	$ciudad = $ciudad . ' ' ;
	$longitudciudad = $longitudciudad + 1;
}
$longitudfecha = strlen($fecha);
while ($longitudfecha < 36) {
	$fecha = $fecha . ' ' ;
	$longitudfecha = $longitudfecha + 1;
}

$longitudapellidosynombres = strlen($apellidosynombres);
while ($longitudapellidosynombres < 69) {
	$apellidosynombres = $apellidosynombres . ' ' ;
	$longitudapellidosynombres = $longitudapellidosynombres + 1;
}

$longitudcedula = strlen($cedula);
while ($longitudcedula < 41) {
	$cedula = $cedula . ' ' ;
	$longitudcedula = $longitudcedula + 1;
}

$longitudcedulade = strlen($cedulade);
while ($longitudcedulade < 40) {
	$cedulade = $cedulade . ' ' ;
	$longitudcedulade = $longitudcedulade + 1;
}

$longitudempresa = strlen($empresa);
while ($longitudempresa < 29) {
	$empresa = $empresa . ' ' ;
	$longitudempresa = $longitudempresa + 1;
}

$longitudtiemposervicio = strlen($tiemposervicio);
while ($longitudtiemposervicio < 23) {
	$tiemposervicio = $tiemposervicio . ' ' ;
	$longitudtiemposervicio = $longitudtiemposervicio + 1;
}

$longitudgrado = strlen($grado);
while ($longitudgrado < 39) {
	$grado = $grado . ' ' ;
	$longitudgrado = $longitudgrado + 1;
}

$longitudocupacion = strlen($ocupacion);
while ($longitudocupacion < 26) {
	$ocupacion = $ocupacion . ' ' ;
	$longitudocupacion = $longitudocupacion + 1;
}

$longitudcodigo = strlen($codigo);
while ($longitudcodigo < 38) {
	$codigo = $codigo . ' ' ;
	$longitudcodigo = $longitudcodigo + 1;
}

$longitudestadocivil = strlen($estadocivil);
while ($longitudestadocivil < 29) {
	$estadocivil = $estadocivil . ' ' ;
	$longitudestadocivil = $longitudestadocivil + 1;
}

$longituddireccionresidencia = strlen($direccionresidencia);
while ($longituddireccionresidencia < 65) {
	$direccionresidencia = $direccionresidencia . ' ' ;
	$longituddireccionresidencia = $longituddireccionresidencia + 1;
}

$longitudciudadresidencia = strlen($ciudadresidencia);
while ($longitudciudadresidencia < 23) {
	$ciudadresidencia = $ciudadresidencia . ' ' ;
	$longitudciudadresidencia = $longitudciudadresidencia + 1;
}

$longitudbarrio = strlen($barrio);
while ($longitudbarrio < 23) {
	$barrio = $barrio . ' ' ;
	$longitudbarrio = $longitudbarrio + 1;
}

$longitudtelefono = strlen($telefono);
while ($longitudtelefono < 16) {
	$telefono = $telefono . ' ' ;
	$longitudtelefono = $longitudtelefono + 1;
}

$longituddevengado= strlen($devengado);
while ($longituddevengado < 19) {
	$devengado = $devengado . ' ' ;
	$longituddevengado = $longituddevengado + 1;
}

$longituddescuentos= strlen($descuentos);
while ($longituddescuentos < 18) {
	$descuentos = $descuentos . ' ' ;
	$longituddescuentos = $longituddescuentos + 1;
}

$longituddisponible= strlen($disponible);
while ($longituddisponible < 13) {
	$disponible = $disponible . ' ' ;
	$longituddisponible = $longituddisponible + 1;
}

$longitudvalorcredito= strlen($valorcredito);
while ($longitudvalorcredito < 15) {
	$valorcredito = $valorcredito . ' ' ;
	$longitudvalorcredito = $longitudvalorcredito + 1;
}

$longitudvalorlibranza= strlen($valorlibranza);
while ($longitudvalorlibranza < 14) {
	$valorlibranza = $valorlibranza . ' ' ;
	$longitudvalorlibranza = $longitudvalorlibranza + 1;
}

$longitudvalorcuota= strlen($valorcuota);
while ($longitudvalorcuota < 11) {
	$valorcuota = $valorcuota . ' ' ;
	$longitudvalorcuota = $longitudvalorcuota + 1;
}

$longitudrefco_nombre1= strlen($refco_nombre1);
while ($longitudrefco_nombre1 < 37) {
	$refco_nombre1 = $refco_nombre1 . ' ' ;
	$longitudrefco_nombre1 = $longitudrefco_nombre1 + 1;
}

$longitudrefco_direccion1= strlen($refco_direccion1);
while ($longitudrefco_direccion1 < 37) {
	$refco_direccion1 = $refco_direccion1 . ' ' ;
	$longitudrefco_direccion1 = $longitudrefco_direccion1 + 1;
}

$longitudrefco_telefono1= strlen($refco_telefono1);
while ($longitudrefco_telefono1 < 16) {
	$refco_telefono1 = $refco_telefono1 . ' ' ;
	$longitudrefco_telefono1 = $longitudrefco_telefono1 + 1;
}

$longitudrefco_nombre2= strlen($refco_nombre2);
while ($longitudrefco_nombre2 < 37) {
	$refco_nombre2 = $refco_nombre2 . ' ' ;
	$longitudrefco_nombre2 = $longitudrefco_nombre2 + 1;
}

$longitudrefco_direccion2= strlen($refco_direccion2);
while ($longitudrefco_direccion2 < 37) {
	$refco_direccion2 = $refco_direccion2 . ' ' ;
	$longitudrefco_direccion2 = $longitudrefco_direccion2 + 1;
}

$longitudrefco_telefono2= strlen($refco_telefono2);
while ($longitudrefco_telefono2 < 16) {
	$refco_telefono2 = $refco_telefono2 . ' ' ;
	$longitudrefco_telefono2 = $longitudrefco_telefono2 + 1;
}

$longitudrefco_nombre3= strlen($refco_nombre3);
while ($longitudrefco_nombre3 < 37) {
	$refco_nombre3 = $refco_nombre3 . ' ' ;
	$longitudrefco_nombre3 = $longitudrefco_nombre3 + 1;
}

$longitudrefco_direccion3= strlen($refco_direccion3);
while ($longitudrefco_direccion3 < 37) {
	$longitudrefco_nombre3 = $longitudrefco_nombre3 . ' ' ;
	$longitudrefco_direccion3 = $longitudrefco_direccion3 + 1;
}

$longitudrefco_telefono3= strlen($refco_telefono3);
while ($longitudrefco_telefono3 < 16) {
	$refco_telefono3 = $refco_telefono3 . ' ' ;
	$longitudrefco_telefono3 = $longitudrefco_telefono3 + 1;
}




$longitudrefper_nombre1= strlen($refper_nombre1);
while ($longitudrefper_nombre1 < 37) {
	$refper_nombre1 = $refper_nombre1 . ' ' ;
	$longitudrefper_nombre1 = $longitudrefper_nombre1 + 1;
}

$longitudrefper_direccion1= strlen($refper_direccion1);
while ($longitudrefper_direccion1 < 37) {
	$refper_direccion1 = $refper_direccion1 . ' ' ;
	$longitudrefper_direccion1 = $longitudrefper_direccion1 + 1;
}

$longitudrefper_telefono1= strlen($refper_telefono1);
while ($longitudrefper_telefono1 < 16) {
	$refper_telefono1 = $refper_telefono1 . ' ' ;
	$longitudrefper_telefono1 = $longitudrefper_telefono1 + 1;
}

$longitudrefper_nombre2= strlen($refper_nombre2);
while ($longitudrefper_nombre2 < 37) {
	$refper_nombre2 = $refper_nombre2 . ' ' ;
	$longitudrefper_nombre2 = $longitudrefper_nombre2 + 1;
}

$longitudrefper_direccion2= strlen($refper_direccion2);
while ($longitudrefper_direccion2 < 37) {
	$refper_direccion2 = $refper_direccion2 . ' ' ;
	$longitudrefper_direccion2 = $longitudrefper_direccion2 + 1;
}

$longitudrefper_telefono2= strlen($refper_telefono2);
while ($longitudrefper_telefono2 < 16) {
	$refper_telefono2 = $refper_telefono2 . ' ' ;
	$longitudrefper_telefono2 = $longitudrefper_telefono2 + 1;
}

$longitudrefper_nombre3= strlen($refper_nombre3);
while ($longitudrefper_nombre3 < 37) {
	$refper_nombre3 = $refper_nombre3 . ' ' ;
	$longitudrefper_nombre3 = $longitudrefper_nombre3 + 1;
}

$longitudrefper_direccion3= strlen($refper_direccion3);
while ($longitudrefper_direccion3 < 37) {
	$longitudrefper_nombre3 = $longitudrefper_nombre3 . ' ' ;
	$longitudrefper_direccion3 = $longitudrefper_direccion3 + 1;
}

$longitudrefper_telefono3= strlen($refper_telefono3);
while ($longitudrefper_telefono3 < 16) {
	$refper_telefono3 = $refper_telefono3 . ' ' ;
	$longitudrefper_telefono3 = $longitudrefper_telefono3 + 1;
}

//$contenido = "+----------------------------------------------------------------------------------------------+\n";
//$contenido.= "\n";
$contenido.= "\n\n";
$contenido.= "                             INFORMACION DEL CODEUDOR                                    " . " \n";
$contenido.= "\n";
$contenido.= "CIUDAD: " . $ciudad . " FECHA: " . $fecha . "\n\n";
$contenido.= "APELLIDOS Y NOMBRES: " . $apellidosynombres . "\n";
$contenido.= "C.C. " . $cedula . " DE " . $cedulade . "\n";
$contenido.= "EMPRESA/ENTIDAD: " . $empresa . " TIEMPO DE SERVICIO: " . $tiemposervicio . "\n";
$contenido.= "GRADO: " . $grado . " OCUPACION CARGO: " . $ocupacion . "\n";
$contenido.= "CODIGO: " . $codigo . " ESTADO CIVIL: " . $estadocivil . "\n\n";
$contenido.= "DIRECCION DE RESIDENCIA: " . $direccionresidencia . "\n";
$contenido.= "CIUDAD: " . $ciudadresidencia . " BARRIO: " . $barrio . " TELEFONO: " . $telefono . "\n\n";
$contenido.= "DEVENGADO: $" . $devengado . " DESCUENTOS: $" . $descuentos . " DISPONIBLE: $" . $disponible . "\n";
$contenido.= "VALOR CREDITO: $" . $valorcredito . " VALOR LIBRANZA: $" . $valorlibranza . " VALOR CUOTA : $" . $valorcuota . "\n";
$contenido.= "\nREFERENCIAS PERSONALES Y/O COMERCIALES" . "\n\n";
$contenido.= "         NOMBRE                       DIRECCION                           TELEFONO        " . "\n";
$contenido.= $refco_nombre1 .  $refco_direccion1 . $refco_telefono1 . "\n";
$contenido.= $refco_nombre2 .  $refco_direccion2 . $refco_telefono2 . "\n";
$contenido.= $refco_nombre3 .  $refco_direccion3 . $refco_telefono3 . "\n";
$contenido.= "\nREFERENCIAS FAMILIARES" . "\n\n";
$contenido.= "         NOMBRE                       DIRECCION                           TELEFONO        " . "\n";
$contenido.= $refper_nombre1 .  $refper_direccion1 . $refper_telefono1 . "\n";
$contenido.= $refper_nombre2 .  $refper_direccion2 . $refper_telefono2 . "\n";
$contenido.= $refper_nombre3 .  $refper_direccion3 . $refper_telefono3 . "\n";

	if (fwrite($gestor, $contenido) == FALSE) {
//   		echo "No se puede escribir al archivo ($nombre_archivo)";
	   exit;
   	}


	echo "<br><br><font size=2 face=\"Arial, Helvetica, sans-serif\"><center>Se exportó con éxito el archivo plano con la información del Solicitante y su Codeudor! <br> Para verlo e imprimirlo por favor haga <a href=\"$nombre_archivo\">Click Aquí</a></font></center>";
	fclose($gestor);       
} else {
	
	echo "<br><br>No se exportó el archivo !";
}            



include("foot.php");
?>