terça-feira, 6 de dezembro de 2022

Dica 3850 - Windev Webdev Mobile 28 - 06-12-2022 - Versão Final - Donwload



novidades 28


-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





-------------------------------------------------------

Youtube

https://youtu.be/SMNOv5k-_A0



Playlist 

https://www.youtube.com/playlist?list=PLwJwZaqiZW-kLi4fXcvkR-Fp1XSY8P62x


--------------------------------------------------------

Repositorio


---------------------------------------------------------

Blog


------------------------------------------------------
Link Pcsoft Fr


------------------------------------------------------
Help Pcsoft

----------------------------------------------------

------------------------
Bom dia..
Hoje vou mostrar como 
fiz a atualizacao da versão 
final do windev,webdev,mobile 
versao 28

------------------------
00:00:00 Apresentação
00:00:12 Representante Adriano Boller
00:00:23 Apresentando Novidade 
00:00:30 Mostrando Help do windev
00:00:48 Mostrando no Windev 28
00:00:49 Criando a Window diskfile 
00:01:03 Explicando o que sera feito
00:01:14 Criando os edt arquivo
00:01:37 Criando botao seleciona e mostrando o codigo 
00:02:04 Criando edt texto para gravar e ler 
00:02:36 Criando botao para gravar o texto 
00:02:47 Criando botao para ler arquivo texto 
00:02:55 Criando codigo para gravar arquivo texto
00:05:09 Criando codigo para ler conteudo texto 
00:06:41 Executando o codigo 
00:07:08 Consideração Final 
00:07:19 Mostrando exemplo repositorio 
------------------------




-----------------------------------------------------------------------------------------------------------------------------





Postado por às Nenhum comentário:
Marcadores:

domingo, 4 de dezembro de 2022

novas aulas



Changes the extension of a file on a disk.


Postado por às Nenhum comentário:

Dica 3847 - DiskFile - Lidar com Arquivos Textos - Novidades Versao 28 - 116 - Nov 5 - Windev-webdev-mobile




-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





-------------------------------------------------------

Youtube

https://youtu.be/rGEhPNehuXc




Playlist 

https://www.youtube.com/playlist?list=PLwJwZaqiZW-kLi4fXcvkR-Fp1XSY8P62x


--------------------------------------------------------

Repositorio


---------------------------------------------------------

Blog


------------------------------------------------------

Help Pcsoft


----------------------------------------------------

------------------------
Bom dia..
Hoje vamos ver mais uma função 
nova no windev 28-webdev-mobile 
DiskFile 
é usado para lidar com arquivos de texto 
presentes no disco
------------------------
00:00:00 Apresentação
00:00:12 Representante Adriano Boller
00:00:23 Apresentando Novidade 
00:00:30 Mostrando Help do windev
00:00:48 Mostrando no Windev 28
00:00:49 Criando a Window diskfile 
00:01:03 Explicando o que sera feito
00:01:14 Criando os edt arquivo
00:01:37 Criando botao seleciona e mostrando o codigo 
00:02:04 Criando edt texto para gravar e ler 
00:02:36 Criando botao para gravar o texto 
00:02:47 Criando botao para ler arquivo texto 
00:02:55 Criando codigo para gravar arquivo texto
00:05:09 Criando codigo para ler conteudo texto 
00:06:41 Executando o codigo 
00:07:08 Consideração Final 
00:07:19 Mostrando exemplo repositorio 
------------------------







-------------------------
Codigo

//gravando arquivo texto
arquivo_txt is DiskFile
arquivo_txt=fOpen(EDT_Nome_arquivo,foReadWrite)
IF NOT ErrorOccurred THEN
ELSE 
// deu erro que nao existe
fCreate(EDT_Nome_arquivo)
arquivo_txt=fOpen(EDT_Nome_arquivo,foReadWrite)
END
arquivo_txt.WriteLine("--------------------------")
arquivo_txt.Write(EDT_texto_para_gravar_ou_mostrar)
arquivo_txt.WriteLine("--------------------------")
fClose(arquivo_txt)

