GeMIS_WEB/GUI/d-aufko.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
/* Connected Databases 
          anadat           PROGRESS
*/
&Scoped-define WINDOW-NAME CURRENT-WINDOW
{adecomm/appserv.i}
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS dTables 
/*------------------------------------------------------------------------

  File:  

  Description: from DATA.W - Template For SmartData objects in the ADM

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  Modified:     February 24, 1999
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */



&SCOPED-DEFINE  Tabelle     Aufko
&SCOPED-DEFINE  TabWhere    USE-INDEX Aufko-k1 ~
                            WHERE {&Tabelle}.Firma = tRowObject.Firma ~
                            AND   {&Tabelle}.Aufnr = tRowObject.Aufnr

{ incl/datdefinition.i }

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Global-define DATA-LOGIC-PROCEDURE .p

&Scoped-define PROCEDURE-TYPE SmartDataObject
&Scoped-define DB-AWARE yes

&Scoped-define ADM-SUPPORTED-LINKS Data-Source,Data-Target,Navigation-Target,Update-Target,Commit-Target,Filter-Target


/* Db-Required definitions. */
&IF DEFINED(DB-REQUIRED) = 0 &THEN
    &GLOBAL-DEFINE DB-REQUIRED TRUE
&ENDIF
&GLOBAL-DEFINE DB-REQUIRED-START   &IF {&DB-REQUIRED} &THEN
&GLOBAL-DEFINE DB-REQUIRED-END     &ENDIF


&Scoped-define QUERY-NAME Query-Main

/* Internal Tables (found by Frame, Query & Browse Queries)             */
&Scoped-define INTERNAL-TABLES Aufko

/* Definitions for QUERY Query-Main                                     */
&Scoped-Define ENABLED-FIELDS  Abhol Abh_Rab_Art Abh_Rab_Wert Abh_Text Ablad_Vor Ablad_Vor_Text Adresse1~
 Adresse2 Adresse3 Adresse4 Adresse5 AlsOfferte Aufnr Auf_Datum Auf_Rab_Art~
 Auf_Rab_Wert Auf_Sta Auf_Text Auf_Tot Avis Bar_Betr Bar_Fak Bar_Konto~
 Bar_Skonto Bar_Text BeiFahrer Fahrer Faknr Fak_Art Fak_Datum Fak_FTnr~
 Fak_Knr Fak_KTnr Filiale Firma Frw Fuss_Text1 Fuss_Text2 Fuss_Text3 Geb_Rg~
 Gedruckt Gewicht GG_Berech I_Best Knr Kond Kond_Datum Konto Kopf_Text1~
 Kopf_Text2 Kopf_Text3 Kurs Ku_Grp Lager Lief_Bed Lief_Datum LKW MWSt~
 MWST_Nr Passant Porto Preis_Grp Rabatt Rab_Grp Rueckst Samm_Nr Sk_Ber~
 Tour_Nr1 Tour_Nr2 Transp U_Ref Verbucht Verpack Vertr Wirt_So Wirt_So_Text~
 Wpfl1 Wpfl2 Wpfl3 Wpfl4 Wpfl5 Wpfl6 Wpfl7 Wpfl8 Wpfl9 Wpfl10 Wpfl11 Wpfl12~
 Wust1 Wust2 Wust3 Wust4 Wust5 Wust6 Wust7 Wust8 Wust9 Wust10 Wust11 Wust12~
 WW1 WW2 WW3 WW4 WW5 WW6 WW7 WW8 WW9 WW10 WW11 WW12 Zei_Rab_Art Zei_Rab_Wert~
 Zuschl_Art Zuschl_Wert Kunde DokNr FakturaAdresse cFak_Knr Faktor~
 lGeliefert
&Scoped-define ENABLED-FIELDS-IN-Aufko Abhol Abh_Rab_Art Abh_Rab_Wert ~
Abh_Text Ablad_Vor Ablad_Vor_Text Adresse1 Adresse2 Adresse3 Adresse4 ~
Adresse5 AlsOfferte Aufnr Auf_Datum Auf_Rab_Art Auf_Rab_Wert Auf_Sta ~
Auf_Text Auf_Tot Avis Bar_Betr Bar_Fak Bar_Konto Bar_Skonto Bar_Text ~
BeiFahrer Fahrer Faknr Fak_Art Fak_Datum Fak_FTnr Fak_Knr Fak_KTnr Filiale ~
Firma Frw Fuss_Text1 Fuss_Text2 Fuss_Text3 Geb_Rg Gedruckt Gewicht ~
GG_Berech I_Best Knr Kond Kond_Datum Konto Kopf_Text1 Kopf_Text2 Kopf_Text3 ~
Kurs Ku_Grp Lager Lief_Bed Lief_Datum LKW MWSt MWST_Nr Passant Porto ~
Preis_Grp Rabatt Rab_Grp Rueckst Samm_Nr Sk_Ber Tour_Nr1 Tour_Nr2 Transp ~
U_Ref Verbucht Verpack Vertr Wirt_So Wirt_So_Text Wpfl1 Wpfl2 Wpfl3 Wpfl4 ~
Wpfl5 Wpfl6 Wpfl7 Wpfl8 Wpfl9 Wpfl10 Wpfl11 Wpfl12 Wust1 Wust2 Wust3 Wust4 ~
Wust5 Wust6 Wust7 Wust8 Wust9 Wust10 Wust11 Wust12 WW1 WW2 WW3 WW4 WW5 WW6 ~
WW7 WW8 WW9 WW10 WW11 WW12 Zei_Rab_Art Zei_Rab_Wert Zuschl_Art Zuschl_Wert ~
Faktor lGeliefert 
&Scoped-Define DATA-FIELDS  Abhol Abh_Rab_Art Abh_Rab_Wert Abh_Text Ablad_Vor Ablad_Vor_Text Adresse1~
 Adresse2 Adresse3 Adresse4 Adresse5 AlsOfferte Aufnr Auf_Datum Auf_Rab_Art~
 Auf_Rab_Wert Auf_Sta Auf_Text Auf_Tot Avis Bar_Betr Bar_Fak Bar_Konto~
 Bar_Skonto Bar_Text BeiFahrer Fahrer Faknr Fak_Art Fak_Datum Fak_FTnr~
 Fak_Knr Fak_KTnr Filiale Firma Frw Fuss_Text1 Fuss_Text2 Fuss_Text3 Geb_Rg~
 Gedruckt Gewicht GG_Berech I_Best Knr Kond Kond_Datum Konto Kopf_Text1~
 Kopf_Text2 Kopf_Text3 Kurs Ku_Grp Lager Lief_Bed Lief_Datum LKW MWSt~
 MWST_Nr Passant Porto Preis_Grp Rabatt Rab_Grp Rueckst Samm_Nr Sk_Ber~
 Tour_Nr1 Tour_Nr2 Transp U_Ref Verbucht Verpack Vertr Wirt_So Wirt_So_Text~
 Wpfl1 Wpfl2 Wpfl3 Wpfl4 Wpfl5 Wpfl6 Wpfl7 Wpfl8 Wpfl9 Wpfl10 Wpfl11 Wpfl12~
 Wust1 Wust2 Wust3 Wust4 Wust5 Wust6 Wust7 Wust8 Wust9 Wust10 Wust11 Wust12~
 WW1 WW2 WW3 WW4 WW5 WW6 WW7 WW8 WW9 WW10 WW11 WW12 Zei_Rab_Art Zei_Rab_Wert~
 Zuschl_Art Zuschl_Wert Kunde DokNr FakturaAdresse cFak_Knr Faktor~
 lGeliefert
