Bom Dia Boa Tarde Boa Noite
Seja Membro do Canal
Esse Video Ao Vivo vai estrear as 05:00 do dia 03/02/2021
DICAS 3255 - WEBDEV - COMO FAZER O FILTRO FAZENDO MES E ANO JUNTOS - PERGUNTAS E RESPOSTAS 17
ASSUNTOS
COMO FAZER O FILTRO FAZENDO MES E ANO JUNTOS
VOU MOSTRAR O CODIGO PARA GERAR COMBOX MES E ANOS
VOU MOSTRAR O CODIGO DE SOMA E DIMUNUI COMBOX MES E ANOS
MOSTRANDO O CODIGO DE ATUALIZA TABELA
VAMOS ENTRAR NA QUERY CTE RELACAO
VAMOS ACRESCENTAR O FILTRO E A ORDEM NO SELECT
VAMOS ENTRAR NA TABELA CTE RELACAO
E NO CODIGO DA TABELA VAMOS ACRESCENTAR OS PARAMETROS NA INICIALIZACAO
-----
//BOTAO ATUALIZA TABELA
TableDisplay(TABLE_cte_relacao,taInit)
---------------
// SOMA
COMBO_ANO_MESES++
IF COMBO_ANO_MESES=2 THEN
COMBO_ANO_MESES=3
END
ExecuteProcess(ZONE_NoName3.BTN_ATUALIZA_TABELA,trtClick)
-----
// DIMINUI COMOBX
COMBO_ANO_MESES--
IF COMBO_ANO_MESES>2 THEN
ELSE
COMBO_ANO_MESES=1
END
ExecuteProcess(ZONE_NoName3.BTN_ATUALIZA_TABELA,trtClick)
------
// INICIALIZA MES E ANO
ListDeleteAll(COMBO_ANO_MESES) // LIMPA COMBOX MES E ANOS
ListAdd(COMBO_ANO_MESES,"Hoje") // ADICIONO NA LINHA - HOJE
ListAdd(COMBO_ANO_MESES,"Todos") // ADICIONIO NA LINHA - TODOS
bRetorno is boolean=HReadFirst(conhecimento,id_conhecimento) // ESTOU LENDO O PRIMEIRO CTE
IF bRetorno=True THEN // SE EXISTIR ENTAO
DATA_INICIAL is Date=conhecimento.data_emissao // VOU PEGAR A PRIMEIRA DATA - DESSE CONHECIMENTO
IF DATA_INICIAL<>"" THEN // SE EXISTIR DATA É PORQUE TEMOS CONHECIMENTO
HReadLast(conhecimento,id_conhecimento) // VAMOS LER O ULTIMO REGISTRO
DATA_FINAL is Date=conhecimento.data_emissao // VAMOS COLOCAR A DATA FINAL
LOOP // VAMOS ENTRAR EM LOOP DE TODOS OS MESES E ANOS
ANO is string = NumToString(DATA_FINAL..Year,"04d") // SEPARANDO ANO
MES is string = NumToString(DATA_FINAL..Month,"02d") // SEPARANDO MES
sMES_ANO is string = MES+"/"+ANO // isso se for combox // JUNTANDO MES E ANO
ListAdd(COMBO_ANO_MESES,sMES_ANO) // ADICIONANDO MES E ANO NA LISTA
DATA_FINAL..Month-=1 // COMO ESTOU FAZENDO DO MAIOR PARA MENOR, ESTOU DIMINUINDO MESES
IF DATA_FINAL<DATA_INICIAL THEN // SE A DATA FINAL FOR MENOR DATA INICIAL THEN
BREAK // SAI DO LOOP
END // FINALIZA IF
END // FINALIZA LOOP
ListSelectPlus(COMBO_ANO_MESES,1) // VOU POSICIONAR O COMBOX NO PRIMEIRO - HOJE
END // FINAL IF
END // FINAL IF
---
//inicializacao tabela ct relacao
QRY_cte_relacao.parametro_data=Null
QRY_cte_relacao.parametro_lista_mes_ano=Null
IF COMBO_ANO_MESES..StoredValue=-1 OR COMBO_ANO_MESES..StoredValue="" OR COMBO_ANO_MESES..StoredValue="Hoje" THEN
QRY_cte_relacao.parametro_data=EDT_Data
ELSE
IF COMBO_ANO_MESES..StoredValue="Todos" THEN
ELSE
ANO_MES is string=COMBO_ANO_MESES..StoredValue[4 TO 7]+COMBO_ANO_MESES..StoredValue[1 TO 2]
QRY_cte_relacao.parametro_lista_mes_ano=ANO_MES
END
END
