Perguntas Schedule

oi galera..depois que migramos a versão não estou conseguindo enviar msg automáticas pelo schedule,tem algum processo diferente para a v11 ?

Oi Maiara,
Como assim mensagem automática?
Que tipo de mensagem?
Posta um trecho do código que faz esse envio para que possamos analisar.

o código esta funcionando certo, se chamar ele pelo menu o email vai certo. O problema é quando crio um agendamento pelo configurador, schedule, para agendar a hora de mandar este email que não estou conseguindo fazer.

meu ini. esta assim

[ONSTART]
jobs=Schedule

[SCHEDULE]
Main=WFOnStart
Environment=compilar

o schedule.wf esta assim: (tres empresas no ambiente compilar)
01,01,compilar,T,,T
01,02,compilar,T,,T
01,03,compilar,T,,T

segue meu codigo:
#include "rwmake.ch"
#include "tbiconn.ch"
#INCLUDE "topconn.ch"

/*

---

+
* Programa * TGPEW002 º * Data ³ 01/09/2013 *
*

---

*
* Objetivo * Programa que envia e-mail com aniversariantes do dia. *
* * *
*

---

*
* Uso * WorkFlow/ *
*

---

+
| Starting | scheduler |
+

---

*/

User Function TGPEW002()


PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" FUNNAME "U_TGPEW002" TABLES "SRA"
PREPARE ENVIRONMENT EMPRESA "01" FILIAL "02" FUNNAME "U_TGPEW002" TABLES "SRA"
PREPARE ENVIRONMENT EMPRESA "01" FILIAL "03" FUNNAME "U_TGPEW002" TABLES "SRA"

RpcSetEnv("01","01")
RpcSetEnv("01","02")
RpcSetEnv("01","03")


Private oProcess,oHtml

DIA1 := DtoS(Date())
nmes := substring(DIA1,5,2)
ndia:= substring(DIA1,7,2)

dbSelectArea('SRA')
SRA->(dbSetOrder(1))
SRA->(dbGoTop())

AUX1 := 0
plural := 0

oProcess := TWFProcess():New( "000010", "Aniversariantes" )
oProcess :NewTask( "Aniversariantes", "\WORKFLOW\HTML\NIVER.HTM" )
oHtml := oProcess:oHTML

oHtml:ValByName("it.nome" , {})
oHtml:ValByName("it.filial" , {})

oHtml:ValByName("dia" , date())

While (SRA ->(!Eof()))

If (SUBSTRING(DTOC(SRA->RA_NASC),1,2) == ndia) .and. (SUBSTRING(DTOC(SRA->RA_NASC),4,2) == nmes) .and. (SRA->RA_SITFOLH <> 'D')
/*** Preenche os dados no HTML ***/

AUX1 := 1
plural := plural + 1

// aadd(oHtml:ValByName("it.descri" ) , SRA->RA_NOME)
aadd( (oHtml:ValByName("it.nome" )) , SRA->RA_NOME)
If SRA->RA_FILIAL == '01'
aadd( (oHtml:ValByName("it.filial")) , "Matriz")
ElseIf SRA->RA_FILIAL == '02'
aadd( (oHtml:ValByName("it.filial")) , "Blumenau")
ElseIf SRA->RA_FILIAL == '03'
aadd( (oHtml:ValByName("it.filial")) , "Farroupilha")
EndIf
EndIf

SRA->(dbSkip())

Enddo

If AUX1 = 1
if plural > 1
oHtml:ValByName("plural" ,"ão")
Else
oHtml:ValByName("plural" ,"á")
endif

oProcess:cSubject := "Aniversariante"
oProcess:cTo := "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
oProcess:Start()
EndIf

IF AUX1 == 0
oProcess := TWFProcess():New( "000010", "Aniversariantes" )
oProcess :NewTask( "Aniversariantes", "\WORKFLOW\HTML\NIVER99.HTM" )
oHtml := oProcess:oHTML
oProcess:cSubject := "Aniversariante"
oProcess:cTo := "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
oProcess:Start()
ENDIF
Reset ENVIRONMENT
Return

Tenta colocar o seu .ini assim:

[ONSTART]
jobs=Schedule, FWSCHDMANAG

[SCHEDULE]
Main=WFOnStart
Environment=compilar

[FWSCHDMANAG]
Main=FWSCHDMANAG
Environment=compilar

Depois posta ai e diz se deu certo.

cara, ñ foi
subiu no monitor os jobs
SCHEDULE-_AGENT01 e
SCHEDULE-_AGENT01_EXEC01

não sei se é algm processo errado que estou fazendo nos agendamentos.
Crei um AGENT e um agendamento..ñ sei o que pode ser

da uma olhada se sua tabela SXM está configurada corretamente.