PROCEDURE FiltraNotificacao(IdCampanha is int)

x is int = 0

LooperDeleteAll(LOOP_QRY_Select_Notificacoes)

IF IdCampanha > 0

ok is boolean = HExecuteQuery(QRY_Select_Notificacoes,hQueryDefault,IdCampanha)

IF ok = True THEN

FOR EACH QRY_Select_Notificacoes

IF HFound(QRY_Select_Notificacoes) = True AND QRY_Select_Notificacoes.t011_campanhaCodigo = IdCampanha

x+= 1

LooperAdd(LOOP_QRY_Select_Notificacoes)
LOOP_QRY_Select_Notificacoes[x].IMG_icone = QRY_Select_Notificacoes.t011_Icone_bmp
LOOP_QRY_Select_Notificacoes[x].ATT_IDNotificacao = QRY_Select_Notificacoes.t011_idNotificacao
LOOP_QRY_Select_Notificacoes[x].ATT_campanha = QRY_Select_Notificacoes.t011_campanhaNome
LOOP_QRY_Select_Notificacoes[x].ATT_DataHora = QRY_Select_Notificacoes.t011_datahora_formatada
LOOP_QRY_Select_Notificacoes[x].ATT_Titulo = QRY_Select_Notificacoes.t011_titulo
LOOP_QRY_Select_Notificacoes[x].ATT_Txt = QRY_Select_Notificacoes.t011_olho
LOOP_QRY_Select_Notificacoes[x].ATT_IDCampanha = QRY_Select_Notificacoes.t011_campanhaCodigo

// LooperAdd(LOOP_QRY_Select_Notificacoes, QRY_Select_Notificacoes.t011_idNotificacao +tab+...
// QRY_Select_Notificacoes.t011_campanhaCodigo +tab+...
// QRY_Select_Notificacoes.t011_titulo +tab+...
// QRY_Select_Notificacoes.t011_campanhaNome +tab+...
// QRY_Select_Notificacoes.t011_datahora_formatada +tab+...
// QRY_Select_Notificacoes.t011_olho +TAB+...
// QRY_Select_Notificacoes.t011_Icone_bmp)

END


END


END

ELSE

ok is boolean = HExecuteQuery(QRY_Select_Notificacoes_SemFiltro,hQueryDefault)

IF ok = True THEN

FOR EACH QRY_Select_Notificacoes_SemFiltro

IF HFound(QRY_Select_Notificacoes_SemFiltro) = True THEN

x+= 1

LooperAdd(LOOP_QRY_Select_Notificacoes)
LOOP_QRY_Select_Notificacoes[x].IMG_icone = QRY_Select_Notificacoes_SemFiltro.t011_Icone_bmp
LOOP_QRY_Select_Notificacoes[x].ATT_IDNotificacao = QRY_Select_Notificacoes_SemFiltro.t011_idNotificacao
LOOP_QRY_Select_Notificacoes[x].ATT_campanha = QRY_Select_Notificacoes_SemFiltro.t011_campanhaNome
LOOP_QRY_Select_Notificacoes[x].ATT_DataHora = QRY_Select_Notificacoes_SemFiltro.t011_datahora_formatada
LOOP_QRY_Select_Notificacoes[x].ATT_Titulo = QRY_Select_Notificacoes_SemFiltro.t011_titulo
LOOP_QRY_Select_Notificacoes[x].ATT_Txt = QRY_Select_Notificacoes_SemFiltro.t011_olho
LOOP_QRY_Select_Notificacoes[x].ATT_IDCampanha = QRY_Select_Notificacoes_SemFiltro.t011_campanhaCodigo
//
//
// LooperAdd(LOOP_QRY_Select_Notificacoes, QRY_Select_Notificacoes_SemFiltro.t011_idNotificacao +TAB+...
// QRY_Select_Notificacoes_SemFiltro.t011_campanhaCodigo +TAB+...
// QRY_Select_Notificacoes_SemFiltro.t011_titulo +TAB+...
// QRY_Select_Notificacoes_SemFiltro.t011_campanhaNome +TAB+...
// QRY_Select_Notificacoes_SemFiltro.t011_datahora_formatada +TAB+...
// QRY_Select_Notificacoes_SemFiltro.t011_olho +TAB+...
// QRY_Select_Notificacoes_SemFiltro.t011_Icone_bmp)

END


END


END

END

LooperDisplay(LOOP_QRY_Select_Notificacoes,taReExecuteQuery)

PROCEDURE SelecionarRegistro_Abre()

IF gn_x > 0 THEN

GNCODIGO = LOOP_QRY_LISTA_FUNCIONARIOS[gn_x].ATT_ID

IF GNCODIGO > 0 THEN
Editar(GNCODIGO)
END

END

PROCEDURE SelecionarRegistro_NaoAbre()

gn_x = LooperInfoXY(LOOP_QRY_LISTA_FUNCIONARIOS,liLineNumber,MouseXPos(),MouseYPos())