<?php

ini_set("display_errors", 1);
ini_set("display_startup_errors", 1);
error_reporting(E_ALL);

class BnaSoap
{
  function BnaSoap($usuario,$password,$sucursal,$nombre,$cuit,$nro_documento)
  {

	$encabezado="";
	$registra_ant = 'N';


	$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,$usuario);
	$stmt->bindParam(2,$sucursal);
	$stmt->bindParam(3,$nombre);
	$stmt->bindParam(4,$cuit);
	$stmt->bindParam(5,$nro_documento); 

	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($nro_documento)) { 
		  	if ($hay=="S") { $parte1 .= "; ";} 
		  	$parte1 .= "Nro. Documento: " . $nro_documento;
		  	$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; 

	$resultado1 = "Respuesta: " . $resp;
	$resultado2 = "Nro. Consulta: " . $nro; 
	$resultado3 = $encabezado . "\n" . $informe; 
	return $resultado1 . "\n" . $resultado2  . "\n" . $resultado3;

  }
} 


?>