//Obtenemos los Datos para la Tabla
$mes=str_pad($mes,2,"0",str_pad_left);
// generar un select para el retorno de dato cesantes
$query = "SELECT mp.idccodso, (so.scrcapep || ' ' || so.scrcapem || ' ' || so.scrcnomb) AS nombres, so.scrcndni AS dni, mp.monto, so.scrccoso
FROM mpublico mp INNER JOIN scrsocio so USING (idccodso)
WHERE mp.marca='0' AND (so.scrccoso<>'00034' AND so.scrccoso<>'00035')
AND so.scrctiso IN ('00041','00036') AND mp.periodo = '".$mes.$anno."'";
$rss = $cn->SelectLimit($query);
$nrs=$rss->RecordCount();
//Generacion de la Tabla
$mes1= $mes.substr($anno,2);
// Generar Estructura de Cesantes
$def = array(
array("tpv_codig", "C", 8),
array("tpv_insti", "C", 1),
array("tpv_plani", "C", 2),
array("tpv_nombr", "C", 40),
array("tpv_monto", "N", 12,2)
);
// verifica si se puede crear cesantes
if (!dbase_create('c:/cesa'.$mes1.'.dbf', $def)) {
echo "Error, no se ha podido crear la base de datos\n";
}
$db = dbase_open('c:/cesa'.$mes1.'.dbf', 2);
if ($db){
while (!$rss->EOF)
{
dbase_add_record($db, array($rss->Fields("dni"),'1','2',$rss->Fields("nombres"),$rss->Fields("monto"));
$rss->MoveNext();
}
dbase_close($db);
}