Aide à l'exemplarisation

'(Declarations)
Dim PEB
Dim Code_barre
Dim L035
Dim L035_choix
Dim etiquette
etiquette = "e01"
Dim ekzemplero
ekzemplero = 1
'End of (Declarations)

Sub ChercheNbreExemplaires()
rem Application.ActiveWindow.SimulateIBWKey "F7"
rem Do Until Application.ActiveWindow.Title.FindTag( etiquette, 0,True, False )=""
Do Until Application.activeWindow.title.find (etiquette & " $a") = False
	ekzemplero = ekzemplero + 1
	If ekzemplero < 10 Then 
		etiquette = "e0" & ekzemplero
	Else etiquette = "e" & ekzemplero
	End If
Loop
Application.activeWindow.title.endOfBuffer
InsereExemplaire
End Sub

Sub InsereExemplaire()

Dim Salle
Salle = "Salle générale"

Dim Cote
Cote = InputBox("Entrez votre cote complète", "Cote")
If Cote =vbCancel Then
	MsgBox "Vous avez choisi de ne pas mettre de cote." & Chr(13) & "Le programme va se terminer.", "Abandon"
	Application.activeWindow.command "aff unm"
	Exit Sub
End If

PEB = InputBox("Entrez le code PEB : u ou g", "Code PEB", "u")
If PEB ="" Then
	Do
	PEB = InputBox("Saisissez votre code PEB, u ou g !", "Code PEB")
	Loop While PEB = ""
End If

Code_barre = InputBox("Entrez le code à barre", "Code-barre")
If Code_barre ="" Then
	Do
	Code_barre = InputBox("N'oubliez pas le code-barre ! Indispensable !", "Code-barre")
	Loop While Code_barre = ""
End If

L035_choix = MsgBox("Voulez-vous ajouter un L035 ?", vbYesNo + vbQuestion, "L035")
 	If L035_choix = vbYes Then
 		L035 = InputBox("Entrez le L035", "L035")
 		Application.ActiveWindow.SimulateIBWKey "F7"
 		Application.ActiveWindow.Title.EndOfBuffer
 		Application.ActiveWindow.Title.InsertText "L035 ##$a" & L035
 		Application.ActiveWindow.SimulateIBWKey "FR"
 	End If

Application.ActiveWindow.NoviceMode False
Application.ActiveWindow.Command "cre " & etiquette
Application.ActiveWindow.Title.InsertText etiquette & " $bx" & vbCrLf
Application.ActiveWindow.Title.InsertText "915 ##$b" & Code_barre & vbCrLf
Application.ActiveWindow.Title.InsertText "930 ##$b831522101$d" & Salle & "$a" & Cote & "$j" & PEB & vbCrLf
rem Application.ActiveWindow.Title.InsertText "930 ##$b831372101$d" & Salle & "$a" & Cote & "$j" & PEB & vbCrLf
Application.ActiveWindow.SimulateIBWKey "FR"

End Sub

Sub VerifStatut()
If Application.ActiveWindow.Variable ("scr") = "8A" Then
VerifStatutB
Else
MsgBox "Impossible de créer un exemplaire !", vbOKOnly, "Erreur"
End If
End Sub

Sub VerifStatutB()
	Application.activeWindow.command "mod"
	Dim Eureka
	Application.activeWindow.title.find "008 $a",True, False, False
	Application.activeWindow.title.charRight 3, True
	Eureka = Right(Application.activeWindow.title.selection,1)
	If Eureka = "B" Then
		 MsgBox "Ceci est une notice en statut B" & Chr(13) & "Impossible de créer un exemplaire !", vbOKOnly, "Statut B"
		 Eureka = ""
		 Exit Sub
	Else
		ChercheNbreExemplaires
	End If
End Sub