sábado, 6 de fevereiro de 2021

DICAS 3257 - WEBDEV - COMO FAZER UMA CONSULTA POR NOME ENQUANTO DIGITA O NOME NA RELACAO TABELA CLIENTE - PERGUNTAS E RESPOSTAS 19



https://youtu.be/QOB6GMbnoFY



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video Ao Vivo vai estrear as XX:00 do dia 06/02/2021 

DICAS 3257 - WEBDEV - COMO FAZER UMA CONSULTA POR NOME ENQUANTO DIGITA O NOME NA RELACAO TABELA CLIENTE - PERGUNTAS E RESPOSTAS 19


ASSUNTOS


ESTOU DESENVOLVENDO ERPWEB, E A PROXIMA PERGUNTA EU MESMO VOU FAZER PARA EU MESMO RESPONDER
COMO FAZER O FILTRO QUE FAÇO NO WINDEV, TAMBEM TER NO WEBDEV
1. MOSTRAR SELECT DO REPRESENTANTE
2. MOSTRAR TABELA ONDE MOSTRA REPRESENTANTE
3. CRIAR BOTAO PROCURA NOME 
5. CRIAR BOTAO PARA LIMPAR O FILTRO 
6. CRIAR PROCEDURE BUSCA_FILTRO
7. ENTRAR PROCEDURE BUSCA FILTRO E CRIAR O CODIGO DO BUSCA E MARCAR AJAX 
8. ENTRAR CODIGO BOTAO LIMPAR FILTRO E DIGITAR O CODIGO 

    
--------- 

// LIMPA FILTRO

EDT_Procurar=""

TableDisableFilter(COL_Nome_representante)

-----
// EDT PROCURA - KEY DOWN - ENQUANTO DIGITA O NOME 

AJAXExecute(ajaxUpdateControls,busca_filtro,EDT_Procurar)

-----

//MARCAR AJAX NESSA PROCEDURE 
//PROCEDURE busca_filtro(RECEBE_CAMPO_PROCURA)

IF NoSpace(RECEBE_CAMPO_PROCURA)>"" THEN
TableEnableFilter(COL_Nome_representante,filterContains,RECEBE_CAMPO_PROCURA)
END


------

=============== INDICE PERGUNTAS E RESPOSTA



========== INDICE TABELA

CRIANDO UMA TABELA MANUAL-PARTE 1 DICAS 1936-PUBLICA-WINDEV-TABELA 86 
The TreeView Table Control - DICAS 1972 - PUBLICA - WINDEV - TABELA 87 - 
DICAS 2012 - WINDEV - TABELA - 88 - BuildBrowsingTable - PREENCHER TABELA
DICAS 2013 - WINDEV - TABELA - 89 - TableRecNum - Numero de Registros
DICAS 2014 - WINDEV - TABELA - 90 - TableToText
DICAS 2015 - WINDEV - TABELA - 91- TableToXML
DICAS 2016 - WINDEV - TABELA - 92- TableToExcel
DICAS 2017 - WINDEV - TABELA - 93 - TableToClipboard
DICAS 2018 - WINDEV - TABELA - 94 - TableStartFilling
DICAS 2043 - WINDEV - TABELA 95 - Border
DICAS 2070 - WINDEV MOBILE WEBDEV - TABELA 96 - NAO MOSTRAR VAMOS ZERADOS
DICAS 2072 - WINDEV - TABELA 97 - TOTALIZADORES MANUAL
DICAS 2073 - WINDEV - TABELAS 98 - TABELAS RELACIONADAS
DICAS 2076 - WINDEV WEBDEV MOBILE - TABELA 99 - WHILE HOut
DICAS 2086 - WINDEV - TABELA 100 - FontLarge - BrushColor
DICAS 2090 - WINDEV - TABELA 101 - TableSavePositionAndSelection TableRestorePositionAndSelection
DICAS 2098 - WINDEV WEBDEV MOBILE - TABELA 102 - MOSTRAR OU ESCONDER TABELA
DICAS 2099 - WINDEV WEBDEV MOBILE - TABELA 103 - AJUSTAR JANELA
DICAS 2119 WINDEV TABELAS 104 TableStartFilling end
DICAS 2125 WINDEV WEBDEV MOBILE TABELA 105 ZOOM
DICAS 2127 WINDEV WEBDEV MOBILE TABELA 106 FOR EACH SELECTED ROW OF
DICAS 2128 WINDEV WEBDEV MOBILE TABELA 107 DIGITAR TABELA
DICAS 2137 WINDEV WEBDEV MOBILE TABELA 108 popup menu na tabela
DICAS 2149 WINDEV WEBDEV MOBILE TABELA 109 MONTAR TABELA POR PROGR for each
DICAS 2153 WINDEV WEBDEV MOBILE TABELA 110 TreeView Table control
DICAS 2186 WINDEV WEBDEV MOBILE TABELA 111 TOTAL MANUAL REGISTROS
DICAS 2261 WINDEV WEBDEV MOBILE TABELA 112 ANCORAR TABELA
DICAS 2299 WINDEV WEBDEV MOBILE TABELA 114 TABELA INTERNA
AO VIVO 2880 TRANSMITIDO NO FACEBOOK VARIOS VIDEOS TABELA WINDEV
DICAS 3252 - WEBDEV - COMO FAZER UMA RELACAO DE CTE - PERGUNTAS E RESPOSTAS 14