--------------------------------

//lendo arquivo texto

arquivo_txt is DiskFile
arquivo_txt=fOpen(EDT_Nome_arquivo,foReadWrite)
IF NOT ErrorOccurred THEN
EDT_texto_para_gravar_ou_mostrar=arquivo_txt.Read(147483648)
//lendo por linha
LOOP 
retorno_linha is string=arquivo_txt.ReadLine()
IF retorno_linha=EOT THEN
BREAK
ELSE
Trace(retorno_linha)
END
END
END
Info("mostrado dados")
fClose(arquivo_txt)

----------------------







-----------------------------------------------------------------------------------------------------------------------------


Postado por às Nenhum comentário:
Marcadores: , , ,

Dica 3846 - Hashtags - pesquisas rapidas - Novidades Versao 28 - Nov 4- Windev-webdev-mobile






-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





-------------------------------------------------------

Youtube

https://youtu.be/XQZgt34lmtE



Playlist 

https://www.youtube.com/playlist?list=PLwJwZaqiZW-kLi4fXcvkR-Fp1XSY8P62x


--------------------------------------------------------

Repositorio



---------------------------------------------------------

Blog


------------------------------------------------------


bom dia. 
Vamos ver mais uma novidade versao 28
Marcação rapida - Hashtags 
no Seu codigo 
Vou mostrar no Windev-Webdev-Mobile 28

--------------------------------------

00:00:00 Apresentação

00:00:10 Representante Adriano Boller

00:00:19 Apresentando Novidade 

00:00:27 Mostrando no Windev 28

00:01:55 Mostrando no Webdev 28

00:01:51 Mostrando no Windev Mobile 28

00:03:08 o Que tem de ser melhorado no Hashtags 

00:03:50 Finalizando

----------------------------------








-----------------------------------------------------------------------------------------------------------------------------


Postado por às Nenhum comentário:
Marcadores:

sexta-feira, 2 de dezembro de 2022

DICA 3844 - Novidades Versao 28 - Diagramas Pode desenhar mao livre - Novidade 3








-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





-------------------------------------------------------

Youtube

https://youtu.be/Cl9bsvbFQDo



Playlist 

https://www.youtube.com/playlist?list=PLwJwZaqiZW-kLi4fXcvkR-Fp1XSY8P62x


--------------------------------------------------------

Repositorio



---------------------------------------------------------

Blog



--------------------------------------

00:00:00 Apresentação 00:00:12 Representante Adriano Boller 00:00:20 Apresentando Novidade 00:00:28 Mostrando no Windev 28 00:01:25 Mostrando no Webdev 28 00:02:07 Repositorio Windev Exemplo




-----------------------------------------------------------------------------------------------------------------------------


DICA 3844 - Novidades Versao 28 - Diagramas Pode desenhar mao livre - Novidade 3

-----------------------------------------------------------------------------------------------------------------------------












Postado por às Nenhum comentário:
Marcadores:

domingo, 27 de novembro de 2022

DICA 3841 - Brazil.CheckCPF - Windev - Webdev - Mobile - Novidades Versao 28 - cpf

 



-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES


-------------------------------------------------------

Youtube

https://youtu.be/qlsvXnLk11A




-----------------------------------

Help windev

https://doc.pcsoft.fr/fr-FR/?1410089245

--------------------------------------

Repositorio

https://repository.windev.com/resource.awp?file_id=281474976711777;tip-3841-brazilcheckcpf-windev-webdev-mobile-news-version-28-cpf


--------------------------------------

00:00:00 Apresentação 00:00:09 Representante Adriano Boller 00:00:20 Help Windev 00:00:25 Copiando botao cnpj e colocando cpf 00:00:44 Alterando codigo para cpf 00:01:08 Explicanco o codigo cpf 00:01:33 Executando o programa e testando 00:01:53 Mostrando o repositorio fonte cpf 00:02:00 Explicando que esse comando é para windev-webdev-mobile

----------------------------------------







-------------------------------- Comandos

cpf is string=""

