Microsoft Office Word
uređuje Dragan Grbić

Broj fakture u bazi Registry

Nivo:
NIVO 4 - Grupa priloga na ovom nivou predstavlja razne ekspertske tehnike rada u Office programima, među kojima se nalaze i one koje nisu uobičajene među većinom korisnika. Većina ovih priloga zahteva veoma napredno poznavanje Windowsa i Officea.

Svaki resurs Windowsa se može upotrebiti za potrebe Office aplikacije. Jedno od mesta gde se mogu čuvati parametri aplikacije je i baza Registry.

Jedna od tehnika automatizacije u VBA koristi bazu Registry za čuvanje promenljivih veličina integrisanih rešenja. Grana HCU\Software\VB and VBA Program Settings\ je na raspolaganju programskim kontrolama za ovakve postupke. Iako stalno ponavljam da je potencijalno opasno petljati po sadržaju baze Registry, ova tehnika je sasvim čista i sigurna, jer je nevidljiva za korisnika. Imao sam priliku da vidim nekoliko zanimljivih rešenja, pa vam prenosim jedan praktičan primer: automatsku dodelu rastućeg broja fakture koja se formira u Wordu 97/2000.

Scenario je sledeći: formira se šablon blanko fakture koji na mestu naslova, uz tekst "Faktura broj" sadrži tekstualno polje. Prilikom otvaranja novog dokumenta zasnovanog na šablonu, ovom polju se dodeljuje broj koji je uvećan u odnosu na broj prethodne fakture. Ključ rešenja je u formiranju ovog šablona.

Otvorite novi prazan dokument i formirajte ga kao blanko fakturu. Otvorite toolbar Forms i na mesto broja fakture postavite tekstualno polje (taster Text Form Field). Desnim klikom otvorite kontekstni meni i dijalog Properties; u polje Bookmark unesite ime Inkrement. Potom otvorite VBE (Alt+F11), otvorite novi modul i unesite priloženi makro; ime makroa AutoNew je obavezno, jer je to rezervisano ime za makro koji se startuje u novom dokumentu. Sve promene snimite kao šablon (Save As Type... Document Template), pod imenom Faktura.dot.

Sub AutoNew()

If ActiveDocument.FormFields.Count = 0 Then Exit Sub

Dim OffApp As String
Dim RegSekcija As String
Dim RegKljuc As String
Dim BrojFakt As Object
Dim RegBrFakt As Long

OffApp = "Word aplikacije"
RegSekcija = "Fakture"
RegKljuc = "Broj fakture"

On Error GoTo greska
Set BrojFakt = ActiveDocument.FormFields("Inkrement")
RegBrFakt = GetSetting(OffApp, RegSekcija, RegKljuc, 0)

If RegBrFakt = 0 Then RegBrFakt = 1

BrojFakt.Result = CStr(RegBrFakt)

SaveSetting OffApp, RegSekcija, RegKljuc, RegBrFakt + 1

greska:
If Err <> 0 Then
   MsgBox Err.Description
End If

End Sub

Svaki put kada treba napraviti novu fakturu, pozovite pripremljeni šablon (File/New... Faktura.dot.). Videćete, istog trenutka će se pojaviti novi broj fakture.

Obratite pažnju: ukoliko ste sadržaj šablona zaštitili lozinkom, što se često radi, makro neće raditi ispravno. U ovom slučaju, potrebno je na početku makroa dodati kod za skidanje, a na kraju za vraćanje zaštite. Takođe, postoji jedna pojava koja će nekima možda smetati: novi broj ostaje zapisan odmah po otvaranju nove fakture, čak i ako ne sačuvate novi dokument. Ova anomalija se može ispraviti dodatnim programiranjem, ali ovde izostaje kako bi primer bio što jednostavniji.

Ukoliko želite da dalje otkrivate mogućnosti čuvanja promenljivih u bazi Registry, obratite pažnju na funkcije GetSetting i GetAllSettings i komande SaveSetting i DeleteSetting.