sexta-feira, 19 de fevereiro de 2021

DICAS 3267 - WINDEV_MOBILE - COMO FAZER UMA PESQUISA EM QUE VOU DIGITANDO E APARECENDO O CLIENTE NO LOOPER - PERGUNTAS E REPOSTAS 28




https://youtu.be/n0jx62p7c-Q




Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video vai estrear as XX:00 do dia 19/02/2021 

DICAS 3267 - WINDEV_MOBILE - COMO FAZER UMA PESQUISA EM QUE VOU DIGITANDO E APARECENDO O CLIENTE NO LOOPER - PERGUNTAS E REPOSTAS 28


ASSUNTOS

-----------------------
SELECT
cliente.razao_social_nome AS nome_cliente,
cliente.cnpj_cpf AS cnpj_cpf,
cliente.id_empresa_cliente AS id_empresa_cliente,
cliente.endereco_cidade AS cidade,
cliente.endereco_uf AS uf
FROM
cliente
WHERE
cliente.tabela_cliente={param_tabela_cliente}
AND
cliente.tabela_fornecedor={param_tabela_fornecedor}
AND
cliente.id_empresa_representante={parametro_id_empresa_representante}
AND
cliente.razao_social_nome LIKE %{parametro_nome_qualquer}%
ORDER BY
cliente.razao_social_nome
-------------

//WHENEVER MODIFYING EDT PROCURA
loop_atualiza_cliente()

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

//BTN LIMPAR
EDT_PROCURA=""
loop_atualiza_cliente()

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

PROCEDURE loop_atualiza_cliente()

QRY_clientes_relacao.param_tabela_cliente = True
QRY_clientes_relacao.param_tabela_fornecedor = False
QRY_clientes_relacao.parametro_id_empresa_representante = Null
QRY_clientes_relacao.parametro_nome_qualquer=EDT_PROCURA

LOOP_cliente.DeleteAll()

HExecuteQuery(QRY_clientes_relacao,hQueryDefault)
FOR EACH QRY_clientes_relacao 
nNOCORRENCIA is int=LOOP_cliente.AddLine()
LOOP_cliente[nNOCORRENCIA].ATT_01_razao_Social = QRY_clientes_relacao.nome_cliente
LOOP_cliente[nNOCORRENCIA].ATT_02_cidade = QRY_clientes_relacao.cidade
LOOP_cliente[nNOCORRENCIA].ATT_03_uf = QRY_clientes_relacao.uf
END

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

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



========= INDICE MOBILE


============== INDICE LOOPER


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, 18 de fevereiro de 2021

DICAS 3266 - WEBDEV - UNIR MAIS DE UM CAMPO SELECT E COLCOAR COMBOX - PERGUNTAS E REPOSTAS 27






Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video vai estrear as 12:00 do dia 18/02/2021 

DICAS 3266 - WEBDEV - UNIR MAIS DE UM CAMPO SELECT E COLCOAR COMBOX - PERGUNTAS E REPOSTAS 27



ASSUNTOS

MINHA PERGUNTA É SE POSSO UNIR MAIS DE UM CAMPO NO SELECT E COLOCAR COMBOX
ADICIONANDO NO SQL A JUNÇAO DE DOIS CAMPOS , NOME E CNPJ
ADICIONANDO O CODIGO PARA FILTRAR SOMENTE O CNPJ
MOSTRANDO O SQL MANIFESTACAO
ADICIONANDO TODOS NO COMBOX CLIENTE
MARCANDO LOAD IN MEMORY PARA APARECER TODOS OS CLIENTES

================== codigos usados.. - 

SELECT
cliente.tabela_cliente AS tabela_cliente,
cliente.tabela_fornecedor AS tabela_fornecedor,
cliente.razao_social_nome AS nome_cliente,
cliente.nome_fantasia AS nome_fantasia,
cliente.cnpj_cpf AS cnpj_cpf,
cliente.inscricao_estadual AS inscricao_estadual,
cliente.telefone AS telefone,
cliente.data_ultima_venda AS data_Venda,
cliente.endereco_cidade AS cidade,
cliente.endereco_uf AS estado,
cliente.endereco_cmun AS codigo_municipio,
cliente.data_cadastro AS data_cadastro,
cliente.situacao_cliente AS situacao_cliente,
cliente.situacao_fornecedor AS situacao_fornecedor,
cliente.id_centro_custo AS centro_custo,
cliente.id_empresa_representante AS id_empresa_representante,
cliente.email AS email,
cliente.id_empresa_cliente AS id_empresa_cliente,
cliente.id_cliente AS id_cliente,
cliente.razao_social_nome+' - '+cliente.cnpj_cpf AS nome_cnpj
FROM 
cliente 
WHERE 
cliente.tabela_cliente={param_tabela_cliente}
AND
cliente.tabela_fornecedor={param_tabela_fornecedor}
AND
cliente.id_empresa_representante={parametro_id_empresa_representante}
ORDER BY cliente.razao_social_nome

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

