&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: Output Parameters: 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] > "_" "DYNAMIC-FUNCTION('getAuftragsAdresse':U IN THIS-PROCEDURE, rowObject.Knr )" "Kunde" ? "x(80)" "character" ? ? ? ? ? ? yes ? no 80 no ? _FldNameList[118] > "_" "(IF rowObject.Faknr <> 0 THEN rowObject.Faknr ELSE rowObject.Aufnr)" "DokNr" ? "zzzzzz9" "Integer" ? ? ? ? ? ? yes ? no 7.2 no ? _FldNameList[119] > "_" "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] > "_" "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: ------------------------------------------------------------------------------*/ 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: 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: 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: 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: 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: 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: 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: 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: 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: 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}