PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WM - Adicionando dados em um Looper Control para funcionar no Android e no iOS
WM - Adicionando dados em um Looper Control para funcionar no Android e no iOS
Iniciado por Boller, out., 20 2020 1:20 AM - 2 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 20 2020 - 1:20 AM
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)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 20 2020 - 1:59 AM









--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 20 2020 - 2:20 AM
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())


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/