AvisoAgenda(gsResp_ID)

Procedure AvisoAgenda(RespID)

MINUTO is int = 0

Registros is boolean

dtAgora is DateTime = DateSys() + TimeSys()

LOOP (60)

MINUTO += 1

IF MINUTO < 10
dtAgora = Middle(dtAgora,1,12)+"0"+MINUTO
ELSE
dtAgora = Middle(dtAgora,1,12)+MINUTO
END

ok is boolean = HExecuteQuery(QRY_Select_t008_agenda_Filtro,hQueryDefault,dtAgora,RespID)

IF ok = True THEN

FOR EACH QRY_Select_t008_agenda_Filtro

Registros = HFound(QRY_Select_t008_agenda_Filtro)

IF Registros = True AND QRY_Select_t008_agenda_Filtro.t008_data_hora = dtAgora

Open(WIN_Agenda,QRY_Select_t008_agenda_Filtro.t003_RespID,...
QRY_Select_t008_agenda_Filtro.t005_gpm_ID,...
QRY_Select_t008_agenda_Filtro.t008_agendaID,...
QRY_Select_t008_agenda_Filtro.t008_assunto,...
QRY_Select_t008_agenda_Filtro.t008_cliente,...
QRY_Select_t008_agenda_Filtro.t008_data_hora,...
QRY_Select_t008_agenda_Filtro.t008_realizado)


END

END

END

END

Procedure WIN_Agenda(t003_RespID, t005_gpm_ID, t008_agendaID, t008_assunto, t008_cliente, t008_data_hora,t008_realizado)

EDT_T003_RespID = t003_RespID
EDT_T005_gpm_ID = t005_gpm_ID
EDT_T008_agendaID = t008_agendaID
EDT_T008_assunto = t008_assunto
EDT_T008_cliente = t008_cliente
EDT_T008_data_hora = t008_data_hora
CBOX_T008_realizado= t008_realizado

//gravar

ok is boolean = HExecuteQuery(QRY_Update_t008_agenda,hQueryDefault,EDT_T008_data_hora,EDT_T005_gpm_ID,EDT_T008_cliente,EDT_T008_assunto,CBOX_T008_realizado,EDT_T008_agendaID,EDT_T003_RespID)
IF ok = True THEN

NextTitle("Atenção")
Info("Gravou com sucesso!")

END

Close()