EVOLUTION-MANAGER

Edit File: contabilidad_import-catalogo-otros.frm.php

<?php
/**
 * @author Balam Gonzalez Luis Humberto
 * @version 0.0.01
 * @package
 */
//=====================================================================================================
	include_once("../core/go.login.inc.php");
	include_once("../core/core.error.inc.php");
	include_once("../core/core.html.inc.php");
	include_once("../core/core.init.inc.php");
	include_once("../core/core.db.inc.php");
	$theFile			= __FILE__;
	$permiso			= getSIPAKALPermissions($theFile);
	if($permiso === false){	header ("location:../404.php?i=999");	}
	$_SESSION["current_file"]	= addslashes( $theFile );
//=====================================================================================================
$xHP		= new cHPage("TR.Importar Catalogo", HP_FORM);
$esqueleto	= "numero=1|nombre=2|naturaleza=3";
$xT			= new cTipos();
$xLog		= new cCoreLog();
//C  101000000000000000             DISPONIBILIDADES                                                                                      100000000000000000             A 0 4 0 20140708 11    1    0 0    0
//$jxc = new TinyAjax();
//$jxc ->exportFunction('datos_del_pago', array('idsolicitud', 'idparcialidad'), "#iddatos_pago");
//$jxc ->process();

$persona	= parametro("persona", DEFAULT_SOCIO, MQL_INT); $persona = parametro("socio", $persona, MQL_INT); $persona = parametro("idsocio", $persona, MQL_INT);
$credito	= parametro("credito", DEFAULT_CREDITO, MQL_INT); $credito = parametro("idsolicitud", $credito, MQL_INT); $credito = parametro("solicitud", $credito, MQL_INT);
$cuenta		= parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT); $cuenta = parametro("idcuenta", $cuenta, MQL_INT);
$jscallback	= parametro("callback"); $tiny = parametro("tiny"); $form = parametro("form"); $action = parametro("action", SYS_NINGUNO);

$xHP->init();

$xFRM		= new cHForm("frm", "contabilidad_import-catalogo-otros.frm.php?action=" . MQL_TEST);
$xFil		= new cHFile();
$xChk		= new cHCheckBox();
$msg		= "";
$xFRM->setTitle($xHP->getTitle());

if($action == SYS_NINGUNO ){
	$xFRM->OFileText("idarchivo");
	$xFRM->addHElem( $xChk->get("TR.Afectar Base_de_Datos", "idaplicar") );
	$xFRM->OText("idcolcuenta", 1, "TR.Columna Cuenta");
	$xFRM->OText("idcolnom", 2, "TR.Columna Nombre");
	$xFRM->OText("idcolnat", 3, "TR.Columna Tipo");
	//$xFRM->OTextArea("idmascara", "$esqueleto", "TR.Formato");
	$xFRM->addTag("Delimitador |");
} else {
	//
	$doc1					= (isset($_FILES["idarchivo"])) ? $_FILES["idarchivo"] : false;
	$xFi					= new cFileImporter();
	$xT						= new cTipos();
	$colcuenta				= parametro("idcolcuenta");
	$colnombre				= parametro("idcolnom");
	$colnat					= parametro("idcolnat");

$catImport				= array();
	$aplicar				= parametro("idaplicar", false, MQL_BOOL);
	if($aplicar == true ){ $action = MQL_ADD; }
	
	//Cedula de Identidad
	
	$xFi->setCharDelimiter("|");
	$xFi->setLimitCampos(4);
	//$xFi->setToUTF8();
	//var_dump($_FILES["f1"]);
	//$xFi->setExo($esqueleto);
	//var_dump($_FILES);
	if($xFi->processFile($doc1) == true){
		$data				= $xFi->getData();
		$conteo				= 1;
		foreach ($data as $rows){
			if($conteo > 1){
				$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, "");
				
				$xCta		= new cCuentaContable($cuenta);
				
				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);
						$xLog->add($xCta->getMessages(), $xLog->DEVELOPER);
					}
				} else {
					$xLog->add($xCta->getMessages(), $xLog->DEVELOPER);
				}
			} else {
				
			}
			$conteo++;
		}

$xLog->add( $xFi->getMessages(OUT_TXT));
		$xFRM->addLog($xLog->getMessages());
	}
}

$xFRM->addJsBasico();
//$xFRM->addCreditBasico();

$xFRM->addSubmit();

echo $xFRM->get();

//$jxc ->drawJavaScript(false, true);
$xHP->fin();
?>