FUNCTION localidades(chb)
 DEFINE klocalidad SMALLINT,kdescripcion CHAR(30),
     plocalidad ui.combobox,
     chb CHAR(1)
  IF chb = 1 THEN   
     LET plocalidad = ui.combobox.forname("formonly.sucid")
  ELSE
      IF chb = "3" THEN
         LET plocalidad = ui.combobox.forname("formonly.bodega")
      END IF
      IF chb = "2" THEN
      DISPLAY "este valor viene: ",plocalidad
         LET plocalidad = ui.combobox.forname("formonly.xsucid")
      END IF
  END IF
  CALL plocalidad.clear()

  IF chb = 1 THEN
     DECLARE busca_local CURSOR FOR
       SELECT UNIQUE a.sucid,"("||CAST(a.sucid AS VARCHAR(2))||")"||a.sucnombre FROM sucursales a
         
  FOREACH busca_local INTO klocalidad,kdescripcion
   CALL plocalidad.additem(klocalidad,kdescripcion)
  END FOREACH
 
  ELSE
     DECLARE busca_local2 CURSOR FOR
       SELECT UNIQUE a.sucid,"("||CAST(a.sucid AS VARCHAR(2))||")"||a.sucnombre FROM sucursales a

   
  FOREACH busca_local2 INTO klocalidad,kdescripcion
   CALL plocalidad.additem(klocalidad,kdescripcion)
  END FOREACH
  
  END IF  

END FUNCTION