Tenho esse c�digo? e quando chega no If que n�o era para ele executar e ele executa[code] if Copy(DataModuleGeral.tbProcessosConsulta.FieldByName(NUMERO_PROCESSO+Copy(vCampoUltAlteracao,17,1))....

F�rum Logica errada ou erro de C�digo ? #457380

03/10/2013

Tenho esse c�digo? e quando chega no "If" que n�o era para ele executar e ele executa

 
 if Copy(DataModuleGeral.tbProcessosConsulta.FieldByName('NUMERO_PROCESSO'+Copy(vCampoUltAlteracao,17,1)).AsString,1,8) = 'S/NUMERO' then
    begin
      n := StrToInt(Copy(vCampoUltAlteracao,17,1))-1;
      while n >= 1 do
      begin
==>    if (n = 1) and (DataModuleGeral.tbProcessosConsultaULTIMA_ALTERACAO.AsDateTime < DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime) then;
          DataModuleGeral.tbProcessosConsultaULTIMA_ALTERACAO.AsDateTime := DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime;

        if (n > 1) and (Copy(DataModuleGeral.tbProcessosConsulta.FieldByName('NUMERO_PROCESSO'+IntToStr(n)).AsString,1,8) <> 'S/NUMERO') then
        begin
          if DataModuleGeral.tbProcessosConsulta.FieldByName('ULTIMA_ALTERACAO'+IntToStr(n)).AsDateTime < DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime then
            DataModuleGeral.tbProcessosConsulta.FieldByName('ULTIMA_ALTERACAO'+IntToStr(n)).AsDateTime := DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime;
          Exit;
        end;
        n := n - 1;
      end;
    end;
  end;
  DataModuleGeral.tbProcessosConsulta.Post;

no If da Ceta se por exemplo eu o n for 4 ele passa e executa tudo que for ele executa. onde esta o erro que n�o vejo ?

Ajudem por favor :(

Eduardo Mendon�a

Curtir t�pico

+ 0

Responder

Posts

04/10/2013

Marcos Oliveira

Olhando seu c�digo, parece que est� tudo correto. Voc� j� depurou seu projeto e confirmou que o valor da vari�vel "n" est� vindo realmente 1?

Att,

Marcos

Responder

Gostei + 0

04/10/2013

Deivison Melo

Conforme orienta��o, o c�digo foi debbugado?

Caso ainda restarem d�vida, por favor, sinalizar para sanarmos todas!

Abra��o e bons c�digos!

Responder

Gostei + 0

04/10/2013

Marcos Saffran

Ol� Maginal,
uma d�vida:

if Copy(DataModuleGeral.tbProcessosConsulta.FieldByName('NUMERO_PROCESSO'+Copy(vCampoUltAlteracao,17,1)).AsString,1,8) = 'S/NUMERO' then

quantos campos 'NUMERO_PROCESSO' tem a sua tabela? S�o 10?

Eu pergunto pois o 'Copy(vCampoUltAlteracao,17,1)', se for num�rico pode ser de 0 a 9, se for string, pode ser de 0 a 9, ou de a a z.

S� para entender melhor o c�digo.

Responder

Gostei + 0

04/10/2013

Marcos Saffran

Outra coisa, em:

==>    if (n = 1) and (DataModuleGeral.tbProcessosConsultaULTIMA_ALTERACAO.AsDateTime < DataModuleGeral.tbAndamentosProcessuaisDATA.AsDateTime) then;

est� assim mesmo no seu c�digo? Com o ";" ponto-e-v�rgula no final do comando?

se for, retire-o.

Responder

Gostei + 0

04/10/2013

Eduardo Mendon�a

ok vou retirar

Responder

Gostei + 0