Windev21 Aulas,Estudos e Desenvolvimento

segunda-feira, 28 de março de 2016

Curso WinDev - Tabela - 020 - Descobrir Posição Cliente Novo

Nessa aula vou mostrar como descobrir Posição e posicionar tabela

In this lecture I will show how to find position and positioning table

Dans cette conférence, je vais vous montrer comment trouver la position et table de positionnement

PROCEDURE manutencao_incuir_cliente_fornecedor()
// Create a new record
HReset(cliente)
Open(WIN_Form_cliente)

//
//if WinStatus(WIN_Form_cliente)=notfound THEN
//    MDIOpen(WIN_Form_cliente,"","Inclusão de Cliente/Fornecedor")
//ELSE
//    Restore(WIN_Form_cliente)
//    SetFocus(WIN_Form_cliente)
//END
mostra_cli()

n_posicao_tabela is int = TableSeek(TABLE_cliente.COL_Id_empresa_cliente, cliente.id_empresa_cliente) // descobriu a posicao
TableDisplay(TABLE_cliente,n_posicao_tabela)
TableSelectPlus(TABLE_cliente,n_posicao_tabela)

domingo, 27 de março de 2016

Curso WinDev - Registro Windows - 001 - Registry

Video youtube

http://doc.windev.com/en-US/?3065002&name=RegistryCreateKey
http://doc.pcsoft.fr/fr-FR/?3065002&name=registrecreecle_fonction

http://doc.windev.com/en-US/?3065012&name=registryqueryvalue_function
http://doc.pcsoft.fr/fr-FR/?3065012&name=registrelit_fonction

http://doc.windev.com/en-US/?3065007&name=registryexist_function
http://doc.pcsoft.fr/fr-FR/?3065007&name=registreexiste_fonction

http://doc.windev.com/en-US/?3065006&name=registrysetvalue_function
http://doc.pcsoft.fr/fr-FR/?3065006&name=registreecrit_fonction

WinDev - Registro Windows - 001/... Criar/Ler/Gravar Registry

Nessa aula vou mostrar como Gravar e Ler no Registro do Windows

This class will show you how Recording and Reading in the Windows Registry

Cette classe va vous montrer comment l'enregistrement et de la lecture dans le Registre Windows

//-- Global
PROCEDURE MyWindow()
gn_id_usuario is int=0
//Global declarations
_chave_senha is string="HKEY_CURRENT_USER\Software\erpmatos\"

//----------------------
//--End of
//Ler Chave
n_usuario is int=RegistryQueryValue(_chave_senha,"Usuario")
CBOX_salvar=RegistryQueryValue(_chave_senha,"Salvar")
IF CBOX_salvar=True THEN
    COMBO_Usuario_matos_1=n_usuario
    LSV_Usuario_matos=n_usuario
    s_senha is string=RegistryQueryValue(_chave_senha,"Senha")
    EDT_senha = Uncrypt(s_senha, "Password")
END

//-----------------------
//Gravar Chave
//Check box Salvar
n_usuario is int=0
IF RegistryExist(_chave_senha) = False THEN
    RegistryCreateKey(_chave_senha)
END
n_usuario=COMBO_Usuario_matos_1
s_nome_usuario is string=""
RegistrySetValue(_chave_senha,"Usuario",n_usuario)
RegistrySetValue(_chave_senha,"Senha",Crypt(EDT_senha,"Password"))
HReadSeekFirst(usuario_matos,usuario_matosID,n_usuario)
IF HFound(usuario_matos) THEN
    RegistrySetValue(_chave_senha,"UsuarioNome",s_nome_usuario)
ELSE
    RegistrySetValue(_chave_senha,"UsuarioNome","")
END
IF CBOX_salvar=True THEN
    RegistrySetValue(_chave_senha,"Salvar",1)
ELSE
    RegistrySetValue(_chave_senha,"Salvar",0)
END

//--
//--Botao Salvar
IF CBOX_salvar=True THEN
    n_usuario is int=0
    n_usuario=COMBO_Usuario_matos_1
    RegistrySetValue(_chave_senha,"Usuario",n_usuario)
    RegistrySetValue(_chave_senha,"Senha",Crypt(EDT_senha,"Password"))
    RegistrySetValue(_chave_senha,"UsuarioNome",gs_usuario_nome)

END

Páginas

segunda-feira, 28 de março de 2016

Curso WinDev - Tabela - 020 - Descobrir Posição Cliente Novo

domingo, 27 de março de 2016

Curso WinDev - Registro Windows - 001 - Registry

Teste

Marcadores