<?php
/*echo "Esto abarca\nmúltiples líneas. Los saltos de línea también\nse mostrarán."; die(); */
if (empty($username)) { $username = 'f0000'; }
if (empty($sucursal)) { $sucursal = '0';}
if (empty($nombre))   { $nombre   = ''; }
if (empty($cuit))     { $cuit = '30501677643'; } 
if (empty($nrodoc))   { $nroDoc   = ''; } 
$encabezado='';
//$cuit = '20164949274'; 
//$cuit = '30501601213';
//$cuit = '30521667075';
//$cuit = '30675428081';

//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+4);
	    $salto = strpos($text1,'<br>');
	    if (is_int($salto)) {
	    	 $salto = $salto + 3; 
	    } 
	    if (strtolower(substr($text1,0,4))=='<br>')
	    {
	    	$salto = 4;
	    }
	    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 .=  "<br>"; 
	      $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=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; 
}
 
if ($resp=='A' || $resp=='R')
{

	$encabezado = 'Procesado por FIDELITAS-Información estrictamente confidencial y sin valor legal<br><br>'; 


	if (!isset($cuit)) { $cuit = '30501677643'; }

	$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 .= '<br>INFORMADO: ' . $persona->nombre_persona;  
		if(!empty($persona->identificacion)) {
		    $parte1 .= '<br>C.U.I.T: '. $persona->identificacion; 
		}
		$parte1 .= '<br>================================================================================'; 

	  
	  $parte1 .= '<br>DATOS INGRESADOS POR EL CLIENTE:<br>'; 
	  $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 .= '<br>';

	  if (!empty($persona->nombre_persona)) {

	  	$parte1.= '<br>DATOS SEGUN N/BASE DE DATOS: DOCUMENTO VALIDADO<br>';
		  if ($persona_fisica == true) { 
			 $parte1 .= 'Nombre y Apellido: ' . $persona->nombre_persona; 
		  }
		  else 
		  {
		  	$parte1 .= 'Razón Social: ' . $persona->nombre_persona; 
		  }
	  }
	  if(!empty($persona->identificacion)) { 
		  $parte1 .= '; C.U.I.T: ' . $persona->identificacion;
	  }
		// Solo para personas
		if ($persona_fisica == true) { 
			if (!empty($persona->fecha_nacimiento)) {
				$parte1 .= '; Fecha de Nacimiento: ' .  $persona->fecha_nacimiento;
			}
			if (!empty($persona->edad)) {
				$parte1 .= '; Edad: ' .  $persona->edad; 
			}
			if (!empty($persona->profesion) && $persona->profesion != 'NO INFORMADO') {
				$parte1 .= '; Profesión/Oficio: ' . $persona->profesion;
			}
			if (!empty($persona->ocupacion) && $persona->ocupacion != 'NO INFORMADO') { 
				$parte1 .= '; Ocupación: ' . $persona->ocupacion;
			}
			if ($persona->pais != '') { 
				$parte1 .= '; Nacionalidad: ' .  $persona->pais;
			}
			if (!empty($persona->estado_civil) && $persona->estado_civil != 'NO INFORMADO') {
				$parte1 .= '; Estado Civil: ' .  $persona->estado_civil;
			}
			if (!empty($persona->c02_nrodoc) || !empty($persona->c02_nrodoc_2)) { 
				if ($persona->doc_codigo_2 != 'NO INFORMADO') { 
				   $parte1 .= '; Tipo y Nro de documento: ' .  $persona->doc_codigo . ' ' . $persona->c02_nrodoc; 
				}
				if ($persona->doc_codigo_2 != 'NO INFORMADO') { 
						$parte1 .= 	', ' .  $persona->doc_codigo_2 . ' ' . $persona->c02_nrodoc_2;
				}
			}
			if (!empty($persona->nombre_conyuge)) {
				$parte1 .= '; Nombre Conyuge: ' .  $persona->nombre_conyuge;
			}
			if (!empty($persona->c02_nrodoc_conyuge) || !empty($persona->c02_nrodoc_conyuge_2)) { 
				if ($persona->doc_codigo_c != 'NO INFORMADO') { 
				    $parte1 .= '; Tipo y Nro de documento del Conyuge: ' .  $persona->doc_codigo_c . ' '.  $persona->c02_nrodoc_conyuge; 
				} 
				if ($persona->doc_codigo_c2 !='NO INFORMADO') {
						$parte1 .=  ', ' . $persona->doc_codigo_c2 . ' '.  $persona->c02_nrodoc_conyuge_2; 
				}
			}
			if (!empty($persona->nombre_madre)) {
				$parte1 .= '; Nombre de la Madre: ' .  $persona->nombre_madre;
			}
			if (!empty($persona->nombre_padre )) {
				$parte1 .= '; Nombre del Padre: ' .  $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) && $sociedades->ramo != 'NO INFORMADO') {
				$parte1 .=  '; Ramo: ' . $sociedades->ramo; 
			}

			if(!empty($sociedades->subramo) && $sociedades->subramo != 'NO INFORMADO') {
				$parte1 .=  '; Subramo: ' . $sociedades->subramo;
			}
			if(!empty($sociedades->actividad)) {
				$parte1 .=  '; Actividad: ' . $sociedades->actividad;
			}
			if(!empty($sociedades->tipo_sociedad) && $sociedades->tipo_sociedad != 'NO INFORMADO') {
				$parte1 .=  '; Forma Juridica: ' . $sociedades->tipo_sociedad;
			}
			if(!empty($sociedades->fecha_cons)) {
				$parte1 .=  '; Fecha De Constitución O Inicio De Act.: ' . $sociedades->fecha_cons;
			}
			if(!empty($sociedades->fecha_ins_rpc)) {
				$parte1 .=  '; Fecha Ins. R.P.C.: ' . $sociedades->fecha_ins_rpc;
			}
			if(!empty($sociedades->duracion)) {
				$parte1 .=  '; Duración: ' . $sociedades->duracion;
			}
			if(!empty($sociedades->capital)) {
				$parte1 .=  '; Capital: ' . $sociedades->capital/1;
			}
			if(!empty($sociedades->uso_firma)) {
				$parte1 .=  '; Uso de Firma: ' . $sociedades->uso_firma;
			}
	}

	// Domicilios
	$stmt = $connection->prepare("exec obtener_Domicilios ?");
	$stmt->setFetchMode(PDO::FETCH_OBJ);
	$stmt->bindParam(1,$cuit); 
	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 .= $domicilios->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= ' ('. $domicilio->codpos . ') '; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && $domicilio->loc_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->loc_nombre . ', ';
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && $domicilio->prv_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->prv_nombre . ', ';
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && $domicilio->pai_nombre!='NO INFORMADO') {   
		 	    $parte1 .= ' '. $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 .= $domicilios->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= ' ('. $domicilio->codpos . ') '; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && $domicilio->loc_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->loc_nombre .', ';
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && $domicilio->prv_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->prv_nombre .', ';
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && $domicilio->pai_nombre!='NO INFORMADO') {   
		 	    $parte1 .= ' '. $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 .= $domicilios->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= ' ('. $domicilio->codpos . ') '; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && $domicilio->loc_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->loc_nombre .', ';
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && $domicilio->prv_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->prv_nombre .', ';
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && $domicilio->pai_nombre!='NO INFORMADO') {   
		 	    $parte1 .= ' '. $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 .= $domicilios->domicilio; 
			 	 if(!empty($domicilio->codpos)) {   
			 	    $parte1 .= ' ('. $domicilio->codpos . ') '; 
			 	 }
			 	 if(!empty($domicilio->loc_nombre) && $domicilio->loc_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->loc_nombre .', ';
			 	 } 
			 	 if(!empty($domicilio->prv_nombre) && $domicilio->prv_nombre!='NO INFORMADO') {   
			 	    $parte1 .= ' '. $domicilio->prv_nombre .', ';
			 	 } 
			 	 if(!empty($domicilio->pai_nombre) && $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 .= $domicilios->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 .= $domicilios->telefonos; 
			} 
		}

	}

	// 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 .= '<br>C.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 .= '<br>EMPLEADO DE: ' . $empleador->cuit_empleador . ' ' .  $empleador->nombre_empleador . ' (a ' .  $empleador->periodo . ')' ; 
		}
	}
	$parte1 .= '<br>-------------------------------------------------------------------------------';

	// 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))
		{
			if ($demandado_actor == 'D') { 
					$parte1 .= '<br><br>ANTECEDENTES JUDICIALES COMO DEMANDADO'; 
			} else {
					$parte1 .= '<br><br>ANTECEDENTES JUDICIALES COMO ACTOR'; 
			}
			foreach($juicios_demandado_actor as $juicios) { 
				$parte1 .= '<br><br>' . $juicios->nombre_causa;
				if (!empty($juicios->fecha_causa_dmy)) {
					$parte1 .=  '<br>Fecha: ' . $juicios->fecha_causa_dmy;
				}
				if (!empty($juicios->juzgado)) {
					$parte1 .=  '<br>Juzgado: ' . $juicios->juzgado;
				}
				if (!empty($juicios->secretaria)) {
					$parte1 .=  '<br>Secretaria: ' . $juicios->secretaria;
				}
				if (!empty($juicios->nombre_otra_parte) || !empty($juicios->nombre_padron_otra_parte)) {
					if ($demandado_actor == 'D') { 
						$parte1 .=  '<br>Actor: ';
					} else {
						$parte1 .= '<br>Demandando: ';
					}
					if (!empty($juicios->nombre_otra_parte))  
						  {$parte1 .=  $juicios->nombre_otra_parte;} 
					else 
							{$parte1 .=  $juicios->nombre_padron_otra_parte;} 
				}
				if (!empty($juicios->observaciones)) {
					$parte1 .=  '<br>Observaciones: ' . $juicios->observaciones;
				}
			}
		$parte1 .= '<br>-------------------------------------------------------------------------------';
		}
	}

	// 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))
	{
		$parte1 .= '<br><br>DEUDORES DEL SISTEMA FINANCIERO - (FUENTE B.C.R.A.) (En miles de Pesos)'; 
		$parte1 .= '<br>-------------------------------------------------------------------------------';
		$parte1 .= '<br>Desde   Hasta      Situacion                      Maximo Monto   Ultimo Monto  ';
		$parte1 .= '<br>-------------------------------------------------------------------------------';
		$ant = ''; 
		foreach($bancos as $banco) { 
			if ($ant!=$banco->nombre) 
			{
				if ($ant!='') 
					{
						$parte1 .= '<br>-------------------------------------------------------------------------------';
					}
			  $parte1 .= '<br>' . $banco->nombre; 
				$ant = $banco->nombre;
			}
			$parte1 .= '<br>' . $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 .= '<br>-------------------------------------------------------------------------------';

	}

	// Cancelaciones B.C.R.A.
	$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))
	{
		$parte1 .= '<br>NOTAS'; 
		$parte1 .= '<br>-------------------------------------------------------------------------------';
		foreach($cancelaciones as $cancelacion) { 
			$parte1 .= '<br>SE 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 .= '<br>-------------------------------------------------------------------------------';
	}


	// 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))
	{
		$x=0;
		$ent_ant = ''; 
		$cau_ant = '';
		foreach($morosidades as $moroso) { 
			if ($moroso->tipo != 'M') { 
				  continue; 
			} 
			if ($x==0) { 
					$parte1 .= '<br><br>MOROSIDAD FINANCIERA Y/O COMERCIAL (Otras Fuentes)'; 
					$parte1 .= '<br>-------------------------------------------------------------------------------';
					$parte1 .= '<br>Fecha      Deuda Original  Deuda Actual';
					$parte1 .= '<br>-------------------------------------------------------------------------------';
					$x=1; 
			}
			if ($ent_ant!=$moroso->entidad || $cau_ant != $moroso->cau_codigo) 
			{
				if ($ent_ant!='' || $cau_ant!='') {
		       $parte1 .= '<br>-------------------------------------------------------------------------------';
				}
				$parte1 .= '<br>' . $moroso->cau_nombre . ' CON ' . $moroso->entidad;
				$ent_ant = $moroso->entidad;
				$cau_ant = $moroso->cau_codigo;
			} 
			$parte1 .= '<br>' . $moroso->fecha_dmy . '  ' . $moroso->monto_1 . ' ' . $moroso->monto_2 . '  ' . $moroso->observaciones;
		}
		$parte1 .= '<br>-------------------------------------------------------------------------------';

	}

	// 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 .= '<br>NOTAS'; 
					$parte1 .= '<br>-------------------------------------------------------------------------------';
					$x=1; 
			}
			$parte1 .= '<br>SE 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 . ')';
			
		}
		$parte1 .= '<br>-------------------------------------------------------------------------------';
	}

}

