Beschreibung

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

dnb_erwerbung.js

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

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

Seitenanfang

  • Keine Stichwörter