# Categorías de material
#------------------------------------------------------------------------------
  my (%categorias_material)= ('-1' => ' Seleccione Categoría del Material');
        {
         my $ref = $dbh_m->selectall_arrayref( " SELECT id_categoria_mat, nombre" .
                                         " FROM categorias_material "  );
  foreach (@$ref) {$categorias_material{${$_}[0]} = ${$_}[1] }
        }
  my (@categorias_material) = sort { $categorias_material{$a} cmp
                           $categorias_material{$b}} keys %categorias_material;


#   Materiales
#------------------------------------------------------------------------------------------------------------------------------

my (%materiales)=  ('-1' => ' Seleccione Material');
        {
        my $ref = $dbh ->selectall_arrayref( " SELECT id_categoria_mat, id_material, nombre" .
                                        " FROM materiales ");
  foreach (@$ref) {$materiales{${$_}[0] . '-' . ${$_}[1]} = ${$_}[2] }
         }
 my (@materiales) = sort {$materiales{$a} cmp $materiales{$b}}  keys %materiales;



# EN MI FORMULARIO desplayo los siguientes CAMPOS
#------------------------------------------------------------------------------------------------------------------------------

   TR( td({-align=>"left",-colspan=>2 , -height=>'40'},
             b("Categoría: "),
              scrolling_list(-name=>"id_categoria_mat",
                             -id=>"id_categoria_mat",
                             -override=>1,
                             -default=>$id_categoria_mat,
                             -size=>1,
                             -value=>\@categorias_material,
                             -labels=>\%categorias_material,
                  -class=>'texto_form',
                             -onChange=>"llenar_materiales_segun categoria(this.value)" )       )),
                   
      TR( td({-align=>"left",-colspan=>2, -height=>'45'},
                    b("Material: " ),
          scrolling_list(-name=>'id_material',
                         -id=>'id_material',
                          -default=>$id_material,
                          -override=>1,
                          -size=>1,
                          -value=>\@materiales,
                          -class=>'texto_form',
                          -labels=>\%materiales ) )),