Windev21 Aulas,Estudos e Desenvolvimento: 05/04/17

quinta-feira, 4 de maio de 2017

Aula 1139 WinDev Tabelas 061 /... - Tabela Ano Mes Visual / Codigos

Video no Youtube Se Gostou clique aqui para dar joinha

Na Aula de Hoje ,
Vou fazer os codigos
da tabela com meses e anos

In today's class,
I'll do the codes
Of the table with months and years

En la clase de hoy,
Voy a hacer los códigos
mesa con meses y años

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

// SEM COMENTARIOS

QRY_NOTA_FISCAL_LER_ANO.parametro_nota_fiscal_id_empresa=gnEmpresaCodigo
HExecuteQuery(QRY_NOTA_FISCAL_LER_ANO,hQueryDefault)
TableAddLine(TABLE_ANO_MESES,"Todos","","")
FOR EACH QRY_NOTA_FISCAL_LER_ANO TableAddLine(TABLE_ANO_MESES,QRY_NOTA_FISCAL_LER_ANO.ano,QRY_NOTA_FISCAL_LER_ANO.mes,QRY_NOTA_FISCAL_LER_ANO.ano_mes)
END

//DENTRO CODIGO DA TABELA
IF TABLE_ANO_MESES.COL_ANO="Todos" THEN
    // SE ANO FOR IGUAL A TODOS ENTAO
    // IF YEAR IS EQUAL TO ALL ENTAO
    // SI año para todos como entonces
    QRY_nota_fiscal_ler.parametro_lista_data=Null
    // O PARAMETRO LISTA DATA É IGUAL NULL, QUER DIZER, VAI MOSTRAR TODOS
    // THE PARAMETER LIST DATE IS EQUAL NULL, YOU WILL SAY, IT WILL SHOW ALL
    // Los datos de lista parámetro es nulo EQUAL, MEDIA, yendo para mostrar todos
ELSE
    QRY_nota_fiscal_ler.parametro_lista_data=TABLE_ANO_MESES.COL_ANO_MES
    // O PARAMETRO LISTA DATA, SERA PRENCHIDO COM ANO E MESES, EXEMPLO, 201705
    // THE PARAMETER THIS DATE WILL BE COMPLETED WITH YEAR AND MONTHS, EXAMPLE, 201705
    // El PARÁMETRO de esta fecha, sueros completa con AÑO y meses Ejemplo, 201705
END

// SEM COMENTARIOS

IF TABLE_ANO_MESES.COL_ANO="Todos" THEN
QRY_nota_fiscal_ler.parametro_lista_data=Null
ELSE
QRY_nota_fiscal_ler.parametro_lista_data=TABLE_ANO_MESES.COL_ANO_MES
END
mostra_table_nota_fiscal()

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

//

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

help1

Páginas

quinta-feira, 4 de maio de 2017

Aula 1139 WinDev Tabelas 061 /... - Tabela Ano Mes Visual / Codigos

Teste

Marcadores