Wartung / Maintencance - Upgrade Version 8.5.12 - Mittwoch/Wednesday - 2024-08-28 07:30-09:00 a.m.
Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Funktion
Beschreibung
Crosskonkordanz-Satz anlegen
(Datenmaske)
Code
Codeblock |
---|
function CKneu () { strSWDIDN = application.activeWindow.getVariable("P3GPP"); if (!application.activeWindow.title) { application.activeWindow.command("k", false); } var str810 = application.activeWindow.title.findTag("810", 0, false, true, false); application.activeWindow.simulateIBWKey("FE"); DatenmaskeTcx(); application.activeWindow.title.insertText(strSWDIDN); application.activeWindow.title.startOfBuffer(false) |
...
;
application.activeWindow.title.findTag("810", 0, false, true, false);
application.activeWindow.title.endOfField(false);
application.activeWindow.title.insertText(str810);
}
|
VB-Code
Sub CKneu()
Codeblock |
---|
Sub CKneu()
On Error Resume Next
Dim Cancel
Dim SWD_IDN
Dim SWDfeld810
Dim SWDsatz,Position
If Not Cancel Then
SWD_IDN = ""
SWDfeld810 = ""
SWD_IDN = "!" & |
Code in WinIBW2 (Makro/VBScript)
...
Application.ActiveWindow.Variable("P3GPP")& "!" |
...
SWDsatz = Application.ActiveWindow.CopyTitle |
...
SWDfeld810 = KopiereFeld (SWDsatz,"810 ") |
...
Cancel = False Application.ActiveWindow.Command "e n",True |
...
Application.ActiveWindow.Title.InsertText "005 Tcx" |
...
Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "800 |
...
" Application.ActiveWindow.Title.InsertText SWD_IDN |
...
Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "810 |
...
" Application.ActiveWindow.Title.InsertText |
...
SWDfeld810 Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "808 |c|neu" |
...
Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "808 |d|" |
...
Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "817 |
...
" Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "834 |
...
" Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "840 |
...
" Application.ActiveWindow.Title.InsertText |
...
vbCr Application.ActiveWindow.Title.InsertText "901 " |
...
End If |
...
End Sub |
...
Code in WinIBW3 (Javascript)
...
|
Überblick
Inhalte