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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



Postado por às Nenhum comentário:
Marcadores: , , ,

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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html







Postado por às Nenhum comentário:
Marcadores: , , ,

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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html







Postado por às Nenhum comentário:
Marcadores: , ,

sábado, 13 de fevereiro de 2021

DICAS 3263 - WEBDEV - COMO FAZER UMA COMBOX CLIENTE PARA FILTRAR TITULOS - PERGUNTAS E RESPOSTAS 24


https://youtu.be/ew1Xmbp1VaY



Bom Dia Boa Tarde Boa Noite

Seja Membro do Canal

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

DICAS 3263 - WEBDEV - COMO FAZER UMA COMBOX CLIENTE PARA FILTRAR TITULOS - PERGUNTAS E RESPOSTAS 24


ASSUNTO


NESSA VIDEO AULA, VOU ENSINAR A FAZER UMA COMBOX DE CONSULTA DE 
CLIENTES, E VAMOS FILTRAR OS TITULOS CONFORME O CLIENTE
SELECIONADO

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

// PROCEDURE tabela_atualiza_receber()

nTipo_situacao is int = 0
// 1-aberto 2-recebido ou pago 3-todos 4-atrazados 5-emissao
nTipo_situacao=COMBO_SITUACAO
s_sql_query is string = [
SELECT 
duplicata_receber.id_empresa_cliente AS cli_id_empresa_cliente,
cliente.razao_social_nome AS cli_razao_social,
duplicata_receber.titulo AS dup_titulo,
duplicata_receber.numero_nota_fiscal AS dup_nota_fiscal,
duplicata_receber.data_emissao AS dup_data_emissao,
duplicata_receber.data_vencimento AS dup_data_vencimento,
duplicata_receber.data_pagamento AS dup_data_recebimento,
duplicata_receber.valor_titulo AS dup_valor_titulo,
duplicata_receber.valor_juros AS dup_valor_juros,
duplicata_receber.valor_total AS dup_valor_total,
representante.nome AS rep_nome,
duplicata_receber.cobranca_linha_digitavel AS dup_Cobranca_linha_digitavel,
duplicata_receber.cobranca_numero_banco AS dup_numero_banco,
duplicata_receber.cobranca_data_remessa AS dup_data_remessa,
duplicata_receber.cobranca_data_remetida AS dup_data_remetida,
duplicata_receber.Id_duplicata_receber AS dup_id_duplicata_receber,
duplicata_receber.id_empresa AS dup_id_empresa,
duplicata_receber.Id_empresa_duplicata_receber AS dup_id_empresa_duplicata_receber,
duplicata_receber.id_centro_custo AS dup_id_centro_custo,
duplicata_receber.caixa_id AS dup_caixa_id,
duplicata_receber.id_bancos AS dup_id_banco,
bancos.nome AS nomeBanco
FROM 
  duplicata_receber
LEFT OUTER JOIN
cliente 
ON duplicata_receber.id_empresa_cliente=cliente.id_empresa_cliente
LEFT OUTER JOIN
representante
ON duplicata_receber.id_empresa_representante=representante.id_empresa_representante
LEFT JOIN bancos
ON bancos.id_bancos = duplicata_receber.id_bancos
where 
  duplicata_receber.id_empresa={parametro_id_empresa}
{condicao_cliente}  
{condicao1}  
{condicao2}
]

//1. TITULOS ABERTOS
IF COMBO_clientes_relacao=0 OR COMBO_clientes_relacao=-1 OR COMBO_clientes_relacao="" THEN
s_sql_query=Replace(s_sql_query,"{condicao_cliente}","")
ELSE
sQl_texto is string=
[
and duplicata_receber.id_empresa_cliente={parametro_id_empresa_cliente}
] 
sQl_texto=Replace(sQl_texto,"{parametro_id_empresa_cliente}",COMBO_clientes_relacao..StoredValue)
s_sql_query=Replace(s_sql_query,"{condicao_cliente}",sQl_texto)
END
s_sql_query=Replace(s_sql_query,"{parametro_id_empresa}",gn_empresa_codigo_selecionada)
//
d_data_inicial is Date=EDT_DATA_INICIAL
IF EDT_DATA_INICIAL="" THEN
d_data_inicial=Null
END
d_data_Final is Date = EDT_DATA_final

