$ls_cedper=str_pad(trim($ls_cedper),8,"0",0);
$ls_nomper=$io_report->DS->data["nomper"][$li_i];
$ls_apeper=$io_report->DS->data["apeper"][$li_i];
$ls_codubifis="010108";
$ls_coddecsercar='00193';
$ls_decescsue='04270';
$ls_accadm='0000000';
$ls_sitcar=4;
$ls_presuel='004';
$li_sueper=$io_report->DS->data["sueper"][$li_i];
//$li_sueper=str_replace(".","",trim($li_sueper));
//$li_sueper=str_replace(",",".",trim($li_sueper));
$li_sueper=number_format(trim($li_sueper),2,".","");
$li_sueper=str_pad(trim($li_sueper),12,"0",STR_PAD_LEFT);
$ls_precomp='024';
$lb_valido=$io_report->uf_buscar_conceptos_personal($ls_codper,$ls_codnom,$ls_anio,$ls_peri,$ld_comp,$ld_pripro,$ld_priant,$ld_prihij,$ld_bonvac,$ld_bonagu,$ld_sso,$ld_parfor,$ld_lph);
//$ld_comp=str_replace(".","",$ld_comp);
//$ld_comp=str_replace(",",".",$ld_comp);
$ld_comp=number_format(trim($ld_comp),2,".","");
$ld_comp=str_pad(trim($ld_comp),12,"0",STR_PAD_LEFT);
$ls_relleno1='000000000.00';
$ls_relleno2='000';
$ls_espacios=' ';
$li_row=$li_row+1;
$lo_hoja->write($li_row, 0, "01/07/2007", $lo_datacenter);//Tenia $ls_fecvigen
$lo_hoja->write($li_row, 1, " ".$ls_codorg, $lo_datacenter);
$lo_hoja->write($li_row, 2, " ".$ls_codgrup, $lo_datacenter);
$lo_hoja->write($li_row, 3, " "."0000001", $lo_datacenter);//Tenia $ls_codcarnomina
$lo_hoja->write($li_row, 4, " ".$ls_codubiadm, $lo_datacenter);
$lo_hoja->write($li_row, 5, " ".$ls_codcarnomina, $lo_datacenter);//Tenia $ls_codclase
