TESTE
PARTE 1 ORDEM COMPRA 001 WINDEV AULA 1354
TABELA NAO/MES ORDEM COMPRA 2 WINDEV AULA 1355
SQL TABELA ANO MES - ORDEM COMPRA 3 WINDEV AULA 1356
SQL TABELA ORDEM COMPRA 4 WINDEV AULA 1358
TABELA ORDEM COMPRA 5 WINDEV AULA 1359
SQL/TABELA/DATA ORDEM COMPRA 6 WINDEV AULA 1360
ITEN ORDEM COMPRA 7 WINDEV AULA 1361
TABELA ORDEM COMPRA 8 WINDEV AULA 1362
EXCLUIR ORDEM COMPRA 9 WINDEV AULA 1364
SELECT
LEFT(ordem_compra.data_emissao,6) AS ano_mes,
ordem_compra.Id_ordem_compra AS Id_ordem_compra,
ordem_compra.id_empresa_ordem_compra AS id_empresa_ordem_compra,
ordem_compra.data_emissao AS data_emissao,
ordem_compra.id_empresa_cliente AS id_empresa_cliente,
cliente.razao_social_nome AS cliente_nome,
ordem_compra.total_nota AS total_nota,
ordem_compra.vendedor AS vendedor,
ordem_compra.telefone AS telefone,
ordem_compra.condicoes AS condicoes,
ordem_compra.data_entrega AS data_entrega,
ordem_compra.observacao AS observacao,
ordem_compra.usuario_digitou AS usuario_digitou,
ordem_compra.observacao_1 AS observacao_1,
ordem_compra.observacao_2 AS observacao_2,
ordem_compra.id_empresa_transportadora AS id_empresa_transportadora,
ordem_compra.Id_nota_fiscal AS Id_nota_fiscal,
ordem_compra.id_empresa_nota_fiscal AS id_empresa_nota_fiscal,
ordem_compra.data_emissao_nota AS data_emissao_nota,
ordem_compra.ordem_compra_email AS ordem_compra_email,
ordem_compra.observacao_3 AS observacao_3,
ordem_compra.o_observacao AS o_observacao,
ordem_compra.base_iss AS base_iss,
ordem_compra.aliquota_iss AS aliquota_iss,
ordem_compra.valor_iss AS valor_iss,
ordem_compra.irrf_iss AS irrf_iss,
ordem_compra.liquido_iss AS liquido_iss,
ordem_compra.total_produtos AS total_produtos,
ordem_compra.valor_ipi AS valor_ipi,
ordem_compra.imposto_icm_subs AS imposto_icm_subs,
ordem_compra.frete AS frete,
ordem_compra.seguro AS seguro,
ordem_compra.outras_despesas AS outras_despesas,
ordem_compra.id_empresa AS id_empresa,
ordem_compra.imagen_situacao_ordemcompra AS imagen_situacao_ordemcompra,
ordem_compra.xobservacao_diversas AS xobservacao_diversas,
ordem_compra.local_entrega AS local_entrega,
ordem_compra.referente_pedidos AS referente_pedidos,
ordem_compra.situacao_ordem_compra AS situacao_ordem_compra
FROM
ordem_compra
LEFT OUTER JOIN cliente
ON ordem_compra.id_empresa_cliente=cliente.id_empresa_cliente
WHERE
ordem_compra.id_empresa = {parametro_id_empresa}
AND ordem_compra.data_emissao BETWEEN {parametro_data_inicial} AND {parametro_data_final}
AND LEFT(ordem_compra.data_emissao,6) IN ({PARAMETRO_LISTA_DATA})
ORDER BY
Id_ordem_compra DESC
SELECT
DISTINCT LEFT(ordem_compra.data_emissao,4) AS ano,
RIGHT(LEFT(ordem_compra.data_emissao,6),2) AS mes,
LEFT(ordem_compra.data_emissao,6) AS ano_mes
FROM
ordem_compra
WHERE
ordem_compra.id_empresa={parametro_nota_fiscal_id_empresa}
ORDER BY ano DESC, mes DESC
PROCEDURE MOSTRA_ORDEM_COMPRA_TABELA(_recebe_data_inicial,_recebe_data_final)
QRY_ORDEM_COMPRA_LER.parametro_id_empresa=gnEmpresaCodigo
////aula 1360
QRY_ORDEM_COMPRA_LER.parametro_data_inicial=_recebe_data_inicial
QRY_ORDEM_COMPRA_LER.parametro_data_final=_recebe_data_final
////1360
TableDisplay(TABLE_RELACAO_ORDEM_COMPRA)
PROCEDURE MONTA_TABELA_ANO_MES()
HExecuteQuery(QRY_ORDEM_COMPRA_LER_ANO_MES,hQueryDefault)
TableAddLine(TABLE_ANO_MESES,"Todos","","")
FOR EACH QRY_ORDEM_COMPRA_LER_ANO_MES
TableAddLine(TABLE_ANO_MESES,QRY_ORDEM_COMPRA_LER_ANO_MES.ano, ...
QRY_ORDEM_COMPRA_LER_ANO_MES.mes, ...
QRY_ORDEM_COMPRA_LER_ANO_MES.ano_mes)
END
TABLE_ANO_MESES=-1
TableSelectMinus(TABLE_ANO_MESES)
//INICIALIZACAO JANELA
MONTA_TABELA_ANO_MES()
d_data_hoje is Date=DateSys()
MOSTRA_ORDEM_COMPRA_TABELA(d_data_hoje,d_data_hoje)
//EDT DATA
d_data_ is Date=EDT_DATA_MOVIMENTO
MOSTRA_ORDEM_COMPRA_TABELA(d_data_,d_data_)
//SELECTING A ROW OF TABLEA_ANO_MES
IF TABLE_ANO_MESES.COL_ANO="Todos" THEN
QRY_ORDEM_COMPRA_LER.PARAMETRO_LISTA_DATA=Null
ELSE
QRY_ORDEM_COMPRA_LER.PARAMETRO_LISTA_DATA=TABLE_ANO_MESES.COL_ANO_MES
END
MOSTRA_ORDEM_COMPRA_TABELA(Null,Null)
