quarta-feira, 1 de novembro de 2017

AULA 1280 WEBDEv 28 BrowserOpen













VIDEO WEBDEV




https://doc.windev.com/en-US/?3055006&name=BrowserOpen

https://doc.windev.com/en-US/?3058005&name=ChangeTarget

https://doc.windev.com/en-US/?3058008&name=PageDisplay






Blog - Webdev - Curso 1/... Primeira Pagina
Blog - Webdev - Curso 2/... Edit Mostrar
Blog - Webdev - Curso 3/... Template
Blog - Webdev - Curso 4/... Pagina Chama / Imagen
Blog - Webdev - Curso 5/... Menu
Blog - Webdev - Curso 6/... Palete Skin
Blog - Webdev - Curso 7/... - Colocar Analise
Blog - Webdev - Curso 8/... Rad - Cadastro Tecnico
Blog - Webdev - Curso 9/... - Menu Chamando Sistema 
Blog - Webdev - Curso 10/... - Tabela com Query 
Blog - Webdev - Curso 11/... - Inclui Altera Exclui Sistema
Blog - Webdev - Curso 12 /.. - Relatorio Como Gerar
Blog - Webdev - Curso 13/... - Rad Cliente Atendimento Combox 
Blog - Webdev - Curso 14/... Agenda Incluir Fotos / Imagens
Blog - Webdev - Curso 15/... - Jquery - Baixar Site /Instalar
Blog - Webdev - Curso 16/... - Jquery - Webdev Configurar Telefone
Blog - Webdev - Curso 17/.. - Ajax - Cpf Validar
Blog - Webdev - Curso 18/... Jquery Enter nos Campos
Blog - Webdev - Curso 19/... - Graficos
Blog - Webdev - Curso 20/... - Timer
Blog - Webdev - Curso 22/... - Servidor_Could_AlphaServers - 2/... - Instalar IIS WindowsServer
Blog - Webdev - Curso 23/... - Servidor_Could_AlphaServers - 3/... - Instalar FTP WindowsServer
Blog - Webdev - Curso 24/... - Servidor_Could_AlphaServers - 4/... - Instalar Was WebDev 10 Con.
Blog - Webdev - Curso 25/... - Servidor_Could_AlphaServers - 5/... - Deploy e Site Funcionando
http://windevdesenvolvimento.blogspot.com.br/2016/08/webdevcurso025servidorcould_29.html
TAMANHO PAGINA - WEBDEV 27 AULA 1275
ABRIR PAGINA - ALTERACAO - BROWSEOPEN - WEBDEV 28 - AULA 1280



//PROGRAMA PRINCIPAL
// WL CLICK ONCLICK OF BTN_ALTERARCHAMADO (BROWSER)
///ONDimension +
BrowserOpen("","MyPage",ONScrollBar+ONToolBar,800,500,400,100)
ChangeTarget("MyPage")




// CLICK OF BTN - (SERVER)
IF TableSelect(TABLE_QRY_atendimento_ligacoes)=-1 THEN RETURN

PageDisplay(PAGE_CHAMADO_ALTERAR,TABLE_QRY_atendimento_ligacoes.COL_Atendimento_ligacoesID)

mostra_dados_tabela()









































terça-feira, 31 de outubro de 2017

AULA 1279 WINDEV EMAIL 5 TRANSFORMA LINHAS EM PROCEDURE









VIDEO NO YOUTUBE SOBRE PROCEDURE




// EXIT FROM EDT_EMAIL
// VOU CHAMAR A ROTINA QUE CRIEI DE VERIFICAR EMAIL
// ANTES VOU CRIAR UMA VARIAVEL RETORNO
bRETORNO_EMAIL is boolean=verifica_email_Cadastros(EDT_Email)
// AGORA VOU VERIFICAR SE EMAIL É VERDADEIRO
IF bRETORNO_EMAIL=True THEN
// VERDADEIRO
ELSE
ReturnToCapture(EDT_Email)
END




PROCEDURE verifica_email_Cadastros(sRecebe_email)
// AQUI NA PROCEDURE VOU ARRUMAR NAO VOU DIZER QUE TIPO DE VARIAVEL É
// VOU CRIAR UMA VARIAVEL DE RETORNO BOOLEAN
RETORNO_EMAIL is boolean=False
// EU COPIEI E COLEI
// AGORA VOU CRIAR UM PARAMETRO PARA RECEBER O EMAIL
EmailCheckAddress(sRecebe_email,emailValidateSyntax)
SWITCH EmailCheckAddress(sRecebe_email)
CASE emailAddressValid
// SE FOR VERDADEIRO VOU COLOCAR COMO RETORNO EMAIL IGUAL VERDADEIRO
RETORNO_EMAIL=True
CASE emailAddressIncorrectSyntax
Info("A sintaxe do endereço está incorreta")
CASE emailAddressRefused
Info("O endereço foi recusado pelo servidor de e-mail."+CR+ErrorInfo())
CASE emailAddressError
Info("Ocorreu um erro durante a checagem "+CR+ErrorInfo())
OTHER CASE
Info("Caso indefinido")
END
// VOU MANDAR O RETORNO COM RESULT
RESULT RETORNO_EMAIL





---------------------- Indice Email 

EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2
DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização - Parte 1 - Email - 13
















segunda-feira, 30 de outubro de 2017

AULA 1278 email 4 - EmailCheckAddress - VERIFICAR email









EmailOpenMail - Windev Curso Email - 1
FOR EACH email - Windev Curso Email - 2



VIDEO VERIFICAR EMAIL






https://doc.windev.com/en-US/?1000017305&name=emailcheckaddress_function



// NA SAIDA DO EDT EMAIL VOU DIGITAR O CODIGO - EXIT FROM EDT_EMAIL

EmailCheckAddress(EDT_Email,emailValidateSyntax)
SWITCH EmailCheckAddress(EDT_Email)
CASE emailAddressValid
// Endereço válido
CASE emailAddressIncorrectSyntax
Info("A sintaxe do endereço está incorreta")
CASE emailAddressRefused
Info("O endereço foi recusado pelo servidor de e-mail."+CR+ErrorInfo())
CASE emailAddressError
Info("Ocorreu um erro durante a checagem "+CR+ErrorInfo())
OTHER CASE
Info("Caso indefinido")
END













































Teste

Teste
teste