quarta-feira, 17 de janeiro de 2018

Aula 1369 DE 1643 Videos WINDEV DICAS 59 - COLOCANDO REPRE NO CLIENTE










AULA 1369 WINDEV DICAS COLOCANDO REPR NOS CLLIENTES

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


lendo a tabela de clientes e caso nao existir representante
colocar o id do representante


n_codigo_representante is int=0

FOR EACH representante
n_codigo_representante=representante.id_empresa_representante
BREAK
END

FOR EACH cliente
Trace(cliente.razao_social_nome)

IF cliente.id_empresa_representante=0 THEN
cliente.id_empresa_representante=n_codigo_representante
HModify(cliente)
END
END
Info("finalizou")
TraceEnd()























Aula 1368 DE 1642 Videos WINDEV ORDEM COMPRA PARTE 12 - CADASTRO 1










VIDEO AULA 1368 WINDEV ORDEM COMPRA PARTE 12 - CADASTRO 1






























AULA 1367 DE 1641 VIDEOS WINDEV DICAS 58 - grayed -










VIDEO WINDEV 1367 DICAS GRAYED


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


https://doc.windev.com/en-US/?1000019648&name=Grayed





BTN_Cancelar..Grayed=True
//BLOQUEAR O BOTAO
gera_00_00_acbr_uninfe()




VAMOS BLOQUEAR O BOTAO QUANDO CANCELAR


















Aula 1366 DE 1640 Videos WINDEV ORDEM COMPRA PARTE 11 COPIAR ORDEM 2












VIDEO WINDEV 1366 ORDEM COMPRA PARTE 11 COPIAR ORDEM 2





VAMOS FINALIZAR A ETAPA DE COPIAR ORDEM DE COMPRA PARTE 2



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
DUPLICAR FINAL - ORDEM DE COMPRA - 11 - AULA WINDEV 1366


// VAMOS PERGUNTAR SE ELE DESEJA REALMENTE DUPLICAR
// LET'S ASK IF HE WANTS TO REALLY DUPLICATE
// AMOS PREGUNTAR SI EL DESEA REALMENTE DUPLICAR
IF YesNo("DESEJA DUPLICAR") THEN
// DUPLICAR ORDEM DE COMPRA
HReadSeekFirst(ordem_compra,id_ordem_compra,TABLE_RELACAO_ORDEM_COMPRA.COL_Id_ordem_compra)
// PRIMEIRO VAMOS LER A ORDEM DE COMPRA
// FIRST LET'S READ THE ORDER OF PURCHASE
// PRIMER VAMOS LEER EL ORDEN DE COMPRA
IF HFound(ordem_compra) THEN
// SE ENCONTROU A ORDEM DE COMPRA
// IF YOU HAVE FINDED THE ORDER TO PURCHASE
// SE ENCONTRÓ EL ORDEN DE COMPRA
ordem_compra.data_emissao=DateSys()
// VAMOS COLOCAR A DATA DE ORDEM DE COMPRA COMO A DATA DE HOJE
// LET'S PUT THE BUY ORDER DATE AS TODAY'S DATE
// VAMOS COLOCAR LA FECHA DE ORDEN DE COMPRA COMO LA FECHA DE HOY
ORDEM_COMPRA_POR_EMPRESA()
HAdd(ordem_compra)
// VAMOS ADICIONAR ORDEM DE COMPRA
// LET'S ADD PURCHASE ORDER
// VAMOS AGREGAR ORDEN DE COMPRA
COPIA_ITENS_ORDEM()
//// AGORA VOU ATUALIZAR A RELAÇAO DE ORDEM DE COMPRA
//// NOW I AM GOING TO UPDATE THE PURCHASE ORDER RELATIONSHIP
//// AHORA VOY ACTUALIZAR LA RELACIÓN DE ORDEN DE COMPRA
EDT_DATA_MOVIMENTO=DateSys()
d_data_ is Date=EDT_DATA_MOVIMENTO
MOSTRA_ORDEM_COMPRA_TABELA(d_data_,d_data_)
END
END

// CRIAR UMA PROCEDURE INTERNA COPIA ITENS ORDEM
// CREATE AN INTERNAL PROCEDURE COPY ITEMS ORDER
// CREAR UNA PROCEDURE INTERNA COPIA ITENS ORDEN



INTERNAL PROCEDURE COPIA_ITENS_ORDEM()

// VOU LER TODA TABELA DE ITENS
// I'LL READ ANY TABLE OF ITEMS
// VOY LEER TODA TABLA DE ITENS

FOR EACH ROW OF TABLE_ITEM_ORDEM_COMPRA_LER
// VOU LER O REGISTRO DO ITEN DA NOTA
// I WILL READ THE ITEM REGISTER OF THE NOTE
// VOY LEER EL REGISTRO DEL ITEM DE LA NOTA
HReadSeekFirst(ordem_compra_item,id_ordem_compra_item,TABLE_ITEM_ORDEM_COMPRA_LER.COL_Id_ordem_compra_item)

// SE ENCONTRADO
// Was found
// SI ENCONTRADO

IF HFound(ordem_compra_item) THEN

