ÿÿCHHVBScriptEngineÿþÿ (Allgemein)ÿþÿ(Deklarationen)ÿþÿ'(Deklarationen) ÿþÿÿc'Remark: Digital Data - CTK Oberfläche in der WinLine FAKT, zur Steuerung der Beleg Exporte aus der WinLine (Zusatzfenster). ' ---------------------------------------------------------------------------- ' Copyright (c) 2021 by Digital Data GmbH ' ' Digital Data GmbH " Ludwig-Rinn-Strasse 16 " D-35452 Heuchelheim ' Tel.: 0641/202360 " E-Mail: info-flow(at)digitaldata.works ' ---------------------------------------------------------------------------- ' Creation Date / Author: 15.07.2021 / MK ' Version Date / Editor: 06.07.2023 / MK ' Version Number: 3.2.0.0 On Error Resume Next '########## get parameter ######### 'Necessary to get parameters in the code. Do not change! params = MParameters '################################## '######## declare variables ####### Dim GUID, PersonalAccountVars, TimeVars, DocVars, MainWindow_Button, MainWindow_FieldValue, GlobalPropertyNumber1 Dim LEVEL0_GRID_COLUMN_GUID, LEVEL0_GRID_COLUMN_PLATZHALTER, LEVEL0_GRID_COLUMN_BESCHREIBUNG Dim LEVEL0_GRID_CURRENT_GUID, LEVEL0_GRID_CURRENT_PLATZHALTER, LEVEL0_GRID_CURRENT_BESCHREIBUNG Dim CURRENT_ROW, CURRENT_COLUMN, DELIMITER1, DELIMITER2 Dim LEVEL1_TXT_ExportPfad, LEVEL1_TXT_ExportDateiname, LEVEL1_TXT_ExportDateinameVorschau '########## set variables ######### 'Debug (Debug Meldungen anzeigen) DEBUG_ON = false 'true or false DEBUG_MESSAGE = "" DebugMode = "disEnabled" TBDD_EXPORT_WINLINEDOC_CONFIG = "[T650]" MAIN_WINDOW_ID = 950 PLACEHOLDER_WINDOW_ID = 951 'Important for the external Placholder call (MAIN_WINDOW_ID --> PLACEHOLDER_WINDOW_ID), 'The var defines which button was pushed GlobalPropertyNumber1 = 95 'Seperator for Path DELIMITER1 = "\" 'Seperator for Filenames DELIMITER2 = "-" '################################## '########## set constants ######### 'Get current MandantorNr, like "500M". WinLineCurrentMandatorNr = CWLStart.CurrentCompany.Nr 'Get current meso year, like 1440 ((2020 - 1900) * 12 = 1440). WinLineCurrentYear = CWLStart.CurrentCompany.CompanyYear 'Get current username like "meso". WinLineCurrentUser = CWLStart.CurrentUser.Account 'Get current WinLine exe path WinLineAppPath = CWLStart.Application.AppPath 'Get system Database WinLineSystemDB = CWLStart.CurrentCompany.GetSystemConnection(16) 'Get current "data" Database WinLineDataDB = CWLStart.CurrentCompany.Connection 'Get current date and time. Timestamp = Now 'Basic SQL where for mandator and curruent mesoyear SQLQuery_BasicWhere = " and (mesocomp = '" & WinLineCurrentMandatorNr &"') and (mesoyear = " & WinLineCurrentYear & ") " 'Messageboxen DEFAULT_TITLE = "Export-WinLineDoc_Placeholder" DEBUG_TITLE = "DEBUG - " & DEFAULT_TITLE '------------------------------------------------------------------------------------------ WinLineVars = Array("%UserName%","%KontoNr%","%KontoName%") DocVars = Array("%Laufnummer%","%ProjektNr%","%Belegnummer%","%Belegart%","%BelegKommentar%",_ "%AngebotsNr%","%AuftragsNr%","%LieferscheinNr%","%RechnungsNr%","%AnfragenNr%","%BestellNr%",_ "%Textzeile1%","%Textzeile2%","%Textzeile3%","%Textzeile4%","%Textzeile5%",_ "%Textzeile6%","%Textzeile7%","%Textzeile8%","%Textzeile9%","%Textzeile10%") PersonalAccountVars = Array("%Zusatzfeld1%","%Zusatzfeld2%","%Zusatzfeld3%","%Zusatzfeld4%","%Zusatzfeld5%","%Zusatzfeld6%","%Zusatzfeld7%","%Zusatzfeld8%","%Zusatzfeld9%","%Zusatzfeld10%",_ "%Zusatzfeld11%","%Zusatzfeld12%","%Zusatzfeld13%","%Zusatzfeld14%","%Zusatzfeld15%","%Zusatzfeld16%","%Zusatzfeld17%","%Zusatzfeld18%","%Zusatzfeld19%","%Zusatzfeld20%",_ "%Zusatzfeld21%","%Zusatzfeld22%","%Zusatzfeld23%","%Zusatzfeld24%","%Zusatzfeld25%","%Zusatzfeld26%","%Zusatzfeld27%","%Zusatzfeld28%","%Zusatzfeld29%","%Zusatzfeld30%") TimeVars = Array("%DAY%","%DAYNAME%","%MONTH%","%MONTHNAME%","%YEAR%") '------------------------------------------------------------------------------------------ GUID = 1 PREVENT_FOCUS_CHANGE = True '------------------------------------------------------------------------------------------ LEVEL0_GRID_ID = 800 LEVEL0_GRID_COLUMN_GUID = 0 LEVEL0_GRID_COLUMN_PLATZHALTER = 0 LEVEL0_GRID_COLUMN_BESCHREIBUNG = 0 LEVEL0_TXT_PLACEHOLDER_ID = 799 LEVEL0_BTN_PLACEHOLDER_ID = 798 CURRENT_ROW = 0 CURRENT_COLUMN = 0 LEVEL0_BTN_OK_ID = 98 LEVEL0_BTN_EXIT_ID = 99 '------------------------------------------------------------------------------------------ 'Controls from the main window LEVEL1_TXT_ExportPfad_ID = 771 LEVEL1_TXT_ExportDateiname_ID = 770 LEVEL1_TXT_ExportDateinameVorschau_ID = 769 '------------------------------------------------------------------------------------------ Set Conn = CWLStart.CurrentCompany.Connection Set myWin = CWLStart.CurrentModule.Windows.Item(PLACEHOLDER_WINDOW_ID) '------------------------------------------------------------------------------------------ Set LEVEL0_Grid = myWin.Controls.Item(LEVEL0_GRID_ID).Grid Set LEVEL0_BTN_OK = myWin.Controls.Item(LEVEL0_BTN_OK_ID) Set LEVEL0_TXT_Placeholder = myWin.Controls.Item(LEVEL0_TXT_PLACEHOLDER_ID) Set LEVEL0_BTN_VariableEinfuegen = myWin.Controls.Item(LEVEL0_BTN_PLACEHOLDER_ID) '------------------------------------------------------------------------------------------ 'SQL Query to get all custom Placeholders SQLQuery_ExportWinLineDoc_Configs = "SELECT DISTINCT [u004], [u005] FROM " & TBDD_EXPORT_WINLINEDOC_CONFIG & " (NOLOCK) " &_ "WHERE [u001] = 1 And [u004] In ('CUSTOM_VARIABLE') " &_ "And [U005] Is Not Null And [U006] Is Not Null And " &_ "([U007] Is Not Null Or [U008] Is Not Null Or [U009] Is Not Null Or [U010] Is Not Null) " ÿþÿ'Ende von (Deklarationen) ÿþÿCWLCurrentWindowÿþÿOnCheckUserfieldÿþÿ7Sub CWLCurrentWindow_OnCheckUserfield(nFgId, bResult) ÿþÿ¿ 'Prevent "rumflackern", after first call If (PREVENT_FOCUS_CHANGE = True) And (nFgId = LEVEL0_GRID_ID) And (nFgId <> LEVEL0_BTN_PLACEHOLDER_ID) Then bResult.Value = False End If ÿþÿ End Sub ÿþÿOnGridChangeLineÿþÿ.Sub CWLCurrentWindow_OnGridChangeLine(nFgId) ÿþÿÿÍ If (PREVENT_FOCUS_CHANGE = False) Then PREVENT_FOCUS_CHANGE = True Else LEVEL0_GRID.GetCurrentCell CURRENT_ROW, CURRENT_COLUMN GRIDSelectedLines = LEVEL0_GRID.SelectedLines If isarray (GRIDSelectedLines) Then If Ubound(GRIDSelectedLines) = 0 Then LEVEL0_GRID_CURRENT_ROW = GRIDSelectedLines(0) LEVEL0_GRID_CURRENT_GUID = LEVEL0_GRID.GetCellValue(CURRENT_ROW,LEVEL0_GRID_COLUMN_GUID) LEVEL0_GRID_CURRENT_PLATZHALTER = LEVEL0_GRID.GetCellValue(CURRENT_ROW,LEVEL0_GRID_COLUMN_PLATZHALTER) LEVEL0_GRID_CURRENT_BESCHREIBUNG = LEVEL0_GRID.GetCellValue(CURRENT_ROW,LEVEL0_GRID_COLUMN_BESCHREIBUNG) If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then msgbox "CURRENT_ROW: " & LEVEL0_GRID_CURRENT_ROW & vbCrlf & _ "CURRENT_GUID: " & LEVEL0_GRID_CURRENT_GUID & vbCrlf & _ "CURRENT_Platzhalter: " & LEVEL0_GRID_CURRENT_PLATZHALTER & vbCrlf & _ "CURRENT_Beschreibung: " & LEVEL0_GRID_CURRENT_BESCHREIBUNG & vbCrlf & _ "",vbOkayonly+vbInformation, DEBUG_TITLE & "SwitchWinLineExportWinLineDoc_Placeholder__TableContent" End If If (LEVEL0_GRID_CURRENT_GUID > 0) Then 'Determ which source Button in main window was pushed 'When Button was pushed multiple times If (MainWindow_Button = "ExportPfad") Then MainWindow_FieldValue = MacroCommands.MGetFieldValue(MAIN_WINDOW_ID, LEVEL1_TXT_ExportPfad_ID) Elseif (MainWindow_Button = "ExportDateiname") Then MainWindow_FieldValue = MacroCommands.MGetFieldValue(MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiname_ID) Elseif (MainWindow_Button = "ExportDateinameVorschau") Then MainWindow_FieldValue = MacroCommands.MGetFieldValue(MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateinameVorschau_ID) End If 'Handle if Field is empty If (MainWindow_FieldValue <> "") Then If (MainWindow_Button = "ExportPfad") Then MainWindow_FieldValue = MainWindow_FieldValue & DELIMITER1 & LEVEL0_GRID_CURRENT_PLATZHALTER Elseif (MainWindow_Button = "ExportDateiname") Then MainWindow_FieldValue = MainWindow_FieldValue & DELIMITER2 & LEVEL0_GRID_CURRENT_PLATZHALTER Elseif (MainWindow_Button = "ExportDateinameVorschau") Then MainWindow_FieldValue = MainWindow_FieldValue & DELIMITER2 & LEVEL0_GRID_CURRENT_PLATZHALTER End If Else MainWindow_FieldValue = LEVEL0_GRID_CURRENT_PLATZHALTER End If 'Replace line breaks MainWindow_FieldValue = Replace(MainWindow_FieldValue, vbCr, "") MainWindow_FieldValue = Replace(MainWindow_FieldValue, vbLf, "") 'Activate Field for a short time LEVEL0_TXT_Placeholder.Active = True LEVEL0_TXT_Placeholder.contents = "Feld: " & MainWindow_Button & vbCr & vbLf & _ "Vorschau: " & MainWindow_FieldValue 'Inactive Field and active Button LEVEL0_BTN_OK.Active = True LEVEL0_TXT_Placeholder.Active = False LEVEL0_BTN_VariableEinfuegen.Active = True 'Restore focus, to make grid scrollable PREVENT_FOCUS_CHANGE = False MacroCommands.MSetFieldFocus PLACEHOLDER_WINDOW_ID,LEVEL0_GRID_ID End If Else 'Important in this case, to set these vars to 0 at first LEVEL0_GRID_CURRENT_GUID = 0 LEVEL0_GRID_CURRENT_PLATZHALTER = 0 LEVEL0_GRID_CURRENT_BESCHREIBUNG = 0 'If no valid line was selected, clear and... LEVEL0_TXT_Placeholder.Active = True LEVEL0_TXT_Placeholder.contents = "" '...inactive Field and Button LEVEL0_BTN_OK.Active = False LEVEL0_TXT_Placeholder.Active = False LEVEL0_BTN_VariableEinfuegen.Active = False End If End If End If ÿþÿ End Sub ÿþÿ OnPushButtonÿþÿ3Sub CWLCurrentWindow_OnPushButton(nFgId, bResult) ÿþÿÿv If ((nFgId = LEVEL0_BTN_OK_ID) Or (nFgId = LEVEL0_BTN_PLACEHOLDER_ID)) Then 'Determ which Button in main window was pushed and Transfer new value to the main window If (MainWindow_Button = "ExportPfad") And (MainWindow_FieldValue <> "") Then MacroCommands.MSetFieldValue MAIN_WINDOW_ID, LEVEL1_TXT_ExportPfad_ID, MainWindow_FieldValue MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportPfad_ID Elseif (MainWindow_Button = "ExportDateiname") And (MainWindow_FieldValue <> "") Then MacroCommands.MSetFieldValue MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiname_ID, MainWindow_FieldValue MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiname_ID Elseif (MainWindow_Button = "ExportDateinameVorschau") And (MainWindow_FieldValue <> "") Then MacroCommands.MSetFieldValue MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateinameVorschau_ID, MainWindow_FieldValue MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateinameVorschau_ID Else msgbox "Fehler beim Aufruf!" & vbLf & _ "Dieses Fenster darf nur über das Hauptfenster aufgerufen werden!" & vbLf & _ "",vbCritical+vbOkayonly,DEFAULT_TITLE 'If call was unknown, close additional window MacroCommands.MActivateWindow PLACEHOLDER_WINDOW_ID MacroCommands.MPushButton PLACEHOLDER_WINDOW_ID, LEVEL0_BTN_EXIT_ID, 0 End If 'finally refresh grid line CWLCurrentWindow_OnGridChangeLine(LEVEL0_GRID_ID) End If 'While closing, set main window to active again If (nFgId = LEVEL0_BTN_EXIT_ID) Then MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_GRID_ID End If ÿþÿ End Sub ÿþÿ CWLScriptÿþÿ OnScriptStartÿþÿSub CWLScript_OnScriptStart() ÿþÿÿ  CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 0, "2", 25 'GUID / Integer CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 1, "1", 512 'Platzhalter / String CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 2, "1", 512 'Beschreibung / String 'Prepare Table LEVEL0_GRID_COLUMN_GUID = LEVEL0_Grid.AddColumn("GUID", "T21,GUID", "1","V",0,495,0, 0,scrtflag+sizeflag+hideflag) LEVEL0_GRID_COLUMN_PLATZHALTER = LEVEL0_Grid.AddColumn("Platzhalter", "T21,Platzhalter", "1","V",0,495,1,29,scrtflag+sizeflag+hideflag) LEVEL0_GRID_COLUMN_BESCHREIBUNG = LEVEL0_Grid.AddColumn("Typ", "T21,Typ", "r","V",0,495,2,19,scrtflag+sizeflag+hideflag) LEVEL0_Grid.InitUserGrid LEVEL0_Grid.IsRedraw = False LEVEL0_Grid.Header '----------------------------------------------------------------------------------------------------------------- 'Loop to set custom vars into the list Set SQLResult_ExportWinLineDoc_Configs = Conn.Select(SQLQuery_ExportWinLineDoc_Configs) If (SQLResult_ExportWinLineDoc_Configs.RowCount) > 0 Then Do 'Increase GUID GUID = GUID+1 CWLCurrentWindow.ActiveWindow.Vars.Value(495,0) = Cint(GUID) CWLCurrentWindow.ActiveWindow.Vars.Value(495,1) = Cstr(SQLResult_ExportWinLineDoc_Configs.value("u005")) CWLCurrentWindow.ActiveWindow.Vars.Value(495,2) = Cstr(SQLResult_ExportWinLineDoc_Configs.value("u004")) LEVEL0_Grid.AddLine() 'Trick it, because rowcount wont work If (SQLResult_ExportWinLineDoc_Configs.NextRecord = False) Then Exit Do End If Loop End If '----------------------------------------------------------------------------------------------------------------- 'Loop to set time vars into the list For i = 0 To Ubound(TimeVars) 'Increase GUID GUID = GUID+1 CWLCurrentWindow.ActiveWindow.Vars.Value(495,0) = Cint(GUID) CWLCurrentWindow.ActiveWindow.Vars.Value(495,1) = TimeVars(i) CWLCurrentWindow.ActiveWindow.Vars.Value(495,2) = "Allgemeine Variable" LEVEL0_Grid.AddLine() Next '----------------------------------------------------------------------------------------------------------------- 'Loop to set WinLine vars into the list For i = 0 To Ubound(WinLineVars) 'Increase GUID GUID = GUID+1 CWLCurrentWindow.ActiveWindow.Vars.Value(495,0) = Cint(GUID) CWLCurrentWindow.ActiveWindow.Vars.Value(495,1) = WinLineVars(i) CWLCurrentWindow.ActiveWindow.Vars.Value(495,2) = "WinLine Variable" LEVEL0_Grid.AddLine() Next '----------------------------------------------------------------------------------------------------------------- 'Loop to set time vars into the list For i = 0 To Ubound(DocVars) 'Increase GUID GUID = GUID+1 CWLCurrentWindow.ActiveWindow.Vars.Value(495,0) = Cint(GUID) CWLCurrentWindow.ActiveWindow.Vars.Value(495,1) = DocVars(i) CWLCurrentWindow.ActiveWindow.Vars.Value(495,2) = "FAKT Variable" LEVEL0_Grid.AddLine() Next '----------------------------------------------------------------------------------------------------------------- 'Loop to set PersonalAccount vars into the list For i = 0 To Ubound(PersonalAccountVars) 'Increase GUID GUID = GUID+1 CWLCurrentWindow.ActiveWindow.Vars.Value(495,0) = Cint(GUID) CWLCurrentWindow.ActiveWindow.Vars.Value(495,1) = PersonalAccountVars(i) CWLCurrentWindow.ActiveWindow.Vars.Value(495,2) = "Personenkonto" LEVEL0_Grid.AddLine() Next '----------------------------------------------------------------------------------------------------------------- LEVEL0_Grid.IsRedraw = True '--------------------------------------------------------------------------------- LEVEL0_BTN_OK.Active = False LEVEL0_TXT_Placeholder.Active = False LEVEL0_BTN_VariableEinfuegen.Active = False '--------------------------------------------------------------------------------- 'copy GlobalProperty var to local var MainWindow_Button = GlobalProperty(GlobalPropertyNumber1) 'After it clear var GlobalProperty(GlobalPropertyNumber1) = Nothing ÿþÿ End Sub