&Scoped-define DATA-FIELDS-IN-Aufko Abhol Abh_Rab_Art Abh_Rab_Wert Abh_Text ~
Ablad_Vor Ablad_Vor_Text Adresse1 Adresse2 Adresse3 Adresse4 Adresse5 ~
AlsOfferte Aufnr Auf_Datum Auf_Rab_Art Auf_Rab_Wert Auf_Sta Auf_Text ~
Auf_Tot Avis Bar_Betr Bar_Fak Bar_Konto Bar_Skonto Bar_Text BeiFahrer ~
Fahrer Faknr Fak_Art Fak_Datum Fak_FTnr Fak_Knr Fak_KTnr Filiale Firma Frw ~
Fuss_Text1 Fuss_Text2 Fuss_Text3 Geb_Rg Gedruckt Gewicht GG_Berech I_Best ~
Knr Kond Kond_Datum Konto Kopf_Text1 Kopf_Text2 Kopf_Text3 Kurs Ku_Grp ~
Lager Lief_Bed Lief_Datum LKW MWSt MWST_Nr Passant Porto Preis_Grp Rabatt ~
Rab_Grp Rueckst Samm_Nr Sk_Ber Tour_Nr1 Tour_Nr2 Transp U_Ref Verbucht ~
Verpack Vertr Wirt_So Wirt_So_Text Wpfl1 Wpfl2 Wpfl3 Wpfl4 Wpfl5 Wpfl6 ~
Wpfl7 Wpfl8 Wpfl9 Wpfl10 Wpfl11 Wpfl12 Wust1 Wust2 Wust3 Wust4 Wust5 Wust6 ~
Wust7 Wust8 Wust9 Wust10 Wust11 Wust12 WW1 WW2 WW3 WW4 WW5 WW6 WW7 WW8 WW9 ~
WW10 WW11 WW12 Zei_Rab_Art Zei_Rab_Wert Zuschl_Art Zuschl_Wert Faktor ~
lGeliefert 
&Scoped-Define MANDATORY-FIELDS  Firma Knr
&Scoped-Define APPLICATION-SERVICE 
&Scoped-Define ASSIGN-LIST   rowObject.Adresse1 = Aufko.Adresse[1]~
  rowObject.Adresse2 = Aufko.Adresse[2]~
  rowObject.Adresse3 = Aufko.Adresse[3]~
  rowObject.Adresse4 = Aufko.Adresse[4]~
  rowObject.Adresse5 = Aufko.Adresse[5]~
  rowObject.Fuss_Text1 = Aufko.Fuss_Text[1]~
  rowObject.Fuss_Text2 = Aufko.Fuss_Text[2]~
  rowObject.Fuss_Text3 = Aufko.Fuss_Text[3]~
  rowObject.Kopf_Text1 = Aufko.Kopf_Text[1]~
  rowObject.Kopf_Text2 = Aufko.Kopf_Text[2]~
  rowObject.Kopf_Text3 = Aufko.Kopf_Text[3]  rowObject.Wpfl1 = Aufko.Wpfl[1]~
  rowObject.Wpfl2 = Aufko.Wpfl[2]  rowObject.Wpfl3 = Aufko.Wpfl[3]~
  rowObject.Wpfl4 = Aufko.Wpfl[4]  rowObject.Wpfl5 = Aufko.Wpfl[5]~
  rowObject.Wpfl6 = Aufko.Wpfl[6]  rowObject.Wpfl7 = Aufko.Wpfl[7]~
  rowObject.Wpfl8 = Aufko.Wpfl[8]  rowObject.Wpfl9 = Aufko.Wpfl[9]~
  rowObject.Wpfl10 = Aufko.Wpfl[10]  rowObject.Wpfl11 = Aufko.Wpfl[11]~
  rowObject.Wpfl12 = Aufko.Wpfl[12]  rowObject.Wust1 = Aufko.Wust[1]~
  rowObject.Wust2 = Aufko.Wust[2]  rowObject.Wust3 = Aufko.Wust[3]~
  rowObject.Wust4 = Aufko.Wust[4]  rowObject.Wust5 = Aufko.Wust[5]~
  rowObject.Wust6 = Aufko.Wust[6]  rowObject.Wust7 = Aufko.Wust[7]~
  rowObject.Wust8 = Aufko.Wust[8]  rowObject.Wust9 = Aufko.Wust[9]~
  rowObject.Wust10 = Aufko.Wust[10]  rowObject.Wust11 = Aufko.Wust[11]~
  rowObject.Wust12 = Aufko.Wust[12]  rowObject.WW1 = Aufko.WW[1]~
  rowObject.WW2 = Aufko.WW[2]  rowObject.WW3 = Aufko.WW[3]~
  rowObject.WW4 = Aufko.WW[4]  rowObject.WW5 = Aufko.WW[5]~
  rowObject.WW6 = Aufko.WW[6]  rowObject.WW7 = Aufko.WW[7]~
  rowObject.WW8 = Aufko.WW[8]  rowObject.WW9 = Aufko.WW[9]~
  rowObject.WW10 = Aufko.WW[10]  rowObject.WW11 = Aufko.WW[11]~
  rowObject.WW12 = Aufko.WW[12]
