EVOLUTION-MANAGER

Edit File: contpaqw_dbx.inc.php

<?php
//=====================================================================================================
//=====>	INICIO_H
	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");
	$theFile					= __FILE__;
	$permiso					= getSIPAKALPermissions($theFile);
	if($permiso === false){		header ("location:../404.php?i=999");	}
	$_SESSION["current_file"]	= addslashes( $theFile );
//<=====	FIN_H
	$iduser = $_SESSION["log_id"];
//=====================================================================================================
include_once("../core/entidad.datos.php");
include_once("../core/core.deprecated.inc.php");
include_once("../core/core.fechas.inc.php");
include_once("sql.inc.php");
include_once("../core/core.config.inc.php");
include_once("../core/core.contable.inc.php");

ini_set("max_execution_time", 1800);

} else {
 				$rechazados++;
 				//$results[SYS_MSG] .= "La Fila $i No se Importo, por contener " . trim($field[0]) . "-" . trim($field[1]) . " ";
 			} 			
		} 
	} else {
		$results[SYS_MSG] .= "No se Pudo Abrir la DB";
	}
	dbase_close ($rs);
	$results[SYS_MSG] .= "$rechazados Registros Furon Excluidos por no tener Valores Validos ";
	$results[SYS_MSG] .= "Cerrando $pathdbase ";
	
	return $results;
}
function ImportPolizasCW(){
	//Elimina los Datos de la DB del Catalogo
	$sqlDelC = "DELETE FROM contable_polizas";
	my_query($sqlDelC);
/**
 * Genera le Nuevo esquema de Naturaleza Contable
 */
	$pathdbase = CTW_PATH . vLITERAL_SEPARATOR . "CTW10003.dbf";
	$rs = dbase_open($pathdbase, 0);
	$results[SYS_MSG] .= "Abrir $pathdbase ";
	$num_rows = dbase_numrecords ($rs);
	if ($num_rows > 100000) {
			//$num_rows = 10000;
		}
	$results[SYS_MSG] .= "Numero de Filas $num_rows ";
	$aceptados		= 0;
	$rechazados		= 0;
	if(isset($rs)){
		for ($i=1; $i <= $num_rows; $i++){
 		//$field = dbase_get_record_with_names($rs, $i);
 		$field 			= dbase_get_record($rs, $i);
			$ejercicio		= "";
			$periodo		= "";
			$tipo			= "";
			$numero			= "";
			$clase			= "";
			$impresa		= "";
			$concepto		= "";
			$cargos			= "";
			$abonos			= "";
			$diario			= "";
			$fecha			= "";
 			if(trim($field[0])!="" and trim($field[0])!=0){
					$ejercicio	= trim($field[0]);
					$periodo	= trim($field[1]);
					$tipo		= trim($field[2]);
					$numero		= trim($field[3]);
					$clase		= trim($field[4]);
					$impresa	= trim($field[5]);
					$concepto	= purgeText(trim($field[6]));
					$fecha		= trim($field[7]);
					if(!$fecha or $fecha==""){
						$fecha	= fechasys();
					}
					$cargos		= trim($field[8]);
					$abonos		= trim($field[9]);
					$diario		= trim($field[10]);
					$sqlIM		= "INSERT INTO contable_polizas(ejercicio, periodo, tipopoliza, 
											numeropoliza, clase, impresa, concepto, fecha, cargos, abonos, diario) 
									VALUES($ejercicio, $periodo, $tipo, $numero, 
											$clase, '$impresa', '$concepto', '$fecha', $cargos, $abonos, $diario)";
					my_query($sqlIM);
 			} else {
 				$rechazados++;
 				//$results[SYS_MSG] .= "La Fila $i No se Importo, por contener " . trim($field[0]) . "-" . trim($field[1]) . " ";
 			} 			
		} 
	} else {
		$results[SYS_MSG] .= "No se Pudo Abrir la DB ";
	}
