Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
Beschreibung
Auszug |
---|
Die Funktion setzt in Kategorie 0599 den Status "d". Wenn der Mahnstatus vorhanden ist, wird Status "dm" gesetzt. |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-05-28 | Althaus | neu erstellt |
Code
...
123
Code in WinIBW3 (Javascript)
dnb_erwerbung.js
Codeblock |
---|
function SetzeStatusD() {
if (application.activeWindow.getVariable("scr") != "8A"){
application.messageBox("Datensatzkopie","Der Datensatz muss sich in der Vollanzeige befinden!", "alert-icon");
} else {
application.activeWindow.command("k",false);
__dnbUpdateStatusPos(1,"d",true)
application.activeWindow.simulateIBWKey ("FR");
}
}
|
dnb_public.js
Codeblock |
---|
function __dnbUpdateStatusPos(pos,status,newDate) {
var intPos = pos - 1;
var intWords = 1;
application.activeWindow.title.startOfBuffer(false);
application.activeWindow.title.findTag("0599", 0, false, true, false);
var strDoppelpunkt = application.activeWindow.title.find(" : ", false, true, false);
if (strDoppelpunkt == true) {
if (newDate) {
application.activeWindow.title.startOfField(false);
application.activeWindow.title.wordRight(1,false);
application.activeWindow.title.wordRight(2,true);
application.activeWindow.title.deleteSelection();
} else {
intWords = 3;
}
}
application.activeWindow.title.startOfField(false);
application.activeWindow.title.wordRight(intWords,false);
application.activeWindow.title.charRight(intPos,false);
application.activeWindow.title.endOfField(true);
var altStatus = application.activeWindow.title.selection;
if (altStatus.charAt(1) == "m") {
status = status + "m";
}
application.activeWindow.title.deleteSelection();
application.activeWindow.title.insertText(status);
}
|
VB-Code
Codeblock |
---|
Sub SetzeStatusd()
'*******************************************************************\*
Dim str0599, Pos, strTemp
' Send the command "k" to the system and display the data in the same window
Application.ActiveWindow.Command "k", False
' Suche Feld 0599 und setze den Lösch-Status "d"
'wenn 0599 vorhanden dann
if Application.ActiveWindow.Title.Find ("0599", True, False, True) then
'Gehe zum Feldanfang ohne zu markieren
Application.ActiveWindow.Title.StartOfField
'Gehe ein Zeichen nach rechts ohne zu markieren
Application.ActiveWindow.Title.CharRight
'Gehe ein Wort nach rechts ohne zu markieren
Application.ActiveWindow.Title.WordRight 1
'Gehe zum Feldende und markiere
Application.ActiveWindow.Title.EndOfField True
'Definiere str0599 als Inhalt der Markierung
str0599 = Application.ActiveWindow.Title.GetSelection
'Setze Variable Pos gleich 0
Pos = 0
'Definiere Pos als Suche von "m" in str0599
Pos = InStr(str0599,"m")
'wenn "m" existiert dann
if (Pos) then
'lösche die Markierung
Application.ActiveWindow.Title.DeleteSelection
'füge "dm" ein sonst
Application.ActiveWindow.Title.InsertText "dm"
else
'lösche die Markierung
Application.ActiveWindow.Title.DeleteSelection
'füge "d" ein
Application.ActiveWindow.Title.InsertText "d"
end if
'sonst (wenn 0599 nicht existiert)
else
'gehe zum Ende des Datensatzes
Application.ActiveWindow.Title.EndOfBuffer
'füge "0599 d" ein
Application.ActiveWindow.Title.InsertText "0599 d"
end if
'Enter und Datensatz abschicken
Application.ActiveWindow.SimulateIBWKey "FR"
End Sub
|
...
Überblick
Inhalte