sábado, 6 de maio de 2017

Aula 1141 WinDev Tablea 062 /... - Tabela Ano mes Visual Codigo Varios









Video no Youtube Se Gostou clique aqui para dar joinha



 Aula de Hoje ,
vou fazer com que possa consultar varios meses e anos

Today's lesson ,
I'll get you to consult for months and years


La lección de hoy
Voy a llegar a ver varios meses y años




// QRY_NOTA_FISCAL_LER

SELECT
nota_fiscal.id_empresa_pedido AS nf_id_empresa_pedido,
nota_fiscal.valor_base_icm_vbc  AS nf_icm_base,
nota_fiscal.valor_icm_vicms  AS nf_icm_valor,
cliente.cnpj_cpf AS cliente_cnpj_cpf,
cliente.Consumidor_final_indFinal AS cliente_consumidor_final,
nota_fiscal.nfe_chNfe AS nf_chNfe,
nota_fiscal.cpf_nota AS nf_cpf_nota,
nota_fiscal.Id_nota_fiscal AS nf_id_nota_fiscal,
nota_fiscal.id_empresa AS nf_id_empresa,
nota_fiscal.id_empresa_modelo_nota AS nf_id_empresa_modelo_nota,
nota_fiscal.id_empresa_serie AS nf_id_empresa_serie,
nota_fiscal.id_empresa_nota_fiscal AS nf_id_empresa_nota_fiscal,
nota_fiscal.id_empresa_cliente AS nf_id_empresa_cliente,
nota_fiscal.data_emissao AS nf_data_emissao,
cliente.razao_social_nome AS razao_social_nome,
nota_fiscal.id_operacao AS nf_id_operacao,
nota_fiscal.valor_produtos AS nf_valor_produtos,
nota_fiscal.valor_ipi AS nf_valor_ipi,
nota_fiscal.nfe_valor_desconto AS nf_nfe_valor_desconto,
nota_fiscal.Valor_icm_substituicao_vICMSST AS icm_subs,
nota_fiscal.valor_total AS nf_valor_total,
nota_fiscal.id_empresa_tipo_nota AS nf_id_empresa_tipo_nota,
nota_fiscal.id_nsu AS nf_id_nsu,
nota_fiscal.data_nota_importada AS nf_data_importacao,
nota_fiscal.tributo_valor_vtottrib AS nf_tributos,
nota_fiscal.marcar_nota_rascunho AS nf_marcar,
nota_fiscal.id_empresa_tipo_nota AS NF_id_empresa_tipo_nota_TEXTO,
representante.nome AS rep_nome,
nota_fiscal.nfe_situacao_xml sit_nota
FROM
nota_fiscal
LEFT JOIN
cliente
ON cliente.id_empresa_cliente = nota_fiscal.id_empresa_cliente
LEFT OUTER JOIN
representante
ON representante.id_empresa_representante = nota_fiscal.id_empresa_representante       
WHERE
nota_fiscal.id_empresa={parametro_nota_fiscal_id_empresa}
AND
nota_fiscal.data_emissao={Param_data_Emissao}
AND
nota_fiscal.id_empresa_tipo_nota={param_tipo_nota}
AND   
nota_fiscal.data_emissao BETWEEN {Parametro_data_inicial} AND {Parametro_data_final}   
AND   
nota_fiscal.id_empresa_cliente= {parametro_id_empresa_cliente}
AND
nota_fiscal.id_empresa_representante={parametro_id_empresa_representante}
AND
nota_fiscal.data_nota_importada BETWEEN {Parametro_di_importada} AND {Parametro_df_importada}   
AND
    LEFT(nota_fiscal.data_emissao,6) IN ( {parametro_lista_data} )
ORDER BY {parametro_ordem}



AND
    LEFT(nota_fiscal.data_emissao,6) IN ( {parametro_lista_data} )




// QRY_NOTA_FISCAL_LER_ANO
SELECT
    DISTINCT LEFT(nota_fiscal.data_emissao,4) AS ano,
    RIGHT(LEFT(nota_fiscal.data_emissao,6),2) AS mes,
    LEFT(nota_fiscal.data_emissao,6) AS ano_mes
FROM
    nota_fiscal
WHERE
    nota_fiscal.id_empresa={parametro_nota_fiscal_id_empresa}
AND
    nota_fiscal.data_emissao IS NOT NULL
AND
    nota_fiscal.data_emissao != ''
ORDER BY
    LEFT(nota_fiscal.data_emissao,4) DESC,RIGHT(LEFT(nota_fiscal.data_emissao,6),2) DESC






