<?php
require "entorno/env.php"; 

$username = $_GET["username"]; 
$pwd      = $_GET["pwd"]; 
$sucursal = $_GET["sucursal"]; 
$nombre   = $_GET["nombre"]; 
$cuit     = $_GET["cuit"]; 
$nrodoc   = $_GET["nrodoc"]; 
/*
if (empty($username)) { $username = "f0000"; }
if (empty($pwd)) { $pwd = "123456789"; }
if (empty($sucursal)) { $sucursal = "0";}
if (empty($nombre))   { $nombre   = "PROBANDO"; }
if (empty($cuit))     { $cuit = "30501677643"; } 
if (empty($nrodoc))   { $nroDoc = ""; } 
*/
$encabezado="";
$registra_ant = 'N';
//$cuit = "20164949274"; 
//$cuit = "30501601213";
//$cuit = "30521667075";
//$cuit = "30675428081";
//$cuit = "20041455331";
//$cuit = "20080688041";

//tracking de errores:
ini_set("display_errors", 1);
ini_set("display_startup_errors", 1);
error_reporting(E_ALL);

//truncate text function
function truncate($text,$chars=80) {
	  $text2 = ""; 
	  $ok   = "N";
	  $key  = 0; 
	  $text = $text." ";
	  $len  = strlen($text)-1;

		while($ok=="N") {
	    $text1 = substr($text,$key,$chars+2);
	    $salto = strpos($text1,"\n");
	    if (is_int($salto)) {
	    	 $salto = $salto + 1; 
	    } 
	    if (strtolower(substr($text1,0,2))=="\n")
	    {
	    	$salto = 2;
	    }
	    if (is_int($salto)) {
	    	$cant_char = $salto; 
	      $text2 .= substr($text1,0,$cant_char);
	    } 
	    else 
	    {
	      $text1 = substr($text,$key,$chars);
	     	$cant_char = strrpos($text1," ");
	     	if ($cant_char==false) { $cant_char=80;}
	      $text2 .= substr($text1,0,$cant_char);
	      $text2 .=  "\n"; 
	      $cant_char += 1;
	    }
	    
	    $key = $key + $cant_char; 
	    
	    if($key >= $len) { $ok = "S";}
	   }
    return $text2;
}

$fecha      = "";
$cli_nombre = "";
$resp       = "";
$nro        = "";
$parte1     = ""; 

// Conexion a la Base de datos
$connection = new PDO("dblib:host=".$env_host.";dbname=".$env_database.";charset=utf8",$env_username,$env_password);

//$connection = new PDO('dblib:host=192.168.121.25;dbname=Fidelitas;charset=utf8', 'aval', '1234567890');

$stmt  = $connection->prepare("exec ws_consulta ?,?,?,?,?");
$stmt->setFetchMode(PDO::FETCH_OBJ);
$stmt->bindParam(1,$username);
$stmt->bindParam(2,$sucursal);
$stmt->bindParam(3,$nombre);
$stmt->bindParam(4,$cuit);
$stmt->bindParam(5,$nrodoc); 

if ($stmt) {
		$stmt->execute();
}
if ($respuesta = $stmt->fetch(PDO::FETCH_OBJ)) 
{
	$fecha      = $respuesta->fecha; 
	$cli_nombre = $respuesta->nombre_cliente; 
	$resp       = $respuesta->respuesta; 
	$nro        = $respuesta->nro_consulta; 
}

// Principio del Informe

