EVOLUTION-MANAGER
Edit File: compacw.inc.php
<?php /** * Consulta Contpaq */ include_once ("../core/core.deprecated.inc.php"); //ini_set("display_errors", "on"); function odbc_fila($sql, $fila) { $cnn_odbc = odbc_connect("ctw", "", ""); $rs = odbc_exec($cnn_odbc, $sql); $value = "NO_EXISTE"; $value = odbc_fetch_array($rs, 1); odbc_free_result($rs); odbc_close($cnn_odbc); //if(!$rs){ // return odbc_error($rs); //} else { return $value[$fila]; //} } function cw_cuenta($socio, $credito=0){ $sql = "SELECT codigo, cajalocal FROM socios_general WHERE codigo=$socio LIMIT 0,1"; $resc = ""; if ($credito!=0){ $resc = " AND numero_solicitud=$credito "; } else { $resc = " AND numero_socio=$socio "; } $sqlc = "SELECT * FROM creditos_solicitud WHERE saldo_actual>0 $resc LIMIT 0,1"; $datos = obten_filas($sql); $datosc = obten_filas($sqlc); $socio_cw = ""; $cuenta = ""; $prefijo = ""; /** * Si el Socio es Menor a 37999 */ if($datos[0]<=37999){ $socio_cw = substr(("00" . $datos[1] . "0" . substr($datos[0], -3)), -6); } else { $socio_cw = $datos[0]; } /** * Si es automatizado se va a Automaticos */ if ($datosc[24]==10){ if ($datosc[12]==20) { $cuenta = "111201" . $socio_cw; } else { $cuenta = "110501" . $socio_cw; } } else { if ($datosc[12]==20) { $cuenta = "111203" . $socio_cw; } else { $cuenta = "110601" . $socio_cw; } } return $cuenta; } function saldo_cw($cuenta){ $sql_gen = "SELECT * FROM general_configuration LIMIT 0,1"; $dats = obten_filas($sql_gen); $periodo = $dats[78]; $anno = date("Y"); return odbc_fila("SELECT * FROM ctw10005 WHERE cuenta='$cuenta' AND eje=$anno", "imp$periodo"); } function fecha_cw($cuenta){ $sql_gen = "SELECT * FROM general_configuration LIMIT 0,1"; $dats = obten_filas($sql_gen); $periodo = $dats[78]; $anno = date("Y"); return odbc_fila("SELECT * FROM ctw10004 WHERE cuenta='$cuenta' AND periodo=$periodo AND eje=$anno ORDER BY fecha DESC", "fecha"); } function cwcuenta($socio, $tipo, $estatus, $credito = 0){ $sql = "SELECT codigo, cajalocal FROM socios_general WHERE codigo=$socio LIMIT 0,1"; $resc = ""; if ($credito!=0){ $resc = " AND numero_solicitud=$credito "; } else { $resc = " AND numero_socio=$socio "; } $datos = obten_filas($sql); $socio_cw = ""; $cuenta = ""; $prefijo = ""; /** * Si el Socio es Menor a 37999 */ if($datos[0]<=37999){ $socio_cw = substr(("00" . $datos[1] . "0" . substr($datos[0], -3)), -6); } else { $socio_cw = $datos[0]; } /** * Si es automatizado se va a Automaticos */ if ($tipo==10){ if ($estatus==20) { $cuenta = "111201" . $socio_cw; } else { $cuenta = "110501" . $socio_cw; } } else { if ($estatus==20) { $cuenta = "111203" . $socio_cw; } else { $cuenta = "110601" . $socio_cw; } } return $cuenta; } function setCompacWtExportarPolizas($fecha_inicial, $fecha_final, $FolioInicial = 0, $FolioFinal = 999999, $mTipo ="todas"){ $sucursal = getSucursal(); //Traducciones del ContPaqw $CWTipoMvto = array("1"=>1,"-1"=>"2"); //Formato : polizas + fecha + sucursal; $mTmpFileAlias = "$sucursal-polizas-" . date("Y-m-d") . ""; $mNametmpFile = PATH_TMP . $mTmpFileAlias . ".txt"; if(file_exists($mNametmpFile)) { $BKPFile = fopen($mNametmpFile, "a+"); } else { //$mNametmpFile = tempnam (PATH_BACKUPS, "polizas" . date("Y-m-d") . $sucursal . ".sbk"); $BKPFile = fopen($mNametmpFile, "a"); } //filtros $wByTipo = ( $mTipo == "todas" ) ? "" : " AND (`contable_polizas`.`tipopoliza` =" . $mTipo. ") "; //Generar Polizas $FInicial = $FolioInicial; $FFinal = $FolioFinal; $sqlPol = "SELECT * FROM `contable_polizas` `contable_polizas` WHERE (`contable_polizas`.`fecha` >='$fecha_inicial') AND (`contable_polizas`.`fecha` <='$fecha_final') AND ( (`contable_polizas`.`numeropoliza` >=$FInicial) AND (`contable_polizas`.`numeropoliza` <=$FFinal) ) $wByTipo "; //echo $sqlPol; $rs = mysql_query($sqlPol, cnnGeneral()); if (!$rs){ //Codigo de Control de Error saveError(2,$_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " .mysql_errno() . "|||Instruccion SQL: \n ". $sqlPol); } while($rw = mysql_fetch_array($rs)){ //Seleccionar los Movimientos $ejercicio = $rw["ejercicio"]; $periodo = $rw["periodo"]; $tipoPoliza = $rw["tipopoliza"]; $numeroPoliza = $rw["numeropoliza"]; $fechaPoliza = $rw["fecha"]; $conceptoPoliza = $rw["concepto"]; $WriteText = "P " . date("Ymd", strtotime($fechaPoliza)); $WriteText .= " " . $tipoPoliza; $WriteText .= " " . substr(str_pad($numeroPoliza, 8, "0", STR_PAD_LEFT), -8); $WriteText .= " 1 000 " . substr(str_pad($conceptoPoliza, 100, " " , STR_PAD_RIGHT),0, 100); $WriteText .= " 01 2 "; //Escribe la Poliza @fwrite($BKPFile, $WriteText); /* 3 Caracter para quien sabe.- Diario.- supongo 2 Caracter para quien sabe 1 Caracter Espacion 1 Caracter Para quien Sabe 1 Caracter Espacio */ $sqlMvtos = "SELECT `contable_movimientos`.* FROM `contable_movimientos` `contable_movimientos` WHERE (`contable_movimientos`.`ejercicio` =$ejercicio) AND (`contable_movimientos`.`periodo` =$periodo) AND (`contable_movimientos`.`tipopoliza` =$tipoPoliza) AND (`contable_movimientos`.`numeropoliza` =$numeroPoliza) ORDER BY `contable_movimientos`.`ejercicio`, `contable_movimientos`.`periodo`, `contable_movimientos`.`tipopoliza`, `contable_movimientos`.`numeropoliza`, `contable_movimientos`.`numeromovimiento` "; $MRs = mysql_query($sqlMvtos, cnnGeneral()); while($MRw = mysql_fetch_array($MRs)){ $cuenta = $MRw["numerocuenta"]; $referencia = $MRw["referencia"]; //Corrige la Cuenta de Cuadre if ($cuenta == CUENTA_DE_CUADRE){ $cuenta = "_CUADRE"; } //Tipo M + espacio //Cuenta 20 //Referencia 10 //TipoMvto 2 espacios 1 Cargo 2 Abono //Importe 16 Alineado //espacio + 000 + espacio + " 0.00 " //concepto 30 + espacio $WriteMvto = "M " . substr(str_pad($cuenta, 20, " ", STR_PAD_RIGHT), 0, 20); $WriteMvto .= " " . substr(str_pad($referencia, 10, " ", STR_PAD_RIGHT), 0, 10); $WriteMvto .= " " . $CWTipoMvto[$MRw["tipomovimiento"]]; $WriteMvto .= " " . substr(str_pad($MRw["importe"], 16, " ", STR_PAD_LEFT), -16); $WriteMvto .= " 000 " . " 0.00 " . substr(str_pad($MRw["concepto"], 30, " ", STR_PAD_RIGHT), 0, 30) . " "; @fwrite($BKPFile, $WriteMvto); } } @fclose($BKPFile); return "<a href=\"../utils/download.php?type=txt&download=$mTmpFileAlias&file=$mTmpFileAlias\" target=\"_blank\" class='boton'>Descargar Archivo de Polizas</a>"; } ?>