---------------- INDICE WEBDEV

DICAS 3067 -WEBDEV TUTORIAL 1-Licao 1.1-14-09-2020 11hrs-DESCUBRA WEBDEV
DICAS 3068 -WEBDEV TUTORIAL 1-Licao 1.2-14-09-2020 15hrs-Web development and WEBDEV - PARTE A
DICAS 3069 -WEBDEV TUTORIAL 3-Licao 1.2-14-09-2020 16hrs-Web development and WEBDEV - PARTE B


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 

















quinta-feira, 4 de fevereiro de 2021

DICAS 3256 - WINDEV - COMO FAZER UM GRAFICO POR PROGRAMACAO - PERGUNTAS E RESPOSTAS 18



https://youtu.be/2COnAlC_4FY



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal


Esse Video Ao Vivo vai estrear as 06:30 do dia 04/02/2021 

DICAS 3256 - WINDEV - COMO FAZER UM GRAFICO POR PROGRAMACAO - PERGUNTAS E RESPOSTAS 18


ASSUNTOS

QUERO AGRADECER AO AMIGO ROGERIO KNAPPMAN POR DISPONIBILIZAR UM EXEMPLO GRAFICO POR PROGRAMACAO
COM ISSO PUDE ESTUDAR E CRIAR UM EXEMPLO PARA O FERNANDES.. 
COMO FAZER UM GRAFICO POR PROGRAMACAO
1. VAMOS CRIAR UMA JANELA DE GRAFICO POR PROGRAMACAO
2. VAMOS CRIAR UMA TABELA POR PROGRAMACAO, QUE TENHA NOME,TOTAL,DATA
3. VAMOS CRIAR O GRAFICO 
4. VAMOS CRIAR O BOTAO PARA CRIAR O GRAFICO 
5. VAMOS CRIAR O CODIGO PARA GERAR O GRAFICO 

-----
//inicializa tabela

TableDeleteAll(TABLE_secao)
DATA is Date=StringToDate("28/01/2021","DD/MM/AAAA")
TABLE_secao.AddLine("SECAO A",48.90,DATA)
DATA=StringToDate("29/01/2021","DD/MM/AAAA")
TABLE_secao.AddLine("SECAO A",72.11,DATA)
DATA=StringToDate("29/01/2021","DD/MM/AAAA")
TABLE_secao.AddLine("SECAO B",208.26,DATA)
DATA=StringToDate("02/02/2021","DD/MM/AAAA")
TABLE_secao.AddLine("SECAO A",728.11,DATA)

--- 

// BTN_gERAR_GRAFICO

grDeleteAll(CHART_VALORES) // ELIMINANDO GRAFICO
grDeleteSeries(CHART_VALORES) // ELIMINANDO SERIES
grTitle(CHART_VALORES,"GRAFICO")
SERIE is int=1
FOR EACH ROW IN TABLE_VALORES // PERCORRENDO A TABELA
grIncreaseData(CHART_VALORES,SERIE,TABLE_VALORES,TABLE_VALORES.COL_TOTAL)
grCategoryLabel(CHART_VALORES,TABLE_VALORES,TABLE_VALORES.COL_NOME+" - "+DateToString(TABLE_VALORES.COL_DATA,"DD/MM/YYYY"))
END
grLegend(CHART_VALORES,grAtTop)
grSeriesLabel(CHART_VALORES,1,"SECAO E DATAS")
grDraw(CHART_VALORES) // MOSTRAR O GRAFICO

------


=============== INDICE PERGUNTAS E RESPOSTA



------- INDICE AULAS SOBRE GRAFICOS






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 





















segunda-feira, 1 de fevereiro de 2021

DICAS 3255 - WEBDEV - COMO FAZER O FILTRO FAZENDO MES E ANO JUNTOS - PERGUNTAS E RESPOSTAS 17



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 















Teste

Teste
teste