if ($resp=="A" || $resp=="R")
{

	$encabezado = "Procesado por FIDELITAS-Información estrictamente confidencial y sin valor legal\n\n"; 

	$pos = substr($cuit,0,1);
	$persona_fisica = false;
	if ($pos == "2")  {
		 $persona_fisica=true;
	}

	// Datos Personas Fisicas y Juridicas
	$stmt  = $connection->prepare("exec obtener_Persona ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($persona = $stmt->fetch(PDO::FETCH_OBJ)) 
	{
		$parte1 = "Fecha: " . $fecha . " " . $cli_nombre; 
		$parte1 .= "\nINFORMADO: " . $persona->nombre_persona;  
		if(!empty($persona->identificacion)) {
		    $parte1 .= "\nC.U.I.T: ". $persona->identificacion; 
		}
		$parte1 .= "\n==============================================================================="; 

	  
	  $parte1 .= "\nDATOS INGRESADOS POR EL CLIENTE:\n"; 
	  $hay = "N";
	  if (!empty($nombre)) { 
	  	$parte1 .= "Nombre: " . $nombre; 
	  	$hay = "S";
	  }
	  if (!empty($cuit)) {
	    if ($hay=="S") { $parte1 .= "; ";} 
	  	$parte1 .= "C.U.I.T.: " . $cuit;
	  	$hay = "S";
	  	}
	  if (!empty($nrodoc)) { 
	  	if ($hay=="S") { $parte1 .= "; ";} 
	  	$parte1 .= "Nro. Documento: " . $nrodoc;
	  	$hay = "S";
	  	}
    $parte1 .= "\n";

	  if (!empty($persona->nombre_persona)) {

	  	$parte1.= "\nDATOS SEGUN N/BASE DE DATOS: DOCUMENTO VALIDADO\n";
		  if ($persona_fisica == true) { 
			 $parte1 .= "Nombre y Apellido: " . trim($persona->nombre_persona); 
		  }
		  else 
		  {
		  	$parte1 .= "Razón Social: " . trim($persona->nombre_persona); 
		  }
	  }
	  if(!empty($persona->identificacion)) { 
		  $parte1 .= "; C.U.I.T: " . trim($persona->identificacion);
	  }
		// Solo para personas
		//print_r($persona->ocupacion); die(); 
		if ($persona_fisica == true) { 
			if (!empty($persona->fecha_nac_dmy)) {
				$parte1 .= "; Fecha de Nacimiento: " .  trim($persona->fecha_nac_dmy);
			}
			if (!empty($persona->edad)) {
				$parte1 .= "; Edad: " .  $persona->edad; 
			}
			if (!empty($persona->profesion) && trim($persona->profesion) != "NO INFORMADO") {
				$parte1 .= "; Profesión/Oficio: " . trim($persona->profesion);
			}
			if (!empty($persona->ocupacion) && trim($persona->ocupacion) != "NO INFORMADO") { 
				$parte1 .= "; Ocupación: " . trim($persona->ocupacion);
			}
			if ($persona->pais != "") { 
				$parte1 .= "; Nacionalidad: " .  trim($persona->pais);
			}
			if (!empty($persona->estado_civil) && trim($persona->estado_civil) != "NO INFORMADO") {
				$parte1 .= "; Estado Civil: " .  trim($persona->estado_civil);
			}
			if (!empty($persona->c02_nrodoc) || !empty($persona->c02_nrodoc_2)) { 
				if (trim($persona->doc_codigo_2) != "NO INFORMADO") { 
				   $parte1 .= "; Tipo y Nro de documento: " .  trim($persona->doc_codigo) . " " . trim($persona->c02_nrodoc);
				}
				if (!empty($persona->c02_nrodoc_2) && trim($persona->doc_codigo_2) != "NO INFORMADO") { 
						$parte1 .= 	", " .  trim($persona->doc_codigo_2) . " " . trim($persona->c02_nrodoc_2);
				}
			}
			if (!empty($persona->nombre_conyuge)) {
				$parte1 .= "; Nombre Conyuge: " .  trim($persona->nombre_conyuge);
			}
			if (!empty($persona->c02_nrodoc_conyuge) || !empty($persona->c02_nrodoc_conyuge_2)) { 
				if (trim($persona->doc_codigo_c) != "NO INFORMADO") { 
				    $parte1 .= "; Tipo y Nro de documento del Conyuge: " .  trim($persona->doc_codigo_c) . " ".  trim($persona->c02_nrodoc_conyuge); 
				} 
				if (trim($persona->doc_codigo_c2) !="NO INFORMADO") {
						$parte1 .=  ", " . trim($persona->doc_codigo_c2) . " ".  trim($persona->c02_nrodoc_conyuge_2); 
				}
			}
			if (!empty($persona->nombre_madre)) {
				$parte1 .= "; Nombre de la Madre: " .  trim($persona->nombre_madre);
			}
			if (!empty($persona->nombre_padre )) {
				$parte1 .= "; Nombre del Padre: " .  trim($persona->nombre_padre); 
			}
			
		}
	} 

	// Datos de las sociedades

	$stmt = $connection->prepare("exec obtener_Sociedades ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($sociedades = $stmt->fetch(PDO::FETCH_OBJ)) 
	{

			if(!empty($sociedades->ramo) && trim($sociedades->ramo) != "NO INFORMADO") {
				$parte1 .=  "; Ramo: " . trim($sociedades->ramo); 
			}

			if(!empty($sociedades->subramo) && trim($sociedades->subramo) != "NO INFORMADO") {
				$parte1 .=  "; Subramo: " . trim($sociedades->subramo);
			}
			if(!empty($sociedades->actividad)) {
				$parte1 .=  "; Actividad: " . trim($sociedades->actividad);
			}
			if(!empty($sociedades->tipo_sociedad) && trim($sociedades->tipo_sociedad) != "NO INFORMADO") {
				$parte1 .=  "; Forma Juridica: " . trim($sociedades->tipo_sociedad);
			}
			if(!empty($sociedades->fecha_cons)) {
				$parte1 .=  "; Fecha De Constitución O Inicio De Act.: " . trim($sociedades->fecha_cons);
			}
			if(!empty($sociedades->fecha_ins_rpc)) {
				$parte1 .=  "; Fecha Ins. R.P.C.: " . trim($sociedades->fecha_ins_rpc);
			}
			if(!empty($sociedades->duracion)) {
				$parte1 .=  "; Duración: " . trim($sociedades->duracion);
			}
			if(!empty($sociedades->capital)) {
				$parte1 .=  "; Capital: " . trim($sociedades->capital/1);
			}
			if(!empty($sociedades->uso_firma)) {
				$parte1 .=  "; Uso de Firma: " . trim($sociedades->uso_firma);
			}
	}

	// Domicilios
	$stmt = $connection->prepare("exec obtener_Domicilios ?,?,?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$nulo = null;
	$visible = 1; 
	$stmt->bindParam(1,$cuit); 
	$stmt->bindParam(2,$visible); 
	$stmt->bindParam(3,$null); 

	if ($stmt) {
			$stmt->execute();
	}
	if ($domicilios = $stmt->fetchAll(PDO::FETCH_OBJ)) 
	{
		$hay_domicilio = "N";
		foreach($domicilios as $domicilio)  {
			if ($domicilio->tipo_domicilio_nombre=="DOMICILIO")
			{
				 if ($hay_domicilio=="N") { 
				    $parte1 .= "; Domicilio: "; 
				    $hay_domicilio = "S"; 
				 }
				 else
				 {
				 	$parte1 .= ", ";
				 }
				 $parte1 .= $domicilio->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= " (". trim($domicilio->codpos) . ") "; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && trim($domicilio->loc_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". trim($domicilio->loc_nombre) . ", ";
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && trim($domicilio->prv_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". trim($domicilio->prv_nombre) . ", ";
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && trim($domicilio->pai_nombre)!="NO INFORMADO") {   
		 	    $parte1 .= " ". trim($domicilio->pai_nombre);
			 	 } 
			} 
		}
		
		$hay_domicilio = "N";
		foreach($domicilios as $domicilio)  {
			if ($domicilio->tipo_domicilio_nombre=="FISCAL")
			{
				 if ($hay_domicilio=="N") { 
				    $parte1 .= "; Domicilio Fiscal: "; 
				    $hay_domicilio = "S"; 
				 }
				 else
				 {
				 	$parte1 .= ", ";
				 }
				 $parte1 .= $domicilio->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= " (". trim($domicilio->codpos) . ") "; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && trim($domicilio->loc_nombre) !="NO INFORMADO") {   
			 	    $parte1 .= " ". trim($domicilio->loc_nombre) .", ";
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && trim($domicilio->prv_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". trim($domicilio->prv_nombre) .", ";
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && trim($domicilio->pai_nombre)!="NO INFORMADO") {   
		 	    $parte1 .= " ". trim($domicilio->pai_nombre);
			 	 } 
			} 
		}
		
		$hay_domicilio = "N";
		foreach($domicilios as $domicilio)  {
			if ($domicilio->tipo_domicilio_nombre=="LEGAL")
			{
				 if ($hay_domicilio=="N") { 
				    $parte1 .= "; Domicilio Legal: "; 
				    $hay_domicilio = "S"; 
				 }
				 else
				 {
				 	$parte1 .= ", ";
				 }
				 $parte1 .= $domicilio->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= " (". trim($domicilio->codpos) . ") "; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && trim($domicilio->loc_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". trim($domicilio->loc_nombre) .", ";
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && trim($domicilio->prv_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". trim($domicilio->prv_nombre) .", ";
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && trim($domicilio->pai_nombre)!="NO INFORMADO") {   
		 	    $parte1 .= " ". trim($domicilio->pai_nombre);
			 	 } 
			} 
		}
		
		$hay_domicilio = "N";
		foreach($domicilios as $domicilio)  {
			if ($domicilio->tipo_domicilio_nombre=="OTROS")
			{
				 if ($hay_domicilio=="N") { 
				    $parte1 .= "; Otros Domicilios: "; 
				    $hay_domicilio = "S"; 
				 }
				 else
				 {
				 	$parte1 .= ", ";
				 }

				 $parte1 .= $domicilio->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= " (". $domicilio->codpos . ") "; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && trim($domicilio->loc_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". $domicilio->loc_nombre .", ";
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && trim($domicilio->prv_nombre)!="NO INFORMADO") {   
			 	    $parte1 .= " ". $domicilio->prv_nombre .", ";
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && trim($domicilio->pai_nombre)!="NO INFORMADO") {   
		 	    $parte1 .= " ". $domicilio->pai_nombre;
			 	 } 
			} 
		}

		$hay_domicilio = "N";
		foreach($domicilios as $domicilio)  {
			if (!empty($domicilio->otros_domicilios))
			{
				 if ($hay_domicilio=="N") { 
				    $parte1 .= "; Otros Domicilios: "; 
				    $hay_domicilio = "S"; 
				 }
				 else
				 {
				 	$parte1 .= ", ";
			 }
				 $parte1 .= $domicilio->otros_domicilios; 
			} 
		}

		$hay_domicilio = "N";
		foreach($domicilios as $domicilio)  {
			if (!empty($domicilio->telefono))
			{
				 if ($hay_domicilio=="N") { 
				    $parte1 .= "; Teléfonos: "; 
				    $hay_domicilio = "S"; 
				 }
				 else
				 {
				 	$parte1 .= ", ";
			 }
				 $parte1 .= $domicilio->telefono; 
			} 
		}

	}

	// Clae
	$stmt = $connection->prepare("exec obtener_clae ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($claes = $stmt->fetchAll(PDO::FETCH_OBJ)) 
	{

	if (!empty($claes)) 
	  { 
		$hay_clae = "N";
		foreach($claes as $clae) { 
			if ($hay_clae=="N") { 
					$parte1 .= "\nC.L.A.E.: "; 
				  $hay_clae = "S"; 
			}
			else
			{
				$parte1 .= ", ";
			}
	  	$parte1 .= $clae->cod_clae . " - " . $clae->descripcion; 
		}
	  
	  foreach($claes as $clae) { 
	  	if(!empty($clae->fecha_inicio_actividad)) { 
					$parte1 .= "; Fecha Inicio de Actividad: " . $clae->fecha_inicio_actividad; 
				  break; 
		  }
	  }
		}
	}

	// Inscripciones
	$stmt = $connection->prepare("exec obtener_Inscripciones ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($inscripciones = $stmt->fetch(PDO::FETCH_OBJ)) 
	{
		if(!empty($inscripciones->ganancias)) {   
			 $parte1 .= "; IMP. GANANCIAS: ". $inscripciones->ganancias; 
		}
		if(!empty($inscripciones->iva)) {   
			 $parte1 .= "; IVA: ". $inscripciones->iva; 
		}
		if(!empty($inscripciones->monotributo)) {   
			 $parte1 .= "; MONOTRIBUTO: ". $inscripciones->monotributo; 
		}
		if(!empty($inscripciones->actividad)) {   
			 $parte1 .= "; MONOTRIBUTO: ". $inscripciones->actividad; 
		}
		if(!empty($inscripciones->integrante_soc)) {   
			 $parte1 .= "; INTEGRANTE DE SOC.: ". $inscripciones->integrante_soc; 
		}
		if(!empty($inscripciones->empleador)) {   
			 $parte1 .= "; EMPLEADOR: ". $inscripciones->empleador; 
		}
	}

	// Empleado de 
	$stmt = $connection->prepare("exec obtener_Empleado_de ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($empleadores = $stmt->fetchAll(PDO::FETCH_OBJ)) 
	{
		foreach($empleadores as $empleador) { 
			$parte1 .= "\nEMPLEADO DE: " . $empleador->cuit_empleador . " " .  $empleador->nombre_empleador . " (a " .  $empleador->periodo . ")" ; 
		}
	}
	$parte1 .= "\n------------------------------------------------------------------------------";

	// Empezamos a imprimir los antecedentes 

	$w_cant_bcra = 0;
	$w_cant_cheques = 0;
	$w_cant_arba = 0; 
	$w_cant_juicios = 0; 
	$w_cant_morosidad = 0; 
	$w_cant_agip = 0;

	// Juicios como Demandado y Juicios como Actor
	for ($x = 1; $x <= 2; $x++) 
	{
		$stmt = $connection->prepare("exec backend_juicios_demandado_actor ?,?,?,?,?");
		$stmt->setFetchMode(PDO::FETCH_OBJ);
		$id_juicio = null;
		if ($x==1) { 
		   $demandado_actor = "D";
		} else { 
		   $demandado_actor = "A";
		}
		$meses = 60; 
		$visible = "1";
		$stmt->bindParam(1,$id_jucio); 
		$stmt->bindParam(2,$demandado_actor); 
		$stmt->bindParam(3,$cuit); 
		$stmt->bindParam(4,$meses); 
		$stmt->bindParam(5,$visible); 
		if ($stmt) {
				$stmt->execute();
		}
		if ($juicios_demandado_actor = $stmt->fetchAll(PDO::FETCH_OBJ))
		{
			$registra_ant = 'S';
			if ($demandado_actor == "D") { 
					$parte1 .= "\n\nANTECEDENTES JUDICIALES COMO DEMANDADO"; 
			} else {
					$parte1 .= "\n\nANTECEDENTES JUDICIALES COMO ACTOR"; 
			}
			$hay=0;
			foreach($juicios_demandado_actor as $juicios) { 
				if ($demandado_actor == "D") { $w_cant_juicios += 1; $resp = "R";}
				if ($hay==0) { 
					$parte1 .= "\n-------------------------------------------------------------------------------"; 
					$hay = 1; 
				} else {
					$parte1 .= "\n";
				}
				$parte1 .= "\n" . $juicios->nombre_causa;
				if (!empty($juicios->fecha_causa_dmy)) {
					$parte1 .=  "\nFecha: " . $juicios->fecha_causa_dmy;
				}
				if (!empty($juicios->juzgado)) {
					$parte1 .=  "\nJuzgado: " . $juicios->juzgado;
				}
				if (!empty($juicios->secretaria)) {
					$parte1 .=  "\nSecretaria: " . $juicios->secretaria;
				}
				if (!empty($juicios->nombre_otra_parte) || !empty($juicios->nombre_padron_otra_parte)) {
					if ($demandado_actor == "D") { 
						$parte1 .=  "\nActor: ";
					} else {
						$parte1 .= "\nDemandando: ";
					}
					if (!empty($juicios->nombre_otra_parte))  
						  {$parte1 .=  $juicios->nombre_otra_parte;} 
					else 
							{$parte1 .=  $juicios->nombre_padron_otra_parte;} 
				}
				if (!empty($juicios->observaciones)) {
					$parte1 .=  "\nObservaciones: " . $juicios->observaciones;
				}
			}
		$parte1 .= "\n-------------------------------------------------------------------------------";
		}
	}

	// ARBA
		$stmt = $connection->prepare("exec obtener_arba ?");
		$stmt->setFetchMode(PDO::FETCH_OBJ);
		$stmt->bindParam(1,$cuit); 
		if ($stmt) {
				$stmt->execute();
		}
		if ($arbas = $stmt->fetchAll(PDO::FETCH_OBJ))
		{
			$registra_ant = 'S';
			$parte1 .= "\n\nARBA - AGENCIA RECAUDADORA DE LA PROVINCIA DE BUENOS AIRES" .
								 "\n\nLa presente información fue suministrada por ARBA, como fuente pública " .
                 "en los términos del art. 26 de la Ley 25.326, y exhibida de la misma " .
                 "manera en que fue recibida, conforme al Convenio firmado con dicho Organismo " .
                 "el 07/12/2010. Por consultas o reclamos, comuníquese a la línea gratuita " .
                 "800-321-2722";
			$hay=0;
			foreach($arbas as $arba) { 
				$w_cant_arba += 1; $resp = "R";
				if ($hay==0) { 
					$parte1 .= "\n-------------------------------------------------------------------------------"; 
					$hay = 1; 
				} else {
					$parte1 .= "\n";
				}
				$parte1 .= "\nImpuesto " . $arba->impuesto . 
									 "\nObjeto   " . $arba->objeto . 
              		 "\nJuicio " .
              		 "\n   Nro. Interno     " . $arba->numero_interno_de_juicio .
              		 "\n   Fecha Inicio     " . $arba->fecha_de_inicio_de_juicio .
              		 "\n   Importe Original " . $arba->importe_deuda_del_juicio . 
              		 "\n   Dpto. Judicial   " . $arba->departamento_judicial .
              		 "\n   Juzgado          " . $arba->numero_de_juzgado .
              		 "\n   Secretaria       " . $arba->secretaria ; 
              		 if (!empty($arba->cancelacion_del_juicio)) {
              					$parte1 .= "\n   Estado           " . $arba->cancelacion_del_juicio;
              		 }              
              		 if (!empty($arba->fecha_de_cancelacion)) {
               		 		  $parte1 .="\n   Fecha Cancelación  " . $arba->fecha_de_cancelacion;
               		 }
               		 $parte1 .=  "\n   Domicilio        " . $arba->domicilio_localidad . " - BUENOS AIRES";
                   if(!empty($arba->estado_de_medida_cautelar)) {
			                  $parte1 .= "\n   Estado Medida Cautelar " . $arba->estado_de_medida_cautelar;
			             }
			             if(!empty($arba->estado_de_plan_de_pagos)) {
			                  $parte1 .= "\n   Estado Plan de Pagos   " . $arba->estado_de_plan_de_pagos; 
			             }
			             if(!empty($arba->fecha_de_plan_de_pagos) != '' ) {
               				  $parte1 .= "\n   Fecha Plan de Pagos    " . $arba->fecha_de_plan_de_pagos;
			             }
			}
		$parte1 .= "\n-------------------------------------------------------------------------------";
		}

	// Morosidad 
	$stmt = $connection->prepare("exec backend_morosidad ?,?,?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$meses = 60; 
	$visible = 1;
	$stmt->bindParam(1,$cuit); 
	$stmt->bindParam(2,$meses); 
	$stmt->bindParam(3,$visible); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($morosidades = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$x=0;
		$ent_ant = ""; 
		$cau_ant = "";
		foreach($morosidades as $moroso) { 
			if ($moroso->tipo != "M") { 
				  continue; 
			} 
			$w_cant_morosidad += 1;
			$resp = "R";
			if ($x==0) { 
					$parte1 .= "\n\nMOROSIDAD FINANCIERA Y/O COMERCIAL (Otras Fuentes)"; 
					$parte1 .= "\n-------------------------------------------------------------------------------";
					$parte1 .= "\nFecha      Deuda Original  Deuda Actual";
					$parte1 .= "\n-------------------------------------------------------------------------------";
					$x=1; 
			}
			if ($ent_ant!=$moroso->entidad || $cau_ant != $moroso->cau_codigo) 
			{
				if ($ent_ant!="" || $cau_ant!="") {
		       $parte1 .= "\n";
				}
				$parte1 .= "\n" . $moroso->cau_nombre . " CON " . $moroso->entidad;
				$ent_ant = $moroso->entidad;
				$cau_ant = $moroso->cau_codigo;
			} 
			$parte1 .= "\n" . $moroso->fecha_dmy . "  " . $moroso->monto_1 . " " . $moroso->monto_2 . "  " . $moroso->observaciones;
		}
		if ($x==1) { $parte1 .= "\n-------------------------------------------------------------------------------"; }
	}

	// Cancelaciones Morosidad
	$stmt = $connection->prepare("exec ws_obtener_cancelaciones_morosidad ?,?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$meses = 60; 
	$stmt->bindParam(1,$cuit); 
	$stmt->bindParam(2,$meses); 
	if ($stmt) {
			$stmt->execute();
	}
	$x=0;
	if ($cancelaciones = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		foreach($cancelaciones as $cancelacion) { 
			if ($cancelacion->tipo != "M") {
				  continue; 
			} 
			if ($x==0) { 
					$parte1 .= "\nNOTAS";
					$x=1; 
			} 
			else
			{ 
					$parte1 .= "\n"; 
			}
			$parte1 .= "\nSE COMUNICO " . $cancelacion->evento . " DE " . $cancelacion->cau_nombre . " CON " . $cancelacion->entidad; 
			if (!empty($cancelacion->fecha_desde) && !empty($cancelacion->fecha_hasta)) { 
				  $parte1 .= " INFORMADO DESDE " . $cancelacion->fecha_desde .
										 " HASTA " . $cancelacion->fecha_hasta; 
					}
			$parte1 .= " (FECHA DE " .  $cancelacion->evento . ": " . $cancelacion->fecha . ")";
			
		}
		if ($x==1) { $parte1 .= "\n-------------------------------------------------------------------------------"; } 

	}

		// Incumplimientos Fiscales / Impositivos
	$stmt = $connection->prepare("exec backend_morosidad ?,?,?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$meses = 60; 
	$visible = 1;
	$stmt->bindParam(1,$cuit); 
	$stmt->bindParam(2,$meses); 
	$stmt->bindParam(3,$visible); 
	if ($stmt) {
			$stmt->execute();
	}
	$x=0;
	if ($morosidades = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$ent_ant = ""; 
		$cau_ant = "";
		foreach($morosidades as $moroso) { 
			if ($moroso->tipo != "I") { 
				  continue; 
			} 
			$w_cant_morosidad += 1; 
			$resp = "R";
			if ($x==0) { 
					$parte1 .= "\n\nINCUMPLIMIENTOS FISCALES / IMPOSITIVOS";
					$parte1 .= "\n-------------------------------------------------------------------------------";
					$x=1; 
					$resp = "R";
			} else { 
				$parte1 .= "\n"; 
			} 
			$parte1 .= "\nAL ". $moroso->fecha_dmy . " SE INFORMA " . $moroso->cau_nombre; 
			if (!empty($moros->observaciones)) 
			{
				$parte1 .= ", " . $moros->observaciones; 
			}
			if (!empty($moros->monto_1)) 
			{
				$parte1 .= ", Monto Original: $ " . $moros->monto_1; 
			}
			if (!empty($moros->monto_2)) 
			{
				$parte1 .= ", Monto: $ " . $moros->monto_2; 
			}
			if (!empty($moros->entidad)) 
			{
				$parte1 .= ", Fuente: " . $moros->entidad; 
			}
		}
		if ($x==1) { $parte1 .= "\n-------------------------------------------------------------------------------"; } 
	}
		// Regularizacion Incumplimientos
	$stmt = $connection->prepare("exec ws_obtener_cancelaciones_morosidad ?,?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$meses = 60; 
	$stmt->bindParam(1,$cuit); 
	$stmt->bindParam(2,$meses); 
	if ($stmt) {
			$stmt->execute();
	}
	$x=0;
	if ($cancelaciones = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		foreach($cancelaciones as $cancelacion) { 
			if ($cancelacion->tipo != "I") {
				  continue; 
			} 
			if ($x==0) { 
					$parte1 .= "\nNOTAS"; 
					$x=1; 
			} else { 
				$parte1 .= "\n"; 
			} 
			$parte1 .= "\nSE COMUNICO " . $cancelacion->evento . " DE " . $cancelacion->cau_nombre;  
			if (!empty($cancelacion->fecha_desde) && !empty($cancelacion->fecha_hasta)) { 
				  $parte1 .= " INFORMADO DESDE " . $cancelacion->fecha_desde .
										 " HASTA " . $cancelacion->fecha_hasta; 
					}
			$parte1 .= " (FECHA DE " .  $cancelacion->evento . ": " . $cancelacion->fecha . ")";
			
		}
		if ($x==1) { $parte1 .= "\n-------------------------------------------------------------------------------"; } 

	}

	// Cuadro Resumen de Cheques Rechazados
	$stmt = $connection->prepare("exec ws_obtener_cuadro_cheques ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	$imprimio_cheque='N';
	if ($stmt) {
			$stmt->execute();
	}
	$tiene_propios = "N";
	$tiene_empresa = "N";
	if ($cheques = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$x=0;
		$i = 0;
		$j = 0;
		$cuadro_propios [][][] = 0;
		$cuadro_empresa [][][] = 0;

		$cuadro_propios[1][0][0] = "DEFECTOS FORMALES               ";
		$cuadro_propios[2][0][0] = "SIN FONDOS                      ";
		$cuadro_propios[3][0][0] = "RECHAZOS A LA REGISTRACION      ";
		$cuadro_propios[4][0][0] = "TOTAL RECHAZOS                  ";
		$cuadro_propios[5][0][0] = "Cheques Abonados                ";
		$cuadro_propios[6][0][0] = "Porcentaje Abonados             ";

		for ($i = 1; $i <= 6; $i++) 
		{
			for ($j = 1; $j <= 4; $j++) 
			{
				$cuadro_propios[$i][$j][1] = 0;
				$cuadro_propios[$i][$j][2] = 0;
				$cuadro_empresa[$i][$j][1] = 0;
				$cuadro_empresa[$i][$j][2] = 0;
			}
		}
		// Completo el cuadro con los datos que me devuelve el Stored Procedure
		foreach($cheques as $cheque) 
		{
			if ($cheque->tipo=='1propio') 
			{
				$tiene_propios = "S";
				$cuadro_propios[$cheque->id_causa][$cheque->semestre][1] = $cheque->cantidad;
				$cuadro_propios[$cheque->id_causa][$cheque->semestre][2] = $cheque->monto;
			}
			else
			{
				$tiene_empresa = "S";
				$cuadro_empresa[$cheque->id_causa][$cheque->semestre][1] = $cheque->cantidad;
				$cuadro_empresa[$cheque->id_causa][$cheque->semestre][2] = $cheque->monto;
			}
		}
		// Calculo totales
		for ($i = 1; $i <= 5; $i++)
		{
			if ($i==4) { continue; }
			$cuadro_propios[$i][4][1] =  	$cuadro_propios[$i][1][1] + 
																		$cuadro_propios[$i][2][1] + 
																		$cuadro_propios[$i][3][1]; 
			$cuadro_empresa[$i][4][1] =  	$cuadro_empresa[$i][1][1] + 
																		$cuadro_empresa[$i][2][1] + 
																		$cuadro_empresa[$i][3][1]; 
			$cuadro_propios[$i][4][2] =  	$cuadro_propios[$i][1][2] + 
																		$cuadro_propios[$i][2][2] + 
																		$cuadro_propios[$i][3][2]; 
			$cuadro_empresa[$i][4][2] =  	$cuadro_empresa[$i][1][2] + 
																		$cuadro_empresa[$i][2][2] + 
																		$cuadro_empresa[$i][3][2]; 
		}

		for ($j= 1; $j <= 4; $j++)
		{
			$cuadro_propios[4][$j][1] =  	$cuadro_propios[1][$j][1]+ 
																		$cuadro_propios[2][$j][1] + 
																		$cuadro_propios[3][$j][1]; 
			$cuadro_empresa[4][$j][1] =  	$cuadro_empresa[1][$j][1] + 
																		$cuadro_empresa[2][$j][1] + 
																		$cuadro_empresa[3][$j][1]; 
			$cuadro_propios[4][$j][2] =  	$cuadro_propios[1][$j][2]+ 
																		$cuadro_propios[2][$j][2] + 
																		$cuadro_propios[3][$j][2]; 
			$cuadro_empresa[4][$j][2] =  	$cuadro_empresa[1][$j][2] + 
																		$cuadro_empresa[2][$j][2] + 
																		$cuadro_empresa[3][$j][2]; 
		}

		for ($j= 1; $j <= 4; $j++)
		{
			if ($cuadro_propios[4][$j][1] !=0 ) 
			{
				$cuadro_propios[6][$j][1] =  100 * $cuadro_propios[5][$j][1] / $cuadro_propios[4][$j][1]; 
			}
			if ($cuadro_propios[4][$j][2] !=0 ) 
			{
				$cuadro_propios[6][$j][2] =  100 * $cuadro_propios[5][$j][2] / $cuadro_propios[4][$j][2];
			}
			if ($cuadro_empresa[4][$j][1] !=0 ) 
			{
				$cuadro_empresa[6][$j][1] =  100 * $cuadro_empresa[5][$j][1] / $cuadro_empresa[4][$j][1]; 
			}
			if ($cuadro_empresa[4][$j][2] !=0 ) 
			{
				$cuadro_empresa[6][$j][2] =  100 * $cuadro_empresa[5][$j][2] / $cuadro_empresa[4][$j][2]; 
			}
		}

		for ($i= 1; $i <= 6; $i++) 
		{
			for ($j= 1; $j <= 4; $j++)
			{
					$cuadro_propios[$i][$j][1] = number_format($cuadro_propios[$i][$j][1],2);
					$cuadro_propios[$i][$j][2] = number_format($cuadro_propios[$i][$j][2],2);
					$cuadro_empresa[$i][$j][1] = number_format($cuadro_empresa[$i][$j][1],2);
					$cuadro_empresa[$i][$j][2] = number_format($cuadro_empresa[$i][$j][2],2);
			}
		}

		//print_r($cuadro_empresa); die(); 

		if ($imprimio_cheque=='N') { 
				$parte1 .= "\n\nCHEQUES RECHAZADOS - (FUENTE B.C.R.A.)"; 
				$imprimio_cheque='S';
		}
		
// Imprimo el cuadro de cheques propios

		if ($tiene_propios=="S")
		{
			if ($persona_fisica == true) 
			{
				$parte1 .= "\n\nRESUMEN DE CHEQUES RECHAZADOS EN CUENTAS PERSONALES";
			}
			else
			{
				$parte1 .= "\n\nRESUMEN DE CHEQUES RECHAZADOS"; 
			}
			$parte1 .= "\n-------------------------------------------------------------------------------";
			$parte1 .= "\n                             |    Ultimo Semestre     |          TOTAL        ";
			$parte1 .= "\n                             | Cant.            Monto | Cant.            Monto"; 
			$parte1 .= "\n-------------------------------------------------------------------------------";

			for ($i= 1; $i<= 6; $i++) 
			{
			  if ($i==4) 
			  	{
			  		$parte1 .= "\n-------------------------------------------------------------------------------"; 
			  	}
				$parte1 .= "\n" . substr($cuadro_propios[$i][0][0],0,29); // Titulo de la fila
				for ($j= 1; $j <= 4; $j++) //cantidades y montos
				{
					if  ($j==2 || $j==3) {continue;} // en el ws no muestra semestre anterior, ni años anteriores
						$cantidad_char = '                       ' . $cuadro_propios[$i][$j][1];
					$monto_char    = '                       ' . $cuadro_propios[$i][$j][2];
					if ($cuadro_propios[$i][$j][1] == 0)  { $cantidad_char = '                       ';}
				  if ($cuadro_propios[$i][$j][2] == 0)  { $monto_char = '                       ';}
				  $cantidad_char = str_replace('.00','', $cantidad_char);
				  //$monto_char    = str_replace('.00','', $monto_char);
					$porc=" ";
					if ($i==6 && $cuadro_propios[$i][$j][1] != 0) {$porc = "%";}
					$parte1 .= "|" . substr($cantidad_char,-6) . $porc .
				             " " . substr($monto_char,-15) . $porc; 
				}
			}
			$parte1 .= "\n-------------------------------------------------------------------------------"; 
		}

// Imprimo el cuadro de cheques de empresas en las que es firmante

		if ($tiene_empresa=="S")
		{
		
			$parte1 .= "\n\nRESUMEN DE CHEQUES RECHAZADOS EN CUENTAS DE PERSONAS JURIDICAS";
			$parte1 .= "\n-------------------------------------------------------------------------------";
			$parte1 .= "\n                             |    Ultimo Semestre     |          TOTAL        ";
			$parte1 .= "\n                             | Cant.            Monto | Cant.            Monto"; 
			$parte1 .= "\n-------------------------------------------------------------------------------";

			for ($i= 1; $i <= 6; $i++) 
			{
			  if ($i==4) 
			  {
			  	$parte1 .= "\n-------------------------------------------------------------------------------"; 
			  }
				$parte1 .= "\n" . substr($cuadro_propios[$i][0][0],0,29); // Titulo de la fila

				for ($j= 1; $j <= 4; $j++) //cantidades y montos
				{
					if ($j==2 || $j==3) {continue;} // en el ws no muestra semestre anterior, ni años anteriores

					$cantidad_char = '                       ' . $cuadro_empresa[$i][$j][1];
					$monto_char    = '                       ' . $cuadro_empresa[$i][$j][2];
					if ($cuadro_empresa[$i][$j][1] == 0)  { $cantidad_char = '                       ';}
				  if ($cuadro_empresa[$i][$j][2] == 0)  { $monto_char = '                       ';}
				  $cantidad_char = str_replace('.00','', $cantidad_char);
				  //$monto_char    = str_replace('.00','', $monto_char);
					$porc=" ";
					if ($i==6 && $cuadro_empresa[$i][$j][1] != 0) {$porc = "%";}

					$parte1 .= "|" . substr($cantidad_char,-6) . $porc .
				             " " . substr($monto_char,-15) . $porc; 
				}
			}
			$parte1 .= "\n-------------------------------------------------------------------------------"; 
		}


	}


	// Detalle de Cheques Rechazados
	//$stmt = $connection->prepare("exec backend_cheques_rechazados ?,?,?,?,?");
	$stmt = $connection->prepare("exec obtener_cheques ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$nulo = null;
	$meses = 60;
	$visible = 1; 
	$stmt->bindParam(1,$cuit); 
	/*
	$stmt->bindParam(2,$nulo); 
	$stmt->bindParam(3,$nulo); 
	$stmt->bindParam(4,$meses); 
	$stmt->bindParam(5,$visible); 
	*/
	if ($stmt) {
			$stmt->execute();
	}
	if ($cheques = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$x=0;
		$ent_ant = ""; 
		$cau_ant = "";
		foreach($cheques as $cheque) { 
			//if ($cheque->tipo != 'propio') { 
			if ($cheque->tipo != 'a_nombre_de_empresa' && $cheque->tipo != 'propio') { 
				  continue; 
			} 
			$w_cant_cheques += 1;
			$resp = "R";
			if ($x==0) { 
					if ($imprimio_cheque=='N') { 
						$parte1 .= "\n\nCHEQUES RECHAZADOS - (FUENTE B.C.R.A.)"; 
						$imprimio_cheque='S';
					} 
					if ($persona_fisica == true) { 
						$parte1 .= "\n\nDETALLE DE CHEQUES RECHAZADOS EN CUENTAS PERSONALES";
					}
					else
					{	
						$parte1 .= "\n\nDETALLE DE CHEQUES RECHAZADOS";
					}
					$parte1 .= "\n-------------------------------------------------------------------------------";
					$parte1 .= "\nNro.Cheque Fecha              Monto Causal               Fecha Pago  Pago Multa";
									/*    1234567890 dd/mm/yyyy 9999999999.00 SIN FONDOS           dd/mm/yyyy  dd/mm/yyyy */
					$parte1 .= "\n-------------------------------------------------------------------------------";
					$x=1; 
			}
			if ($cheque->fecha_levantamiento == null) { $cheque->fecha_levantamiento='          ';}
			$importe_char    = '                       ' . number_format($cheque->importe,2);
			$nro_cheque_char = '                       ' . $cheque->nro_cheque;
			$causal_char     = $cheque->causa . '                       ' ;
			$parte1 .= "\n" . substr($nro_cheque_char,-10) . 
			            " " . $cheque->fecha_rechazo . 
			            " " . substr($importe_char,-13) . 
			            " " . substr($causal_char,0,20) . 
			            " " . substr($cheque->fecha_levantamiento,0,10) . 
			            "  " . substr($cheque->fecha_pago,0,10) ; 
		}
		if ($x==1) { $parte1 .= "\n-------------------------------------------------------------------------------"; }

		/*
		if ($persona_fisica == true) { 
			$x=0; 
			foreach($cheques as $cheque) { 
				if ($cheque->tipo != 'empresa') { 
				  continue; 
			  } 
				if ($x==0) { 
						if ($w_cant_cheques = 0) { 
						$parte1 .= "\n\nCHEQUES RECHAZADOS - (FUENTE B.C.R.A.)"; 
						}
						$parte1 .= "\n\nDETALLE DE CHEQUES RECHAZADOS EN CUENTAS DE PERSONAS JURIDICAS";
						$parte1 .= "\n-------------------------------------------------------------------------------";
						$parte1 .= "\nNro.Cheque Fecha              Monto Causal               Fecha Pago  Pago Multa";
						$parte1 .= "\n-------------------------------------------------------------------------------";
						$x=1; 
				}
				if ($cheque->fecha_levantamiento == null) { $cheque->fecha_levantamiento='          ';}
				$importe_char    = '                       ' . number_format($cheque->importe,2);
				$nro_cheque_char = '                       ' . $cheque->nro_cheque;
				$causal_char     = $cheque->causa . '                       ' ;
				$parte1 .= "\n" . substr($nro_cheque_char,-10) . 
				            " " . $cheque->fecha_rechazo . 
				            " " . substr($importe_char,-13) . 
				            " " . substr($causal_char,0,20) . 
				            " " . substr($cheque->fecha_levantamiento,0,10) . 
				            "  " . substr($cheque->fecha_pago,0,10) ; 
			}
			if ($x==1) { $parte1 .= "\n-------------------------------------------------------------------------------"; }
		}
		*/
	}

	
	// B.C.R.A.

	$stmt = $connection->prepare("exec ws_obtener_cuadro_bcra ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($bancos = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$parte1 .= "\n\nDEUDORES DEL SISTEMA FINANCIERO - (FUENTE B.C.R.A.) (En miles de Pesos)"; 
		$parte1 .= "\n-------------------------------------------------------------------------------";
		$parte1 .= "\nDesde   Hasta      Situacion                      Maximo Monto   Ultimo Monto  ";
		$parte1 .= "\n-------------------------------------------------------------------------------";
		$ant = ""; 
		foreach($bancos as $banco) { 
			if ($banco->sit !=  '1') { $w_cant_bcra += 1; $resp = "R"; }
			if ($ant!=$banco->nombre) 
			{
				if ($ant!="") 
					{
						$parte1 .= "\n-------------------------------------------------------------------------------";
					}
			  $parte1 .= "\n" . $banco->nombre; 
				$ant = $banco->nombre;
			}
			$parte1 .= "\n" . $banco->mes_1;
			if ($banco->mes_1==$banco->mes_2) 
			   { 
				  $parte1 .= "          "; 
				 }
				 else 
				 { 
				  $parte1 .= " a ".  $banco->mes_2; 
				 }

			$parte1 .= "  " . $banco->sit . " " . $banco->situacion . "  " . substr($banco->max_monto,0,15) . substr($banco->ult_monto,0,15);
		}
		$parte1 .= "\n-------------------------------------------------------------------------------";

	}

	// Cancelaciones B.C.R.A.

	$x=0;
	$stmt = $connection->prepare("exec ws_obtener_cancelaciones_bcra ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($cancelaciones = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$parte1 .= "\nNOTAS"; 
		foreach($cancelaciones as $cancelacion) { 
			if ($x==0) { $x=1; } else { $parte1 .= "\n"; }
			$parte1 .= "\nSE COMUNICO " . $cancelacion->evento . " DE LA DEUDA CON " . $cancelacion->nombre;

			if (!empty($cancelacion->fecha_desde) && !empty($cancelacion->fecha_hasta)) { 
				  $parte1 .= " INFORMADA DESDE " . $cancelacion->fecha_desde .
										 " HASTA " . $cancelacion->fecha_hasta; 
					}
			$parte1 .= " (FECHA DE " .  $cancelacion->evento . ": " . $cancelacion->fecha . ")";
		}
		$parte1 .= "\n-------------------------------------------------------------------------------";
	}
  // Entidades con las que opera/ba

	$stmt = $connection->prepare("exec ws_entidades_operaba ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($bancos = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$parte1 .= "\n\nENTIDADES FINANCIERAS CON LAS QUE OPERA/BA"; 
		$parte1 .= "\n-------------------------------------------------------------------------------";
		$parte1 .= "\nEntidad                                                                Al Mes  ";
		$parte1 .= "\n-------------------------------------------------------------------------------";
		$ant = ""; 
		foreach($bancos as $banco) { 
			  $nombre_banco = $banco->nombre . '                                                                       '; 
			  $parte1 .= "\n" . substr($nombre_banco,0,70) . ' ' ; 
				$mes = substr($banco->periodo,-2) . '/' . substr($banco->periodo,0,4);
				$parte1 .= $mes; 
		}
		$parte1 .= "\n-------------------------------------------------------------------------------";
	}

	// Consultas por ramo

	$x=0;
	$stmt = $connection->prepare("exec obtener_consulta_por_ramos ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	if ($stmt) {
			$stmt->execute();
	}
	if ($consultas = $stmt->fetchAll(PDO::FETCH_OBJ))
	{
		$registra_ant = 'S';
		$parte1 .= "\n\nRESUMEN DE CONSULTAS POR RAMO" .
						   "\n-------------------------------------------------------------------------------" .
							 "\nRamo                                                      Años" .
							 "\n                                              0 - 1       1 - 2       2 - 5 " .
							 "\n-------------------------------------------------------------------------------";
		$ant = '';
		$cant_1 = 0;
		$cant_2 = 0;
		$cant_3 = 0;
		$cant_4 = 0;
		$cant_ = 0;
		$cant_3 = 0;
		$cant_3 = 0;
		$cant_3 = 0;
		$cant_3 = 0;
		$cant_3 = 0;
		$cant_3 = 0;
		$cant_3 = 0;
		foreach($consultas as $consulta) { 
			if ($consulta->descripcion!=$ant && $ant!='') {
				  $cant1 = '                ' . "$cant_1";
				  $cant2 = '                ' . "$cant_2";
				  $cant3 = '                ' . "$cant_3";
				  if ($cant_1==0) { $cant1='                ';}
				  if ($cant_2==0) { $cant2='                ';}
				  if ($cant_3==0) { $cant3='                ';}
				  $parte1 .=  "\n" . substr($ant,0,40) . ' ' .
											substr($cant1,-10) . '  ' .
											substr($cant2,-10) . '  ' .
											substr($cant3,-10);
					$cant_1 = 0;
					$cant_2 = 0;
					$cant_3 = 0;
			}
			$ant = $consulta->descripcion . '                                        '; 
			if ($consulta->antiguedad=='entre_0_1') { $cant_1 = $consulta->cantidad;}
			if ($consulta->antiguedad=='entre_1_2') { $cant_2 = $consulta->cantidad;}
			if ($consulta->antiguedad=='entre_2_5') { $cant_3 = $consulta->cantidad;}
		}
	  $cant1 = '                ' . "$cant_1";
	  $cant2 = '                ' . "$cant_2";
	  $cant3 = '                ' . "$cant_3";
	  if ($cant_1==0) { $cant1='                ';}
	  if ($cant_2==0) { $cant2='                ';}
	  if ($cant_3==0) { $cant3='                ';}
	  $parte1 .=  "\n" . substr($ant,0,40) . ' ' .
								substr($cant1,-10) . '  ' .
								substr($cant2,-10) . '  ' .
								substr($cant3,-10);
		$parte1 .= "\n-------------------------------------------------------------------------------";
	}
	if ($registra_ant=='N')
	{
			$parte1 .= "\n*******************************************************************************";
			$parte1 .= "\n                Con los datos suministrados por el Sr. Abonado,";
			$parte1 .= "\n                      NO REGISTRA ANTECEDENTES NEGATIVOS";
			$parte1 .= "\n         al dia de la fecha en nuestra Base de Datos (segun Ley 25326)";
			$parte1 .= "\n*******************************************************************************";
	}

} 
// Fin del Informe


if ($resp == "R")
{
	// Hago el update de los datos en usuarios_consumos, con las cantidades obtenidas
	$stmt = $connection->prepare("exec ws_update_usuarios_consumos ?,?,?,?,?,?,?,?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);

	$stmt->bindParam(1,$nro); 
	$stmt->bindParam(2,$resp); 
	$stmt->bindParam(3,$w_cant_juicios); 
	$stmt->bindParam(4,$w_cant_bcra); 
	$stmt->bindParam(5,$w_cant_morosidad); 
	$stmt->bindParam(6,$w_cant_arba); 
	$stmt->bindParam(7,$w_cant_cheques); 
	$stmt->bindParam(8,$w_cant_agip); 
	if ($stmt) {
			$stmt->execute();
	}
}


// Cierro la conexión
$connection = null;
$stmt = null; 
/*
print_r("<pre><font style="font-family:courier">"); 
print_r($encabezado);
print_r(str_replace("\n","\r",truncate($parte1))); 
print_r("</font></pre>"); 
*/

$informe = truncate($parte1);
echo $resp."\n".$nro."\n";
echo $encabezado; 
echo $informe; 

?>