// NO CODIGO DA JANELA PRINCIPAL
// mostra ano E MESES , OS CODIGOS ESTARAO DISPONIVEIS NO BLOG
// Shows year AND MONTHS, THE STARA CODES AVAILABLE ON BLOG
// espectáculos de años y meses, los códigos estarán disponibles en el blog
QRY_NOTA_FISCAL_LER_ANO.parametro_nota_fiscal_id_empresa=gnEmpresaCodigo
// ESTOU COLOCANDO NO PARAMETRO ID EMPRESA O CODIGO DA EMPRESA
// I AM PLACING IN THE PARAMETER ID COMPANY THE CODE OF THE COMPANY
// Estoy poniendo en el parámetro ID COMPAÑÍA COMPAÑÍA CÓDIGO
HExecuteQuery(QRY_NOTA_FISCAL_LER_ANO,hQueryDefault)
// ESTOU EXECUTANDO A QUERY COM FITROS DE TODOS OS ANOS
// I'M PERFORMING QUERY WITH FILTERS ALL YEARS
// Estoy haciendo una consulta CON CADA Año Filtros
TableAddLine(TABLE_ANO_MESES,"Todos","","")
// ESTOU CRIANDO A PRIMEIRA LINHA, DIZENDO PARA MOSTRAR TODAS NOTAS
// I AM CREATING THE FIRST LINE, SAYING TO SHOW ALL NOTES
// Voy a crear la primera línea, DECIR para mostrar todos NOTAS
FOR EACH QRY_NOTA_FISCAL_LER_ANO
    // ESTOU VARRENDO TODA A QUERY GERADA
    // I AM VARRING ALL THE GENERATED QUERY
    // estoy barriendo cualquier consulta generada
    TableAddLine(TABLE_ANO_MESES,QRY_NOTA_FISCAL_LER_ANO.ano,QRY_NOTA_FISCAL_LER_ANO.mes,QRY_NOTA_FISCAL_LER_ANO.ano_mes)   
    // ESTOU ADICIONANDO ANO , MESES, ANOS E MESES NA TABELA // 2017 05 201705
    // 'M ADDING YEAR, MONTHS, YEARS AND MONTHS IN THE TABLE // 2017 05 201705
    // Estoy añadiendo AÑO meses meses años y la mesa // 2017 05 201705
END






// BTN SELECIONADOS

QRY_nota_fiscal_ler.parametro_nota_fiscal_id_empresa=gnEmpresaCodigo
QRY_nota_fiscal_ler.Param_data_Emissao=Null // Novo ==> 04 05 2017
gn_recebe_id_cliente_fornecedor=0
CBOX_todasNotas=True
filtro_opcao_data=2
CBOX_notas_importadas=False

// ACIMA SAO CODIGOS JÁ UTILIZADOS ANTES
// ABOVE CODES ALREADY USED BEFORE
// CÓDIGOS DE ARRIBA YA ESTÁN utilizado antes

s_anos_meses is string=""

// CRIEI UMA VARIAVEL ANO E MESES
// I CREATED A VARIABLE YEAR AND MONTHS
// CREADO UN AÑO Y MESES VARIABLE

n_quantas_linhas is int=TableSelectCount(TABLE_ANO_MESES)

// AQUI ESTOU VENDO QUANTAS LINHAS EXISTEM NA TABELA
// HERE I AM SELLING HOW MANY LINES EXIST IN THE TABLE
// Que aquí estoy viendo cómo muchas líneas están sobre la mesa

FOR i=1 TO n_quantas_linhas
    // ESTOU INDO DO NUMERO 1 ATE O NUMERO DE LINHAS DA TABELA
    // I AM GOING FROM NUMBER 1 TO THE NUMBER OF TABLE LINES
    // Voy al número 1 ATE EL NÚMERO DE LÍNEAS DE CUADRO

    IF s_anos_meses="" THEN
        // SE VARIAVEL ANO_MESES FOR IGUAL A BRANCO
        // IF VARIABLE YEAR_MESES IS EQUAL TO WHITE
        // Si la variable ANO_MESES IGUALDAD DE BLANCO
       
        s_anos_meses+=TABLE_ANO_MESES.COL_ANO_MES[TableSelect(TABLE_ANO_MESES,i)]   
       
        // ESTOU COLOCANDO ANO MESES , QUER DIZER ANO_MESES=201405
        // I AM PUTTING MONTH YEARS, I WANT TO SAY ANO_MESES = 201405
        // AM meses el año PONER MEDIA ANO_MESES = 201 405
        //
    ELSE
        s_anos_meses+=";"+TABLE_ANO_MESES.COL_ANO_MES[TableSelect(TABLE_ANO_MESES,i)]   

        // A DIFERENCA AGORA, É QUE ACRESCENTO ; E FICA ASSIM: 201705;201704
        // THE DIFFERENCE NOW, THAT IS ADDING; AND SO DOES: 201705; 201704
        // La diferencia ahora, Qué añade; Y así es: 201705; 201704       
       
    END
       
END

QRY_nota_fiscal_ler.parametro_lista_data=s_anos_meses

// PARAMETRO LISTA DATA É IGUAL A ANOS MESES
// PARAMETER LIST DATE IS EQUAL TO MONTHS
// LISTA DE PARÁMETROS FECHA ES IGUAL meses años

mostra_table_nota_fiscal()








AULAS DESSE ASSUNTO

http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1137-windev-tabelas-059-tabela-ano.html
http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1138-windev-tabelas-060-tabela-ano.html
http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1139-windev-tabelas-061-tabela-ano.html
http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1141-windev-tablea-062-tabela-ano.html




HELP1