dbase_close ($rs);
$results[SYS_MSG] .= "$rechazados Fueron Excluidos por no tener Valores validos ";
$results[SYS_MSG] .= "Cerrando $pathdbase ";
return $results;	
}
function ImportMvtosCW(){
	//Elimina los Datos de la DB del Catalogo
	$sqlDelC = "DELETE FROM contable_movimientos";
	my_query($sqlDelC);
	$rechazados		= 0;
	$aceptados		= 0;
/**
 * Genera le Nuevo esquema de Naturaleza Contable
 */
	$pathdbase = CTW_PATH . vLITERAL_SEPARATOR . "CTW10004.dbf";
	$rs = dbase_open($pathdbase, 0);
	$results[SYS_MSG] .= "Abrir $pathdbase ";
	$num_rows = dbase_numrecords ($rs);
	if ($num_rows > 100000) {
			//$num_rows = 102000;
		}
	$results[SYS_MSG] .= "Numero de Filas $num_rows ";
	//Conversion del Tipo de Movimientos
	//Para efectos de DBX 0 = false; 1 = True
	$arrTipoMvto	= array(
						"0"		=> TM_CARGO,
						"1"		=> TM_ABONO
						);
	if(isset($rs)){
		//$results[SYS_MSG] .= "Cerrando " . dbase_get_header_info($rs) . " ";
		for ($i=1; $i <= $num_rows; $i++){
 		//$field = dbase_get_record_with_names($rs, $i);
 		$field 			= dbase_get_record($rs, $i);
			$ejercicio		= "";
			$periodo		= "";
			$tipoPol		= "";
			$numeroPol		= "";
			$cuenta			= "";
			$mvto			= "";
			$tipoMvto		= "";		
			$referencia		= "";
			$concepto		= "";
			$cargo			= "";
			$abono			= "";
			$importe		= "";
			$diario			= "";
			$fecha			= "";
			settype($tipoMvto, "string");
 			if(trim($field[0])!="" and trim($field[0])!=0){
 				$ejercicio	= trim($field[0]);
 				$periodo	= trim($field[1]);
 				$tipoPol	= trim($field[2]);
 				$numeroPol	= trim($field[3]);
 				$mvto		= trim($field[4]);
 				$cuenta		= trim($field[5]);
 					if($cuenta == "_CUADRE"){
 						$cuenta	= CUENTA_DE_CUADRE;
 					}
 				$tipoMvto	= trim($field[6]);
 				$tipoMvto	= $arrTipoMvto[$tipoMvto];
 				//$results[SYS_MSG] .= " EL TIPO BOOLEAN ES " . trim($field[6]) . " de $ejercicio, $periodo, $tipoPol, $numeroPol, $mvto ";
					$referencia	= purgeText(trim($field[7]));
					$concepto	= purgeText(trim($field[11]));
					$importe	= trim($field[8]);
					$diario		= trim($field[9]);
					$fecha		= trim($field[12]);
					if($tipoMvto == TM_CARGO){
						$cargo 	= $importe;
						$abono	= 0;
					} else {
						$abono	= $importe;
						$cargo	= 0;
					}
					//Execute Query
					$sqlIM = "INSERT INTO contable_movimientos(ejercicio, periodo, tipopoliza, numeropoliza, 
																numeromovimiento, numerocuenta, tipomovimiento, 
																referencia, importe, diario, moneda, concepto, 
																fecha, cargo, abono) 
 															VALUES($ejercicio, $periodo, $tipoPol, $numeroPol, 
 																	$mvto, $cuenta, '$tipoMvto', 
 																	'$referencia', $importe, $diario, 0, '$concepto', 
 																	'$fecha', $cargo, $abono)";
					my_query($sqlIM);
					$aceptados++;
 			} else {
 				$rechazados++;
 			} 			
		} 
	} else {
		$results[SYS_MSG] .= "No se Pudo Abrir la DB";
	}