Input("Informe cpf",cpf)

retorno is boolean=Brazil.CheckCPF(cpf)

IF retorno=False THEN

Info("cpf invalido")

ELSE

Info("cpf valido")

END

------------------------ Imagen



-----------------------------------------------------------------------------------------------------------------------------


DICA 3844 - Novidades Versao 28 - Diagramas Pode desenhar mao livre - Novidade 3


-----------------------------------------------------------------------------------------------------------------------------


Postado por às Nenhum comentário:
Marcadores: ,

sábado, 26 de novembro de 2022

DICA 3838 - Instação Windev Webdev mobile Versao 28 - Troca Token














-----------------------------------------------------------------------------------------------------------------------------

Cnpj Valida - DICA 3840 - Brazil.CheckCNPJ - Windev - Webdev - Mobile - Novidades Versao 28


-----------------------------------------------------------------------------------------------------------------------------



Postado por às Nenhum comentário:
Marcadores: , ,

DICA 3840 - Brazil.CheckCNPJ - Windev - Webdev - Mobile - Novidades Versao 28

 



-------------------------------------------------------

PARA ADQUIRIR WINDEV WEBDMOBILE
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES


-------------------------------------------------------




=== Colocar video youtube

https://youtu.be/-A_dtuS1jQQ




00:00:00 Apresentaçao

00:00:08 Representante Adriano Boller 

00:00:18 Apresentante novidade 128

00:00:23 Help Windev

00:00:28 Iniciando Window Windev 

00:00:35 Criando Botao Cnpj Validar

00:00:44 Entrando no codigo do botao 

00:00:47 Criando variavel cnpj 

00:00:56 Input para pedir o cnpj

00:01:09 Criando variavel boolean retorno

00:01:17 Chamando a funcao cnpj 

00:01:30 Verificando retorno cnpj 

00:01:55 Explicando todo o comando 

00:02:14 Executando o programa 

00:02:32 Mostrando repositorio com exemplo

00:02:43 Finalizando


https://doc.pcsoft.fr/fr-FR/?1410089249&name=bresilverifiecnpj_fonction

Repositorio Exemplo

https://repository.windev.com/resource.awp?file_id=281474976711776;cnpj-tip-3840-brazilcheckcnpj-windev-webdev-mobile-news-version-28


=====================

cnpj is string=""

Input("Cnpj",cnpj)

retorno is boolean=Brazil.CheckCNPJ(cnpj)

IF retorno=False THEN

Info("cnpj errado")

ELSE

Info("cnpj correto")

END

=====================






-----------------------------------------------------------------------------------------------------------------------------





-----------------------------------------------------------------------------------------------------------------------------









Postado por às Nenhum comentário:
Marcadores: ,

sexta-feira, 26 de agosto de 2022

Video 3787 - Windev 27 e Windev22 - Pix





Video




Blog 







Help




Ola.. vou mostrar o codigo
para gerar qr-code Pix




Video 3787 - Windev 27 e Windev22  - Pix





===================== codigo
// gerar pix
valor is currency=EDT_valor
sChave_pix_26 is string=EDT_chave_pix_26
sIdentificacao_59 is string=EDT_IDENTIFICACAO_59
sCidade_60 is string=EDT_Cidade_60

EDT_pix_linha=codigo_pix(valor,sChave_pix_26,sIdentificacao_59,sCidade_60)
ToClipboard(EDT_pix_linha)

===============
//PROCEDURE codigo_pix(cy_valor is currency=0,s_chave_pix_26_01 is string="", ...
                      s_identificacao_59 is string="",
                      s_cidade_60 is string = "")
                      
