$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;
