Prototipi delle funzioni - Modulo "Protocolli"

protoUpdate

Script:

protoUpdate(param1)

dove param1 è il nome del campo come impostato nella tabella FIELD_NAME

SDK:

protoUpdate(FieldType)

dove FieldType è una istanza di dbpFields.FieldType contenente le informazioni sul campo che si vuole interrogare per sapere se, alla sua modifica, deve essere aggiornato il numero del protocollo.

 

Ritorna un array di stringhe contenenti gli eventuali nomi dei campi protocollo che vanno aggiornati quando si modifica "param1". Se la modifica di param1 non implica alcun aggiornamento o se, nell' archivio, non si gestiscono i protocolli allora il valore di ritorno va impostato a Empty.

Esempi

Supponiamo che si voglia gestire un protocollo contenuto nel campo "PROTOCOLLO" e tale protocollo è associato all'anno del documento contenuto nel campo "DATADOC" e alla tipologia di documento contenuta nel campo "TIPODOC". Per far si che, al variare di "DATADOC" e "TIPODOC", venga elevata una richiesta di rigenerazione numero di protocollo (evaluateProto) si può scrivere il seguente codice:

Archivio: XXX - CodeItem: protoUpdate

select case param1
case "DATADOC","TIPODOC"
ret = array("PROTOCOLLO")
case else
ret = empty
end select

 

evaluateProto

Script:

evaluateProto(param1,vof1,...,vofn)

dove param1 è il nome del campo protocollo da aggiornare

SDK:

evaluateProto(FieldType,FC)

dove FieldType è una istanza di dbpFields.FieldType contenente le informazioni sul campo protocollo.

 

Ritorna il nuovo valore da associare al protocollo. Questo modulo possiede, già inizializzato, una variabile db contenente un collegamento ADO Connection con il database di DocBrowser

Esempi

Consideriamo l'esempio della funziona protoUpdate e supponiamo di voler gestire un numero progressivo univoco per anno e per tipo documenti. Si ottiene questo con il seguente codice VBScript

Archivio: XXX - CodeItem: evaluateProto

sql="select max(protocollo) from PROT where year(DATADOC)=" & year(DATADOC) & _
" and TIPODOC=""" & TIPODOC & """"
set adorec = db.execute(sql)
if isnull(adorec.fields(0).value) then
ret=1
else
ret=adorec.fields(0).value+1
end if