Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

botaffonso

DataSet modificado

Recommended Posts

Consegui rapaziada!!!! ai vai!!!

//##############################################################################

//## Verifica se ocorreu alguma alteração na nota.

//##############################################################################

function TFormNF_ESCarta_Correcao.VerificaAlteracoes: Boolean;

var

i : Integer;

Res: Boolean;

begin

Res := False;

with OracleDataSetNFES do

begin

for i := 0 to FieldCount - 1 do

begin

if Fields.Value <> Fields.OldValue then

begin

Res := True;

Break;

end;

end;

end;

result := Res;

end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.