WinDev - Tabela - 001/... Ancorar Tabela e coluna
WinDev - Tabela - 002/... Esconder ou Mostrar Coluna Tabela 
WinDev - Tabela - 003/... Mudar Cor e Fundo da Coluna da Tabela 
WinDev - Tabela - 004/... Mudar Largura e Fonte da Coluna da Tabela 
WinDev - Tabela - 005/... Coluna de valor Deixar em Branco 
WinDev - Tabela - 006/... Alterar Nome,Cor,Cor de Fundo da Coluna da Tabela 
WinDev - Tabela - 007/... Alterar ordem das Colunas por Programacao
WinDev - Tabela - 008/... TableSeek Pesquizar se Existe
WinDev - Tabela - 009/... TableSelectPlus - Seleciona Iten tabela
WinDev - Tabela - 010/... TableSort - Classifica Coluna
WinDev - Tabela - 011/... Zoom
WinDev - Tabela - 012/... for Each Row Of - Percorrer
WinDev - Tabela - 013/... Selecionar Varias Linhas
WinDev - Tabela - 014/... Balao - Tabela ToolTip
WinDev - Tabela - 015/... Coluna Contrainer
WinDev - Tabela - 016/... Sum - Como Mudar Nome
WinDev - Tabela - 017/... TableInfoXY - Saber Nome,Posição e Linha da Coluna 
WinDev - Tabela - 018/... Guardar e Recuperar Posição Tabela
WinDev - Tabela - 019/... TableInputsearch
WinDev - Tabela - 020/... Descobrir Posição cliente Novo
WinDev - Tabela - 021/... Saber quantos e nome das Colunas
WinDev - Tabela - 022/... Tableselect - Selecionar varias linhas tabela e Ler
WinDev - Tabela - 023/... BuildBrowsingTable - Cria Tabela Manual
WinDev - Tabela - 024/... Somar Valor Tabela Automatico ou Manual - rowtotal
WinDev - Tabela - 025/... Eventos no cabecalho da Tabela
WinDev - Tabela - 026/... Tabela - Break - Totalizadores
WinDev - Tabela - 027/... Tabela - Colorir Linha
WinDev - Tabela - 028/... Double click Na seleção Item
WinDev - Tabela - 029/... Tabela - Descrição, Em Varias Linhas Coluna Tabela
WinDev - Tabela - 030/... Tabela - Fazer titulos com colunas
WinDev - Tabela - 031/... Tabela - Sql - Query - Agrupar Datas Nas Notas
WinDev - Tabela - 032/... Pintando Tabela
WinDev - Tabela - 033/... FOR EACH / WHERE / on / Ordem
WinDev - Tabela - 034/... Filter 
WinDev - Tabela - 035/... HFilter
WinDev - Tabela - 036/... Ultimo Registro - TableSelectPlus
WinDev - Tabela - 037/... Desabilitar Edição Tabela
WinDev - Tabela - 038/... Pesquisa - TableEnableFilter
Blog - WinDev - Relatorio - 039/... Copias - IParameter - Icopies
WinDev - Tabela - 040/... Cor Negativo Coluna Saldo
WinDev - Tabela - 041/... - Criar Tabela via programação
Borda - TAbela - 042/... - Novidade Windev22
..VisibleInExportAndPrint - Colunas Nao Levar Exportar e Imprimir - WinDev - Tabela - 043
BuildBrowsingTable - Monta Tabelas Automaticamente - WinDev - Tabelas - 044
FileToMemoryTable - Monta Tabela Query - WinDev - Tabela - 045
Titulos e SubTitulos - Tabela - 046/...
Titulos e SubTitulos - Manualmente - Tabela - 047/...
Bloquear ou Liberar Lupa/mover Coluna Tabela - Windev Tabela - 048/...
TableEnableFilter - Tabela Diversos Filtros e ordem - WinDev Tabela - 049/...
Ordem Crescente/Decrescente - WinDev Tabela - 050/...
TableDisableFilter - WinDev Tabela 051/...
Conversão - Trocar Codigo Empresa das Duplicatas - WinDev Tabela 052/...
Ler Tabela,pegar Descricao,colocar String - WinDev Aula 1105 - 053/...
Cores na Tabela, Pintar Colunas,ou todas com exemplos - WinDev Tabelas 054
Tabela Nome Titulo Coluna,Imagen,Negrito WinDev Tabela 055
Totalizadores - F4 - Fundo Imagen Janela - Windev Tabela 056
Percorrer Tabela - Primeiro/ultimo/proximo/Anterior - Windev Tabela 057
Totalizadores Tabela Modificar Propriedades - WinDev Tabela 058
QUERY TABELA ANO MES QUERY - WINDEV TABELA 059 - AULA 1137
Tabela Ano Mes Visual - WINDEV TABELA 060 - AULA 1138
Tabela Ano Mes Visual / Codigos - WINDEV TABELA 061 - AULA 1139
Tabela Ano mes Visual Codigo Varios - WINDEV TABELA 062 - AULA 1141
Tabela Minimo Maximo - NOVIDADE 22 - WINDEV TABELA 063 - AULA 1188


































Teste

Teste
teste