Delphi - Como enviar uma mensagem ao usuário a cada 15 dias? Para uma atualização ou backup
Gostaria de enviar uma mensagem durante um período de 15 para os usuário realizarem backup e relatório etc..
Rodrigo Martins
Curtidas 0
Melhor post
Raimundo Pereira
30/10/2015
Adicione um campo DATA_AVISO.
Ao incluir o registro coloque DATA_AVISO+15; Use funções para achar a data do aviso.
Crie uma rotina diária .
DM.SUA_TABLE.OPEN;
DM.SUA_TABLE.FISRT;
IF NOT (DM.SUA_TABLE.EOF) THEN
REPEAT
IF ID DM.SUA_TABLE.FIELBYNAME('DATA_AVISO').ASSTRING=DATEToStr(STATUS_HORA)) THEN
BEGIN
USE SUA FUNÇÃO DE ENVIAR MSG AQUI!
END;
DM.SUA_TABLE.NEXT;
END;
ULTIL (DM.SUA_TABLE.EOF);
END;
END;
ESPERO QUE AJUDE.
NÃO TESTEI MAIS FUNCIONA USO ESSE PROCEDIMENTO NUM CLIENTE QUE DISPARA MSG DE ANIVERSÁRIO DOS CLIENTES
USO UM TIME QUE DE 24HRS ELE REALIZA A VERIFICAÇÃO E ENVIA EMAIL PERSONALIZADO!
AGUARDO RETORNO,
Ao incluir o registro coloque DATA_AVISO+15; Use funções para achar a data do aviso.
Crie uma rotina diária .
DM.SUA_TABLE.OPEN;
DM.SUA_TABLE.FISRT;
IF NOT (DM.SUA_TABLE.EOF) THEN
REPEAT
IF ID DM.SUA_TABLE.FIELBYNAME('DATA_AVISO').ASSTRING=DATEToStr(STATUS_HORA)) THEN
BEGIN
USE SUA FUNÇÃO DE ENVIAR MSG AQUI!
END;
DM.SUA_TABLE.NEXT;
END;
ULTIL (DM.SUA_TABLE.EOF);
END;
END;
ESPERO QUE AJUDE.
NÃO TESTEI MAIS FUNCIONA USO ESSE PROCEDIMENTO NUM CLIENTE QUE DISPARA MSG DE ANIVERSÁRIO DOS CLIENTES
USO UM TIME QUE DE 24HRS ELE REALIZA A VERIFICAÇÃO E ENVIA EMAIL PERSONALIZADO!
AGUARDO RETORNO,
GOSTEI 1