Bronca interessante e desafiadora com Firebird, IBO, D7

Question

Alow pessoal. L� estou eu em frente ao meu computador e me fazem ums perguntinha:Seria poss�vel, que dependendo de uma situa��o, situa��o esta que seria que um campo da tabela de Servi�os_Repetitivos ...

R�mulo Barros · Answer

Quero ajud�-lo, mas n�o consegui entender o que queres. Vc quer gravar todos esses dados em apenas um campo? � isso? e depois verificar e realizar as opera��es? Acertei ou n�o?...

Technos · Answer

Infelismente nao acertou.Mas vo tentar tirar suas d�vidas. vo tentar esplicar.� o seguinte, tenho uma tabela chamada de Servico_Repetitivo.Ela tem uma porrada de campo, mas o que interessa pra n�is agora s�o os campos:Periodicidade: Inteiro de 2 posi��es - Vai pegar os meses...Proximadata: Tipo Data - Vai pegar uma data...DiasAntecedencia: Inteiro - Vai pegar os dias....O C�lculo � o seguinte, vo somar o valor do campo Proximadata com a Periodicidade, e o resultado vo subtrair pelo valor do campo Diasantecedentia, isso pra cada Registro, TUPLA, da minha tabela que ter� como argumento, requisito, que o valor do campo OSAutomatica tenha o valor S, esse campo OS automatica � do tipo string, vai receber S ou N.Sacou agora mano ?Vo ter que varrer a tabela em busca de registros que tenha o valor do campo OSAutomatica igual a S. se achar, fa�o o calculo e quando estiver abrindo o programa, na data resultante do c�lculo (lembre-se, o resultado do calculo � uma data), ele j� abre com a tela de OS aberta em moddo de inser��o.Sacou ?Acho que s� vo resolver isso se eu modularizar isso. dividir para conquistar.Technos :P...

R�mulo Barros · Answer

Posso lhe ajudar nos c�lculos. O Resultado de cada c�lculo para cada [u:21241bb035][color=red:21241bb035][b:21241bb035]TUPLA[/b:21241bb035][/color:21241bb035][/u:21241bb035] ser� armazenado em um TStrings apenas como exemplo.

procedure TForm1.Button1Click(Sender: TObject);
Var
   Resultado      : TDateTime;
   MeusResultados : Tstrings;
begin
   Try
     MeusResultados := TStringList.Create();
     With(QueryServico_Repetitivo)Do
     Begin
        Close();
        Open();
        While(Not(Eof))Do
        Begin
           If(FieldByName(�OSAutomatica�).AsString = �S�)Then
           Begin
              Resultado := FieldByName(�ProximaData�).AsDateTime;
              IncMonth(Resultado,FieldByName(�Periodicidade�).AsInteger);
              Resultado := Resultado - FieldByName(�DiasAntecedencia�).AsInteger;
              MeusResultados.Add(FormatDateTime(�dd/mm/yyyy�,Resultado));
           End;
           Next();
        End;
     End;
   Finally
     FreeAndNil(MeusResultados);
   End;
end;

Technos · Answer

Amigo, deixa eu continuar com a l�gica dessa quest�o pra haver um sincronismo entre o meu penssamento e o seu....

O C�digo acima que vc me mandou, aparentemente est� correto, nao retorna erros nem nada, tudo bem.

Mas saca s�, o valor da vari�vel Resultado nesse caso, vou comparar com a data corrente do sistema, ao usu�rio fazer logon no sistema.

Se a data do sistema for igual � data Resultante (Como sabemos, o resultado vai ser uma data obtida da soma do valor do campo ProximaData com o incremento do valor da Periodicidade, depois subtraindo com o valor do campo DiasdeAntecedencia), o sistema j� vai entrar e abrir a tela de OS (Ordem de Servi�o), j� em modo de inser��o, obrigando o usuario corrente fazer a nova OS.

Tentei fazer isso com algumas partes do c�digo que vc me mandou, claro que retirando a quest�o da variavel String que vc usou, mas nao surtiu efeito, fiz os c�lculos na m�o com valores que j� tem cadastrado, e o sistema nao fez nada.

Podemos continuar com a quest�o ?

Grato

Technos

F�rum Bronca interessante e desafiadora com Firebird, IBO, D7 #261781