&Scoped-Define DATA-FIELD-DEFS "d-aufko.i"
&Scoped-Define DATA-TABLE-NO-UNDO NO-UNDO
&Scoped-define QUERY-STRING-Query-Main FOR EACH Aufko NO-LOCK INDEXED-REPOSITION
{&DB-REQUIRED-START}
&Scoped-define OPEN-QUERY-Query-Main OPEN QUERY Query-Main FOR EACH Aufko NO-LOCK INDEXED-REPOSITION.
{&DB-REQUIRED-END}
&Scoped-define TABLES-IN-QUERY-Query-Main Aufko
&Scoped-define FIRST-TABLE-IN-QUERY-Query-Main Aufko


/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME


/* ************************  Function Prototypes ********************** */

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD fetchRowIdent dTables  _DB-REQUIRED
FUNCTION fetchRowIdent RETURNS CHARACTER
    ( INPUT pcRowIdent AS CHARACTER,
    INPUT pcViewColList AS CHARACTER)  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getAuftragsAdresse dTables  _DB-REQUIRED
FUNCTION getAuftragsAdresse RETURNS CHARACTER
    ( ipKnr AS INT )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getCurrentRecid dTables  _DB-REQUIRED
FUNCTION getCurrentRecid RETURNS RECID
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getCurrentRowModified dTables  _DB-REQUIRED
FUNCTION getCurrentRowModified RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getQueryBuffer dTables  _DB-REQUIRED
FUNCTION getQueryBuffer RETURNS HANDLE
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD openQuery dTables  _DB-REQUIRED
FUNCTION openQuery RETURNS LOGICAL
    ( /* parameter-definitions */ )  FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}


/* ***********************  Control Definitions  ********************** */

{&DB-REQUIRED-START}

/* Query definitions                                                    */
&ANALYZE-SUSPEND
DEFINE QUERY Query-Main FOR 
    Aufko SCROLLING.
&ANALYZE-RESUME
{&DB-REQUIRED-END}


/* ************************  Frame Definitions  *********************** */


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartDataObject
   Allow: Query
   Frames: 0
   Add Fields to: Neither
   Other Settings: PERSISTENT-ONLY COMPILE APPSERVER DB-AWARE
 */

/* This procedure should always be RUN PERSISTENT.  Report the error,  */
/* then cleanup and return.                                            */
IF NOT THIS-PROCEDURE:PERSISTENT THEN 
DO:
    MESSAGE "{&FILE-NAME} should only be RUN PERSISTENT.":U
        VIEW-AS ALERT-BOX ERROR BUTTONS OK.
    RETURN.
END.

&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW dTables ASSIGN
         HEIGHT             = 1.62
         WIDTH              = 85.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB dTables 
/* ************************* Included-Libraries *********************** */