SELECT
nota_fiscal_manifestacao_mdfe.nsu AS nsu,
nota_fiscal_manifestacao_mdfe.numero_nota_fiscal AS nota_numero,
nota_fiscal_manifestacao_mdfe.demi AS demi,
nota_fiscal_manifestacao_mdfe.vnf AS vnf,
nota_fiscal_manifestacao_mdfe.cnpj AS cnpj,
nota_fiscal_manifestacao_mdfe.xnome AS xnome,
nota_fiscal_manifestacao_mdfe.descricao_csitconf AS descricao_csitconf,
nota_fiscal_manifestacao_mdfe.csitnfe_descricao AS nota_csitnfe_descricao,
nota_fiscal_manifestacao_mdfe.ciencia AS nota_ciencia,
nota_fiscal_manifestacao_mdfe.confirmado AS nota_confirmado,
nota_fiscal_manifestacao_mdfe.xml_baixado AS xml_baixado,
nota_fiscal_manifestacao_mdfe.nota_transferido AS nota_transferido,
nota_fiscal_manifestacao_mdfe.id_empresa AS id_empresa,
nota_fiscal_manifestacao_mdfe.id_manifestacao_notas AS id_manifestacao_notas,
nota_fiscal_manifestacao_mdfe.chnfe AS chnfe,
nota_fiscal_manifestacao_mdfe.ie AS ie,
nota_fiscal_manifestacao_mdfe.tpnf AS tpnf,
nota_fiscal_manifestacao_mdfe.digval AS digval,
nota_fiscal_manifestacao_mdfe.dhrecbto AS dhrecbto,
nota_fiscal_manifestacao_mdfe.csitnfe AS csitnfe,
nota_fiscal_manifestacao_mdfe.csitconf AS csitconf,
nota_fiscal_manifestacao_mdfe.ciencia_nprot AS ciencia_protocolo,
nota_fiscal_manifestacao_mdfe.Confirmacao_nprot AS confirmacao_protocolo,
nota_fiscal_manifestacao_mdfe.desconhecimento_nprot AS desconhecimento_protocolo,
nota_fiscal_manifestacao_mdfe.nota_id_notafiscal AS nota_id,
nota_fiscal_manifestacao_mdfe.data_importacao_arquivo AS nota_data_importacao,
nota_fiscal_manifestacao_mdfe.ciencia_cstat AS ciencia_cstat,
nota_fiscal_manifestacao_mdfe.ciencia_motivo AS nota_ciencia_motivo,
nota_fiscal_manifestacao_mdfe.Confirmacao_cstat AS nota_Confirmacao_cstat,
nota_fiscal_manifestacao_mdfe.Confirmacao_motivo AS nota_Confirmacao_motivo,
nota_fiscal_manifestacao_mdfe.xml_arquivo AS xml_arquivo,
nota_fiscal_manifestacao_mdfe.resumo_id_manifestacao AS nota_resumo_id,
nota_fiscal_manifestacao_mdfe.protocolo_sNProt AS nota_protocolo,
nota_fiscal_manifestacao_mdfe.Observacao_diversas AS obs_Div,
nota_fiscal_manifestacao_mdfe.doczip AS doc_zip,
nota_fiscal_manifestacao_mdfe.schema AS schema,
nota_fiscal_manifestacao_mdfe.baixar_xml_nsu AS baixar_xml_nsu
FROM
nota_fiscal_manifestacao_mdfe
WHERE
nota_fiscal_manifestacao_mdfe.demi={parametro_data}
AND
nota_fiscal_manifestacao_mdfe.schema={parametro_schema}
AND
nota_fiscal_manifestacao_mdfe.id_empresa={parametro_empresa}
AND
    LEFT(nota_fiscal_manifestacao_mdfe.demi,6) IN ({parametro_lista_mes_ano})
    AND
    nota_fiscal_manifestacao_mdfe.xml_baixado={parametro_xml_baixado}
    AND 
    nota_fiscal_manifestacao_mdfe.cnpj={parametro_cnpj}
