$lo_hoja->write($li_row,3,'Antes del 13 de Julio de 1995',$lo_encabezado); $li_row=$li_row+1; $li_totrow=$io_report->rs_data->RecordCount(); $subtotalper=0; $subtotalmon=0; $ls_codcomaux=""; $ls_codcataux=""; $total=0; $totalpersonas=0; while(!$io_report->rs_data->EOF) { $ls_codcom=$io_report->rs_data->fields["codcom"]; $ls_dencom=$io_report->rs_data->fields["descom"]; $ls_codcat=$io_report->rs_data->fields["codcat"]; $ls_dencat=strtoupper($io_report->rs_data->fields["descat"]); $lb_valido2=$io_report->uf_asignacion_componente_rango($ls_codcom,$ls_codran,$ls_codcat,'1'); $li_asignacion=$io_report->rs_data_detalle->RecordCount(); if ($ls_codcomaux!=$ls_codcom) { if ($ls_codcomaux!="") { $li_row=$li_row+3; $lo_hoja->write($li_row,0,"SUB TOTAL COMPONENTE ".$ls_dencomaux,$lo_dataleft); $lo_hoja->write($li_row+1,0,"Nro Personas",$lo_dataleft2); $lo_hoja->write($li_row+2,0,$subtotalper,$lo_dataleft2); $li_col=$li_col+1; $lo_hoja->write($li_row+1,1,"Monto Bs.",$lo_dataleft2); $lo_hoja->write($li_row+2,1,$subtotalmon,$lo_dataleft2); $li_col=$li_col+1; $total=$total+$subtotalmon; $totalpersonas=$totalpersonas+$subtotalper;