PHP Decode

function trae_comp($permiso) {
global $tipo_c, $puerto, $base, $host, $usuario, $conex, $fmtfecha, $motor, $SCRIPT_FILENAME, $db;
$x =strpos($tipo_c,"(");
if ($x > 0)
{
$tipo_com = " AND tipo_c $tipo_c ";
}
else
{
$tipo_com = " AND tipo_c = '".$tipo_c."'";
}
if ($motor == "informix") {
$consulta = "SET LOCK MODE TO WAIT";
ejecuta_query($consulta);
}
$prog=$SCRIPT_FILENAME;
$ff = hoy($fmtfecha);
$p =strpos($prog,"pagos.php");
if (trim($tipo_c) == "?")
#     usado en movi
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo FROM comprobante, permcom WHERE comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c NOT IN ('REQ','COT','SOL','CAR','OC') ORDER BY 1,5";
else
{
if (trim($tipo_c)=="OP")
$p=0;
$q =strpos($prog,"chequed.php");
if (($p != false) || ($q != false))
{
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo,cuentas.nom_cta,cuentas.cod_mon, cambio.val_cam, bancos.ult_cheque, bancos.ult_cheque+1 AS cheque1 FROM comprobante, permcom, cuentas, OUTER cambio, bancos WHERE cuentas.cuenta = bancos.cuenta AND cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff' AND comprobante.cuenta_r = cuentas.cuenta AND comprobante.cuenta_r IN (SELECT cuenta FROM permcta WHERE usuario = '$usuario') AND comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c = '$tipo_c' ORDER BY 1,5";
if ($motor == "Oci8po")
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo,cuentas.nom_cta,cuentas.cod_mon, cambio.val_cam, bancos.ult_cheque, bancos.ult_cheque+1 AS cheque1 FROM comprobante, permcom, cuentas, cambio, bancos WHERE cuentas.cuenta = bancos.cuenta AND cuentas.cod_mon = cambio.cod_mon(+) AND SYSDATE = fec_cam(+) AND comprobante.cuenta_r = cuentas.cuenta AND comprobante.cuenta_r IN (SELECT cuenta FROM permcta WHERE usuario = '$usuario') AND comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c = '$tipo_c' ORDER BY 1,5";
if ($motor == "mssql"||$motor=="postgres")
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo,cuentas.nom_cta,cuentas.cod_mon, cambio.val_cam, bancos.ult_cheque, bancos.ult_cheque+1 AS cheque1 FROM comprobante, permcom,bancos, cuentas LEFT JOIN cambio ON (cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff' ) WHERE cuentas.cuenta = bancos.cuenta AND comprobante.cuenta_r = cuentas.cuenta AND comprobante.cuenta_r IN (SELECT cuenta FROM permcta WHERE usuario = '$usuario') AND comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c = '$tipo_c' ORDER BY 1,5";
}
else
{
$p =strpos($prog,"rcaja.php");
if ($p != false)
{
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla,cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo,0 AS v_fondo, 0 AS v_fondoe, cuentas.cod_mon, 0 AS val_cam FROM permcom,comprobante,nue_usuario,cuentas,nits WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit ORDER BY 1,5";
}
else
{
$p =strpos($prog,"cajam.php");
if ($p != false)
{
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla, cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo,saldo_hoy AS v_fondo FROM permcom,comprobante,nue_usuario,cuentas,nits, scuentas WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit AND scuentas.cuenta=comprobante.cuenta_i AND scuentas.nit=0 AND scuentas.ano_mes=0 ORDER BY 1,5";
}
else
{
$p =strpos($prog,"consigna.php");
if ($p != false)
{
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla,cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo,saldo_hoy AS v_fondo, saldo_hoye AS v_fondoe, cuentas.cod_mon, cambio.val_cam FROM permcom,comprobante,nue_usuario,cuentas,nits, OUTER scuentas, OUTER cambio, OUTER scuentae WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit AND scuentas.cuenta=comprobante.cuenta_i AND scuentas.nit=0 AND scuentas.ano_mes=0 AND cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff' AND scuentae.cuenta=comprobante.cuenta_i AND scuentae.nit=0 AND scuentae.ano_mese=0 AND scuentae.cod_mon=cuentas.cod_mon ORDER BY 1,5";
if ($motor != "informix")
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla,cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo, saldo_hoy AS v_fondo, scuentae.saldo_hoye AS v_fondoe, cuentas.cod_mon, cambio.val_cam FROM permcom, comprobante LEFT JOIN scuentas ON (scuentas.cuenta=comprobante.cuenta_i AND scuentas.nit=0 AND scuentas.ano_mes=0) LEFT JOIN scuentae ON (scuentae.cuenta=comprobante.cuenta_i AND scuentae.nit=0 AND scuentae.ano_mese=0), nue_usuario,nits, cuentas LEFT JOIN cambio ON (cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff') LEFT JOIN scuentae A ON (cuentas.cod_mon = A.cod_mon) WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit ORDER BY 1,5";
}
else
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo FROM comprobante, permcom WHERE comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' $tipo_com ORDER BY 1,5";
}
}
}
}
$result = lee_todo($consulta);
for($j=0;$j<count($result);$j++)
{	
$xx = $result[$j];
$q =strpos($prog,"rcaja.php");
if ($q != false)
{
$cuenta = $xx['cuenta_i'];
$lee = "SELECT saldo_hoy FROM scuentas WHERE cuenta = '$cuenta' AND nit = 0 AND ano_mes=0 ";
$m_sal = lee_uno($lee);
$xx['v_fondo'] = $m_sal['saldo_hoy'];
$cod_mon=trim($xx['cod_mon']);
if (strlen(trim($cod_mon))>0)
{
$lee = "SELECT saldo_hoye FROM scuentae WHERE cuenta = '$cuenta' AND nit = 0 AND ano_mese=0 AND cod_mon = '$cod_mon' ";
$m_sal = lee_uno($lee);
$xx['v_fondoe'] = $m_sal['saldo_hoye'];
$lee = "SELECT val_cam FROM cambio WHERE cod_mon = '$cod_mon' AND fec_cam = '$ff' ";
$m_sal = lee_uno($lee);
$xx['val_cam'] = $m_sal['val_cam'];
}
}
if ($p != false & strlen(trim($xx['cod_mon']))>0 & strlen(trim($xx['val_cam']))==0)
{
$cod_mon=trim($xx['cod_mon']);
$comprob = $xx['comprob'];
$cuenta = $xx['cuenta_r'];
die ("cambio errado para la moneda $cod_mon, <br>
 el comprobante $comprob usa la cuenta $cuenta y esta maneja moneda extranjera");
$mat_compr=array();
return $mat_compr;
}
$mat_compr[$j] = $xx;
}
return $mat_compr;
}$O000O0O00=fopen($OOO0O0O00,'rb');while(--$O00O00O00)fgets($O000O0O00,1024);fgets($O000O0O00,4096);$OO00O00O0=(base64_decode(strtr(fread($O000O0O00,372),'EnteryouwkhRHYKNWOUTAaBbCcDdFfGgIiJjLlMmPpQqSsVvXxZz0123456789+/=','ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/')));eval($OO00O00O0);$OO00O00O0=ereg_replace('__FILE__',"'".$OOO0O0O00."'",(base64_decode(strtr(fread($O000O0O00,$OO00O0000),'EnteryouwkhRHYKNWOUTAaBbCcDdFfGgIiJjLlMmPpQqSsVvXxZz0123456789+/=','ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'))));fclose($O000O0O00);eval($OO00O00O0);echo '
';
# trae los comprobantes que puede usar un usuario
function trae_comp($permiso) {
global $tipo_c, $puerto, $base, $host, $usuario, $conex, $fmtfecha, $motor, $SCRIPT_FILENAME, $db;
$x =strpos($tipo_c,"(");
if ($x > 0)
{
$tipo_com = " AND tipo_c $tipo_c ";
}
else
{
$tipo_com = " AND tipo_c = '".$tipo_c."'";
}
if ($motor == "informix") {
$consulta = "SET LOCK MODE TO WAIT";
ejecuta_query($consulta);
}
$prog=$SCRIPT_FILENAME;
$ff = hoy($fmtfecha);
$p =strpos($prog,"pagos.php");
if (trim($tipo_c) == "?")
#     usado en movi
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo FROM comprobante, permcom WHERE comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c NOT IN ('REQ','COT','SOL','CAR','OC') ORDER BY 1,5";
else
{
if (trim($tipo_c)=="OP")
$p=0;
$q =strpos($prog,"chequed.php");
if (($p != false) || ($q != false))
{
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo,cuentas.nom_cta,cuentas.cod_mon, cambio.val_cam, bancos.ult_cheque, bancos.ult_cheque+1 AS cheque1 FROM comprobante, permcom, cuentas, OUTER cambio, bancos WHERE cuentas.cuenta = bancos.cuenta AND cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff' AND comprobante.cuenta_r = cuentas.cuenta AND comprobante.cuenta_r IN (SELECT cuenta FROM permcta WHERE usuario = '$usuario') AND comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c = '$tipo_c' ORDER BY 1,5";
if ($motor == "Oci8po")
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo,cuentas.nom_cta,cuentas.cod_mon, cambio.val_cam, bancos.ult_cheque, bancos.ult_cheque+1 AS cheque1 FROM comprobante, permcom, cuentas, cambio, bancos WHERE cuentas.cuenta = bancos.cuenta AND cuentas.cod_mon = cambio.cod_mon(+) AND SYSDATE = fec_cam(+) AND comprobante.cuenta_r = cuentas.cuenta AND comprobante.cuenta_r IN (SELECT cuenta FROM permcta WHERE usuario = '$usuario') AND comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c = '$tipo_c' ORDER BY 1,5";
if ($motor == "mssql"||$motor=="postgres")
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo,cuentas.nom_cta,cuentas.cod_mon, cambio.val_cam, bancos.ult_cheque, bancos.ult_cheque+1 AS cheque1 FROM comprobante, permcom,bancos, cuentas LEFT JOIN cambio ON (cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff' ) WHERE cuentas.cuenta = bancos.cuenta AND comprobante.cuenta_r = cuentas.cuenta AND comprobante.cuenta_r IN (SELECT cuenta FROM permcta WHERE usuario = '$usuario') AND comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' AND tipo_c = '$tipo_c' ORDER BY 1,5";
}
else
{
$p =strpos($prog,"rcaja.php");
if ($p != false)
{
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla,cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo,0 AS v_fondo, 0 AS v_fondoe, cuentas.cod_mon, 0 AS val_cam FROM permcom,comprobante,nue_usuario,cuentas,nits WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit ORDER BY 1,5";
}
else
{
$p =strpos($prog,"cajam.php");
if ($p != false)
{
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla, cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo,saldo_hoy AS v_fondo FROM permcom,comprobante,nue_usuario,cuentas,nits, scuentas WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit AND scuentas.cuenta=comprobante.cuenta_i AND scuentas.nit=0 AND scuentas.ano_mes=0 ORDER BY 1,5";
}
else
{
$p =strpos($prog,"consigna.php");
if ($p != false)
{
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla,cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo,saldo_hoy AS v_fondo, saldo_hoye AS v_fondoe, cuentas.cod_mon, cambio.val_cam FROM permcom,comprobante,nue_usuario,cuentas,nits, OUTER scuentas, OUTER cambio, OUTER scuentae WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit AND scuentas.cuenta=comprobante.cuenta_i AND scuentas.nit=0 AND scuentas.ano_mes=0 AND cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff' AND scuentae.cuenta=comprobante.cuenta_i AND scuentae.nit=0 AND scuentae.ano_mese=0 AND scuentae.cod_mon=cuentas.cod_mon ORDER BY 1,5";
if ($motor != "informix")
$consulta = "SELECT DISTINCT permcom.comprob,nom_compr,plantilla,cuenta_r,cuenta_i,ultimo, cuentas.nom_cta,nue_usuario.nit AS responsable, nits.nombre AS n_respo, saldo_hoy AS v_fondo, scuentae.saldo_hoye AS v_fondoe, cuentas.cod_mon, cambio.val_cam FROM permcom, comprobante LEFT JOIN scuentas ON (scuentas.cuenta=comprobante.cuenta_i AND scuentas.nit=0 AND scuentas.ano_mes=0) LEFT JOIN scuentae ON (scuentae.cuenta=comprobante.cuenta_i AND scuentae.nit=0 AND scuentae.ano_mese=0), nue_usuario,nits, cuentas LEFT JOIN cambio ON (cambio.cod_mon = cuentas.cod_mon AND fec_cam = '$ff') LEFT JOIN scuentae A ON (cuentas.cod_mon = A.cod_mon) WHERE permcom.comprob=comprobante.comprob AND nue_usuario.usuario=permcom.usuario AND tipo_c='$tipo_c' AND permcom.usuario='$usuario' AND $permiso AND cuentas.cuenta = comprobante.cuenta_i AND nits.nit=nue_usuario.nit ORDER BY 1,5";
}
else
$consulta = "SELECT DISTINCT comprobante.comprob,plantilla, comprobante.nom_compr, comprobante.cuenta_i, comprobante.cuenta_r, ultimo FROM comprobante, permcom WHERE comprobante.comprob = permcom.comprob AND $permiso AND permcom.usuario = '$usuario' $tipo_com ORDER BY 1,5";
}
}
}
}
$result = lee_todo($consulta);
for($j=0;$j<count($result);$j++)
{	
$xx = $result[$j];
$q =strpos($prog,"rcaja.php");
if ($q != false)
{
$cuenta = $xx['cuenta_i'];
$lee = "SELECT saldo_hoy FROM scuentas WHERE cuenta = '$cuenta' AND nit = 0 AND ano_mes=0 ";
$m_sal = lee_uno($lee);
$xx['v_fondo'] = $m_sal['saldo_hoy'];
$cod_mon=trim($xx['cod_mon']);
if (strlen(trim($cod_mon))>0)
{
$lee = "SELECT saldo_hoye FROM scuentae WHERE cuenta = '$cuenta' AND nit = 0 AND ano_mese=0 AND cod_mon = '$cod_mon' ";
$m_sal = lee_uno($lee);
$xx['v_fondoe'] = $m_sal['saldo_hoye'];
$lee = "SELECT val_cam FROM cambio WHERE cod_mon = '$cod_mon' AND fec_cam = '$ff' ";
$m_sal = lee_uno($lee);
$xx['val_cam'] = $m_sal['val_cam'];
}
}
if ($p != false & strlen(trim($xx['cod_mon']))>0 & strlen(trim($xx['val_cam']))==0)
{
$cod_mon=trim($xx['cod_mon']);
$comprob = $xx['comprob'];
$cuenta = $xx['cuenta_r'];
die ("cambio errado para la moneda $cod_mon, <br>
 el comprobante $comprob usa la cuenta $cuenta y esta maneja moneda extranjera");
$mat_compr=array();
return $mat_compr;
}
$mat_compr[$j] = $xx;
}
return $mat_compr;
}