funzioneScopo
Verifica se un oggetto è cancellato all'interno di una transazione. In genere questo metodo viene utilizzato in caso di transazioni complesse in cui gli oggetti potrebbero essere modificati più volte.
Sintassi
boolean res = 0 //
//
res := INDE.IsObjectDeleted(id transazione, id oggetto)
//
res := INDE.IsObjectDeleted(id transazione, id oggetto)
Argomenti
| ID Transazione | Identificativo della transazione |
| ID Oggetto | Puntatore dell'oggetto |
Valore di ritorno
Viene ritornato True se l'oggetto risulta già cancellato all'interno della transazione.
Esempio di codice
//
// Se l'oggetto non è già cancellato in transazione
if NOT(EsempiMS.INDE.IsObjectDeleted(trans.ID, Puntatore))
{
// Scrivo il GUID
if GetOriginalValue(ToPropertyIndex(GUID)) <> GUID
{
some := True
EsempiMS.INDE.SetPropGUID(Puntatore, GUID, GUID, trans.ID, ??
)
trans.AggiungiMessaggio(This(), Avvertimento, FormatMessage(
MSG Proprietà Cambiata, GUID, GetOriginalValue(ToPropertyIndex(
GUID)), GUID, ??, ??))
}
//
// Scrivo il nome
if GetOriginalValue(ToPropertyIndex(Nome)) <> Nome
...
//
// Scrivo la descrizione
if GetOriginalValue(ToPropertyIndex(Descrizione)) <> Descrizione
...
//
// Scrivo il DBCode
if GetOriginalValue(ToPropertyIndex(DBCode)) <> DBCode
...
//
// Scrivo il flag Codice Automatico
if GetOriginalValue(ToPropertyIndex(CodiceAutomatico)) <>
ToString(CodiceAutomatico)
...
}
// Se l'oggetto non è già cancellato in transazione
if NOT(EsempiMS.INDE.IsObjectDeleted(trans.ID, Puntatore))
{
// Scrivo il GUID
if GetOriginalValue(ToPropertyIndex(GUID)) <> GUID
{
some := True
EsempiMS.INDE.SetPropGUID(Puntatore, GUID, GUID, trans.ID, ??
)
trans.AggiungiMessaggio(This(), Avvertimento, FormatMessage(
MSG Proprietà Cambiata, GUID, GetOriginalValue(ToPropertyIndex(
GUID)), GUID, ??, ??))
}
//
// Scrivo il nome
if GetOriginalValue(ToPropertyIndex(Nome)) <> Nome
...
//
// Scrivo la descrizione
if GetOriginalValue(ToPropertyIndex(Descrizione)) <> Descrizione
...
//
// Scrivo il DBCode
if GetOriginalValue(ToPropertyIndex(DBCode)) <> DBCode
...
//
// Scrivo il flag Codice Automatico
if GetOriginalValue(ToPropertyIndex(CodiceAutomatico)) <>
ToString(CodiceAutomatico)
...
}
- Se il puntatori passati come parametri ID Oggetto e ID Transazione non corrispondono rispettivamente ad alcun oggetto e ad alcuna transazione nel progetto aperto, allora viene generata un'eccezione.
Ultima modifica: 16/11/2009 / Validità: da 7.1.3300