quarta-feira, 17 de março de 2021

DICAS 3285 - WINDEV WEBDEV MOBILE - SELECT DISTINCT - Mes e Ano - Parte 2 - Sql - 31




https://youtu.be/WONQ5sw-ntA



Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 16/03/2021 


DICAS 3285 - WINDEV WEBDEV MOBILE - SELECT DISTINCT - Parte 2 - Mes e Ano  - Sql - 31




Foi criado um projeto Windev sql e esta disponivel repositorio windev

https://repository.windev.com/

------------ Codigos

//qry_recebimento_relacao

SELECT 
  recebimentos.recebimentosID AS recebimentosID,  
  recebimentos.id_cliente AS id_cliente,  
  cliente.razao_social AS cliente_nome,
  recebimentos.data_vencimento AS data_vencimento,  
  recebimentos.valor AS valor
FROM 
  recebimentos
JOIN cliente ON cliente.id_cliente=recebimentos.id_cliente
WHERE 
 recebimentos.data_vencimento={parametro_data}
 AND 
  LEFT(recebimentos.data_vencimento,6) IN ({parametro_ano_mes}) 
 ORDER BY recebimentos.data_vencimento ASC 

----------------

//qry mes ano

SELECT DISTINCT
RIGHT(LEFT(recebimentos.data_vencimento,6),2)+'/'+LEFT(recebimentos.data_vencimento,4) AS mes_ano
FROM 
recebimentos
ORDER BY mes_ano DESC

----------------

// qry_cliente_representante

SELECT DISTINCT
cliente.id_representante,
representante.nome
FROM 
cliente
JOIN representante ON representante.id_representante=cliente.id_representante

-----------------

//qry recebimentos

SELECT DISTINCT 
recebimentos.data_vencimento
FROM 
recebimentos

-------------


// selecting a row of combo_qry_mes_ano

TableDisplay(TABLE_QRY_recebimento_relacao,taInit)

-----------------------


// INICIALIZA TABLE_QRY_rECEBIMENTO_rELACAO

QRY_recebimento_relacao.parametro_data = Null
QRY_recebimento_relacao.parametro_ano_mes = Null
IF COMBO_QRY_mes_ano..StoredValue="Todos" OR COMBO_QRY_mes_ano=0 OR COMBO_QRY_mes_ano=-1 THEN
IF COMBO_recebimentos="" OR COMBO_recebimentos=1 OR COMBO_recebimentos..StoredValue="" THEN
ELSE
QRY_recebimento_relacao.parametro_data=COMBO_recebimentos..StoredValue
END
ELSE 
sAno_meses is string=COMBO_QRY_mes_ano..StoredValue[[4 TO 7]]+COMBO_QRY_mes_ano..StoredValue[[1 TO 2]]
    QRY_recebimento_relacao.parametro_ano_mes=sAno_meses
END

------------------------


// selectin a row of combo_recebimentos

TABLE_QRY_recebimento_relacao.Display(taInit)

----------------------

// initializin table_cliente

IF COMBO_Representante="" OR COMBO_Representante=0 THEN
   
    HDeactivateFilter(cliente)
    
ELSE
HFilter(cliente,Id_representante,COMBO_Representante)
END

-------------------


// selecting combo_representante

TableDisplay(TABLE_cliente,taInit)

-------------------



------------------- 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 












terça-feira, 16 de março de 2021

DICAS 3284 - WINDEV WEBDEV MOBILE - SELECT DISTINCT - Sql - 41





https://youtu.be/8D_sGYG5XXg




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as  do dia 16/03/2021 

DICAS 3284 - WINDEV WEBDEV MOBILE - SELECT DISTINCT - Sql - 41


Foi criado um projeto Windev sql e esta disponivel repositorio windev
https://repository.windev.com/

foi criado tres Tabelas Hyperfile Classic para Exemplos 
Representante
Clientes
Movimentos
Cadastrei varios clientes com representante 
Cadastrei varios movimentos com datas diferentes e iguais
Vou mostrar combox com todos representantes
Vou mostrar combox com representantes, mas somente aqueles que tem clientes vinculados 
Vou mostrar combox de datas, somente que tenha movimentos 
cada uma dessa combox vai filtrar os dados 

-------------------- Codigos e Sql
SELECT DISTINCT 
cliente.id_representante,
representante.nome
FROM 
cliente
JOIN representante ON representante.id_representante = cliente.id_representante
--------------------------
// selecting a row of combo_representante
TableDisplay(TABLE_cliente,taInit)
--------------------------
// initializin table_cliente
IF COMBO_Representante="" OR COMBO_Representante=0 THEN
  HDeactivateFilter(cliente)
ELSE
HFilter(cliente,Id_representante,COMBO_Representante)
END
-------------------
SELECT DISTINCT 
recebimentos.data_vencimento
FROM 
recebimentos
------------
// selectin a row of combo_recebimentos
TableDisplay(TABLE_recebimentos,taInit)
------------
// initializin table_recebimento
IF COMBO_recebimentos..StoredValue="" OR COMBO_recebimentos=1 THEN
HDeactivateFilter(recebimentos)
ELSE
HFilter(recebimentos,data_vencimento,COMBO_recebimentos..StoredValue)
END
------------------- 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 












sábado, 13 de março de 2021

DICAS 3283 - WINDEV WEBDEV MOBILE - Como Criar e Manipular uma Estrutura - PERGUNTAS E RESPOSTAS - 40



https://youtu.be/a3DyL0N4AsU



Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 15/03/2021 


DICAS 3283 - WINDEV WEBDEV MOBILE - Como Criar e Manipular uma Estrutura - PERGUNTAS E RESPOSTAS - 40



