...
        execute statement 'alter table ARTIKEL add tmp_utf varchar(10) CHARACTER SET UTF8';
        COMMIT;
        update ARTIKEL set tmp_utf = DFORM where 1=1;
        COMMIT;
        execute statement 'alter table ARTIKEL drop DFORM';
        COMMIT;
        execute statement 'alter table ARTIKEL add DFORM char(3)  CHARACTER SET UTF8';
        COMMIT;
        execute statement 'alter table ARTIKEL alter DFORM position 3';
        COMMIT;
        update ARTIKEL set DFORM=substring(tmp_utf from 1 for 3) where 1=1;
        COMMIT;
        execute statement 'alter table ARTIKEL drop tmp_utf';
        COMMIT;

        execute statement 'alter table ARTIKEL add tmp_utf varchar(20) CHARACTER SET UTF8';
        COMMIT;
        update ARTIKEL set tmp_utf = PEINHEIT where 1=1;
        COMMIT;
        execute statement 'alter table ARTIKEL drop PEINHEIT';
        COMMIT;
        execute statement 'alter table ARTIKEL add PEINHEIT varchar(10)  CHARACTER SET UTF8';
        COMMIT;
        execute statement 'alter table ARTIKEL alter PEINHEIT position 4';
        COMMIT;
        update ARTIKEL set PEINHEIT=substring(tmp_utf from 1 for 10) where 1=1;
        COMMIT;
        execute statement 'alter table ARTIKEL drop tmp_utf';
        COMMIT;

        for select 'DROP INDEX '||trim(i.rdb$index_name) from rdb$indices i  LEFT JOIN rdb$index_segments isg ON (isg.rdb$index_name = i.rdb$index_name)  WHERE (i.rdb$relation_name = 'ASB_FAIL')and(rdb$field_name = 'NAME')   into :SQL do begin ibec_Progress(SQL); execute statement :SQL;  end
        execute statement 'alter table ASB_FAIL add tmp_utf varchar(200) CHARACTER SET UTF8';
        COMMIT;
        update ASB_FAIL set tmp_utf = NAME where 1=1;
        COMMIT;
        execute statement 'alter table ASB_FAIL drop NAME';
        COMMIT;
        execute statement 'alter table ASB_FAIL add NAME varchar(50)  CHARACTER SET UTF8';
        COMMIT;
        execute statement 'alter table ASB_FAIL alter NAME position 2';
        COMMIT;
        update ASB_FAIL set NAME=substring(tmp_utf from 1 for 50) where 1=1;
        COMMIT;
        execute statement 'alter table ASB_FAIL drop tmp_utf';
        COMMIT;

  ....

CREATE TABLE ARTIKEL (
    ARTIKELCODE                  VARCHAR(20) NOT NULL,
    GENERICID                    INTEGER DEFAULT 0,
    NAME                         VARCHAR(100) CHARACTER SET UTF8,
    DFORM                        CHAR(30) CHARACTER SET UTF8,
    PEINHEIT                     VARCHAR(10) CHARACTER SET UTF8,
    PACKSIZE                     INTEGER DEFAULT 0,
    HERSTELLER                   VARCHAR(20),
    STRENGTH                     VARCHAR(30),
    FLAVOUR                      VARCHAR(10),
    BARCODE                      VARCHAR(20),
    CD                           INTEGER DEFAULT 0,
    ISTANZAHL                    INTEGER,
    FREIANZAHL                   INTEGER,
    MINMENGE                     INTEGER,
    MAXMENGE                     INTEGER,
    GNAME                        VARCHAR(100) CHARACTER SET UTF8,
    MINLAGERTEMP                 INTEGER,
    MAXLAGERTEMP                 INTEGER,
    FLAGS                        VARCHAR(11),
    MAXSCHACHT                   INTEGER,
    MINSCHACHT                   INTEGER DEFAULT 0,
    MINPACKMD                    INTEGER DEFAULT 0,
    AHT                          FLOAT DEFAULT 0.0,
    SAISON                       VARCHAR(3) DEFAULT '',
    UNFIT                        VARCHAR(11) DEFAULT 'M' NOT NULL,
    BREITE                       INTEGER,
    HOEHE                        INTEGER,
    TIEFE                        INTEGER,
    GEWICHT                      FLOAT,
    DELETEFLAG                   VARCHAR(1),
    STOCKLOCATIONID              VARCHAR(50) CHARACTER SET UTF8,
    MACHINELOCATION              VARCHAR(50) CHARACTER SET UTF8,
    SERIALNUMBERSINCEEXPIRYDATE  TIMESTAMP DEFAULT '01.01.1980',
    LASTUPDATE                   TIMESTAMP DEFAULT '01.01.1980',
    SBTYPE                       SMALLINT,
    SBDZ                         FLOAT,
    MAXSCHACHTBER                FLOAT,
    LAST_MS_CHANGE               TIMESTAMP,
    R$ID                         BIGINT
);

CREATE OR ALTER VIEW VW_ARTIKEL_PG(
    NAME,
    FORM,
    PACKSIZE,
    ARTIKELCODE,
    ISTANZAHL,
    FREIANZAHL,
    FLAGS,
    GENERICKEY,
    MAXSCHACHT,
    MINMENGE,
    MAXMENGE,
    MINLAGERTEMP,
    MAXLAGERTEMP,
    BARCODE,
    CD,
    AHT,
    UNFIT,
    DELETEFLAG,
    SERIALNUMBERSINCEEXPIRYDATE)
AS
select
    case coalesce(a.GName,'')
      when ('') then a.Name
      else a.GName
    end || ' ' || coalesce(a.STRENGTH,''),
    a.DForm As Form,
    a.Packsize,
    a.artikelcode,
    a.IstAnzahl,
    a.FreiAnzahl,
    a.Flags,
    g.generickey,
    MaxSchacht,
    a.MinMenge,a.MaxMenge,a.MinLagerTemp,a.MaxLagerTemp,a.barcode,
    coalesce(a.CD,0),
    a.Aht,
    a.unfit,
    a.deleteflag,
    A.serialnumbersinceexpirydate
  from ARTIKEL a, GENERICS g
    where a.Artikelcode not in('','-1','0','?') and
          a.Artikelcode not starting with '@'   and
          a.genericid = g.id
;