$fecha_de_corte = $fecha_final;
$xT = new cTipos();
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n\n<DeclaracionInformativaMensualIDE denominacion=\"{$NombreEntidad}\" rfcDeclarante=\"{$RFC_Declarante}\" version=\"1.0\" xsi:noNamespaceSchemaLocation=\"ide_20080818.xsd\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\">\n\t<RepresentanteLegal rfc=\"{$RFC_Representante}\">\n\t\t<Nombre>\n\t\t\t<Nombres>{$RepNom}</Nombres>\n\t\t\t<PrimerApellido>{$RepAP}</PrimerApellido>\n\t\t\t</SegundoApellido>{$RepAM}</SegundoApellido>\n\t\t</Nombre>\n\t</RepresentanteLegal>\n\t<Normal ejercicio=\"{$ejercicio}\" periodo=\"{$periodo}\"/>\n\n\t<InstitucionDeCredito>\n";
echo "\n\t\t<ReporteDeRecaudacionYEnteroDiaria fechaDeCorte=\"{$fecha_de_corte}\">\n\t\t\t<RegistroDeDetalle>\n";
$sqlCaracter = "SELECT\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS `monto`\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\tINNER JOIN `operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\tON `eacp_config_bases_de_integracion_miembros`.`miembro` =\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =7001)\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t(\n\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_operacion` >='{$fecha_inicial}')\n\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`fecha_operacion` <='{$fecha_final}')\n\t\t\t\t\t\t\t)\n\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`\n\t\t\t\t\t\tORDER BY\n\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` ";
$rsMSoc = mysql_query($sqlCaracter, cnnGeneral());
while ($rx = mysql_fetch_array($rsMSoc)) {
    $socio = $rx["socio_afectado"];
    $xSoc = new cSocio($socio);
    $xSoc->init();
    $DSoc = $xSoc->getDatosInArray();
    $curp = $DSoc["curp"];
    $rfc = $DSoc["rfc"];
    $xT = new cImpuestoIDE();
    $xTi = new cTipos();
    $nombre = $xTi->setNoAcentos($xSoc->getNombreCompleto());
    $domicilio = $xSoc->getDomicilio();
    //Ide Individual a la fecha de Corte
    $IDEPend = $xT->getIDENoPagado($socio, $fecha_final);
    //		$xT				= new cImpuestoIDE();
    //		$xF				= new cFecha(0, $fecha);
    //		$FechaAnterior	= $xF->getFechaMesAnterior();
    //$IDEPerA		= $xSoc->getIDEPeriodoAnterior($fecha_final);//IDE Periodos anteriores
    //Remanente de periodos anteriores se refiere a la suma de Remanentes en los Meses Anteriores
    $RemPerA = 0;
    $IDERet = $xSoc->getIDEPagadoByPeriodo($fecha_final);
    $MontoGrav = $xSoc->getBaseGravadaIDE($fecha_final);
    $IDECalc = $xSoc->getIDECalculado($fecha_final);
    $totalExcedente += $MontoGrav;
    $totalOperaciones++;
    $totalPendiente += $IDEPend;
         $xFi->setDataRow($rows);
         $cuenta = $xFi->getV($colcuenta, "");
         //$cuenta		= $xT->cSerial($largo)
         $xEQ = new cCuentaContableEsquema($cuenta);
         //$xCW		= new cCatalogoCompacW();
         //echo $xEQ->CUENTA_FORMATEADA . "<br/>" . $xEQ->CUENTARAW ."<br />" . $xCW->getEquivalencia( $xFi->getV($tmp->NATURALEZA, "") )  . $xEQ->NIVEL_ACTUAL . "<hr />";
         $cuenta = $xEQ->CUENTA_FORMATEADA;
         $xCCont = new cCuentaContable($cuenta);
         $nivel = $xCCont->determineNivel($cuenta);
         $sucess = true;
         $nombre = $xFi->getV($colnombre, "");
         $nombre = trim($nombre);
         $superior = $xEQ->CUENTA_SUPERIOR;
         // $xCCont->getInmediatoSuperior();
         $cuenta = $xCCont->getCuentaCompleta($cuenta);
         $nombre = $xT->setNoAcentos($nombre);
         $nombre = str_replace("'", "", $nombre);
         $nombre = strtoupper($nombre);
         $naturaleza = $xFi->getV($colnat, "");
         if ($sucess == true and $action == MQL_ADD) {
             if (setNoMenorQueCero($cuenta) > 0) {
                 $xCta = new cCuentaContable($cuenta);
                 $xCta->add($nombre, $naturaleza, false, false, $nivel, false, false, $superior);
                 $msg .= $xCta->getMessages(OUT_TXT);
             }
         }
     } else {
         //$msg		.= "$conteo\t===============\r\n";
     }
     $conteo++;
 }
    echo $xFRM->get();
} else {
    $doc1 = isset($_FILES["f1"]) ? $_FILES["f1"] : false;
    $observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : "";
    $xFil = new cFileImporter();
    $xFil->setCharDelimiter("|");
    //var_dump($_FILES["f1"]);
    if ($xFil->processFile($doc1) == true) {
        $data = $xFil->getData();
        $linea = 0;
        foreach ($data as $valores => $cont) {
            //
            if ($linea == 0) {
            } else {
                $idlocalidad = $cont[0];
                $nombrelocal = $xT->setNoAcentos($cont[1]);
                $estadolocal = $cont[2];
                $paislocal = $cont[3];
                $idestadoloc = $xT->cInt($cont[4]);
                //cosulta de pais
                $municipio = EACP_CLAVE_DE_MUNICIPIO;
                $estado = EACP_CLAVE_DE_ENTIDADFED;
                if (setNoMenorQueCero($idestadoloc) == 0) {
                    $D = obten_filas("SELECT * FROM general_estados WHERE nombre LIKE '%{$estadolocal}%' LIMIT 0,1");
                    if (isset($D["clave_numerica"])) {
                        $idestadoloc = $D["clave_numerica"];
                    }
                }
                //calcular pais
                $D = obten_filas("SELECT * FROM `personas_domicilios_paises` WHERE `nombre_oficial` LIKE '%{$paislocal}%' LIMIT 0,1");
                if (isset($D["clave_de_control"])) {
 $observaciones = isset($DDATA["idobservaciones"]) ? $DDATA["idobservaciones"] : "";
 $xFil = new cFileImporter();
 $xFil->setCharDelimiter("|");
 //var_dump($_FILES["f1"]);
 if ($xFil->processFile($doc1) == true) {
     $data = $xFil->getData();
     $linea = 0;
     foreach ($data as $valores => $cont) {
         //
         if ($linea == 0) {
         } else {
             //0clave_interna	1clave_de_actividad	2nombre_de_la_actividad
             //3descripcion_detallada	4productos	5clasificacion	6clave_de_superior
             //7nivel_de_riesgo	8califica_para_pep
             $idactividad = $cont[0];
             $nombre = $xT->setNoAcentos($cont[2]);
             $claveuif = $xT->cSerial(7, $cont[1]);
             $esPep = setNoMenorQueCero($cont[8]);
             $riesgo = $xT->cInt($cont[7]);
             $xAct = new cPersonas_actividad_economica_tipos();
             //eliminar primero
             $xAct->query()->setRawQuery("DELETE FROM personas_actividad_economica_tipos WHERE clave_interna={$idactividad}");
             //asignar valores
             $xAct->califica_para_pep($esPep);
             $xAct->clasificacion("CLASE");
             $xAct->clave_de_actividad($claveuif);
             $xAct->clave_de_superior(0);
             $xAct->clave_interna($idactividad);
             $xAct->descripcion_detallada($nombre);
             $xAct->nivel_de_riesgo($riesgo);
             $xAct->nombre_de_la_actividad($nombre);
 			<th width='4%'>Letra</th>
 			<th width='8%'>Capital</th>
 			<th width='8%'>Interes</th>
 			<th width='8%'>I.V.A.</th>
 			<th width='8%'>Ahorro</th>
 			<th width='8%'>TOTAL</th>
 			<th width='22%'>Observaciones</th>
 		</tr>";*/
 $iReg = 0;
 if ($EliminarDatos == 1) {
     my_query("DELETE FROM general_colonias");
 }
 $cT = new cTipos();
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = $cT->setNoAcentos(fgets($gestor, 4096));
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             $msg .= "La Linea({$iReg}) no se leyo({$bufer})\r\n";
             $msg .= "DEL\tSe Eiminan todas las Colonias\r\n";
         } else {
             $datos = explode("|", $bufer, 16);
             $cpostal = $datos[0];
             $ncolonia = $cT->cChar($datos[1]);
             $tcolonia = $cT->cChar($datos[2]);
             $estado = $cT->cChar($datos[4]);
             $municipio = $cT->cChar($datos[3]);
             $numEstado = $cT->cInt($datos[7]);
             $ciudad = $cT->cChar($datos[5]);
             if (trim($ciudad) == "") {
                 $ciudad = $ncolonia;
 /**
  * Obtiene un nombre limpio, para guardar como un archivo
  * @param $mNombreArchivo
  */
 function getNombreExportable($mNombreArchivo)
 {
     $filename = $mNombreArchivo;
     $filename = str_replace(".php", "", $filename);
     $filename = str_replace("rpt_", "", $filename);
     $filename = str_replace("frm_", "", $filename);
     $filename = str_replace(".", "", $filename);
     $filename = str_replace("rpt", "", $filename);
     $filename = str_replace("frm", "", $filename);
     //$filename 	= str_replace("-", "", 	$filename);
     $filename = str_replace("___", "-", $filename);
     $filename = str_replace("__", "-", $filename);
     $filename = str_replace("_", "-", $filename);
     $filename = str_replace("---", "-", $filename);
     $filename = str_replace("--", "-", $filename);
     $filename = str_replace(" ", "", $filename);
     $xT = new cTipos();
     $filename = $xT->setNoAcentos($filename);
     return $filename;
 }
 function getText($txt = "", $tamannio = false)
 {
     $xT = new cTipos();
     $txt = $xT->setNoAcentos($txt);
     $txt = strtoupper($txt);
     if ($tamannio != false) {
         $txt = $xT->cSerial($tamannio, $txt);
     }
     return $txt;
 }
 $gestor = @fopen($completePath, "r");
 $grupo_solidario = DEFAULT_GRUPO;
 $caja_local = getCajaLocal();
 $iReg = 0;
 $cT = new cTipos();
 //inicializa el LOG del proceso
 $aliasFil = getSucursal() . "-carga -batch-de-socios-" . fechasys();
 $xLog = new cFileLog($aliasFil, true);
 if ($gestor) {
     while (!feof($gestor)) {
         $bufer = fgets($gestor, 4096);
         //$bufer			= stream_get_line($gestor, "\r\n");
         if (!isset($bufer)) {
             $msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
         } else {
             $bufer = $cT->setNoAcentos(trim($bufer));
             $datos = explode(",", $bufer, 30);
             $socio = $cT->cInt($datos[1]);
             if ($socio != 0 and $socio != DEFAULT_SOCIO) {
                 $xSoc = new cSocio($socio);
                 $relNombre = $cT->cChar(trim($datos[8]));
                 $relApMat = $cT->cChar(trim($datos[7]));
                 $relApPat = $cT->cChar(trim($datos[6]));
                 $relTelP = $cT->cChar(trim($datos[14]));
                 $relMail = $cT->cChar(trim($datos[20]));
                 $relCalle = $cT->cChar(trim($datos[12]));
                 $relColonia = $cT->cChar(trim($datos[6]));
                 $relGenero = DEFAULT_GENERO;
                 $idRelSocio = $socio + 100000 * rand(2, 9);
                 $xRel = new cSocio($idRelSocio);
                 $numero = "";