Aula 1097 - Windev - Dicas 024/... - Historico Erp

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

Nessa dica de hoje,
vou comecar varias aulas sobre esse assunto.
vou criar uma seguranca no erp, para saber tudo
que esta acontecendo no sistema.
Nessa aula de hoje, sera a parte da analise.
Aproveite a dica, que é muito importante

---

help1

---

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 - 021
Có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

---

---

---

---

---

---

Aula 1096 - Windev - Dicas 023/... - Colocar Grupo e Deixar visivel ou nao

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

---

help1

---

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 - 021
Có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

---

Nessa dica de hoje,
vou mostrar como deixar visivel
ou nao um grupo

//Inicializacao do Programa Deixar invisivel
//Initialization of the Invisible Program
GR_representante..Visible=False
// Estou deixando invisivel esse grupo
// I'm leaving this group invisible


// Botao Confirme Senha
// Password Confirm Password

IF EDT_senha="teste" THEN
    // Se senha for igual a teste
    // If password is equal to test
    GR_representante..Visible=True
    // vai deixar visivel grupo representante
    // Will make visible representative group
END

---

---

---

---

---

Aula 1095 - Windev - Dicas 022/... - Código Consultar Alterar Cliente e Procura

---

---

---

Nessa dica de hoje,
vou complementar a aula de ontem
com os códigos


Video no Youtube Se Gostou clique aqui para dar joinha

---

---

help1

---

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

---

//Botao de Consulta e Alteração
//Query and Change button

STC_nome_cliente=""
// Limpando variavel stc nome cliente
// Clearing variable stc client name
EXTERN WIN_Form_cliente
// Como é uma Wdl , estou usando extern
// As it's a Wdl, I'm using extern
LoadWDL("cadastros.wdl")
// Estou fazendo chamado do programa wdl
// I'm doing called the wdl program
HReadSeekFirst(cliente,cliente.id_cliente,EDT_Id_cliente)
// Aqui estou lendo o Cliente,antes de chamar formulario
// Here I am reading the Client, before calling form
IF HFound(cliente) THEN
    // Verificando se existe o cliente
    // Checking if the customer exists
    STC_nome_cliente=cliente.razao_social_nome
    Open(WIN_Form_cliente)   
    // Estou Abrindo o Formulario Para Consultar/Alterar
    // I am opening the form to consult / change
END   
ReturnToCapture(EDT_Id_cliente)
//Depois de sair do formulario voltar para campo edt id cliente
//After exiting the form back to edt id client field

---

---

//Procura cliente //Customer demand
EDT_Id_cliente=0
// Limpando o Código id cliente
// Clearing Customer Id Code
EXTERN WIN_Table_cliente
// Como é uma Wdl , estou usando extern
// As it's a Wdl, I'm using extern
LoadWDL("cadastros.wdl")
// Estou fazendo chamado do programa wdl
// I'm doing called the wdl program
n_id_empresa_cliente is int=Open(WIN_Table_cliente,2)
// Estou abrindo a Tabela Table cliente e retornando o id do cliente
// I am opening the Table Table client and returning the client id
HReadSeekFirst(cliente,cliente.id_empresa_cliente,n_id_empresa_cliente)
// Aqui estou lendo o Cliente,depois de retornar o codigo da Tabela de clientes
// Here I am reading the Client, after returning the code of the Table of clients
IF HFound(cliente) THEN
    // Verificando se existe o cliente
    // Checking if the customer exists
    STC_nome_cliente=cliente.razao_social_nome
    EDT_Id_cliente=cliente.id_cliente
END
ReturnToCapture(EDT_Id_cliente)
//Depois de selecionar o cliente,voltar para edt id cliente
//After selecting the client, go back to edt id client

---

---

---

---

---

---

Aula 1094 - Windev - Dicas 021/... - Consultar Alterar Cliente e Procura

---

---

---

https://www.youtube.com/watch?v=bHPhUS1gtwY

---

---

Nessa dica de hoje,
vou ensinar, como fazer dois botoes:
um de consulta/alterar cliente
e outro
para procura cliente

---

help1

---

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

---

---

---

---

---

Aula 1093 - WinDev Imagen 003/... - Tirar foto e guardar a imagen

---

---

---

Video no Youtube Se Gostou clique aqui para dar joinha

---

---

help1

---

http://doc.windev.com/en-US/?2510034&name=Image


Salvar Imagen String - 001 - WinDev - Imagen - Encode / Décode - 
Guardar Imagen - 002 - WinDev Imagens
Tirar Foto e Colocar Imagen WinDev - Imagen - 003/...
Fundo Janela - Colocar Imagen - Windev Imagen - 004

---

Na dica de hoje,
vou mostrar como tirar uma foto
e colocar numa imagen.

---

//Tirar Foto
_imagen is Image=""
Trace("Aguarde..Tirando Foto") // Para Mostrar que Está Fazendo Algo
b_salvar_imagen is boolean 
b_salvar_imagen = VideoCapture(CAM_foto,"imagentemp.jpg",viPictureCapture,2)
IF b_salvar_imagen=True THEN // Se Salvou Imagen Então
    IMG_Foto="imagentemp.jpg"     // Estou colocando a imagen na img
ELSE // senão
    Error(ErrorInfo()) // Mostra Erro       
END
TraceEnd()

---

//Limpar Foto
IMG_Foto=""

---

---

---