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
//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,
cliente.razao_social_nome AS razao_social_nome,
nota_fiscal.id_operacao AS nf_id_operacao,
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.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
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
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
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
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
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()
http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1139-windev-tabelas-061-tabela-ano.html