{src/adm2/data.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW dTables
  VISIBLE,,RUN-PERSISTENT                                               */
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME


/* Setting information for Queries and Browse Widgets fields            */

&ANALYZE-SUSPEND _QUERY-BLOCK QUERY Query-Main
/* Query rebuild information for SmartDataObject Query-Main
     _TblList          = "AnaDat.Aufko"
     _Options          = "NO-LOCK INDEXED-REPOSITION"
     _FldNameList[1]   > AnaDat.Aufko.Abhol
"Abhol" "Abhol" ? ? "logical" ? ? ? ? ? ? yes ? no 5.4 yes ?
     _FldNameList[2]   > AnaDat.Aufko.Abh_Rab_Art
"Abh_Rab_Art" "Abh_Rab_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 12.8 yes ?
     _FldNameList[3]   > AnaDat.Aufko.Abh_Rab_Wert
"Abh_Rab_Wert" "Abh_Rab_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 14.8 yes ?
     _FldNameList[4]   > AnaDat.Aufko.Abh_Text
"Abh_Text" "Abh_Text" ? ? "character" ? ? ? ? ? ? yes ? no 500 yes ?
     _FldNameList[5]   > AnaDat.Aufko.Ablad_Vor
"Ablad_Vor" "Ablad_Vor" ? ? "integer" ? ? ? ? ? ? yes ? no 9.8 yes ?
     _FldNameList[6]   > AnaDat.Aufko.Ablad_Vor_Text
"Ablad_Vor_Text" "Ablad_Vor_Text" ? ? "character" ? ? ? ? ? ? yes ? no 40 yes ?
     _FldNameList[7]   > AnaDat.Aufko.Adresse[1]
"Adresse[1]" "Adresse1" ? ? "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[8]   > AnaDat.Aufko.Adresse[2]
"Adresse[2]" "Adresse2" ? ? "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[9]   > AnaDat.Aufko.Adresse[3]
"Adresse[3]" "Adresse3" ? ? "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[10]   > AnaDat.Aufko.Adresse[4]
"Adresse[4]" "Adresse4" ? ? "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[11]   > AnaDat.Aufko.Adresse[5]
"Adresse[5]" "Adresse5" ? ? "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[12]   > AnaDat.Aufko.AlsOfferte
"AlsOfferte" "AlsOfferte" ? ? "logical" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[13]   > AnaDat.Aufko.Aufnr
"Aufnr" "Aufnr" ? ? "integer" ? ? ? ? ? ? yes ? no 7.2 yes ?
     _FldNameList[14]   > AnaDat.Aufko.Auf_Datum
"Auf_Datum" "Auf_Datum" "Auftr. Datum" ? "date" ? ? ? ? ? ? yes ? no 10.8 yes ?
     _FldNameList[15]   > AnaDat.Aufko.Auf_Rab_Art
"Auf_Rab_Art" "Auf_Rab_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 12.2 yes ?
     _FldNameList[16]   > AnaDat.Aufko.Auf_Rab_Wert
"Auf_Rab_Wert" "Auf_Rab_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 14.2 yes ?
     _FldNameList[17]   > AnaDat.Aufko.Auf_Sta
"Auf_Sta" "Auf_Sta" ? ? "integer" ? ? ? ? ? ? yes ? no 7.6 yes ?
     _FldNameList[18]   > AnaDat.Aufko.Auf_Text
"Auf_Text" "Auf_Text" ? ? "character" ? ? ? ? ? ? yes ? no 500 yes ?
     _FldNameList[19]   > AnaDat.Aufko.Auf_Tot
"Auf_Tot" "Auf_Tot" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[20]   > AnaDat.Aufko.Avis
"Avis" "Avis" ? ? "integer" ? ? ? ? ? ? yes ? no 4 yes ?
     _FldNameList[21]   > AnaDat.Aufko.Bar_Betr
"Bar_Betr" "Bar_Betr" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[22]   > AnaDat.Aufko.Bar_Fak
"Bar_Fak" "Bar_Fak" ? ? "logical" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[23]   > AnaDat.Aufko.Bar_Konto
"Bar_Konto" "Bar_Konto" ? ? "character" ? ? ? ? ? ? yes ? no 12 yes ?
     _FldNameList[24]   > AnaDat.Aufko.Bar_Skonto
"Bar_Skonto" "Bar_Skonto" ? ? "decimal" ? ? ? ? ? ? yes ? no 11.2 yes ?
     _FldNameList[25]   > AnaDat.Aufko.Bar_Text
"Bar_Text" "Bar_Text" ? ? "character" ? ? ? ? ? ? yes ? no 500 yes ?
     _FldNameList[26]   > AnaDat.Aufko.BeiFahrer
"BeiFahrer" "BeiFahrer" ? ? "integer" ? ? ? ? ? ? yes ? no 9 yes ?
     _FldNameList[27]   > AnaDat.Aufko.Fahrer
"Fahrer" "Fahrer" ? ? "integer" ? ? ? ? ? ? yes ? no 6 yes ?
     _FldNameList[28]   > AnaDat.Aufko.Faknr
"Faknr" "Faknr" ? ? "integer" ? ? ? ? ? ? yes ? no 7.2 yes ?
     _FldNameList[29]   > AnaDat.Aufko.Fak_Art
"Fak_Art" "Fak_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 7.4 yes ?
     _FldNameList[30]   > AnaDat.Aufko.Fak_Datum
"Fak_Datum" "Fak_Datum" "Fak. Datum" ? "date" ? ? ? ? ? ? yes ? no 11 yes ?
     _FldNameList[31]   > AnaDat.Aufko.Fak_FTnr
"Fak_FTnr" "Fak_FTnr" ? ? "integer" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[32]   > AnaDat.Aufko.Fak_Knr
"Fak_Knr" "Fak_Knr" ? ? "integer" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[33]   > AnaDat.Aufko.Fak_KTnr
"Fak_KTnr" "Fak_KTnr" ? ? "integer" ? ? ? ? ? ? yes ? no 9.4 yes ?
     _FldNameList[34]   > AnaDat.Aufko.Filiale
"Filiale" "Filiale" ? ? "integer" ? ? ? ? ? ? yes ? no 5.2 yes ?
     _FldNameList[35]   > AnaDat.Aufko.Firma
"Firma" "Firma" ? ? "character" ? ? ? ? ? ? yes ? yes 8 yes ?
     _FldNameList[36]   > AnaDat.Aufko.Frw
"Frw" "Frw" ? ? "character" ? ? ? ? ? ? yes ? no 3.4 yes ?
     _FldNameList[37]   > AnaDat.Aufko.Fuss_Text[1]
"Fuss_Text[1]" "Fuss_Text1" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[38]   > AnaDat.Aufko.Fuss_Text[2]
"Fuss_Text[2]" "Fuss_Text2" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[39]   > AnaDat.Aufko.Fuss_Text[3]
"Fuss_Text[3]" "Fuss_Text3" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[40]   > AnaDat.Aufko.Geb_Rg
"Geb_Rg" "Geb_Rg" ? ? "logical" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[41]   > AnaDat.Aufko.Gedruckt
"Gedruckt" "Gedruckt" ? ? "logical" ? ? ? ? ? ? yes ? no 8.8 yes ?
     _FldNameList[42]   > AnaDat.Aufko.Gewicht
"Gewicht" "Gewicht" ? ? "decimal" ? ? ? ? ? ? yes ? no 11.6 yes ?
     _FldNameList[43]   > AnaDat.Aufko.GG_Berech
"GG_Berech" "GG_Berech" ? ? "logical" ? ? ? ? ? ? yes ? no 11.2 yes ?
     _FldNameList[44]   > AnaDat.Aufko.I_Best
"I_Best" "I_Best" "Ihre Bestellung" "x(30)" "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[45]   > AnaDat.Aufko.Knr
"Knr" "Knr" ? ? "integer" ? ? ? ? ? ? yes ? yes 7.2 yes ?
     _FldNameList[46]   > AnaDat.Aufko.Kond
"Kond" "Kond" ? ? "integer" ? ? ? ? ? ? yes ? no 5 yes ?
     _FldNameList[47]   > AnaDat.Aufko.Kond_Datum
"Kond_Datum" "Kond_Datum" "Kond. Datum" ? "date" ? ? ? ? ? ? yes ? no 12.4 yes ?
     _FldNameList[48]   > AnaDat.Aufko.Konto
"Konto" "Konto" ? ? "character" ? ? ? ? ? ? yes ? no 12 yes ?
     _FldNameList[49]   > AnaDat.Aufko.Kopf_Text[1]
"Kopf_Text[1]" "Kopf_Text1" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[50]   > AnaDat.Aufko.Kopf_Text[2]
"Kopf_Text[2]" "Kopf_Text2" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[51]   > AnaDat.Aufko.Kopf_Text[3]
"Kopf_Text[3]" "Kopf_Text3" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[52]   > AnaDat.Aufko.Kurs
"Kurs" "Kurs" ? ? "decimal" ? ? ? ? ? ? yes ? no 9.6 yes ?
     _FldNameList[53]   > AnaDat.Aufko.Ku_Grp
"Ku_Grp" "Ku_Grp" ? ? "integer" ? ? ? ? ? ? yes ? no 7.2 yes ?
     _FldNameList[54]   > AnaDat.Aufko.Lager
"Lager" "Lager" ? ? "integer" ? ? ? ? ? ? yes ? no 5.4 yes ?
     _FldNameList[55]   > AnaDat.Aufko.Lief_Bed
"Lief_Bed" "Lief_Bed" ? ? "integer" ? ? ? ? ? ? yes ? no 8.4 yes ?
     _FldNameList[56]   > AnaDat.Aufko.Lief_Datum
"Lief_Datum" "Lief_Datum" "Lief. Datum" ? "date" ? ? ? ? ? ? yes ? no 10.8 yes ?
     _FldNameList[57]   > AnaDat.Aufko.LKW
"LKW" "LKW" ? ? "integer" ? ? ? ? ? ? yes ? no 4.8 yes ?
     _FldNameList[58]   > AnaDat.Aufko.MWSt
"MWSt" "MWSt" ? ? "integer" ? ? ? ? ? ? yes ? no 6 yes ?
     _FldNameList[59]   > AnaDat.Aufko.MWST_Nr
"MWST_Nr" "MWST_Nr" ? ? "character" ? ? ? ? ? ? yes ? no 15 yes ?
     _FldNameList[60]   > AnaDat.Aufko.Passant
"Passant" "Passant" ? ? "logical" ? ? ? ? ? ? yes ? no 7.6 yes ?
     _FldNameList[61]   > AnaDat.Aufko.Porto
"Porto" "Porto" ? ? "decimal" ? ? ? ? ? ? yes ? no 7.8 yes ?
     _FldNameList[62]   > AnaDat.Aufko.Preis_Grp
"Preis_Grp" "Preis_Grp" ? ? "integer" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[63]   > AnaDat.Aufko.Rabatt
"Rabatt" "Rabatt" ? ? "decimal" ? ? ? ? ? ? yes ? no 6.4 yes ?
     _FldNameList[64]   > AnaDat.Aufko.Rab_Grp
"Rab_Grp" "Rab_Grp" ? ? "integer" ? ? ? ? ? ? yes ? no 8.6 yes ?
     _FldNameList[65]   > AnaDat.Aufko.Rueckst
"Rueckst" "Rueckst" ? ? "logical" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[66]   > AnaDat.Aufko.Samm_Nr
"Samm_Nr" "Samm_Nr" ? ? "integer" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[67]   > AnaDat.Aufko.Sk_Ber
"Sk_Ber" "Sk_Ber" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[68]   > AnaDat.Aufko.Tour_Nr1
"Tour_Nr1" "Tour_Nr1" ? ? "integer" ? ? ? ? ? ? yes ? no 9 yes ?
     _FldNameList[69]   > AnaDat.Aufko.Tour_Nr2
"Tour_Nr2" "Tour_Nr2" ? ? "character" ? ? ? ? ? ? yes ? no 20 yes ?
     _FldNameList[70]   > AnaDat.Aufko.Transp
"Transp" "Transp" ? ? "decimal" ? ? ? ? ? ? yes ? no 7.8 yes ?
     _FldNameList[71]   > AnaDat.Aufko.U_Ref
"U_Ref" "U_Ref" "Unsere Ref" "x(30)" "character" ? ? ? ? ? ? yes ? no 30 yes ?
     _FldNameList[72]   > AnaDat.Aufko.Verbucht
"Verbucht" "Verbucht" ? ? "logical" ? ? ? ? ? ? yes ? no 8.6 yes ?
     _FldNameList[73]   > AnaDat.Aufko.Verpack
"Verpack" "Verpack" ? ? "decimal" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[74]   > AnaDat.Aufko.Vertr
"Vertr" "Vertr" ? ? "integer" ? ? ? ? ? ? yes ? no 4.4 yes ?
     _FldNameList[75]   > AnaDat.Aufko.Wirt_So
"Wirt_So" "Wirt_So" ? ? "integer" ? ? ? ? ? ? yes ? no 7.6 yes ?
     _FldNameList[76]   > AnaDat.Aufko.Wirt_So_Text
"Wirt_So_Text" "Wirt_So_Text" ? ? "character" ? ? ? ? ? ? yes ? no 40 yes ?
     _FldNameList[77]   > AnaDat.Aufko.Wpfl[1]
"Wpfl[1]" "Wpfl1" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[78]   > AnaDat.Aufko.Wpfl[2]
"Wpfl[2]" "Wpfl2" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[79]   > AnaDat.Aufko.Wpfl[3]
"Wpfl[3]" "Wpfl3" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[80]   > AnaDat.Aufko.Wpfl[4]
"Wpfl[4]" "Wpfl4" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[81]   > AnaDat.Aufko.Wpfl[5]
"Wpfl[5]" "Wpfl5" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[82]   > AnaDat.Aufko.Wpfl[6]
"Wpfl[6]" "Wpfl6" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[83]   > AnaDat.Aufko.Wpfl[7]
"Wpfl[7]" "Wpfl7" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[84]   > AnaDat.Aufko.Wpfl[8]
"Wpfl[8]" "Wpfl8" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[85]   > AnaDat.Aufko.Wpfl[9]
"Wpfl[9]" "Wpfl9" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[86]   > AnaDat.Aufko.Wpfl[10]
"Wpfl[10]" "Wpfl10" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[87]   > AnaDat.Aufko.Wpfl[11]
"Wpfl[11]" "Wpfl11" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[88]   > AnaDat.Aufko.Wpfl[12]
"Wpfl[12]" "Wpfl12" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[89]   > AnaDat.Aufko.Wust[1]
"Wust[1]" "Wust1" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[90]   > AnaDat.Aufko.Wust[2]
"Wust[2]" "Wust2" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[91]   > AnaDat.Aufko.Wust[3]
"Wust[3]" "Wust3" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[92]   > AnaDat.Aufko.Wust[4]
"Wust[4]" "Wust4" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[93]   > AnaDat.Aufko.Wust[5]
"Wust[5]" "Wust5" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[94]   > AnaDat.Aufko.Wust[6]
"Wust[6]" "Wust6" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[95]   > AnaDat.Aufko.Wust[7]
"Wust[7]" "Wust7" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[96]   > AnaDat.Aufko.Wust[8]
"Wust[8]" "Wust8" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[97]   > AnaDat.Aufko.Wust[9]
"Wust[9]" "Wust9" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[98]   > AnaDat.Aufko.Wust[10]
"Wust[10]" "Wust10" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[99]   > AnaDat.Aufko.Wust[11]
"Wust[11]" "Wust11" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[100]   > AnaDat.Aufko.Wust[12]
"Wust[12]" "Wust12" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[101]   > AnaDat.Aufko.WW[1]
"WW[1]" "WW1" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[102]   > AnaDat.Aufko.WW[2]
"WW[2]" "WW2" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[103]   > AnaDat.Aufko.WW[3]
"WW[3]" "WW3" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[104]   > AnaDat.Aufko.WW[4]
"WW[4]" "WW4" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[105]   > AnaDat.Aufko.WW[5]
"WW[5]" "WW5" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[106]   > AnaDat.Aufko.WW[6]
"WW[6]" "WW6" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[107]   > AnaDat.Aufko.WW[7]
"WW[7]" "WW7" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[108]   > AnaDat.Aufko.WW[8]
"WW[8]" "WW8" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[109]   > AnaDat.Aufko.WW[9]
"WW[9]" "WW9" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[110]   > AnaDat.Aufko.WW[10]
"WW[10]" "WW10" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[111]   > AnaDat.Aufko.WW[11]
"WW[11]" "WW11" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[112]   > AnaDat.Aufko.WW[12]
"WW[12]" "WW12" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[113]   > AnaDat.Aufko.Zei_Rab_Art
"Zei_Rab_Art" "Zei_Rab_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 12 yes ?
     _FldNameList[114]   > AnaDat.Aufko.Zei_Rab_Wert
"Zei_Rab_Wert" "Zei_Rab_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[115]   > AnaDat.Aufko.Zuschl_Art
"Zuschl_Art" "Zuschl_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 10.2 yes ?
     _FldNameList[116]   > AnaDat.Aufko.Zuschl_Wert
"Zuschl_Wert" "Zuschl_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 12.2 yes ?
     _FldNameList[117]   > "_<CALC>"
"DYNAMIC-FUNCTION('getAuftragsAdresse':U IN THIS-PROCEDURE, rowObject.Knr )" "Kunde" ? "x(80)" "character" ? ? ? ? ? ? yes ? no 80 no ?
     _FldNameList[118]   > "_<CALC>"
"(IF rowObject.Faknr <> 0 THEN rowObject.Faknr ELSE rowObject.Aufnr)" "DokNr" ? "zzzzzz9" "Integer" ? ? ? ? ? ? yes ? no 7.2 no ?
     _FldNameList[119]   > "_<CALC>"
"IF (rowObject.Knr <> rowObject.Fak_Knr) THEN (DYNAMIC-FUNCTION('getAdressAnzeige':U, rowObject.Fak_Knr)) ELSE ('')" "FakturaAdresse" "Faktura-Adresse" "x(80)" "character" ? ? ? ? ? ? yes ? no 80 no ?
     _FldNameList[120]   > "_<CALC>"
"IF (rowObject.Knr = rowObject.Fak_Knr) THEN ('') ELSE (STRING(rowObject.Fak_Knr,'999999'))" "cFak_Knr" ? "x(06)" "character" ? ? ? ? ? ? yes ? no 6 no ?
     _FldNameList[121]   > AnaDat.Aufko.Faktor
"Faktor" "Faktor" ? ? "integer" ? ? ? ? ? ? yes ? no 6 yes ?
     _FldNameList[122]   > AnaDat.Aufko.lGeliefert
"lGeliefert" "lGeliefert" ? ? "logical" ? ? ? ? ? ? yes ? no 8.2 yes ?
     _Design-Parent    is WINDOW dTables @ ( 1.14 , 2.6 )
*/  /* QUERY Query-Main */
&ANALYZE-RESUME

 


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK dTables 


/* ***************************  Main Block  *************************** */

{ incl/datmainblock.i }

SUBSCRIBE TO 'refreshAufko' ANYWHERE RUN-PROCEDURE 'refreshRow'  NO-ERROR.
SUBSCRIBE TO 'reopenAufko'  ANYWHERE RUN-PROCEDURE 'REOPENQUERY' NO-ERROR.
SUBSCRIBE TO 'GET_CURRENT_AUFKO' ANYWHERE NO-ERROR.
    
fDesc = FALSE.
cSort = 'Lief_Datum'.
fOpen = FALSE.

    &IF DEFINED(UIB_IS_RUNNING) <> 0 &THEN          
        RUN initializeObject.
    &ENDIF

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DATA.CALCULATE dTables  DATA.CALCULATE _DB-REQUIRED
PROCEDURE DATA.CALCULATE :
    /*------------------------------------------------------------------------------
      Purpose:     Calculate all the Calculated Expressions found in the
                   SmartDataObject.
      Parameters:  <none>
    ------------------------------------------------------------------------------*/
    ASSIGN 
        rowObject.cFak_Knr       = (IF (rowObject.Knr = rowObject.Fak_Knr) THEN ('') ELSE (STRING(rowObject.Fak_Knr,'999999')))
        rowObject.DokNr          = ((IF rowObject.Faknr <> 0 THEN rowObject.Faknr ELSE rowObject.Aufnr))
        rowObject.FakturaAdresse = (IF (rowObject.Knr <> rowObject.Fak_Knr) THEN (DYNAMIC-FUNCTION('getAdressAnzeige':U, rowObject.Fak_Knr)) ELSE (''))
        rowObject.Kunde          = (DYNAMIC-FUNCTION('getAuftragsAdresse':U IN THIS-PROCEDURE, rowObject.Knr ))
        .

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dataAvailable dTables  _DB-REQUIRED
PROCEDURE dataAvailable :
/*------------------------------------------------------------------------------
  Purpose:     Super Override
  Parameters:  
  Notes:       
------------------------------------------------------------------------------*/

    { incl/datdataavailable.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI dTables  _DEFAULT-DISABLE
PROCEDURE disable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     DISABLE the User Interface
      Parameters:  <none>
      Notes:       Here we clean-up the user-interface by deleting
                   dynamic widgets we have created and/or hide 
                   frames.  This procedure is usually called when
                   we are ready to "clean-up" after running.
    ------------------------------------------------------------------------------*/
    /* Hide all frames. */
    IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GET_CURRENT_AUFKO dTables  _DB-REQUIRED
PROCEDURE GET_CURRENT_AUFKO :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF OUTPUT PARAMETER opRecid    AS RECID        NO-UNDO.
    DEF OUTPUT PARAMETER opAufnr    AS INT          NO-UNDO.

    DEF VAR iRecid AS RECID NO-UNDO.
    
    DEF BUFFER bAufko FOR Aufko.
    
    ASSIGN  
        opRecid = 0
        opAufnr = 0.
    opRecid = DYNAMIC-FUNCTION('getCurrentRecid':U) NO-ERROR.
    IF opRecid = ? OR
        OPRecid = 0 THEN RETURN.
       
    FIND bAufko NO-LOCK WHERE RECID(bAufko) = opRecid.
    opAufnr = bAufko.Aufnr.
    RELEASE bAufko.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE INAKTIVIEREN dTables  _DB-REQUIRED
PROCEDURE INAKTIVIEREN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/datinaktivieren.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject dTables  _DB-REQUIRED
PROCEDURE initializeObject :
    /*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE lRetVal AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE lDesc   AS LOGICAL   NO-UNDO.
    DEFINE VARIABLE cFeld   AS CHARACTER NO-UNDO.
    
    { incl/datinitialize.i }

    lRetVal = DYNAMIC-FUNCTION ('getAnzeigeAufko':U, 'AUFTRAG', OUTPUT cFeld, OUTPUT lDesc ) NO-ERROR.
    IF NOT lRetVal THEN cFeld = cSort.
    
    IF cFeld = cSort THEN fDesc = NOT lDesc.
    ELSE                  fDesc = lDesc.
    
    RUN SET_SORT ( cFeld ).
    
    fOpen = TRUE.
    DYNAMIC-FUNCTION ('openQuery':U) NO-ERROR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE isUpdateActive dTables  _DB-REQUIRED
PROCEDURE isUpdateActive :
    /*------------------------------------------------------------------------------
      Purpose:     Super Override
      Parameters:  
      Notes:       
    ------------------------------------------------------------------------------*/

    DEFINE INPUT-OUTPUT PARAMETER plActive AS LOGICAL NO-UNDO.

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER( INPUT-OUTPUT plActive).

/* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE REAKTIVIEREN dTables  _DB-REQUIRED
PROCEDURE REAKTIVIEREN :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/datreaktivieren.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE REOPENQUERY dTables  _DB-REQUIRED
PROCEDURE REOPENQUERY :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipRecid AS RECID        NO-UNDO.
    
    DEF BUFFER bAufko FOR Aufko.
    
    DYNAMIC-FUNCTION('openQuery':U) NO-ERROR.
    
    FIND bAufko NO-LOCK WHERE RECID(bAufko) = ipRecid.
    DYNAMIC-FUNCTION('fetchRowIdent':U, STRING(ROWID(bAufko)), ? ) NO-ERROR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE REPOS_TABELLE dTables  _DB-REQUIRED
PROCEDURE REPOS_TABELLE :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/datrepos.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SET_FILTER dTables  _DB-REQUIRED
PROCEDURE SET_FILTER :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/datsetfilter.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SET_OPENFLAG dTables  _DB-REQUIRED
PROCEDURE SET_OPENFLAG :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    { incl/datsetopenflag.i }

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SET_SORT dTables  _DB-REQUIRED
PROCEDURE SET_SORT :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO.

    { incl/datsetsort.i }
    
    lRetVal = DYNAMIC-FUNCTION ('setAnzeigeAufko':U, 'AUFTRAG', cSort, fDesc) NO-ERROR.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

/* ************************  Function Implementations ***************** */

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION fetchRowIdent dTables  _DB-REQUIRED
FUNCTION fetchRowIdent RETURNS CHARACTER
    ( INPUT pcRowIdent AS CHARACTER,
    INPUT pcViewColList AS CHARACTER) :
    /*------------------------------------------------------------------------------
      Purpose:     Super Override
      Notes:       
    ------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RETURN SUPER( INPUT pcRowIdent, INPUT pcViewColList ).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getAuftragsAdresse dTables  _DB-REQUIRED
FUNCTION getAuftragsAdresse RETURNS CHARACTER
    ( ipKnr AS INT ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    DEF VAR cAdresse AS CHAR NO-UNDO.
    DEF VAR xAdresse AS CHAR NO-UNDO.
    DEF VAR ii       AS INT  NO-UNDO.

    IF rowObject.Adresse1 = ''   AND
        rowObject.Adresse2 = ''   AND
        rowObject.Adresse3 = ''   AND
        rowObject.Adresse4 = ''   AND
        rowObject.Adresse5 = ''   THEN 
    DO:
        cAdresse = DYNAMIC-FUNCTION('getAdressAnzeige':U, ipKnr ) NO-ERROR.
    END.
    ELSE 
    DO:
        DO ii = 5 TO 1 BY -1:
            CASE ii:
                WHEN 5 THEN 
                    xAdresse = rowObject.Adresse5.
                WHEN 4 THEN 
                    xAdresse = rowObject.Adresse4.
                WHEN 3 THEN 
                    xAdresse = rowObject.Adresse3.
                WHEN 2 THEN 
                    xAdresse = rowObject.Adresse2.
                WHEN 1 THEN 
                    xAdresse = rowObject.Adresse1.
            END CASE.
                
            IF xAdresse = '' THEN NEXT.
            cAdresse = xAdresse
                + (IF cAdresse = '' THEN '' ELSE ', ')
                + cAdresse.
        END.
    END.

    RETURN cAdresse.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getCurrentRecid dTables  _DB-REQUIRED
FUNCTION getCurrentRecid RETURNS RECID
    ( /* parameter-definitions */ ) :
/*------------------------------------------------------------------------------
  Purpose:  
    Notes:  
------------------------------------------------------------------------------*/

    { incl/datgetcurrentrecid.i }

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getCurrentRowModified dTables  _DB-REQUIRED
FUNCTION getCurrentRowModified RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:     Super Override
      Notes:       
    ------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RETURN SUPER( ).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getQueryBuffer dTables  _DB-REQUIRED
FUNCTION getQueryBuffer RETURNS HANDLE
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RETURN BUFFER rowObject:HANDLE.

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION openQuery dTables  _DB-REQUIRED
FUNCTION openQuery RETURNS LOGICAL
    ( /* parameter-definitions */ ) :
    /*------------------------------------------------------------------------------
      Purpose:     Super Override
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR Felder  AS CHAR NO-UNDO.
    DEF VAR Inhalt  AS CHAR NO-UNDO.
    DEF VAR ix      AS INT  NO-UNDO.
    DEF VAR cFeld   AS CHAR NO-UNDO.
    
    DEF VAR iLager  AS INT  NO-UNDO.
    DEF VAR iAufSta AS INT  NO-UNDO.

    IF NOT fOpen THEN RETURN FALSE.
    
    iLager  = DYNAMIC-FUNCTION('getLager':U  IN hKontainer) NO-ERROR.
    iAufSta = DYNAMIC-FUNCTION('getAufSta':U IN hKontainer) NO-ERROR.

    /*     IF NOT fOpen THEN RETURN FALSE. */

    xWhere  = ''.
    xSort   = ''.
    xString = ''.
    Felder = DYNAMIC-FUNCTION('getForeignFields':U)    NO-ERROR.
    Inhalt = DYNAMIC-FUNCTION('getForeignValues':U)    NO-ERROR.

    /*     ix     = LOOKUP('Feld', Felder, ',') / 2. */
    /*     cFeld  = ENTRY (ix    , Inhalt, CHR(01)). */

    xWhere  = SUBSTITUTE('Aufko.Firma = &1 AND Aufko.Auf_Sta = &2 AND Aufko.Lager = &3 ',
        QUOTER(Firma), iAufSta, iLager ).

    { incl/datopenquery.i }

    IF xWhere  <> '' THEN DYNAMIC-FUNCTION('setQueryWhere':U , INPUT xWhere ).
    IF xString <> '' THEN DYNAMIC-FUNCTION('setQueryString':U, INPUT xString).
    IF xSort   <> '' THEN DYNAMIC-FUNCTION('setQuerySort':U  , INPUT xSort  ).

    RETURN SUPER( ).

END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

{&DB-REQUIRED-END}