cyTotal_aberto is currency = 0
cyTotal_recebido is currency = 0
cyTotal_geral is currency = 0
IF nTipo_situacao=1 OR nTipo_situacao=4 OR nTipo_situacao=-1 THEN
VENCIMENTO()
ELSE IF nTipo_situacao=2 THEN
RECEBIDOS()
ELSE IF nTipo_situacao=3 THEN
emissao()
END
// 1-aberto 2-recebido ou pago 3-todos 4-atrazados 5-emissao
GERA_taBELA()

STC_TOTAIS=""
IF cyTotal_aberto<>0 THEN
STC_TOTAIS+="Aberto:"+NumToString(cyTotal_aberto,"10,2fS")+CR
END
IF cyTotal_recebido<>0 THEN
STC_TOTAIS+=" Recebido:"+NumToString(cyTotal_recebido,"10,2fS")+CR
END
IF cyTotal_aberto<>0 AND cyTotal_recebido<>0 THEN
cyTotal_geral=cyTotal_aberto+cyTotal_recebido
STC_TOTAIS+=" Geral:"+NumToString(cyTotal_geral,"10,2fS")
END
EDT_sql=s_sql_query

INTERNAL PROCEDURE emissao()
s_condicao is string=""
s_condicao=[
and duplicata_receber.data_emissao>={parametro_data_inicial}
and duplicata_receber.data_emissao<={parametro_data_final}
]
s_condicao = Replace(s_condicao,"{parametro_data_inicial}",d_data_inicial)
s_condicao = Replace(s_condicao,"{parametro_data_final}",d_data_Final)
s_sql_query = Replace(s_sql_query,"{condicao1}",s_condicao)
s_condicao_2 is string=""
// seria em aberto - data pagamento = 0
s_sql_query = Replace(s_sql_query,"{condicao2}",s_condicao_2)
TABLE_duplicata_receber_relacao.COL_07_Dup_data_recebimento..Visible = True
TABLE_duplicata_receber_relacao.COL_09_Dup_valor_juros..Visible = True
TABLE_duplicata_receber_relacao.COL_10_Dup_valor_total..Visible = True
// fim 
END

INTERNAL PROCEDURE RECEBIDOS()
s_condicao is string=""
s_condicao=[
and duplicata_receber.data_pagamento>={parametro_data_inicial}
and duplicata_receber.data_pagamento<={parametro_data_final}
]
s_condicao = Replace(s_condicao,"{parametro_data_inicial}",d_data_inicial)
s_condicao = Replace(s_condicao,"{parametro_data_final}",d_data_Final)
s_sql_query = Replace(s_sql_query,"{condicao1}",s_condicao)
s_condicao_2 is string=""
// seria em aberto - data pagamento = 0
s_sql_query = Replace(s_sql_query,"{condicao2}",s_condicao_2)
TABLE_duplicata_receber_relacao.COL_07_Dup_data_recebimento..Visible = True
TABLE_duplicata_receber_relacao.COL_09_Dup_valor_juros..Visible = True
TABLE_duplicata_receber_relacao.COL_10_Dup_valor_total..Visible = True
// fim 
END

