https://youtu.be/fr7jKoeIUg0
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
=============== INDICE PERGUNTAS E RESPOSTA
------------------- INDICE SQL ------------
Blog - Curso Sql/1 ... NVL - Select/Update -> NVL
Blog - Curso Sql/2... - Data - Ultimo Dia do mes - Select Last_Day() - Ultimo dia Do Mes
Blog - Curso Sql/3... - Data Mes - Months_BetWeen
Blog - Curso Sq/4 ... - Data e Hora Atual - SysDate - Hora e Data Atual
Blog - Curso Sq/5 ... - Decode
Blog - Curso Sql/6... - Posicao - Select Instr
Blog - Curso Sql/7... - Posicao - Select Instr - Procura posicao
Blog - Curso Sql/8... - Count - Select count
Blog - Curso Sql/9... - Maximo - Select Max,Min,Count,Avg
Blog - Curso Sql/10... - Strings - Modifica Strings-Minuscula/Maiscula
Blog - Curso Sql/11... - Tamanho Campo - Len
Blog - Curso Sql/12... - Data - Select - Pegar Dia/mes/Ano
Blog - Curso Sql/13... - Data - Select Betwen /2/ - Intervalo Data
Blog - Curso Sql/14... - Foto - ALTER TABLE veiculo ADD foto BLOB
Blog - Curso Sql/15... - Elimina Tabela - Dropt Table - Eliminar Uma Tabela Dentro WinDev
Blog - Curso Sql/16... - Procurar - Like - Pesquisar Cidade combox
Blog - Curso Sql/17... - String - Select - Wl.ExtractString
Blog - Curso Sql/18... - Cnpj - fazer Queue - Ver se Existe Cnpj/Cpf
Blog - Curso Sql/19... - Colorir as Linhas Sql
Limit - Limitar Informações - Curso Sql/20 ... - Limit
SqlCode - Ver Conteudo da Qry - Sql / 021
SQLCODE - DICAS 1771 - PUBLICA - WINDEV 23 - SQL 022 -
PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google
Video sobre 3 Mil Videos Windev
Video sobre Alfaserver servidor
