Carissimi, arrivo subito al problema cercando di essere breve ma chiaro.
Ho un agent che, a partire da documenti (informazioni personali) di un db notes, effettua una query sull\'anagrafica del personale ed aggiorna di conseguenza i documenti.
Ecco parte del codice:
While (Not(doc Is Nothing))
sSQL = "Select * from Tabella where ANLIC = 0 and ANFIS = \'" & doc.CodiceFiscale(0) & "\'"
Set rs = lpConn.execute(sSQL)
If (Not(rs.eof)) Then
doc.CDC = rs.Fields("ANCEC").value
doc.qualifica = rs.Fields("ANGPD").value
doc.codicequalifica = rs.Fields("ANGPC").value
doc.MATRICOLA = rs.Fields("ANMAT").value
doc.ULTIMAMODIFICA = Today
doc.ComputeWithForm True, False
doc.Save True, False
iModified = iModified + 1
End If
iCount = iCount + 1
Print iCount
Print doc.UltimaModifica(0)
Print rs.Fields("ANCOG").Value & " " & rs.Fields("ANNOM").Value
Set doc = view.GetNextDocument(doc)
Wend
Ho notato che alcuni (parecchi documenti) non riportano la data di aggiornamento dell\'ultima modifica ma sono fermi ad esempio al 18/05.
Ho preso uno dei codici fiscali in questione è l\'ho messo come costante nella stringa sql.
Ho eseguito l\'agent, il risultato è stato che print doc.UltimaModifica(0) (che sta dopo il doc.save) mi ha giustamente restituito la data odierna, ma andando a vedere il valore del campo da notes, mi veniva indicato ancora 18/05/2007!!!!!
Qualche idea?
|