1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| application.activeWindow.command "mod", false 'on met directement la fenêtre en mode édition
application.activeWindow.title.startOfBuffer 'on place le curseur au début de la page
Dim cote
Dim CB
Dim Section
Dim Consult
Dim Sequence
Dim cherche,cherchepn, result
Dim Ex,a
Dim PPN
Dim recupRCR
'On récupère le RCR de la bibliothèque */
recupRCR = application.activeWindow.variable("P3GUL")
'/ Partie permettant de détecter le numéro d'exemplaire à ajouter ***/
Ex = "e01"
a = 1
cherche = application.activeWindow.title.find(Ex, true, false, true)
do while cherche = true
a = a + 1
Ex = "e" & Right("00" & a, 2)
cherche = application.activeWindow.title.find(Ex, true, false, true)
loop
application.activeWindow.title.endOfBuffer
'/* Partie permettant de remplir les champs propres de l'exemplaire **/
cote = inputbox("Quelle cote ?",, "")
do while len(CB) <> 10 and vartype(CB) <> 2 'Partie permettant de contrôler le code-barre (10 caractères en chiffres)
CB = inputbox("Quel code-barre ?")
loop
Section = inputbox("Quelle section ?",,"")
'Sequence = inputbox("Quelle séquence ?")
Consult = msgbox("L'ouvrage est consultable sur place uniquement ?", vbyesno + vbquestion, "Statut de la consultation")
application.activeWindow.title.insertText Ex & " $bx" & vblf & "930"
application.activeWindow.title.insertText Ex & " $bx" & vblf & "930 ##$b" & rtrim(recupRCR) & "$c" & Ucase(Section) & "$a" & cote & "$ju" & vblf 'disponible pour le PEB
application.activeWindow.title.insertText "915 ##$b" & CB & vblf
if Consult = 6 then 'Consultable sur place uniquement
application.activeWindow.title.insertText"917 ##$axxbx" & vblf
else
application.activeWindow.title.insertText"917 ##$axxax" & vblf 'Empruntable
end if
application.activeWindow.title.insertText"999 ##$cj"
'/ Partie permettant de valider directement (sinon l'EPN n'est pas créé) */
application.activeWindow.simulateIBWKey "FR"
'/ Partie permettant de copier l'EPN de l'exemplaire */
application.activeWindow.command "mod", false
a = a-1
application.activeWindow.clipboard = application.activeWindow.title.findTag("A99", a, false)
application.activeWindow.simulateIBWKey "FE" 'Simuler avec cette touche - echap - permet apriori de réduire l'erreur WinIBW |
Partager