dbase_close ($rs);
$results[SYS_MSG] .= "$aceptados Registros fueron Agregados a la Base de Datos ";
$results[SYS_MSG] .= "$rechazados Registros fueron rechazados por no Contener Valores Validos ";
$results[SYS_MSG] .= "Cerrando $pathdbase ";
return $results;
}
function ImportRelacionesCW(){
	//Elimina los Datos de la DB del Catalogo
	$sqlDelC = "DELETE FROM contable_catalogorelacion";
	my_query($sqlDelC);
	$rechazados		= 0;
	$aceptados		= 0;
/**
 * Genera le Nuevo esquema de Naturaleza Contable
 */
	$pathdbase = CTW_PATH . vLITERAL_SEPARATOR . "CTW10002.dbf";
	$rs = dbase_open($pathdbase, 0);
	$results[SYS_MSG] .= "Abrir $pathdbase ";
	$num_rows = dbase_numrecords ($rs);
	if ($num_rows > 100000) {
			//$num_rows = 1000000;
		}
	$results[SYS_MSG] .= "Numero de Filas $num_rows ";
	//Conversion del Tipo de Movimientos
	if(isset($rs)){
		for ($i=1; $i <= $num_rows; $i++){
 		$field 			= dbase_get_record($rs, $i);

if(trim($field[0])!="" and trim($field[0])!=0){
 				$sql = "INSERT INTO contable_catalogorelacion
 				(cuentasuperior, subcuenta, tiporelacion) 
 					VALUES(" . trim($field[0]) . ", " . trim($field[1]) . ", " . trim($field[2]) . ")";
 				my_query($sql);
					$aceptados++;
 			} else {
 				$rechazados++;
 			} 			
		} 
	} else {
		$results[SYS_MSG] .= "No se Pudo Abrir la DB";
	}
dbase_close ($rs);
$results[SYS_MSG] .= "$aceptados Registros fueron Agregados a la Base de Datos ";
$results[SYS_MSG] .= "$rechazados Registros fueron rechazados por no Contener Valores Validos ";
$results[SYS_MSG] .= "Cerrando $pathdbase ";
return $results;
}
function ImportSaldosCW(){
	//Elimina los Datos de la DB del Catalogo
	$sqlDelC = "DELETE FROM contable_saldos";
	my_query($sqlDelC);
	$rechazados		= 0;
	$aceptados		= 0;
/**
 * Genera le Nuevo esquema de Naturaleza Contable
 */
	$pathdbase = CTW_PATH . vLITERAL_SEPARATOR . "CTW10005.dbf";
	$rs = dbase_open($pathdbase, 0);
	$results[SYS_MSG] .= "Abrir $pathdbase ";
	$num_rows = dbase_numrecords ($rs);
	if ($num_rows > 100000) {
			//$num_rows = 1000000;
		}
	$results[SYS_MSG] .= "Numero de Filas $num_rows ";
	//Conversion del Tipo de Movimientos
	if(isset($rs)){
		for ($i=1; $i <= $num_rows; $i++){
 		$field 			= dbase_get_record($rs, $i);

if(trim($field[0])!="" and trim($field[0])!=0){
 				$cuenta = trim($field[0]);
 					if($cuenta == "_CUADRE"){
 						$cuenta = CUENTA_DE_CUADRE;
 					}
 				$sql = "INSERT INTO contable_saldos(cuenta, 
 				ejercicio, tipo, saldo_inicial, imp1, imp2, imp3, imp4, imp5, imp6, imp7, imp8, imp9, imp10, imp11, imp12, imp13, imp14, captado) 
 													VALUES($cuenta, 
 													" . trim($field[1]) . ", " . trim($field[2]) . ",
 													" . trim($field[3]) . ", " . trim($field[4]) . ", 
 													" . trim($field[5]) . ", " . trim($field[6]) . ", 
 													" . trim($field[7]) . ", " . trim($field[8]) . ",
 													" . trim($field[9]) . ", " . trim($field[10]) . ", 
 													" . trim($field[11]) . ", " . trim($field[12]) . ", 
 													" . trim($field[13]) . ", " . trim($field[14]) . ", 
 													" . trim($field[15]) . ", " . trim($field[16]) . ", 
 													" . trim($field[17]) . ", '" . trim($field[18]) . "')";
 				my_query($sql);
					$aceptados++;
 			} else {
 				$rechazados++;
 			} 			
		} 
	} else {
		$results[SYS_MSG] .= "No se Pudo Abrir la DB";
	}
dbase_close ($rs);
$results[SYS_MSG] .= "$aceptados Registros fueron Agregados a la Base de Datos ";
$results[SYS_MSG] .= "$rechazados Registros fueron rechazados por no Contener Valores Validos ";
$results[SYS_MSG] .= "Cerrando $pathdbase ";
return $results;
}
function purgeText($text) {
	$text = str_replace("'", "", $text);
	$text = str_replace('"', "", $text);
	$text = str_replace('\\', "", $text);
	return $text;
}
?>