DEF VAR fOpen       AS LOG                      NO-UNDO INIT FALSE.
DEF VAR sAktiv      AS LOG                      NO-UNDO INIT FALSE.
DEF VAR AdFirma     AS CHAR FORMAT "x(04)"      NO-UNDO.
DEF VAR FBFirma     AS CHAR FORMAT "x(04)"      NO-UNDO.
DEF VAR Firma       AS CHAR FORMAT "x(04)"      NO-UNDO.
DEF VAR Progname    AS CHAR                     NO-UNDO.
DEF VAR cSort       AS CHAR                     NO-UNDO.
DEF VAR fDesc       AS LOG  INIT FALSE          NO-UNDO.
DEF VAR xSort       AS CHAR                     NO-UNDO.
DEF VAR xWhere      AS CHAR                     NO-UNDO.
DEF VAR xString     AS CHAR                     NO-UNDO.
DEF VAR fData       AS LOG  INIT FALSE          NO-UNDO.
DEF VAR cRowid      AS CHAR                     NO-UNDO.
DEF VAR hKontainer  AS HANDLE                   NO-UNDO.
DEF VAR hDaten      AS HANDLE                   NO-UNDO.
DEF VAR cFilterFeld AS CHAR                     NO-UNDO.
DEF VAR cFilterWert AS CHAR                     NO-UNDO.
DEF VAR lAdmin      AS LOG                      NO-UNDO.

DEF TEMP-TABLE tRowObject   NO-UNDO  LIKE {&Tabelle}.

DEF TEMP-TABLE tTabelle    LIKE {&Tabelle}.