ORDER BY
nota_fiscal_manifestacao_mdfe.demi DESC

-----------------
// initializing of combo_clientes_relacao
combox_inicializa_cliente()
----------------
// whenever modified of combo_clientes_relacao

ExecuteProcess(ZONE_NoName3.BTN_ATUALIZA_TABELA,trtClick)
-----------------
PROCEDURE combox_inicializa_cliente()


QRY_clientes_relacao.param_tabela_cliente = False
QRY_clientes_relacao.param_tabela_fornecedor = True
QRY_clientes_relacao.parametro_id_empresa_representante = Null
--------

//BOTAO ATUALIZA TABELA

TableDisplay(TABLE_manifestacao_Relacao,taInit)

----------

// initializing of table_manifestacao_relacao // server
inicializa_tabela_manifestacao()

------

PROCEDURE inicializa_tabela_manifestacao()


QRY_manifestacao_Relacao.parametro_data = Null
QRY_manifestacao_Relacao.parametro_schema = Null
QRY_manifestacao_Relacao.parametro_empresa = gn_empresa_codigo_selecionada
QRY_manifestacao_Relacao.parametro_xml_baixado=Null
QRY_manifestacao_Relacao.parametro_cnpj=Null

IF COMBO_ANO_MESES..StoredValue=-1 OR COMBO_ANO_MESES..StoredValue="" OR COMBO_ANO_MESES..StoredValue="Hoje" THEN
QRY_manifestacao_Relacao.parametro_data=EDT_Data 
ELSE
IF COMBO_ANO_MESES..StoredValue="Todos" THEN
ELSE 
sANO_MES is string=COMBO_ANO_MESES..StoredValue[4 TO 7]+COMBO_ANO_MESES..StoredValue[1 TO 2]
QRY_manifestacao_Relacao.parametro_lista_mes_ano=sANO_MES
END
END

IF COMBO_xml_baixado=-1 OR COMBO_xml_baixado="" OR COMBO_xml_baixado=1 THEN
ELSE
IF COMBO_xml_baixado=2 THEN // nao baixado
QRY_manifestacao_Relacao.parametro_xml_baixado=False
ELSE IF COMBO_xml_baixado=3
QRY_manifestacao_Relacao.parametro_xml_baixado=True
END
END

IF COMBO_clientes_relacao=-1 OR COMBO_clientes_relacao="" OR COMBO_clientes_relacao=0 THEN
ELSE
HReadSeekFirst(cliente,id_empresa_cliente,COMBO_clientes_relacao)
QRY_manifestacao_Relacao.parametro_cnpj=cliente.cnpj_cpf
END



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


-------------------------- INDICE CURSO COMBOX


WinDev - Combox - 001/... Preencher Manualmente e Eliminar
WinDev - Combox - 002/... Selecionar Combox
WinDev - Combox - 003/... Combox Editavel
WinDev - Combox - 004/... Combox - Ordem/Sort
WinDev - Combox - 005/... Combox Glink
WinDev - Combox - 006/... Selecione Linha Automatico - custom row
WinDev - Combox - 007/... ComboOpen e ComboClose
Adiciona Combox Manualmente - Combox 008 AULA 1258

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












quarta-feira, 17 de fevereiro de 2021

DICAS 3265 - WINDEV - PODEMOS USAR BARRA TITULO DO WINDOWS JANELA - NOVIDADES VERSAO 26 - INDICE 26



https://youtu.be/mbqAb4rVy3s





Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

Esse Video vai estrear as XX:00 do dia 17/02/2021 

DICAS 3265 - WINDEV - PODEMOS USAR BARRA TITULO DO WINDOWS JANELA - NOVIDADES VERSAO 26 - INDICE 32



ASSUNTOS

VOU CRIAR UMA WINDOWS - MENU USAR BARRA TITULO 



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
















segunda-feira, 15 de fevereiro de 2021

