Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
Inhalt |
---|
...
Beschreibung
...
Kennzeichnet im Datensatz , daß die Publikation vergriffen ist (Satzart -> Aaq, 8034 mit entsprechendem Text der Fallgruppe 1)
Zeile 4245 - 4251
Code in WinIBW2 (Makro/VBScript)Sub
Auszug |
---|
Die Publikation zum Datensatz ist vergriffen. (Daten ohne Bestand Fallgruppe 1). |
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-06-18 | Althaus | neu erstellt |
2011-06-30 | Althaus | Prüfung 4700 ergänzt |
2011-07-04 | Althaus | Standardvermerk jetzt in 4801 statt 8034 |
Code
dnb_erwerbung.js
Codeblock |
---|
function Vergriffen() {
__eingabeKommentar("vergriffen","");
}
|
dnb_public.js
Codeblock |
---|
function __eingabeKommentar(comment,kennzeichen) {
var Mahnstatus;
var strKuerzel = __getProfVal("Kürzel erfassen","kuerzel","Bitte geben Sie Ihr Bearbeiterkürzel ein.");
var strAbteilung = __getAbteilung();
var strStandort = __getStandort();
var boolCheck;
var str4700Teil1 = "4700 |" + strAbteilung + "|";
var str4700Teil2 = ";" + strKuerzel;
//var strContent4700 = "|" + strAbteilung + "|" + strStandort + ";" + strKuerzel;
var strContent4700 = "\n" + str4700Teil1 + str4700Teil2;
if (application.activeWindow.getVariable("scr") != "8A"){
__dnbFehler("Eingabekommentar","Der Datensatz muss sich in der Vollanzeige befinden!", "");
return;
} else {
var Kopie = application.activeWindow.copyTitle();
//application.messageBox("Kopie",Kopie,"");
if (Kopie == "") {
__dnbFehler("Retro","Es konnte keine Titelkopie erstellt werden","");
} else {
var Eingabe = "";
var Pos0500 = Kopie.indexOf("0500 ");
var Tag0500 = Kopie.substring(Pos0500,Kopie.indexOf("\n",Pos0500));
//application.messageBox("Tag0500",Tag0500,"");
var Satzart = Tag0500.substring(6,Tag0500.length-1);
var Pos0599 = Kopie.indexOf("0599 ");
var Tag0599 = Kopie.substring(Pos0599,Kopie.indexOf("\n",Pos0599));
if (Tag0599.indexOf("m") > 0) {
Mahnstatus = true;
}
//application.messageBox("",Satzart.length,"");
if ((Satzart == "ac") || (Satzart == "am")) {
application.activeWindow.command("k",false);
__dnbUpdMatStatus("q"+kennzeichen)
//application.messageBox("","q-Kennzeichnung","");
if (application.activeWindow.title.findTag("0599", 0, false, true, false)) {
if (!Mahnstatus) {
application.activeWindow.title.deleteLine(1);
//application.messageBox("","0599 löeschen","");
}
}
application.activeWindow.title.startOfBuffer(false);
boolCheck = application.activeWindow.title.find(str4700Teil1, false, false, false)
//application.messageBox("",boolCheck,"");
if (boolCheck) {
application.activeWindow.title.endOfField(false);
application.activeWindow.title.insertText(str4700Teil2);
} else {
application.activeWindow.title.startOfBuffer(false);
__geheZuKat("4700","",true);
application.activeWindow.title.insertText(strContent4700);
}
if (application.activeWindow.title.findTag("2100", 0, false, true, false)) {
application.activeWindow.title.deleteLine(1);
//application.messageBox("","2100 löschen","");
}
__geheZuKat("0701","",true);
if (application.activeWindow.title.findTag("0701", 0, false, true, false)) {
application.activeWindow.title.find("#", false, true, false);
//application.messageBox("","Text eingeben","");
application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@#");
application.activeWindow.title.lineUp(1,false);
//application.messageBox("","Zeile löschen","");
application.activeWindow.title.deleteLine(1);
} else {
application.activeWindow.title.insertText("\n0701 /q/@" + comment + "@");
}
__geheZuKat("0701","",true);
//application.activeWindow.simulateIBWKey("FR");
if (kennzeichen != "s") {
application.activeWindow.simulateIBWKey("FR");
application.activeWindow.command("k e01",false);
application.activeWindow.title.endOfField(false);
application.activeWindow.title.insertText("\n4801 " + comment);
__dnbDeleteTag("8034");
application.activeWindow.simulateIBWKey("FR");
application.activeWindow.command("k",false);
__dnbDeleteTag("0701");
application.activeWindow.simulateIBWKey("FR");
}
} else {
__dnbFehler("Eingabekommentar","Diese Funktion lässt sich nur für die Datensatzarten\n\n" +
"- Aac\n- Aam\n- Bac\n- Oac\n- Kac\n- Sac\n- Zac\n\naufrufen!","");
}
}
}
}
|
VB-Script
Codeblock |
---|
Sub VergriffenNeu()
|
...
'***************************************************************************** |
...
On error resume next EingabeKommentarNeu "vergriffen","" |
...
End Sub
'*****************************************************************************
Private Sub EingabeKommentarNeu(comment,kennzeichen)
'*****************************************************************************
On error resume next
'Prüfung: Datensatz in Vollanzeige? Wenn nicht: Funktionsabbruch!
if not Application.ActiveWindow.Variable("scr") = "8A" then
Fehler "Es liegt kein Datensatz in Vollanzeige vor!"
exit sub
end if
'Bei Vollanzeige: Kopie der Vollanzeige und Extraktion des kompletten Inhaltes von 0500
K0500 = mid(Application.ActiveWindow.Variable("P3CLIP"), instr(Application.ActiveWindow.Variable("P3CLIP"),"0500"))
Satzart = mid((left(K0500, instr(K0500,vbcr))),6,3)
K0599 = mid(Application.ActiveWindow.Variable("P3CLIP"), instr(Application.ActiveWindow.Variable("P3CLIP"),"0599"))
K0599 = left(K0599, instr(K0599,vbcr))
'Bestimmung des Mahnstatus
MahnStatus = instr(K0599, "m")
'Prüfung: wenn Satzart ungleich Aaa, Aac, Bac, Oac, Kac, Sac dann Funktionsabbruch
if not (Satzart = "Aac" or Satzart = "Aam" or _
Satzart = "Bac" or Satzart = "Oac" or Satzart = "Sac" or Satzart = "Kac" or Satzart = "Zac") Then
Fehler "Diese Funktion lässt sich nur für die Datensatzarten" & vbcr & vbcr & _
"- Aac" & vbcr & _
"- Aam" & vbcr & _
"- Bac" & vbcr & _
"- Oac" & vbcr & _
"- Kac" & vbcr & _
"- Sac" & vbcr & _
"- Zac" & vbcr & vbcr & "aufrufen!"
exit sub
end if
Application.ActiveWindow.Command "k", False
Application.ActiveWindow.Title.Find "0500", True, False, False
Application.ActiveWindow.Title.WordRight 1, False
Application.ActiveWindow.Title.CharRight 2, False
Application.ActiveWindow.Title.CharRight 1, True
Application.ActiveWindow.Title.DeleteSelection()
Application.ActiveWindow.Title.InsertText "q" & kennzeichen & vbCR
if ((Application.ActiveWindow.Title.FindTag ("0701", 0, false, true)) <> "" ) then
Application.ActiveWindow.Title.Find "#", false, true, false
if (kennzeichen <> "") then
Application.ActiveWindow.Title.InsertText vbCR & "0701 /q/@" & comment & "@#"
Application.ActiveWindow.Title.LineUp
Application.ActiveWindow.Title.DeleteLine
else
Application.ActiveWindow.Title.InsertText vbCR & "0701 /q/#"
Application.ActiveWindow.Title.LineUp
Application.ActiveWindow.Title.DeleteLine
Application.ActiveWindow.Title.EndOfBuffer
Application.ActiveWindow.Title.InsertText vbCR & "4801 " & comment
End if
else
if (kennzeichen <> "") then
Application.ActiveWindow.Title.InsertText "0701 /q/@" & comment & "@" & vbCR
else
Application.ActiveWindow.Title.InsertText "0701 /q/"
Application.ActiveWindow.Title.EndOfBuffer
Application.ActiveWindow.Title.InsertText vbCR & "4801 " & comment
End if
End if
'Löschung von 0599 nur, wenn Mahnstatus nicht gesetzt
if ((Application.ActiveWindow.Title.FindTag ("0599", 0, false, true)) <> "" ) then
Application.ActiveWindow.Title.StartOfField False
if Mahnstatus = 0 then
Application.ActiveWindow.Title.DeleteToEndOfLine
End If
End if
'if ((Application.ActiveWindow.Title.FindTag ("0599", 0, false, true)) <> "" ) then
'Application.ActiveWindow.Title.DeleteToEndOfLine
'End if
if ((Application.ActiveWindow.Title.FindTag ("2100", 0, false, true)) <> "" ) then
Application.ActiveWindow.Title.DeleteToEndOfLine
End if
'Application.ActiveWindow.SimulateIBWKey "FR"
End Sub
|
Code in WinIBW3 (Javascript)
...