Windev21 Aulas,Estudos e Desenvolvimento

segunda-feira, 18 de julho de 2016

Nessa aula vou mostrar como fazer uma barra progresso simples com gauge

This class will show you how to make a simple progress bar with gauge

Cette classe va vous montrer comment faire une barre de progression simple avec jauge

//Quantidade de Registros // Records count // Nombre de dossiers

n_numero_registros is int=HNbRec(cliente)
n_soma is int=0
FOR EACH cliente
   STC_NoName1=cliente.razao_social_nome
   n_soma++
   n_falta is int=(n_numero_registros-n_soma)*100/n_numero_registros
   Gauge(n_soma,n_numero_registros,"Falta :"+ n_falta + "%")
END

//Quantidade de Registros // Records count // Nombre de dossiers

n_numero_registros est entier=HNbEnr(cliente)
n_soma est entier=0
POUR TOUT cliente
    STC_NoName1=cliente.razao_social_nome
    n_soma++
    n_falta est entier=(n_numero_registros-n_soma)*100/n_numero_registros
    Jauge(n_soma,n_numero_registros,"Falta :"+ n_falta + "%")
FIN

sábado, 16 de julho de 2016

WinDev - 21 - HyperFile -> HNbRec -> Quantidade Registro

Video youtube

Nessa aula vou mostrar como saber a quantidaede de registros

This class will show you how to know the number of records

Cette classe va vous montrer comment connaître le nombre d'enregistrements

http://doc.windev.com/?3044006&name=hnbrec_function
http://doc.pcsoft.fr/fr-FR/?3044006&name=hnbenr_fonction

http://doc.windev.com/?3044036&lang=en-US&productversion=xxA190056s

_numero_registros is int= HNbRec(cliente)
Info(_numero_registros)

FOR EACH cliente
STC_NoName1=cliente.razao_social_nome
END
Info("Final")

Blog - Hyperfile - Backup/Restore - Parte 10/...
Blog - Hyperfile - Backup Por Programação - Parte 11/..
Blog - HyperFile - Backup - Programada - /022/... - Automatica
Blog - Hyperfile - Campos Chaves Mostrar - HListItem - /014/... HListKey - HListLink
Blog - HyperFile - Configurar - 2/...
Blog - Hyperfile - Configurar Servidor Txt - parte 7/...
Blog - Hyperfile - Conexao - 3/...
Blog - Hyperfile - Conversões - 4/...
Blog - Hyperfile - Conexao - /015/ ... Conexao Classic - Mobile
Blog - Hyperfile - Estrutura - Modificar Estrutura Arquivo Parte 8/...
Blog - HyperFile - Expaind - /019/...
Blog - HyperFile - FireWall - /017/... FireWall - Problema Conexão - Wizard Conexao
Blog - HyperFile - Instalar - 1/...
Blog - HyperFile - Linux - /018/... Instalcao Linux Por Adriano - Hyperfile
Blog - Hyperfile - Log / Automatic Id - parte 6/...
Blog - HyperFile - Pastas Analise - /020/... Criar Pastas analise
Blog - Hyperfile - Porta - Liberar Porta 4900 - Acesso Rede - Parte 5/...
Blog - Hyperfile - Provider HyperFile Classic - Parte 12/... - Com banco ou sem Banco
Blog - HyperFile - Quantidades Registros /021/... - HNbRec -
Blog - HyperFile - Quantidade Registros e Progresso - HnbRec/Gauge- /023/... -
Blog - HyperFile - Senha - /016/ ... HyperFile - Alterar Senha
Blog - Hyperfile - Tabelas HListFile ->/013/... Mostrar Tabelas Analise Programação
Blog - Hyperfile - Wladimir - Consideraçoes Wladimir - Parte 9/...

Imagens 1

sexta-feira, 15 de julho de 2016

Curso WinDev - Funções Dialogo - 7/... - Error

Video youtube

Nessa aula vou mostrar as opções de erros

In this lecture I will show the error options

Dans cette conférence, je vais vous montrer les options d'erreur

http://doc.windev.com/en-US/?3021013&name=error_function

http://doc.windev.com/en-US/?1000018878&name=errorbuild_function

http://doc.windev.com/en-US/?1000020529&name=errorwithtimeout_function

http://doc.windev.com/en-US/?3021014&name=functions_for_managing_the_dialog_boxes

NextTitle("Erro 1")
Error("Um Erro de Teste")

s_descricao_erro is string="isso complemento erro"
NextTitle("Erro 2")
ErrorBuild("O %1 foi de teste",s_descricao_erro)

NextTitle("Erro 3")
ErrorWithTimeout(500,"O erro com tempo ")

TitreSuivant("Erro 1")
Erreur("Um Erro de Teste")

s_descricao_erro est chaîne="isso complemento erro"
TitreSuivant("Erro 2")
ErreurConstruit("O %1 foi de teste",s_descricao_erro)

TitreSuivant("Erro 3")
ErreurAvecDélai(500,"O erro com tempo ")

quinta-feira, 14 de julho de 2016

Windev - Obter Numreo Serial hd

http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/1516-como-obter-numero-serial-macaddress-placa-rede-outras/read.awp

Para obter o Número serial do HD, IP, Macaddress da placa de rede e outras informações da maquina cliente, segue exemplo:

//SERIAL
IF EDT_Company <> "" AND EDT_CNPJ_CPF_ID <> "" AND EDT_E_mail <> "" THEN

EDT_Hard_Drive = ""
EDT_Serial_Webdev = ""
EDT_Serial_Windev = ""
EDT_Serial_WindevMobile = ""