INTERNAL PROCEDURE VENCIMENTO()
s_condicao is string=""
s_condicao=[
and duplicata_receber.data_vencimento>={parametro_data_inicial}
and duplicata_receber.data_vencimento<={parametro_data_final}
]
s_condicao = Replace(s_condicao,"{parametro_data_inicial}",d_data_inicial)
s_condicao = Replace(s_condicao,"{parametro_data_final}",d_data_Final)
s_sql_query = Replace(s_sql_query,"{condicao1}",s_condicao)
s_condicao_2 is string=""
// seria em aberto - data pagamento = 0
s_condicao_2=[
AND ( duplicata_receber.data_pagamento is Null OR duplicata_receber.data_pagamento = '' )
]
TABLE_duplicata_receber_relacao.COL_07_Dup_data_recebimento..Visible = False
TABLE_duplicata_receber_relacao.COL_09_Dup_valor_juros..Visible = False
TABLE_duplicata_receber_relacao.COL_10_Dup_valor_total..Visible = False
s_sql_query = Replace(s_sql_query,"{condicao2}",s_condicao_2)
// fim 
END

INTERNAL PROCEDURE GERA_taBELA()
ds_DATA_SOURCE is Data Source
TABLE_duplicata_receber_relacao.DeleteAll()
IF HExecuteSQLQuery(ds_DATA_SOURCE,hQueryDefault,s_sql_query) THEN
HReadFirst(ds_DATA_SOURCE)
WHILE NOT HOut()
nNOCORRENCIA is int=TABLE_duplicata_receber_relacao.AddLine()
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_01_Cli_id_empresa_cliente=ds_DATA_SOURCE.cli_id_empresa_cliente
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_02_Cli_razao_social=ds_DATA_SOURCE.cli_razao_social
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_03_Dup_titulo=ds_DATA_SOURCE.dup_titulo
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_04_Dup_nota_fiscal=ds_DATA_SOURCE.dup_nota_fiscal
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_05_Dup_data_emissao=ds_DATA_SOURCE.dup_data_emissao
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_06_Dup_data_vencimento=ds_DATA_SOURCE.dup_data_vencimento
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_07_Dup_data_recebimento=ds_DATA_SOURCE.dup_data_recebimento
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_08_Dup_valor_titulo=ds_DATA_SOURCE.dup_valor_titulo
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_09_Dup_valor_juros=ds_DATA_SOURCE.dup_valor_juros
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_10_Dup_valor_total=ds_DATA_SOURCE.dup_valor_total
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_11_Rep_nome=ds_DATA_SOURCE.rep_nome
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_12_Dup_Cobranca_linha_digitavel=ds_DATA_SOURCE.dup_Cobranca_linha_digitavel
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_13_Dup_numero_banco=ds_DATA_SOURCE.dup_numero_banco
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_14_Dup_data_remessa=ds_DATA_SOURCE.dup_data_remessa
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_15_Dup_data_remetida=ds_DATA_SOURCE.dup_data_remetida
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_16_Dup_id_duplicata_receber=ds_DATA_SOURCE.dup_id_duplicata_receber
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_17_Dup_id_empresa=ds_DATA_SOURCE.dup_id_empresa
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_18_Dup_id_empresa_duplicata_receber=ds_DATA_SOURCE.dup_id_empresa_duplicata_receber
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_19_Dup_id_centro_custo=ds_DATA_SOURCE.dup_id_centro_custo
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_20_Dup_caixa_id=ds_DATA_SOURCE.dup_caixa_id
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_21_Dup_id_banco=ds_DATA_SOURCE.dup_id_banco
TABLE_duplicata_receber_relacao[nNOCORRENCIA].COL_22_NomeBanco=ds_DATA_SOURCE.nomeBanco
IF ds_DATA_SOURCE.dup_data_recebimento="" THEN
cyTotal_aberto+=Val(ds_DATA_SOURCE.dup_valor_titulo)
ELSE
cyTotal_recebido+=Val(ds_DATA_SOURCE.dup_valor_titulo)
END
HReadNext(ds_DATA_SOURCE)
END
END
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


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 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html






















Postado por às Nenhum comentário:
Marcadores: ,
Assinar: Postagens (Atom)

Teste

Teste
teste