DEFINE VARIABLE sAktiv     AS LOG       NO-UNDO INIT FALSE.
DEFINE VARIABLE AdFirma    AS CHARACTER FORMAT "x(04)" NO-UNDO.
DEFINE VARIABLE FBFirma    AS CHARACTER FORMAT "x(04)" NO-UNDO.
DEFINE VARIABLE Firma      AS CHARACTER FORMAT "x(04)" NO-UNDO.
DEFINE VARIABLE Progname   AS CHARACTER NO-UNDO.
DEFINE VARIABLE btnOK      AS LOG       INIT FALSE NO-UNDO.
DEFINE VARIABLE hKontainer AS HANDLE    NO-UNDO.