| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  Diversos
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Workflow vencimento de data |
|
Versão: |
12.1.8 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
TYELSILVA
em 18/09/2018, 12:42 h
Local: MG Registro: 23/03/2018 Postagens: 10 |
Boa tarde!
Tenho uma rotina customizada e nela cadastro não conformidades.
Tenho um campo data_prazo e data_conclusao.
Como são muitos registros para ficar verificando se a data_prazo está vencendo, pensei em criar um fonte com schedule colocando a data_prazo => a database com diferença em 7 dias.
Alguém já precisou desenvolver algum fonte neste sentido?
Comparar data do campo com a database e executar o schedule?
Desde já agradeço.
Marciel Silva
|
|
|
|
Mensagem do
SFJOVENS
em 19/09/2018, 10:28 h
Local: SP Registro: 11/12/2013 Postagens: 44 |
https://www.blogadvpl.com/funcoes-para-utilizar-com-data/
DaySum( dDate , nDays ) //Soma Dias em Uma Data
DaySub( dDate , nDays ) //Subtrai Dias em Uma Data
MonthSum( dDate , nMonth ) //Soma Meses em Uma Data
MonthSub( dDate , nMonth ) //Subtrai Meses em Uma Data
YearSum( dDate , nYear ) //Soma Anos em Uma Data
YearSub( dDate , nYear ) //Subtrai Anos em Uma Data
DateDiffDay( dDate1 , dDate2 ) //Apura Diferenca em Dias entre duas Datas
DateDiffMonth( dDate1 , dDate2 ) //Apura Diferenca em Meses entre duas Datas
DateDiffYear( dDate1 , dDate2 ) //Apura Diferenca em Anos entre duas Datas
DateDiffYMD( dDate1 , dDate2 ) //Retorna Array contendo a Diferenca de Anos/Meses/Dias entre duas Datas |
|
|
|
Mensagem do
PAOLASTEKL
em 21/09/2018, 06:27 h
Local: SP Registro: 27/03/2018 Postagens: 9 |
| Você pode criar seu layout que será enviado por e-mail em .html, e no ADVPL trata os dados que alimentará este layout. No scheduler só precisa chamar este fonte na configuração que deseja de dias da semana e hora para que ele execute o WF. |
|
|
|
Mensagem do
TYELSILVA
em 18/10/2018, 10:48 h
Local: MG Registro: 23/03/2018 Postagens: 10 |
PAOLASTEKL, bom dia!
Criar o layout que será enviado por e-mail em .html já sei como fazer, só que não sei fazer com que o ADVPL tratará os dados que alimentará este layout.
Você tem algum modelo/exemplo de como fazer isso?
Desde já obrigado.
|
|
|
|
Mensagem do
DEINHO
em 18/10/2018, 13:23 h
Local: SP Registro: 18/05/2013 Postagens: 21 |
Faça algo do tipo abaixo:
User Function fEnviaWork()
Local TRB := GetNextAlias()
Local dDataAte := dDataBase - 7
Local dDataDe := dDataAte - 60
Local cQuery := ""
Local cHTML := ""
#IFDEF TOP
cQuery += " SELECT * FROM " + RetSqlName("ZE3") + " ZE3 "
cQuery += " WHERE ZE3_FILIAL = ‘‘ AND ZE3.D_E_L_E_ = ‘‘ "
cQuery += " AND ZE3_DATGER BETWEEN ‘" + DtoS( dDataDe ) + ‘"
cQuery += " AND ‘" + DtoS( dDataAte ) + ‘"
DbUseArea( .T., ‘TOPCONN‘, TcGenQry( ,, cQuery ), "TRB", .F., .T. )
#ENDIF
DbSelectArea( "TRB" )
If ! Eof()
/*Monta HTML */
cHTML += ‘‘
cHTML += ‘ ‘
cHtml += ‘ ‘
cHtml += ‘ ‘
cHTML += BLA BLA BLABLABLABLA
While ! Eof()
cHTML += BLA BLA BLABLABLABLA
DbSkip()
EndDo
cHtml += ‘ ‘
cHtml += ‘‘
fEnviaEmail(cHtml)
EndIf
DbCloseArea()
Return Nil |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