ASSUNTOS


Como Criar e Manipular uma Estrutura
Vamos criar um botao 
Vamos criar uma tabela por programacao com 2 colunas
Vamos criar uma variavel cliente estrutura com codigo e nome
Vamos criar um array de clientes 
vamos preencher esse array 
vamos preencher a tabela com array 


No final do video, erros de gravaçao


Esse exemplo se encontra no repositorio WINDEV 


https://repository.windev.com/

--------------------------- Codigo 

cliente_estrutura is Structure  // Criando uma Estrutura - Chamada cliente
codigo is int
nome is string
END
stCliente_dados is cliente_estrutura // cliente cliente dados e cliente array
cliente_array is array of cliente_estrutura
stCliente_dados.codigo=1 // preenchendo dados - primeiro registro
stCliente_dados.nome="amarildo"
ArrayAdd(cliente_array,stCliente_dados)
stCliente_dados.codigo = 2 // preenchendo dados - segundo registro
stCliente_dados.nome = "joao"
ArrayAdd(cliente_array,stCliente_dados)
// ler os dados e preenhcer tabela
TABLE_dados.DeleteAll()
FOR EACH ELEMENT stLinha OF cliente_array
TABLE_dados.AddLine(stLinha.codigo,stLinha.nome)
END



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



------------------ INDICE DO CURSO DE ARRAY e ESTRUTURA


WinDev - Array - 001/... Adiciona/Classifica Ordem/Mostra
WinDev - Array - 002/... Quantas Ocorrencias Array
WinDev - Array - 003/... ArrayDeleteLine - Eliminha uma Linha do Array
WinDev - Array - 004/... ArrayToString - Leva Array Para String
WinDev - Array - 005/... Seek - Procura Por Valor
WinDev - Array - 006/... ArrayDeleteDuplicate - Elimina itens duplos
WinDev - Array - 007/... Delete - Elimina Uma Linha
WinDev - Array - 008/... DeleteAll - Limpa Array
WinDev - Array - 009/... SwapLine - Mover de Lugar
WinDev - Array - 010/... Sum - Somar Array
ARRAYREVERSE - ARRAY - 011/ ... AULA 1185 
ARRAY INICIO - ARRAY 012 / AULA 1229



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 

















Como criar e manipular uma estrutura? -  structure
Uma estrutura é um tipo de variável composta de outras variáveis.
Por exemplo, uma variável "Endereço" pode ser composta por:
  • Nome da minha empresa
  • Nome do contato
  • Endereço
  • Código postal
  • Cidade
  • País
Isso permite que você passe como parâmetro para um procedimento uma variável criada a partir de uma estrutura, em vez de passar tantos parâmetros quanto o número de elementos encontrados na estrutura.
Declarando uma estrutura - Declaring a structure
Para declarar uma estrutura, use a seguinte sintaxe:
StructureName is structure
Member1 is <type of variable>
Member2 is <type of variable>
...
END
Por exemplo:
stAddress is Structure
 CompanyName is string
 ContactName is string
 Address is string
 ZipCode is string
 City is string
 Country is string
END
Usando uma estrutura - structure
Para usar uma estrutura existente, você deve:
  1. Declare uma variável (mesmo tipo da estrutura).
  2. Inicialize os membros que fazem parte da estrutura.
Por exemplo:
stAddress is Structure
 CompanyName is string
 ContactName is string
 Address is string
 ZipCode is string
 City is string
 Country is string
END

ACustomer is stAddress

ACustomer.CompanyName = "PC SOFT"
ACustomer.ContactName = "Paul Doe"
ACustomer.Address = "3 Rue Puech Villa"
ACustomer.ZipCode = "34000"
ACustomer.City = "Montpellier"
ACustomer.Country = "FRANCE"
Observações
As estruturas podem ser declaradas:
  • no código do projeto (estrutura global para todo o projeto).
  • no código de uma janela ou página (estrutura global para a janela ou página).
  • em qualquer processo (estrutura local para o processo).





sexta-feira, 12 de março de 2021

DICAS 3282 - WINDEV WEBDEV MOBILE - Como fazer para Nao deixar fechar o popup no Webdev24 - PERGUNTAS E RESPOSTAS - 39




https://youtu.be/55M2mcmJd94



Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

Seja Membro do Canal

Esse Video vai estrear as XX:00 do dia 12/03/2021 

DICAS 3282 - WINDEV WEBDEV MOBILE - Como fazer para Nao deixar fechar o popup no Webdev24 - PERGUNTAS E RESPOSTAS - 39


ASSUNTOS
Como fazer para Nao deixar fechar o popup no Webdev24
Sera criado uma pagina para chamar dois popup
vou criar dois popup 
o Primeiro mostra uma tabela e faz uma busca 
o segundo digita campos e torno obrigatorios

No final da aula vou simular o que aconteceu com Ricardo 
Explicando o que é ajax
Esse exemplo se encontra no repositorio WINDEV 


--------------- Codigo 


// key up - browser 


AJAXExecute(ajaxUpdateControls,busca_filtro,EDT_procure_nome)


------------------

PROCEDURE busca_filtro(RECEBE_CAMPO_PROCURA)

IF NoSpace(RECEBE_CAMPO_PROCURA)>"" THEN
TableEnableFilter(TABLE_tabela.COL_nome,filterContains,RECEBE_CAMPO_PROCURA)
END

--------------


// no botao fechar do popup


IF EDT_Email="" THEN
Info("tem de prencher email")
ReturnToCapture(EDT_Email)
ELSE IF EDT_Nome=""
Info("tem de prencher nome")
ReturnToCapture(EDT_Nome)
ELSE
PopupClose(POPUP_exemplo)
END



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




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