// Cierro la conexión
$connection = null;
$stmt = null; 
/*
print_r('<pre><font style="font-family:courier">'); 
print_r($encabezado);
print_r(str_replace('<br>','\r',truncate($parte1))); 
print_r('</font></pre>'); 
*/
$encabezado = str_replace("<br>","\n",$encabezado); 
$informe = truncate($parte1);
$informe = str_replace("<br>","\n",$informe);
$informe = str_replace("<BR>","\n",$informe);
echo $resp."\n".$nro."\n";
echo $encabezado; 
echo $informe; 

/*
Fecha: 25/11/2016 USUARIO INTERNO FIDELITAS<br>INFORMADO: SANCOR COOPERATIVAS UNIDAS LIMITADAS<br>C.U.I.T: 30501677643<br>================================================================================<br>DATOS INGRESADOS POR EL CLIENTE:<br>C.U.I.T.: 30501677643<br><br><br>DATOS SEGUN N/BASE DE VALIDACION: DOCUMENTO VALIDADO<br>Razón Social: SANCOR COOPERATIVAS UNIDAS LIMITADAS; C.U.I.T: 30501677643; Ramo: ALIMENTICIO; Subramo: PRODUCTOS LACTEOS/DISTRIBUC.; Actividad: ELABORACION Y COMERCIALIZACION DE PRODUCTOS LACTEOS.; Forma Juridica: SOCIEDAD COOPERATIVA; Fecha De Constitución O Inicio De Act.: 17/09/1938; Fecha Ins. R.P.C.: 1939-12-06; Duración: ILIMITADA; Capital: 193871000; Uso de Firma: PRESIDENTE, SECRETARIO Y TESORERO<br>C.L.A.E.: 152020 - (F.150) ELABORACION DE QUESOS, 105020 - (F.883) ELABORACION DE QUESOS; Fecha Inicio de Actividad: 01/01/1940Procesado por FIDELITAS-Información estrictamente confidencial y sin valor legal<br><br>4394118202238263267271327740Fecha: 25/11/2016 USUARIO INTERNO FIDELITAS<br>INFORMADO: SANCOR COOPERATIVAS UNIDAS LIMITADAS<br>C.U.I.T: 30501677643<br><br><br><br><br>============================================================================<br>DATOS INGRESADOS POR EL CLIENTE:<br>C.U.I.T.: 30501677643<br><br><br>DATOS SEGUN N/BASE DE VALIDACION: DOCUMENTO VALIDADO<br>Razón Social: SANCOR COOPERATIVAS UNIDAS LIMITADAS; C.U.I.T: 30501677643;<br>Ramo: ALIMENTICIO; Subramo: PRODUCTOS LACTEOS/DISTRIBUC.; Actividad:<br>ELABORACION Y COMERCIALIZACION DE PRODUCTOS LACTEOS.; Forma Juridica: SOCIEDAD<br>COOPERATIVA; Fecha De Constitución O Inicio De Act.: 17/09/1938; Fecha Ins.<br>R.P.C.: 1939-12-06; Duración: ILIMITADA; Capital: 193871000; Uso de Firma:<br>PRESIDENTE, SECRETARIO Y TESORERO<br>C.L.A.E.: 152020 - (F.150) ELABORACION DE QUESOS, 105020 - (F.883) ELABORACION<br>DE QUESOS; Fecha Inicio de Actividad: 01/01/1940<br></font>
*/
?>