Executar Função Interna
03/02/2006
0
Marcal
Posts
03/02/2006
Rjun
03/02/2006
Marcal
While not(DmReceber.TableClientes.Eof) do
Begin
with DmReceber.QryPesqDocAtrasado do
Begin
Close;
Params[0].asDate := Date();
Params[1].asInteger := Trunc(DmReceber.TableClientesCodigo.value);
Open;
end;
If (DmReceber.TableClientesEmAtraso.value <> ´L´) and
(DmREceber.qryPesqDocAtrasadoQuantidade.value > 0) and
(DmReceber.TableClientesCodigo.value = DmReceber.qryPesqDocAtrasadoCliente.value) Then
Begin
DmReceber.TableClientes.Edit;
DmReceber.TableClientesEmAtraso.value := ´S´;
DmReceber.TableClientesDataLiberacao.value := StrToDate(´01/01/1980´);
DmReceber.TableClientes.Post;
end
else
Begin
DmReceber.TableClientes.Edit;
DmReceber.TableClientesEmAtraso.value := ´N´;
DmReceber.TableClientesDataLiberacao.value := Date();
DmReceber.TableClientes.Post;
end;
DmReceber.TableClientes.Next;
end;
03/02/2006
Aroldo Zanela
Entra no Enterprise Manager, expanda o Server Group, expanda o Data Transformation Services, clique com o botão direito do mouse sobre Local Packages e selecione New Package. É altamente intuitivo para criar um package, em seguida, basta agendar a execução.
Outra solução para o seu caso e criar um serviço no windows para ser disparado em determinado horário.
Clique aqui para fazer login e interagir na Comunidade :)