$cont[8] = $tipo_de_op;
 // // Tipo de Operacion 01 deposito 02 retiro 03 compra divisas 04 venta divisas
 $cont[9] = $instrumento;
 // Instrumento monetario
 $cont[10] = $docto_relacionado;
 $cont[11] = $total;
 //
 $cont[12] = $moneda;
 //
 $cont[13] = $fecha_de_op;
 // $xRec->getFechaDeRecibo();
 $cont[14] = $fechaDetec;
 //inusuales internas
 $cont[15] = $nac;
 $cont[16] = $tp;
 $nombresujeto = $xT->getCSV($xSoc->getNombre());
 $cont[17] = $tp == SYS_UNO ? "" : $nombresujeto;
 $cont[18] = $tp == SYS_UNO ? $nombresujeto : "";
 $cont[19] = $tp == SYS_UNO ? $xT->getCSV($xSoc->getApellidoPaterno()) : "";
 $cont[20] = $tp == SYS_UNO ? $xT->getCSV($xSoc->getApellidoMaterno()) : "";
 $cont[21] = $xSoc->getRFC(true);
 $cont[22] = $tp == SYS_UNO ? $xSoc->getCURP(true) : "";
 $cont[23] = $xSoc->getFechaDeNacimiento();
 if ($ODom == null) {
     $cont[24] = "";
     $cont[25] = "";
     $cont[26] = $xLoc->DomicilioLocalidadClave();
     $cont[27] = "";
 } else {
     //10500001
     $idlocalidad = $ODom->getClaveDeLocalidad();
 $xSoc->init();
 $fechaNac = date("Y/m/d", strtotime($r["fechanacimiento"]));
 $tipoDato = "PERSONA";
 $primerApellido = $r["apellidopaterno"];
 $segundoApellido = $r["apellidomaterno"];
 $primerApellido = strlen($primerApellido) == 0 ? $segundoApellido : $primerApellido;
 $segundoApellido = strlen($primerApellido) == 0 ? "" : $segundoApellido;
 $nombres = explode(" ", $r["nombrecompleto"]);
 $primerNombre = $nombres[0];
 $segundoNombre = isset($nombres[1]) ? $nombres[1] : "";
 $tipoPersona = "0";
 $fechaInscripcion = date("Y/m/d", strtotime($r["fechaalta"]));
 $genero = $arrEquivGenero[$r["genero"]];
 //datos del Domicilio
 $DDom = $xSoc->getDatosDomicilio();
 $calle = $xT->getCSV($DDom["calle"]);
 $numero = $xT->getCSV($DDom["numero_exterior"]);
 $colonia = $xT->getCSV($DDom["colonia"]);
 $xCol = new cDomiciliosColonias();
 $codCol = $xCol->getClavePorCodigoPostal($DDom["codigo_postal"]);
 $xCol->set($codCol);
 $xCol->init();
 $DCol = $xCol->getDatosInArray();
 $cp = $xT->cSerial(5, $DDom["codigo_postal"]);
 $claveMun = $DCol["codigo_de_municipio"];
 $claveEnt = $DCol["codigo_de_estado"];
 $localidad = $DDom["localidad"];
 $xLoc = new cDomicilioLocalidad("");
 $claveLoc = $xLoc->setBuscar($localidad, $claveEnt, $claveMun);
 $xLoc->set($claveLoc);
 $DLoc = $xLoc->getDatosInArray();
 function getLinea($out = OUT_CSV)
 {
     $xT = new cTipos();
     $texto = "";
     foreach ($this->mInfoLinea as $id => $txt) {
         if ($out == OUT_CSV) {
             $texto .= $xT->getCSV($txt);
             $texto .= $id == 61 ? "\r\n" : ",";
         } else {
             $texto .= $id == 1 ? "<tr>" : "";
             //$texto	.= "<td style=mso-number-format:'@'>$txt</td>";
             $texto .= "<td class=\"xl25\" x:str=\"{$txt}\">{$txt}</td>";
             $texto .= $id == 61 ? "</tr>\r\n" : "";
         }
     }
     return $texto;
 }