// VAMOS AGORA, COLOCAR O NUMERO DE ORDEM COMPRA ATUAL NO ITEM
// LET'S GO NOW, PUT THE CURRENT ORDER PURCHASE NUMBER IN ITEM
// VAMOS AHORA, COLOCAR EL NUMERO DE ORDEN COMPRA ACTUAL EN EL ITEM

ordem_compra_item.Id_ordem_compra=ordem_compra.id_ordem_compra

// VAMOS ZERAR ALGUMAS INFORMAÇÕES
// LET'S DOWNLOAD SOME INFORMATION
// VAMOS ZERAR ALGUNAS INFORMACIONES

ordem_compra_item.quantidade_entregue=0
ordem_compra_item.saldo=0
ordem_compra_item.data_entrega=""
ordem_compra_item.observacao_entrega=""
ordem_compra_item.id_nota_fiscal=0
ordem_compra_item.id_empresa_nota_fiscal=0
ordem_compra_item.data_nota_fiscal=""

    // VAMOS GRAVAR O ITEM DA ORDEM DE COMPRA
    // LET'S RECORD THE ITEM OF THE ORDER TO PURCHASE
    // VAMOS GRABAR EL ITEM DEL ORDEN DE COMPRA
 
    HAdd(ordem_compra_item)
 
END
END

END


INTERNAL PROCEDURE ORDEM_COMPRA_POR_EMPRESA()

// COMO NOSSO SISTEMA É MULTI EMPRESA, CADA ORDEM VAI COMECAR COM 1,
//                    ENTAO VAMOS PROCURAR O PROXIMO CODIGO DA ORDEM DESSA EMPRESA
// AS OUR SYSTEM IS MULTIPLE COMPANY, EVERY ORDER WILL COME WITH 1
//                    LET'S SEARCH FOR THE NEXT CODE OF THE ORDER OF THAT COMPANY
// COMO NUESTRO SISTEMA ES MULTI EMPRESA, CADA ORDEN VA COMERCIAL CON 1
//                    ENTREGA VAMOS BUSCAR EL PROXIMO CODIGO DEL ORDEN DE ESTA EMPRESA
//-- EMPRESA
n_proximo is int=1
// CRIEI UMA VARIAVEL PROXIMO E VAI COMECAR COM 1
// I CREATED A VARIABLE NEXT AND WILL START WITH 1
// VENDO UNA VARIABLE PROXIMO Y VA COMERCIAL CON 1

_data_source is Data Source
// CRIEI UMA DATA SOURCE
// CREATED A DATA SOURCE
// CRIEI UNA FECHA SOURCE

_sql is string=[
SELECT
Max(ordem_compra.id_empresa_ordem_compra) as ultimo
FROM
ordem_compra
where
ordem_compra.id_empresa=#id_empresa#
]
// CRIEI UM SQL STRING, COM O SQL QUE VAI ACHAR O ULTIMO CODIGO
// CREATE A SQL STRING, WITH THE SQL THAT WILL FIND THE LAST CODE
// CRIEI UN SQL STRING, CON EL SQL QUE VA A HACER EL ULTIMO CODIGO

_sql=Replace(_sql,"#id_empresa#",gnEmpresaCodigo)
// COM O COMANDO REPLACE VOU SUBSTITUIR A STRING #ID_EMPRESA# PELO CONTEUDO
// WITH THE COMMAND REPLACE YOU WILL REPLACE THE STRING # ID_EMPRESA # BY THE CONTENT
// CON EL MANDO REPLACE VUELVE SUSTITUIR LA STRING # ID_EMPRESA # POR EL CONTENIDO

IF HExecuteSQLQuery(_data_source,hQueryDefault,_sql) THEN
// SE A EXECUÇÃO DA QUERY EXISTIR
// IF THE EXECUTION OF QUERY EXIST
// SI LA EJECUCIÓN DE LA QUERY EXISTIR
HReadFirst(_data_source)
// LENDO O RESULTADO
// READING THE RESULT
// LEYENDO EL RESULTADO
n_proximo=_data_source.ultimo+1
// ESTOU SOMANDO 1 NA VARIAVEL PROXIMO
// I'M TAKING 1 IN THE VARIABLE NEXT
// ESTOY SOMANDO 1 EN LA VARIABLE PROXIMO
END
ordem_compra.id_empresa_ordem_compra=n_proximo
// ESTOU COLOCANDO O PROXIMO NUMERO NO ID EMPRESA ORDEM DE COMPRA
// I AM PUTTING THE NEXT NUMBER IN THE COMPANY ID ORDER PURCHASE
// ESTOY COLOCANDO EL PROXIMO NUMERO EN EL ID EMPRESARIO ORDEN DE COMPRA
//-- EMPRESA

END






















Aula 1365 DE 1639 Videos WINDEV ORDEM COMPRA PARTE 10 COPIAR ORDEM










VIDEO 1365 WINDEV ORDEM COMPRA COPIA PARTE 1





VOU MOSTRAR COMO DUPLICAR UMA ORDEM DE COMPRA




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
DUPLICAR FINAL - ORDEM DE COMPRA - 11 - AULA WINDEV 1366






























Teste

Teste
teste