function _ajustainv($mes, $cambia)
{
$cambia = str_replace(",", "", $cambia);
$mSQL = "SELECT sum(minicial), sum(mcompras), sum(mventas), sum(mfinal) FROM invresu WHERE mes={$mes} ";
$mC = damecur($mSQL);
$row = mysql_fetch_row($mC);
$difer = $row[3] - $cambia;
$factor = ($row[2] + $difer) / $row[2];
//echo "$cambia $difer $factor";
ejecutasql("UPDATE invresu SET mventas=mventas*" . $factor . " WHERE mes={$mes}");
saldofinal($mes);
}
$sobretasa = $row[2];
if ($mes >= 200703) {
$tasa = 11;
//traevalor('TASA');
} else {
$tasa = 14;
//traevalor('TASA');
}
@mysql_select_db("{$farma}") or die("No se pudo conectar a {$farma}");
require_once "../wexcel/class.writeexcel_workbook.inc.php";
require_once "../wexcel/class.writeexcel_worksheet.inc.php";
// ARREGLA SIVA PORSIA
$mSQL = "UPDATE siva SET impuesto=0, geneimpu=0, exento=gtotal, stotal=gtotal, general=0 where geneimpu<0 and general>=0 ";
ejecutasql($mSQL);
$mSQL = "UPDATE siva SET geneimpu=0, exento=exento+general, stotal=exento+general, general=0 WHERE geneimpu=0 and general<0 ";
ejecutasql($mSQL);
$mSQL = "\nSELECT \na.fecha AS fecha,\na.numero AS NUMERO,\na.nfiscal AS FINAL,\na.rif AS RIF,\nIF( MID(a.rif,1,1) NOT IN ('J','G') AND b.contacto IS NOT NULL AND b.contacto!='',b.contacto,a.nombre) AS NOMBRE,\nIF(a.tipo='NC',a.numero,' ') AS NUMNC,\nIF(a.tipo='ND',a.numero,' ') AS NUMND,\na.tipo AS TIPO, \nIF(a.referen=a.numero,' ',a.referen) AS AFECTA,\na.gtotal*IF(a.tipo='NC',-1,1) VENTATOTAL,\na.exento*IF(a.tipo='NC',-1,1) EXENTO,\na.general*IF(a.tipo='NC',-1,1) BASE,\n'{$tasa}%' AS ALICUOTA,\na.impuesto*IF(a.tipo='NC',-1,1) AS Cgimpu,\na.reiva*IF(a.tipo='NC',-1,1),\n' ' COMPROBANTE,\n' ' FECHACOMP,\n' ' IMPERCIBIDO,\n' ' IMPORTACION,\n'SI' tiva, \na.tipo, \na.numero numa,\na.general,\na.geneimpu,\na.adicional,\na.adicimpu,\na.reducida,\na.reduimpu,\na.contribu c2\nFROM siva a LEFT JOIN scli b ON a.clipro=b.cliente\nWHERE EXTRACT(YEAR_MONTH FROM a.fechal)={$mes} AND a.libro='V' AND a.tipo<>'FA' \nORDER BY a.fecha, IF(a.tipo IN ('FC','XE','XC'),1,2), numa ";
//echo $mSQL;
//die;
$export = damecur($mSQL);
################################################################
#
# Encabezado
#
$fname = tempnam("/tmp", "lventas.xls");
$wb =& new writeexcel_workbook($fname);
$ws =& $wb->addworksheet($mes);
# ANCHO DE LAS COLUMNAS
$ws->set_column('A:A', 11);
$ws->set_column('B:B', 37);
$ws->set_column('C:C', 11);