// exemplo do paulo viana
// silvio/willian e amigos
s_pix_linha is string = ""
IF cy_valor <= 0 THEN
Info("Informe Um Valor Válido")
ReturnToCapture(EDT_valor)
ELSE
sRandomString is string // Gera a string aleatória
LOOP (25)
nCharacter is int = Random(65,122) // Gera um número aleatoriamente
//                                     no intervalo 65-122 (A-z)
WHILE (91 <= nCharacter <= 96) // Não pegue os caracteres 
//                                incluídos entre 91 e 96
nCharacter = Random(65,122)
END
sRandomString += Charact(nCharacter)// Preenche a cadeia
END
sDoc_randomico is string = sRandomString// "Cli000019Bol000721"
sMsg is string = "05" + NumToString( Length( NoSpace( Left( NoSpace(sDoc_randomico),21))),"02d") + Left(NoSpace(sDoc_randomico),21)
grupo_26 is string = "0014br.gov.bcb.pix" //00-id 14-tamanho do br.gov.bcb.pix
tamanho_grupo_26_inicial is int = Length(grupo_26)
grupo_26+="01"
Tamanho_Chave_pix is int = Length(s_chave_pix_26_01) // 11
Tamanho_Chave_pix+=Length(Tamanho_Chave_pix) // somando tambem o tamanho da chave
tamanho_grupo_26 is int=tamanho_grupo_26_inicial+Tamanho_Chave_pix
tamanho_grupo_26+=Length(tamanho_grupo_26)
grupo_26+=NumToString( Length( NoSpace( s_chave_pix_26_01 )),"02d")  
grupo_26+=NoSpace( s_chave_pix_26_01 )
s_pix_linha = "000201" //Inicio do código para gerar o Qr-Code
s_pix_linha += "26" + NumToString(tamanho_grupo_26,"02d") + grupo_26
s_pix_linha += "52040000" 
s_pix_linha += "5303986" 
s_pix_linha += "54" + NumToString( Length( NoSpace( NumToString(cy_valor,"10.2f"))),"02d") ...
                      + NoSpace(NumToString(cy_valor,"10.2f"))
s_pix_linha += "5802BR"
s_pix_linha += "59" + NumToString( Length( NoSpace( s_identificacao_59 )),"02d") + ... 
                      NoSpace( s_identificacao_59 )
s_pix_linha += "60" + NumToString( Length( Left (NoSpace( s_cidade_60),15)),"02d") + ... 
                      NoSpace( Left( s_cidade_60,15))
//sString += "61" + NumToString(Length(NoSpace(sCEP)))
s_pix_linha += "62" + NumToString( Length( sMsg), "02d" ) + sMsg
s_pix_linha += "6304"
s_pix_linha = Rot_Pix(s_pix_linha)
BCOD_pix.Value = s_pix_linha
ImageQRCodeCenter is Image
ImageQRCodeCenter = IMG_logo
Meu_Codigo_Barra is BarCode
Meu_Codigo_Barra.Content =  s_pix_linha
Meu_Codigo_Barra.TypeBarCode = BC_QRCODE
Meu_Codigo_Barra.Image = ImageQRCodeCenter
Meu_Codigo_Barra.CorrectionError = qrcodeLevelH
Meu_Codigo_Barra.ImageProportion = 3
ImageBarCode is Image = BCToImage(Meu_Codigo_Barra,200,200)
IMG_Pix = ImageBarCode
END 

RESULT s_pix_linha


INTERNAL PROCEDURE rot_pix(chave)
meuvalor is string = chave
nTamanho is int = Length(meuvalor)
nPoly is 2-byte unsigned int = 0x1021
Wcrc is 2-byte unsigned int = 0xFFFF
FOR i=1 _TO_ Length(meuvalor)
Wcrc = BinaryXOR(Wcrc, Asc(meuvalor[[i]]) bitLeftShift 8)
FOR j = 0 TO 7
IF (Wcrc & 0x8000) THEN
Wcrc=(Wcrc bitLeftShift 1) || 0x1021
ELSE
Wcrc=Wcrc bitLeftShift 1
END
END
END
RESULT(chave+IntToHexa(Wcrc)[[5 TO ]]) 
END


//sCEP is string = EDT_Cep // "66625410"




Video estreia dia 26/08/2022


Menu dos videos webdev windev mobile


Postado por às Nenhum comentário:
Assinar: Postagens (Atom)

Teste

Teste
teste