quinta-feira, 22 de dezembro de 2016

Aula 1007 - WinDev - Novidades 22 - 1 /... - Posicao/Hyperfile/Tabela









Video no Youtube Se Gostou clique aqui para dar joinha







001 - Novidades WinDev22 - Posição Controles/hyperfile/Tabela Valor Min/Max
002 - Novidades WinDev22 - Looper Relatório // Editor Texto
003 - Novidades WinDev22 - Rvb/Editor/Temas/Ref/Erro/Verif
004 - Novidades WinDev22 - Editor/Procura/Ajustar/Layout como Mobile
005 - Novidades WinDevMobile22 - Tableau de Bord 
006 - Novidades WinDevMobile22 - Editor Imagen Integrado Windev 22  
007 - Novidades WinDevMobile22 - Hyperfile/Editor/Tabela
008 - Novidades WinDevMobile22 - Erros/Cor,Novo Comando
009 - Novidades WinDevMobile22 - Imagen - Encode / Décode
010 - Novidades WinDev22 - IPrintDoc - Imprimir Documentos Doc
011 - Planos - Como Configurar - Bandeau défilant - WebDev22 - 007/...
012 - Html/Css/Java Script - Composant Web - WebDev22 - 008/... 




1) Posicao dos Controles
2) Hyperfile
3) Tabela - Valor Minumo / Maximo





















Aula 1006 - WinDev - Email - 2 - Separar Emails por ;









Video no Youtube Se Gostou clique aqui para dar joinha




http://doc.windev.com/en-US/?1510017&name=FOR_EACH_Controls



//Vamos Separar o email quem vem no destinatario entre ;
//e colocar numa tabela de email
//amarildo@matosinformatica.com.br;matosi@terra.com.br;roque@rjsistemas.net
FOR EACH email WHERE "id_empresa="+gn_recebe_empresa
    EDT_Usuario=email.email_nome_usuario
    EDT_senha=email.email_senha
    EDT_servidor_smtp=email.email_smtp//"smtp.gmail.com"
    EDT_porta=email.email_porta_smtp//587
    COMBO_tls=email.tls //1 // 1=false 2=Nenhuma opção
    EDT_emailResposta=email.email_resposta
    BREAK
END
EDT_id_empresa=gn_recebe_empresa
EDT_destinatario=email_Destinatario
EDT_assunto=email_assunto
EDT_Mensagem=email_Mensagem
IF email_Anexo..Occurrence>0 THEN
    FOR ncontador = 1 TO email_Anexo..Occurrence
        TableAddLine(TABLE_anexo,email_Anexo[ncontador])
    END   
END
IF EDT_emailResposta<>"" THEN   
    TableAddLine(TABLE_email,EDT_emailResposta)
END
FOR EACH STRING _Email OF EDT_destinatario SEPAREE BY ";" 
    IF _Email<>"" THEN // Se _Email diferente branco
        TableAddLine(TABLE_email,_Email)
    END
END
EDT_destinatario="" // Edt Destinatario igual branco
TableDisplay(TABLE_email)
TableDisplay(TABLE_anexo)
MyWindow..Plane=1
ReturnToCapture(EDT_destinatario)



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



















Teste

Teste
teste