Io ho sempre trovato rognoso l\'utilizzo del documento di profilo per la
numerazione progressiva. Io creo un documento, una vista che lo contiene e
impedisco la generazione del secondo documento.
Quindi crei un form con un campo editable numerico, poi, anche se non
espressamente necessari, due campi uno lettore e uno autore con valore *.
Inserisci il form nella select view di una nuova vista, e poi ti puoi creare
una funzione per l\'incremento.
Nella querysave del documento dove impostare il progressivo, se il documento è
nuovo, quindi If source.IsNewDoc then richiami la routine tipo questa
Sub GeneraProg (db As NotesDatabase)
Set view=db.GetView("Progressivo")
Set doc=view.GetFirstDocument
If Not (doc Is Nothing) Then
GeneraProg=(doc.GetItemValue("Protocollo")(0))+1
doc.Protocollo=GeneraProg
Call doc.save(True,True)
End If
End Sub
Spero ti sia di aiuto
Ciao
Marco
|