terça-feira, 16 de janeiro de 2018

Aula 1364 DE 1638 Videos WINDEV ORDEM COMPRA PARTE 9 EXCLUIR ORDEM










VIDEO WINDEV AULA 1364 ORDEM COMPRA EXCLUI PARTE 9




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
DUPLICAR ORDEM DE COMPRA - 10 - AULA 1365




// Elimina - ordem e itens ordem

IF YesNo("DESEJA ELIMINAR ORDEM COMPRA?") THEN
HReadSeekFirst(ordem_compra,id_ordem_compra,TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra)
IF HFound(ordem_compra) THEN
// CASO ELE EXISTA
FOR EACH ordem_compra_item WHERE "Id_ordem_compra="+ordem_compra.id_ordem_compra
// VOU VARRER A TABELA DE ORDEM DE COMPRA ITENS
HDelete(ordem_compra_item)
END
// FINALIZANDO VAMOS EXCLUIR A ORDEM
HDelete(ordem_compra)
// PRONTO
// AGORA VOU ELIMINAR A LINHA DA TABELA
TableDelete(TABLE_RELACAO_ORDEM_COMPRA)
QRY_ITEM_ORDEM_COMPRA_LER.parametro_id_ordem_compra=TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra
TableDisplay(TABLE_ITEM_ORDEM_COMPRA_LER,taReExecuteQuery)
// ESTOU ATUALIZANDO OS ITENS DA TABELA

END
END





























Aula 1363 DE 1637 Videos WINDEV DICAS 57 - DE ATENDIMENTO LIBERAR CAMPO XML











VIDEO AULA 1363 WINDEV DICAS ATENDIMENTO CLIENTE



Backup e Restore Projeto Windev - 001
Dicionario e Supecontrole - 002
Cd - CdEject CdList - Abre e Lista CD - 003
Dicionario e SuperControle - 004
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight - Pesquizar Palavras entre edts - 006
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue - Dicas - 008
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas
Pdf - Ler Pdf com Active X - 010
Baixar Titulos Contas Receber - Dica - 011
Saldo Anterior Caixa - Como Calcular - Dica - 012
Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Clone Tabela - Meses com Varios Anos - Dicas - 015
Tecla Atalho - Control + Alt + Espaco - WinDev - dicas - 016/...
ControleCreate - Criar bloco Notas - Notes - WinDev - Dicas - 017/...
Alt - Static - Apertando Alt em Cima Static - Altera borda - Windev - Dicas 018/...
Guardar Valor - WinDev - Dicas 019/...
Pegar Quantidade/Valor/Codigo Cupom - WinDev - Dicas- 020
Consultar Alterar cliente e Procurar - WinDev - Dicas - 021Código - Consultar alterar Cliente e Procurar - WinDev dicas - 022
Grupos - Colocar Grupo e Deixar visivel ou Não - WinDev Dicas 023
Historio Erp 1/... - Analise- Segurança - WinDev Dicas 024
Historio Erp 2/... - Telas Iniciais - WinDev Dicas 025
Historio Erp 3/... - Analise- Alterações - WinDev Dicas 026
Historico Erp 4/Final - Empresa - Gravar Historioco - WinDev Dicas 027
Estilo Mudar Quando Chegar F2 - WinDev Dicas 028
Ajuda - Como Fazer String - WinDev Dicas 029 - Aula 1134
Cor do Campo - Quando Der Foco - Dicas 030 - Aula 1135
Tab trocar por enter - Dicas 031/... - Aula 1136
Save As - Copiar Windows Reports Dicas 032/... Aula 1161
EXE E WDL, NUM MESMO PROJETO - DICAS 033 / AULA 1183
InfoWithTimeout - DICAS 034 / AULA 1186
PLANOS - TREINAMENTO - DICAS 035 / AULA 1220
FONTES - ALTERAR EDT / STC -> DICAS 036 / AULA 1221
HINT - TEXTO EDIÇÃO QUANDO VAZIO - DICAS 037
F2 E CTRL F2 - DICAS 038 - AULA 1239
COMO NAO TRANCAR BANCOS GAS TECN - DICAS 039 AULA 1241
INTERNAL PROCEDURES - DICAS 050 - AULA 1322
ATALHOS WINDEV DICAS 051 AULA 1326
DESENVOLVIMENTO OPERACAO - DICAS 052 - AULA 1332
EXE PROPRIEDADES - DICAS FABRICIO 053 AULA 1334
MASCARA, - Aula 1357 DE 1631 Videos WINDEV DICAS 56 DESENVOLVIMENTO VIVO -
LIBERAR CAMPO XML - Aula 1363 DE 1637 Videos WINDEV DICAS 57 - DE ATENDIMENTO 
grayed - - AULA 1367 DE 1641 VIDEOS WINDEV DICAS 58 -
COLOCANDO REPRE NO CLIENTE - Aula 1369 DE 1643 Videos WINDEV DICAS 59 -
Custos/Pedido/Cliente - Aula 1371 DE 1645 Videos WINDEV DICAS 60 -
TAG REFERENCIA DEVOLUCAO - PUBLICO/PRIVADO - VIDEO - DICAS 1651/1652
CUSTO NAO SOMAR OUTRO - PRIVADO - VIDEO - DICAS 1653 - WINDEV -
RAZÃO PRODUTOS PARTE 1 - DICAS 1657 - PRIVADO - VIDEO - WINDEV - DICAS 64-
RAZÃO PRODUTOS PARTE 2 - DICAS 1658 - PUBLICO - VIDEO - WINDEV - DICAS 65 -
RAZAO PARTE 3 - DICAS 1659 - PRIVADO - VIDEO - WINDEV - DICAS 66 -
RAZAO PARTE FINAL - DICAS 1660 - PRIVADO - VIDEO - WINDEV - DICAS 67 -
AssistedInputAdd - DICAS 1664 - PUBLICO - VIDEO - DICAS 68 - 
CRIAR BOTAO ATALHOS CLIENTE-DICAS 1673 - PRIVADA - VIDEO - WINDEV DICAS 69 - 
MENU RIBBON, COLOCAR SETA OPCOES - DICAS 1674 - PUBLICA - WINDEV DICAS 70 - 
TRANCADO EM PROCESSAMENTO - DICAS 1683 - PUBLICA - WINDEV MDFE - UNINFE - 
TABELA - ALTERAR ORDEM PROGRAMAÇÃO - DICAS 1691 - PUBLICA - WINDEV 72 - 
LIMPAR CAMPOS, DESABILITAR CAMPOS - DICAS 1695 - PUBLICA - WINDEV DICAS 73