DICAS 3263 - WEBDEV - COMO FAZER UMA COMBOX REPRESENTANTE E FILTRAR CLIENTE E TITULOS - PERGUNTAS E RESPOSTAS 25


https://youtu.be/osRfoZhHiD0



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

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


DICAS 3263 - WEBDEV - COMO FAZER UMA COMBOX REPRESENTANTE E FILTRAR CLIENTE E TITULOS - PERGUNTAS E RESPOSTAS 25



ASSUNTOS:

Nessa aula, estarei mostrando, como eu fiz no meu A Receber, acidionar duas combox, 
uma representante e outra cliente
e quando eu escolhe representante ele vai selecionar os clientes

=====================

// WHENEVER MODIFIE OF COMBO_REPRESENTANTE_LER (SERVER) COM AJAX

combox_inicaliza_cliente()

ListDisplay(COMBO_clientes_relacao,taInit)

========================

//PROCEDURE combox_inicaliza_cliente()

QRY_clientes_relacao.param_tabela_cliente = True
QRY_clientes_relacao.param_tabela_fornecedor = False
QRY_clientes_relacao.parametro_id_empresa_representante = Null
IF COMBO_representante_ler..StoredValue=0 OR COMBO_representante_ler..StoredValue=-1 OR COMBO_representante_ler..StoredValue="" THEN
ELSE
QRY_clientes_relacao.parametro_id_empresa_representante = COMBO_representante_ler..StoredValue
END

===================
//INICIALIZA CLIENTE

combox_inicaliza_cliente()

=======================

//PROCEDURE combox_inicaliza_cliente()

QRY_clientes_relacao.param_tabela_cliente = True
QRY_clientes_relacao.param_tabela_fornecedor = False
QRY_clientes_relacao.parametro_id_empresa_representante = Null
IF COMBO_representante_ler..StoredValue=0 OR COMBO_representante_ler..StoredValue=-1 OR COMBO_representante_ler..StoredValue="" THEN
ELSE
QRY_clientes_relacao.parametro_id_empresa_representante = COMBO_representante_ler..StoredValue
END

=====================
//QUERY CLIENTES
SELECT
cliente.tabela_cliente AS tabela_cliente,
cliente.tabela_fornecedor AS tabela_fornecedor,
cliente.razao_social_nome AS nome_cliente,
cliente.nome_fantasia AS nome_fantasia,
cliente.cnpj_cpf AS cnpj_cpf,
cliente.inscricao_estadual AS inscricao_estadual,
cliente.telefone AS telefone,
cliente.data_ultima_venda AS data_Venda,
cliente.endereco_cidade AS cidade,
cliente.endereco_uf AS estado,
cliente.endereco_cmun AS codigo_municipio,
cliente.data_cadastro AS data_cadastro,
cliente.situacao_cliente AS situacao_cliente,
cliente.situacao_fornecedor AS situacao_fornecedor,
cliente.id_centro_custo AS centro_custo,
cliente.id_empresa_representante AS id_empresa_representante,
cliente.email AS email,
cliente.id_empresa_cliente AS id_empresa_cliente,
cliente.id_cliente AS id_cliente
FROM 
cliente 
WHERE 
cliente.tabela_cliente={param_tabela_cliente}
AND
cliente.tabela_fornecedor={param_tabela_fornecedor}
AND
cliente.id_empresa_representante={parametro_id_empresa_representante}
ORDER BY cliente.razao_social_nome

===============
//QUERY REPRESENTANTE
SELECT
representante.id_empresa_representante AS id_representante,
representante.nome AS nome_representante,
representante.email AS email,
representante.telefone AS telefone,
representante.endereco_cidade AS cidade, 
representante.endereco_uf AS uf
FROM 
representante
ORDER BY
representante.nome





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


-------------------------- INDICE CURSO COMBOX


WinDev - Combox - 001/... Preencher Manualmente e Eliminar
WinDev - Combox - 002/... Selecionar Combox
WinDev - Combox - 003/... Combox Editavel
WinDev - Combox - 004/... Combox - Ordem/Sort
WinDev - Combox - 005/... Combox Glink
WinDev - Combox - 006/... Selecione Linha Automatico - custom row
WinDev - Combox - 007/... ComboOpen e ComboClose
Adiciona Combox Manualmente - Combox 008 AULA 1258


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