Problemas de conexion con la base de datos.
";
exit;
}
// SELECT DATOS DEL PERSONAL
$dat_personal = pg_query("select apeper, nomper, rifper from sno_personal where cedper='$cedula';");
$resul = pg_fetch_array($dat_personal);
$apellido_personal = $resul[0];
$nombre_personal = $resul[1];
$rif_personal = $resul[2];
// SELECT DATOS FUNCIONARIO AUTORIZADO
$dat_funcionario = pg_query("select apeper, nomper, rifper from sno_personal where cedper='5415246';");
$resul2 = pg_fetch_array($dat_funcionario);
$apellido_funcionario = $resul2[0];
$nombre_funcionario = $resul2[1];
$rif_funcionario = $resul2[2];
$cedula_funcionario = '5415246';
// SELECT DATOS AGENTE DE RETENCION
$dat_agente = pg_query("select nombre, direccion, rifemp, telemp, ciuemp, estemp, zonpos from sigesp_empresa;");
$resul3 = pg_fetch_array($dat_agente);
$nombre_agente = $resul3[0];
$direccion_agente = $resul3[1];
$rif_agente = $resul3[2];
$telefono_agente = $resul3[3];
$ciudad_agente = $resul3[4];
$estado_agente = $resul3[5];
$zonap_agente = $resul3[6];
// SELECT DATOS DEVENGADO EN ENERO
/*$ene = pg_query("select SUM(valsal)
from sno_hsalida s
inner join sno_concepto c
on c.codconc=s.codconc
where s.anocur='2015' and (s.codnom between '0001' and '0005') and s.codper like '%$cedula' and
s.valsal!=0 and (s.codperi='001' or s.codperi='002') and s.tipsal='A' and c.aplarccon='1' and c.codnom='0003';");
$resul4 = pg_fetch_array($ene);
$devengado_ene = $resul4[0];
if ($resul4[0]==NULL)$devengado_ene=0;
else $devengado_ene = $resul4[0];*/
for ($m=12;$m>=1;$m--)
{
$d = $m*2;
if ($d<=9)$cero='00';
else $cero='0';
$codigo_periodo2= $cero.$d;
if ($d==10)$cero='00';
$codigo_periodo_anterior = $d-1;
$codigo_periodo1= $cero.$codigo_periodo_anterior;
$devengado = pg_query("select SUM(valsal)
from sno_hsalida s
inner join sno_concepto c
on c.codconc=s.codconc
where s.anocur='".$anio."' and (s.codnom between '0001' and '0005') and s.codper like '%$cedula' and
s.valsal!=0 and (s.codperi='$codigo_periodo1' or s.codperi='$codigo_periodo2') and s.tipsal='A' and c.aplarccon='1' and c.codnom='0003';");
$resultado_dev = pg_fetch_array($devengado);
$var_dev[$m] = $resultado_dev[0];
}
$acumulado_dev[1] = $var_dev[1] ;
$acumulado_dev[2] = $var_dev[2] + $acumulado_dev[1] ;
$acumulado_dev[3] = $var_dev[3] + $acumulado_dev[2] ;
$acumulado_dev[4] = $var_dev[4] + $acumulado_dev[3];
$acumulado_dev[5] = $var_dev[5] + $acumulado_dev[4];
$acumulado_dev[6] = $var_dev[6] + $acumulado_dev[5];
$acumulado_dev[7] = $var_dev[7] + $acumulado_dev[6];
$acumulado_dev[8] = $var_dev[8] + $acumulado_dev[7];
$acumulado_dev[9] = $var_dev[9] + $acumulado_dev[8];
$acumulado_dev[10] = $var_dev[10] + $acumulado_dev[9];
$acumulado_dev[11] = $var_dev[11] + $acumulado_dev[10];
$acumulado_dev[12] = $var_dev[12] + $acumulado_dev[11];
for ($i=12;$i>=1;$i--)
{
if ($i<=9)$cero='0';
$cod_isr= $cero.$i;
//echo $cod_isr;
$isr = pg_query("select porisr from sno_personalisr where codper like '%$cedula' and codisr='$cod_isr';");
$resultado = pg_fetch_array($isr);
$var[$i] = $resultado[0];
}
// RETENIDO Y RETENIDO ACUMULADO
for ($j=12;$j>=1;$j--)
{
$r = $j*2;
if ($r<=9)$cero='00';
else $cero='0';
$cod_periodo2= $cero.$r;
if ($r==10)$cero='00';
$cod_periodo_anterior = $r-1;
$cod_periodo1= $cero.$cod_periodo_anterior;
//echo $cod_isr;
$retenido = pg_query("select sum(valsal)*-1 from sno_hsalida where anocur='".$anio."' and (codnom between '0001' and '0005') and codconc='0000000102' and
codper like '%$cedula' and valsal!=0 and (codperi='$cod_periodo1' or codperi='$cod_periodo2');");
$resultado_ret = pg_fetch_array($retenido);
$var_ret[$j] = $resultado_ret[0];
}
$acumulado_ret[1] = $var_ret[1] ;
$acumulado_ret[2] = $var_ret[2] + $acumulado_ret[1] ;
$acumulado_ret[3] = $var_ret[3] + $acumulado_ret[2] ;
$acumulado_ret[4] = $var_ret[4] + $acumulado_ret[3];
$acumulado_ret[5] = $var_ret[5] + $acumulado_ret[4];
$acumulado_ret[6] = $var_ret[6] + $acumulado_ret[5];
$acumulado_ret[7] = $var_ret[7] + $acumulado_ret[6];
$acumulado_ret[8] = $var_ret[8] + $acumulado_ret[7];
$acumulado_ret[9] = $var_ret[9] + $acumulado_ret[8];
$acumulado_ret[10] = $var_ret[10] + $acumulado_ret[9];
$acumulado_ret[11] = $var_ret[11] + $acumulado_ret[10];
$acumulado_ret[12] = $var_ret[12] + $acumulado_ret[11];
?>
Reporte ARC
| COMPROBANTE DE RETENCIÓN DE A.R.C. |
| DIRECCIÓN DE RECURSOS HUMANOS |
| RELACIÓN DE INGRESOS Y RETENCIONES |
| PERÍODO: 01/01/2015 AL 31/12/2015 |
DATOS DEL TRABAJADOR |
| APELLIDOS Y NOMBRES |
CÉDULA DE IDENTIDAD |
RIF. |
|
|
|
DATOS DEL FUNCIONARIO AUTORIZADO PARA HACER LA RETENCIÓN
| APELLIDOS Y NOMBRES |
CÉDULA DE IDENTIDAD |
RIF. |
|
|
|
DATOS DEL AGENTE DE RETENCIÓN
| PERSONA JURÍDICA -- NOMBRE |
|
| DIRECCIÓN DEL AGENTE DE RETENCIÓN |
RIF. |
|
|
| TELÉFONO |
ZONA POSTAL |
CIUDAD |
ESTADO / DISTRITO |
|
|
|
|
| MES |
DEVENGADO |
DEVENGADO
ACUMULADO |
PORCENTAJE |
RETENIDO |
RETENIDO
ACUMULADO |
| ENE |
|
|
|
|
|
| FEB |
|
|
|
|
|
| MAR |
|
|
|
|
|
| ABR |
|
|
|
|
|
| MAY |
|
|
|
|
|
| JUN |
|
|
|
|
|
| JUL |
|
|
|
|
|
| AGO |
|
|
|
|
|
| SEP |
|
|
|
|
|
| OCT |
|
|
|
|
|
| NOV |
|
|
|
|
|
| DIC |
|
|
|
|
|
_________________________
AGENTE DE RETENCIÓN