LIBERAR UM CAMPO XML QUE NAO PODE SER ALTERADO




EDT_CAMPO..STATE=ACTIVE


























Aula 1362 DE 1636 Videos WINDEV ORDEM COMPRA PARTE 8 TABELA ORDEM








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



VIDEO AULA 1362 WINDEV ORDEM DE COMPRA PARTE 8



PROCEDURE MyWindow(g_RECEBE_TIPO,g_recebe_id_ordem_compra)


// G_RECEBE_TIPO -> "INCLUSAO" / "ALTERACAO" / "CONSULTA"
// g_recebe_id_ordem_compra -> VAI RECEBER O ID, QUANDO FOR ALTERAÇÃO

Info(g_RECEBE_TIPO+CR+g_recebe_id_ordem_compra)




Open(WIN_CADASTRO_ORDEM_COMPRA,"INCLUSAO",0)



Open(WIN_CADASTRO_ORDEM_COMPRA,"ALTERACAO",TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra)





























Aula 1361 DE 1635 Videos WINDEV ORDEM COMPRA PARTE 7 ITEN ORDEM SQL










VIDEO AULA 1361 WINDEV ORDEM DE COMPRA PARTE 7




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
ordem_compra_item.id_ordem_compra_item AS id_ordem_compra_item,
ordem_compra_item.Id_ordem_compra AS Id_ordem_compra,
ordem_compra_item.id_empresa_ordem_compra AS id_empresa_ordem_compra,
ordem_compra_item.sequencia AS sequencia,
ordem_compra_item.id_material AS id_material,
ordem_compra_item.id_empresa_material AS id_empresa_material,
ordem_compra_item.complemento AS complemento,
ordem_compra_item.descricao_material AS descricao_material,
ordem_compra_item.observacao_2 AS observacao_2,
ordem_compra_item.observacao_3 AS observacao_3,
ordem_compra_item.data_entrega AS data_entrega,
ordem_compra_item.observacao_entrega AS observacao_entrega,
ordem_compra_item.quantidade AS quantidade,
ordem_compra_item.preco_unitario AS preco_unitario,
ordem_compra_item.total_prod AS total_prod,
ordem_compra_item.aliquota_ipi AS aliquota_ipi,
ordem_compra_item.valor_ipi AS valor_ipi,
ordem_compra_item.total_nota AS total_nota,
ordem_compra_item.Id_nota_fiscal AS Id_nota_fiscal,
ordem_compra_item.id_empresa_nota_fiscal AS id_empresa_nota_fiscal,
ordem_compra_item.data_nota_fiscal AS data_nota_fiscal,
ordem_compra_item.quantidade_entregue AS quantidade_entregue,
ordem_compra_item.saldo AS saldo,
ordem_compra_item.complemento_ordem_compra AS complemento_ordem_compra,
ordem_compra_item.referencia_material AS referencia_material,
material.nome AS material_nome
FROM
ordem_compra_item
LEFT OUTER JOIN material
ON ordem_compra_item.id_material=material.id_material
WHERE
ordem_compra_item.Id_ordem_compra = {parametro_id_ordem_compra}




// selecting a row of table_relacao_ordem_compra

QRY_ITEM_ORDEM_COMPRA_LER.parametro_id_ordem_compra=TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra
TableDisplay(TABLE_ITEM_ORDEM_COMPRA_LER,taReExecuteQuery)




























Aula 1360 DE 1634 Videos WINDEV ORDEM COMPRA PARTE 6 SQL/TABELA/DATA

TESTE








VIDEO AULA 1360 WINDEV ORDEM COMPRA SQL/DATA/TABELA




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)















Teste

Teste
teste