function __construct($persona)
 {
     $this->mClaveDePersona = $persona;
     $xQL = new MQL();
     $xLi = new cSQLListas();
     $datos = $xQL->getDataRecord($xLi->getListadoResumenPerfilTransaccional($persona));
     foreach ($datos as $row) {
         $this->mItems++;
         $tipo = $row["tipo"];
         $numero = $row[SYS_NUMERO];
         $monto = $row[SYS_MONTO];
         $exhibicion = strtolower($row["exhibicion"]);
         if (isset($this->mAPerfil[$tipo])) {
             $this->mAPerfil[$tipo][SYS_NUMERO] += $numero;
             $this->mAPerfil[$tipo][SYS_MONTO] += $monto;
             $this->mMessages .= "WARN\t{$tipo}|" . $row[SYS_MONEDA] . "\tSumando Monto {$monto} con Numero {$numero}\r\n";
         } else {
             $this->mAPerfil[$tipo][SYS_NUMERO] = $numero;
             $this->mAPerfil[$tipo][SYS_MONTO] = $monto;
             $this->mAPerfil[$tipo]["pais"] = $row["pais"];
             $this->mAPerfil[$tipo][SYS_MONEDA] = $row[SYS_MONEDA];
             $this->mAPerfil[$tipo][SYS_TIPO] = $exhibicion;
             $this->mMessages .= "WARN\t{$tipo}|" . $row[SYS_MONEDA] . "\tAgregando Monto {$monto} con Numero {$numero}\r\n";
         }
         //agregar por exhibicion
         if (isset($this->mAPerfil[$exhibicion])) {
             $this->mAPerfil[$exhibicion][SYS_NUMERO] += $numero;
             $this->mAPerfil[$exhibicion][SYS_MONTO] += $monto;
             $this->mMessages .= "WARN\t{$exhibicion}|" . $row[SYS_MONEDA] . "\tSumando Monto {$monto} con Numero {$numero}\r\n";
         } else {
             $this->mAPerfil[$exhibicion][SYS_NUMERO] = $numero;
             $this->mAPerfil[$exhibicion][SYS_MONTO] = $monto;
             $this->mAPerfil[$exhibicion]["pais"] = $row["pais"];
             $this->mAPerfil[$exhibicion][SYS_MONEDA] = $row[SYS_MONEDA];
             $this->mAPerfil[$exhibicion][SYS_TIPO] = $tipo;
             $this->mMessages .= "WARN\t{$exhibicion}|" . $row[SYS_MONEDA] . "\tAgregando Monto {$monto} con Numero {$numero} \r\n";
         }
     }
 }