//sucess
                    if ($pass == true) {
                        $ingreso = $xFi->getFlotante($tmp->INGRESOS_MENSUALES);
                        if ($ingreso > 0) {
                            if ($xSoc->init() == true) {
                                $xSoc->addActividadEconomica($xFi->getV($tmp->EMPRESA_TRABAJO, ""), $ingreso, $xFi->getV($tmp->OCUPACION, ""));
                            }
                        }
                    }
                }
                $msg .= $xSoc->getMessages();
            }
            $conteo++;
        }
    }
    $msg .= $xFi->getMessages();
    if (MODO_DEBUG == true) {
        $xLog = new cFileLog();
        $xLog->setWrite($msg);
        $xFRM->addToolbar($xLog->getLinkDownload("Archivo del proceso", ""));
    }
    //==================================================================================================================
    /*			fclose ($gestor);
    				$xLog->setWrite($msg);
    				$xFRM->addToolbar( $xLog->getLinkDownload("Archivo del proceso", ""));
    		}	else {
    			$xFRM->addAviso("EL TIPO DE ARCHIVO DE " . $usrFiles[0]['name'] . "(" .$mExt . ") NO SE ACEPTA");
    		}
    
    	}*/
}
                $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++;
        }
        $msg .= $xFi->getMessages(OUT_TXT);
        if (MODO_DEBUG == true) {
            $xLog = new cFileLog();
            $xLog->setWrite($msg);
            $xLog->setClose();
            $xFRM->addToolbar($xLog->getLinkDownload("TR.Archivo del proceso", ""));
        }
    }
}
$xFRM->addJsBasico();
//$xFRM->addCreditBasico();
$xFRM->addSubmit();
echo $xFRM->get();
//$jxc ->drawJavaScript(false, true);
$xHP->fin();