GeMIS_WEB/GUI/d-abholko.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 ---                                       */

DEF VAR FwAufSta    AS INT                      NO-UNDO.
DEF VAR FwFakArt    AS INT                      NO-UNDO.

&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 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 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 Lager
&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 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 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 Lager 
&Scoped-Define DATA-FIELDS  Abhol Abh_Rab_Art Abh_Rab_Wert Abh_Text Ablad_Vor Ablad_Vor_Text Adresse1~
 Adresse2 Adresse3 Adresse4 Adresse5 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 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 Lager
&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 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 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 Lager 
&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-abholko.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 getCurrentAufnr dTables  _DB-REQUIRED
FUNCTION getCurrentAufnr RETURNS INTEGER
  ( /* parameter-definitions */ )  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 getKundenadresse dTables  _DB-REQUIRED
FUNCTION getKundenadresse 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 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              = 68.2.
/* 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.Aufnr
"Aufnr" "Aufnr" ? ? "integer" ? ? ? ? ? ? yes ? no 7.2 yes ?
     _FldNameList[13]   > AnaDat.Aufko.Auf_Datum
"Auf_Datum" "Auf_Datum" ? ? "date" ? ? ? ? ? ? yes ? no 10.8 yes ?
     _FldNameList[14]   > AnaDat.Aufko.Auf_Rab_Art
"Auf_Rab_Art" "Auf_Rab_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 12.2 yes ?
     _FldNameList[15]   > AnaDat.Aufko.Auf_Rab_Wert
"Auf_Rab_Wert" "Auf_Rab_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 14.2 yes ?
     _FldNameList[16]   > AnaDat.Aufko.Auf_Sta
"Auf_Sta" "Auf_Sta" ? ? "integer" ? ? ? ? ? ? yes ? no 7.6 yes ?
     _FldNameList[17]   > AnaDat.Aufko.Auf_Text
"Auf_Text" "Auf_Text" ? ? "character" ? ? ? ? ? ? yes ? no 500 yes ?
     _FldNameList[18]   > AnaDat.Aufko.Auf_Tot
"Auf_Tot" "Auf_Tot" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[19]   > AnaDat.Aufko.Avis
"Avis" "Avis" ? ? "integer" ? ? ? ? ? ? yes ? no 4 yes ?
     _FldNameList[20]   > AnaDat.Aufko.Bar_Betr
"Bar_Betr" "Bar_Betr" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[21]   > AnaDat.Aufko.Bar_Fak
"Bar_Fak" "Bar_Fak" ? ? "logical" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[22]   > AnaDat.Aufko.Bar_Konto
"Bar_Konto" "Bar_Konto" ? ? "character" ? ? ? ? ? ? yes ? no 12 yes ?
     _FldNameList[23]   > AnaDat.Aufko.Bar_Skonto
"Bar_Skonto" "Bar_Skonto" ? ? "decimal" ? ? ? ? ? ? yes ? no 11.2 yes ?
     _FldNameList[24]   > AnaDat.Aufko.Bar_Text
"Bar_Text" "Bar_Text" ? ? "character" ? ? ? ? ? ? yes ? no 500 yes ?
     _FldNameList[25]   > AnaDat.Aufko.BeiFahrer
"BeiFahrer" "BeiFahrer" ? ? "integer" ? ? ? ? ? ? yes ? no 9 yes ?
     _FldNameList[26]   > AnaDat.Aufko.Fahrer
"Fahrer" "Fahrer" ? ? "integer" ? ? ? ? ? ? yes ? no 6 yes ?
     _FldNameList[27]   > AnaDat.Aufko.Faknr
"Faknr" "Faknr" ? ? "integer" ? ? ? ? ? ? yes ? no 7.2 yes ?
     _FldNameList[28]   > AnaDat.Aufko.Fak_Art
"Fak_Art" "Fak_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 7.4 yes ?
     _FldNameList[29]   > AnaDat.Aufko.Fak_Datum
"Fak_Datum" "Fak_Datum" ? ? "date" ? ? ? ? ? ? yes ? no 11 yes ?
     _FldNameList[30]   > AnaDat.Aufko.Fak_FTnr
"Fak_FTnr" "Fak_FTnr" ? ? "integer" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[31]   > AnaDat.Aufko.Fak_Knr
"Fak_Knr" "Fak_Knr" ? ? "integer" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[32]   > AnaDat.Aufko.Fak_KTnr
"Fak_KTnr" "Fak_KTnr" ? ? "integer" ? ? ? ? ? ? yes ? no 9.4 yes ?
     _FldNameList[33]   > AnaDat.Aufko.Filiale
"Filiale" "Filiale" ? ? "integer" ? ? ? ? ? ? yes ? no 5.2 yes ?
     _FldNameList[34]   > AnaDat.Aufko.Firma
"Firma" "Firma" ? ? "character" ? ? ? ? ? ? yes ? yes 8 yes ?
     _FldNameList[35]   > AnaDat.Aufko.Frw
"Frw" "Frw" ? ? "character" ? ? ? ? ? ? yes ? no 3.4 yes ?
     _FldNameList[36]   > AnaDat.Aufko.Fuss_Text[1]
"Fuss_Text[1]" "Fuss_Text1" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[37]   > AnaDat.Aufko.Fuss_Text[2]
"Fuss_Text[2]" "Fuss_Text2" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[38]   > AnaDat.Aufko.Fuss_Text[3]
"Fuss_Text[3]" "Fuss_Text3" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[39]   > AnaDat.Aufko.Geb_Rg
"Geb_Rg" "Geb_Rg" ? ? "logical" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[40]   > AnaDat.Aufko.Gedruckt
"Gedruckt" "Gedruckt" ? ? "logical" ? ? ? ? ? ? yes ? no 8.8 yes ?
     _FldNameList[41]   > AnaDat.Aufko.Gewicht
"Gewicht" "Gewicht" ? ? "decimal" ? ? ? ? ? ? yes ? no 11.6 yes ?
     _FldNameList[42]   > AnaDat.Aufko.GG_Berech
"GG_Berech" "GG_Berech" ? ? "logical" ? ? ? ? ? ? yes ? no 11.2 yes ?
     _FldNameList[43]   > AnaDat.Aufko.I_Best
"I_Best" "I_Best" ? ? "character" ? ? ? ? ? ? yes ? no 20 yes ?
     _FldNameList[44]   > AnaDat.Aufko.Knr
"Knr" "Knr" ? ? "integer" ? ? ? ? ? ? yes ? yes 7.2 yes ?
     _FldNameList[45]   > AnaDat.Aufko.Kond
"Kond" "Kond" ? ? "integer" ? ? ? ? ? ? yes ? no 5 yes ?
     _FldNameList[46]   > AnaDat.Aufko.Kond_Datum
"Kond_Datum" "Kond_Datum" ? ? "date" ? ? ? ? ? ? yes ? no 12.4 yes ?
     _FldNameList[47]   > AnaDat.Aufko.Konto
"Konto" "Konto" ? ? "character" ? ? ? ? ? ? yes ? no 12 yes ?
     _FldNameList[48]   > AnaDat.Aufko.Kopf_Text[1]
"Kopf_Text[1]" "Kopf_Text1" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[49]   > AnaDat.Aufko.Kopf_Text[2]
"Kopf_Text[2]" "Kopf_Text2" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[50]   > AnaDat.Aufko.Kopf_Text[3]
"Kopf_Text[3]" "Kopf_Text3" ? ? "character" ? ? ? ? ? ? yes ? no 70 yes ?
     _FldNameList[51]   > AnaDat.Aufko.Kurs
"Kurs" "Kurs" ? ? "decimal" ? ? ? ? ? ? yes ? no 9.6 yes ?
     _FldNameList[52]   > AnaDat.Aufko.Ku_Grp
"Ku_Grp" "Ku_Grp" ? ? "integer" ? ? ? ? ? ? yes ? no 7.2 yes ?
     _FldNameList[53]   > AnaDat.Aufko.Lief_Bed
"Lief_Bed" "Lief_Bed" ? ? "integer" ? ? ? ? ? ? yes ? no 8.4 yes ?
     _FldNameList[54]   > AnaDat.Aufko.Lief_Datum
"Lief_Datum" "Lief_Datum" ? ? "date" ? ? ? ? ? ? yes ? no 10.8 yes ?
     _FldNameList[55]   > AnaDat.Aufko.LKW
"LKW" "LKW" ? ? "integer" ? ? ? ? ? ? yes ? no 4.8 yes ?
     _FldNameList[56]   > AnaDat.Aufko.MWSt
"MWSt" "MWSt" ? ? "integer" ? ? ? ? ? ? yes ? no 6 yes ?
     _FldNameList[57]   > AnaDat.Aufko.MWST_Nr
"MWST_Nr" "MWST_Nr" ? ? "character" ? ? ? ? ? ? yes ? no 15 yes ?
     _FldNameList[58]   > AnaDat.Aufko.Passant
"Passant" "Passant" ? ? "logical" ? ? ? ? ? ? yes ? no 7.6 yes ?
     _FldNameList[59]   > AnaDat.Aufko.Porto
"Porto" "Porto" ? ? "decimal" ? ? ? ? ? ? yes ? no 7.8 yes ?
     _FldNameList[60]   > AnaDat.Aufko.Preis_Grp
"Preis_Grp" "Preis_Grp" ? ? "integer" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[61]   > AnaDat.Aufko.Rabatt
"Rabatt" "Rabatt" ? ? "decimal" ? ? ? ? ? ? yes ? no 6.4 yes ?
     _FldNameList[62]   > AnaDat.Aufko.Rab_Grp
"Rab_Grp" "Rab_Grp" ? ? "integer" ? ? ? ? ? ? yes ? no 8.6 yes ?
     _FldNameList[63]   > AnaDat.Aufko.Rueckst
"Rueckst" "Rueckst" ? ? "logical" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[64]   > AnaDat.Aufko.Samm_Nr
"Samm_Nr" "Samm_Nr" ? ? "integer" ? ? ? ? ? ? yes ? no 9.2 yes ?
     _FldNameList[65]   > AnaDat.Aufko.Sk_Ber
"Sk_Ber" "Sk_Ber" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[66]   > AnaDat.Aufko.Tour_Nr1
"Tour_Nr1" "Tour_Nr1" ? ? "integer" ? ? ? ? ? ? yes ? no 9 yes ?
     _FldNameList[67]   > AnaDat.Aufko.Tour_Nr2
"Tour_Nr2" "Tour_Nr2" ? ? "character" ? ? ? ? ? ? yes ? no 20 yes ?
     _FldNameList[68]   > AnaDat.Aufko.Transp
"Transp" "Transp" ? ? "decimal" ? ? ? ? ? ? yes ? no 7.8 yes ?
     _FldNameList[69]   > AnaDat.Aufko.U_Ref
"U_Ref" "U_Ref" ? ? "character" ? ? ? ? ? ? yes ? no 20 yes ?
     _FldNameList[70]   > AnaDat.Aufko.Verbucht
"Verbucht" "Verbucht" ? ? "logical" ? ? ? ? ? ? yes ? no 8.6 yes ?
     _FldNameList[71]   > AnaDat.Aufko.Verpack
"Verpack" "Verpack" ? ? "decimal" ? ? ? ? ? ? yes ? no 8 yes ?
     _FldNameList[72]   > AnaDat.Aufko.Vertr
"Vertr" "Vertr" ? ? "integer" ? ? ? ? ? ? yes ? no 4.4 yes ?
     _FldNameList[73]   > AnaDat.Aufko.Wirt_So
"Wirt_So" "Wirt_So" ? ? "integer" ? ? ? ? ? ? yes ? no 7.6 yes ?
     _FldNameList[74]   > AnaDat.Aufko.Wirt_So_Text
"Wirt_So_Text" "Wirt_So_Text" ? ? "character" ? ? ? ? ? ? yes ? no 40 yes ?
     _FldNameList[75]   > AnaDat.Aufko.Wpfl[1]
"Wpfl[1]" "Wpfl1" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[76]   > AnaDat.Aufko.Wpfl[2]
"Wpfl[2]" "Wpfl2" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[77]   > AnaDat.Aufko.Wpfl[3]
"Wpfl[3]" "Wpfl3" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[78]   > AnaDat.Aufko.Wpfl[4]
"Wpfl[4]" "Wpfl4" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[79]   > AnaDat.Aufko.Wpfl[5]
"Wpfl[5]" "Wpfl5" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[80]   > AnaDat.Aufko.Wpfl[6]
"Wpfl[6]" "Wpfl6" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[81]   > AnaDat.Aufko.Wpfl[7]
"Wpfl[7]" "Wpfl7" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[82]   > AnaDat.Aufko.Wpfl[8]
"Wpfl[8]" "Wpfl8" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[83]   > AnaDat.Aufko.Wpfl[9]
"Wpfl[9]" "Wpfl9" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[84]   > AnaDat.Aufko.Wpfl[10]
"Wpfl[10]" "Wpfl10" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[85]   > AnaDat.Aufko.Wpfl[11]
"Wpfl[11]" "Wpfl11" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[86]   > AnaDat.Aufko.Wpfl[12]
"Wpfl[12]" "Wpfl12" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[87]   > AnaDat.Aufko.Wust[1]
"Wust[1]" "Wust1" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[88]   > AnaDat.Aufko.Wust[2]
"Wust[2]" "Wust2" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[89]   > AnaDat.Aufko.Wust[3]
"Wust[3]" "Wust3" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[90]   > AnaDat.Aufko.Wust[4]
"Wust[4]" "Wust4" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[91]   > AnaDat.Aufko.Wust[5]
"Wust[5]" "Wust5" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[92]   > AnaDat.Aufko.Wust[6]
"Wust[6]" "Wust6" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[93]   > AnaDat.Aufko.Wust[7]
"Wust[7]" "Wust7" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[94]   > AnaDat.Aufko.Wust[8]
"Wust[8]" "Wust8" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[95]   > AnaDat.Aufko.Wust[9]
"Wust[9]" "Wust9" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[96]   > AnaDat.Aufko.Wust[10]
"Wust[10]" "Wust10" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[97]   > AnaDat.Aufko.Wust[11]
"Wust[11]" "Wust11" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[98]   > AnaDat.Aufko.Wust[12]
"Wust[12]" "Wust12" ? ? "decimal" ? ? ? ? ? ? yes ? no 10.4 yes ?
     _FldNameList[99]   > AnaDat.Aufko.WW[1]
"WW[1]" "WW1" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[100]   > AnaDat.Aufko.WW[2]
"WW[2]" "WW2" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[101]   > AnaDat.Aufko.WW[3]
"WW[3]" "WW3" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[102]   > AnaDat.Aufko.WW[4]
"WW[4]" "WW4" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[103]   > AnaDat.Aufko.WW[5]
"WW[5]" "WW5" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[104]   > AnaDat.Aufko.WW[6]
"WW[6]" "WW6" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[105]   > AnaDat.Aufko.WW[7]
"WW[7]" "WW7" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[106]   > AnaDat.Aufko.WW[8]
"WW[8]" "WW8" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[107]   > AnaDat.Aufko.WW[9]
"WW[9]" "WW9" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[108]   > AnaDat.Aufko.WW[10]
"WW[10]" "WW10" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[109]   > AnaDat.Aufko.WW[11]
"WW[11]" "WW11" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[110]   > AnaDat.Aufko.WW[12]
"WW[12]" "WW12" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[111]   > AnaDat.Aufko.Zei_Rab_Art
"Zei_Rab_Art" "Zei_Rab_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 12 yes ?
     _FldNameList[112]   > AnaDat.Aufko.Zei_Rab_Wert
"Zei_Rab_Wert" "Zei_Rab_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 14 yes ?
     _FldNameList[113]   > AnaDat.Aufko.Zuschl_Art
"Zuschl_Art" "Zuschl_Art" ? ? "integer" ? ? ? ? ? ? yes ? no 10.2 yes ?
     _FldNameList[114]   > AnaDat.Aufko.Zuschl_Wert
"Zuschl_Wert" "Zuschl_Wert" ? ? "decimal" ? ? ? ? ? ? yes ? no 12.2 yes ?
     _FldNameList[115]   > "_<CALC>"
"DYNAMIC-FUNCTION('getKundenadresse':U IN THIS-PROCEDURE, rowObject.Knr)" "Kunde" "Kunde" "x(60)" "character" ? ? ? ? ? ? yes ? no 60 no ?
     _FldNameList[116]   > "_<CALC>"
"DYNAMIC-FUNCTION('getDokNr':U, RowObject.Aufnr )" "DokNr" "DokNr" "9999999" "character" ? ? ? ? ? ? yes ? no 7 no ?
     _FldNameList[117]   > AnaDat.Aufko.Lager
"Lager" "Lager" ? ? "integer" ? ? ? ? ? ? yes ? no 5.4 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 }
    
    FwAufSta = DYNAMIC-FUNCTION('getAbholAufstatus':U)  NO-ERROR.
    FwFakArt = DYNAMIC-FUNCTION('getAbholFakart':U)     NO-ERROR.

    SUBSCRIBE TO 'GET_CURRENT_ABHOLKO' ANYWHERE NO-ERROR.
    SUBSCRIBE TO 'refreshAbholKo'      ANYWHERE RUN-PROCEDURE 'refreshRow'  NO-ERROR.

    &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.DokNr = (DYNAMIC-FUNCTION('getDokNr':U, RowObject.Aufnr ))
         rowObject.Kunde = (DYNAMIC-FUNCTION('getKundenadresse':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_ABHOLKO dTables  _DB-REQUIRED
PROCEDURE GET_CURRENT_ABHOLKO :
/*------------------------------------------------------------------------------
  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:       
------------------------------------------------------------------------------*/

    { incl/datinitialize.i }

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 REFRESH_AUFKOPF dTables  _DB-REQUIRED
PROCEDURE REFRESH_AUFKOPF :
/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    RUN refreshRow.

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:       
------------------------------------------------------------------------------*/

    { incl/datsetsort.i }