SERIAL_DOUNGLE_WEBDEV, SERIAL_DOUNGLE_WINDEV, SERIAL_DOUNGLE_WINDEVMOBILE, Windows, SerialWindows isstring = ""

//FUNCAO GET SERIAL DOUNGLE
SERIAL_DOUNGLE_WEBDEV = 10
SERIAL_DOUNGLE_WINDEV = 20
SERIAL_DOUNGLE_WINDEVMOBILE = 30

EDT_Doungle_Webdev = "WEBDEV_" + SERIAL_DOUNGLE_WEBDEV
EDT_Doungle_Webdev_PcSoft = EDT_Doungle_Webdev 

EDT_Doungle_Windev = "WINDEV_" + SERIAL_DOUNGLE_WINDEV
EDT_Doungle_Windev_PcSoft = EDT_Doungle_Windev 

EDT_Doungle_WindevMobile = "WINDEVMOBILE_" + SERIAL_DOUNGLE_WINDEVMOBILE
EDT_Doungle_WindevMobile_PcSoft = EDT_Doungle_WindevMobile 

sBaseBoardManufacturer, sBaseBoardProduct, sBaseBoardVersion, sBIOSReleaseDate, sBIOSVendor,sBIOSVersion, sSystemFamily, sSystemManufacturer is string = ""

ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS")

ResExist2 is boolean =RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0")

IF ResExist1 = True AND ResExist2 = True

sBaseBoardManufacturer =RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer",True)
sBaseBoardProduct = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","BaseBoardProduct", True)
sBaseBoardVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","BaseBoardVersion", True)
sBIOSReleaseDate = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","BIOSReleaseDate", True)
sBIOSVendor = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","BIOSVendor", True)
sBIOSVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","BIOSVersion", True)
sSystemFamily = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS","SystemFamily", True)
sSystemManufacturer =RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", True)

EDT_Pais = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", True)

EDT_Processador =RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0","ProcessorNameString", True) 

EDT_Placa_Mae = sBaseBoardManufacturer +" - "+ sBaseBoardProduct +" - "+ sBaseBoardVersion +" - "+sBIOSReleaseDate +" - "+ sBIOSVendor +" - "+ sBIOSVersion +" - "+ sSystemFamily +" - "+ sSystemManufacturer 

Windows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName", True)

SerialWindows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","BuildGUID", True)

EDT_Version_Windows = Windows +" - "+ SerialWindows +" - "+ SysWindowsVersion(sysProcessor) +" bits - "+SysWindowsVersion(sysVersionBuild) +" - "+ SysWindowsVersion(sysVersionInfo) +" - "+SysWindowsVersion(sysVersionNumber) +" - "+ SysWindowsVersion(sysVersionPlatform)

END

//EDT_Hard_Drive
EDT_Hard_Drive = fDisqueInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber) 

EDT_Hard_Drive_PcSoft = EDT_Hard_Drive 

EDT_IP_4 = NetIPAddress()

EDT_Placa_de_Rede_Mac = Upper(NetMACAddress())

EDT_Name_PC = Upper(NetMachineName())

//Marca_Modelo_Placa_de_Rede
ResExist3 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist3 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo = Achou
EDT_Placa_de_Rede_ServiceName = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END
END


//Crypto
EDT_Serial_Webdev = EDT_Doungle_Webdev +"; "+ EDT_Company +"; "+ EDT_Pais +"; "+ EDT_CNPJ_CPF_ID +"; "+EDT_E_mail +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC +"; "+ EDT_Placa_de_Rede_Marca_Modelo+"; "+ EDT_Placa_de_Rede_ServiceName
EDT_Serial_Webdev =Crypt(EDT_Serial_Webdev,EDT_Doungle_Webdev,cryptAnsi+compressShortString,encodeBASE64) 


//Crypto
EDT_Serial_Windev = EDT_Doungle_Windev +"; "+ EDT_Company +"; "+ EDT_Pais +"; "+ EDT_CNPJ_CPF_ID +"; "+EDT_E_mail +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC +"; "+ EDT_Placa_de_Rede_Marca_Modelo+"; "+ EDT_Placa_de_Rede_ServiceName
EDT_Serial_Windev =Crypt(EDT_Serial_Windev,EDT_Doungle_Windev,cryptAnsi+compressShortString,encodeBASE64)


//Crypto
EDT_Serial_WindevMobile = EDT_Doungle_WindevMobile +"; "+ EDT_Company +"; "+ EDT_Pais +"; "+EDT_CNPJ_CPF_ID +"; "+ EDT_E_mail +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+EDT_IP_4 +"; "+ EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC +"; "+EDT_Placa_de_Rede_Marca_Modelo +"; "+ EDT_Placa_de_Rede_ServiceName
EDT_Serial_WindevMobile =Crypt(EDT_Serial_WindevMobile,EDT_Doungle_WindevMobile,cryptAnsi+compressShortString,encodeBASE64)

ELSE

IF EDT_Company = "" THEN
EDT_Company..BrushColor = DarkRed
END
IF EDT_CNPJ_CPF_ID = "" THEN
EDT_CNPJ_CPF_ID..BrushColor = DarkRed 
END
IF EDT_E_mail = "" THEN
EDT_E_mail..BrushColor = DarkRed
END

END 
//Marca_Modelo_Placa_de_Rede
ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist1 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo01 = Achou
EDT_Placa_de_Rede_ServiceName01 = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END
Achou = ""
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo02 = Achou
EDT_Placa_de_Rede_ServiceName02 = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END
END

Bons estudos

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/

Páginas