END PROCEDURE.

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

{&DB-REQUIRED-END}

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

{&DB-REQUIRED-START}

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

    fData = TRUE.
    RUN dataAvailable ('SAME').
    
    FIND FIRST tRowObject.

    RETURN tRowObject.Aufnr.

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:  
------------------------------------------------------------------------------*/

    fData = TRUE.
    RUN dataAvailable ('SAME').
    
    FIND FIRST tRowObject.
    FIND Aufko NO-LOCK USE-INDEX Aufko-k1
            WHERE Aufko.Firma = tRowObject.Firma
            AND   Aufko.Aufnr = tRowObject.Aufnr NO-ERROR.

    RETURN (IF AVAILABLE Aufko THEN RECID(Aufko) ELSE ?).

END FUNCTION.

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

{&DB-REQUIRED-END}

{&DB-REQUIRED-START}

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getKundenadresse dTables  _DB-REQUIRED
FUNCTION getKundenadresse RETURNS CHARACTER
  ( ipKnr AS INT ) :
/*------------------------------------------------------------------------------
  Purpose:  
    Notes:  
------------------------------------------------------------------------------*/
    DEF VAR cAdresse        AS CHAR                     NO-UNDO.
    
    cAdresse = FILL('?', 20).

    FIND Adresse NO-LOCK
            WHERE Adresse.Firma = AdFirma
            AND   Adresse.Knr   = ipKnr NO-ERROR.
    IF NOT AVAILABLE Adresse THEN RETURN cAdresse.
    
    IF RowObject.Adresse1 = '' AND
       RowObject.Adresse2 = '' AND
       RowObject.Adresse3 = '' AND
       RowObject.Adresse4 = '' AND
       RowObject.Adresse5 = '' THEN cAdresse = Adresse.Anzeig_Br.
    ELSE cAdresse = TRIM(RowObject.Adresse1 + ' '
                       + RowObject.Adresse2 + ' '
                       + RowObject.Adresse3 + ' '
                       + RowObject.Adresse4 + ' '
                       + RowObject.Adresse5).
    RETURN cAdresse.

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.

/*     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  = 'Aufko.Firma   = ' + QUOTER(Firma)    + ' AND '
            + 'Aufko.Auf_Sta = ' + STRING(FwAufSta) + ' '.   

/*     xString = 'FOR EACH Debop ' + xSort + 'WHERE '                      */
/*             + 'Debop.Firma = "' + Firma + '" AND '                      */
/*             + 'Debop.Knr = ' + STRING(Knr) + ' '                        */
/*             + 'NO-LOCK BY Debop.FakDat DESCENDING INDEXED-REPOSITION '. */

    { 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}