quinta-feira, 22 de abril de 2021

DICAS 3312 - WINDEV WEBDEV MOBILE - Como Imprimir Nfc-e Autorizado no comando ImprimeXMLNFCe - CURSO ELGIN MINI PDV PARTE 7



https://youtu.be/5u3brJgtWrw




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 14:00  do dia 22/04/2021 

DICAS 3312 - WINDEV WEBDEV MOBILE - Como Imprimir Nfc-e Autorizado no comando ImprimeXMLNFCe - CURSO ELGIN MINI PDV PARTE 7




Assunto :


Como Imprimir Nfc-e Autorizado no comando ImprimeXMLNFCe

-----------

sConteudo_xml=Replace(sConteudo_xml,CR,"") // estamos tirando os cr
EDT_Resposta=m8_ImprimeXMLNFCe(sConteudo_xml,nId_csc,sCsc,nParametro)


========= INDICE MINI CURSO ELGIN M8 


========= INDICE MOBILE




PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 















terça-feira, 20 de abril de 2021

DICAS 3311 - WINDEV WEBDEV MOBILE - Criando Window Configuração Email - Parte 5 - Email - 17




https://youtu.be/icJp3FiXHNM



Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 08:00 do dia 21/04/2021 

DICAS 3311 - WINDEV WEBDEV MOBILE - Criando Window Configuração Email - Parte 5 -  Email - 17




Assunto :


Criando Window Configuração Email

Criando todos os campos que precisa para configuracao 

Criar no win_Email_envio,um atalho para levar para configuracao  


---------------------- 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

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


PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 
















DICAS 3310 - WINDEV WEBDEV MOBILE - Receber os dados para preencher automatico os dados do email - Email Botao Envia Codigo - Parte 4 - Email - 16




https://youtu.be/xLfx31Fc8rM




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 20/04/2021 

DICAS 3310 - WINDEV WEBDEV MOBILE - Receber os dados para preencher automatico os dados do email  - Email Botao Envia Codigo - Parte 3 -  Email - 15



Assunto :


Receber os dados para preencher automatico os dados do email 
Vamos receber os emails dos destinatarios, separados por ;
Vamos ler esse email recebidos e colocar no token edt destinatario
Vamos receber o assunto e colocar no edt assunto 
vamos receber a mensagem e colocar na mensagem htmedt
Vamos receber o anexo e colocar na tabela anexo

--------------------- Codigo do Email - 
PROCEDURE WIN_email_envio(gRecebe_destinatarios,gRecebe_assunto,gRecebe_mensagem,gRecebe_anexo)
//destinatarios vai vir email,separados por virgula,vamos ler cada um e colocar no edt_destinatario 
//amarildo.matos@gmail.com;amarildo@tgssistemas.com
FOR EACH STRING sEmail_destinatario IN gRecebe_destinatarios SEPARATED BY ";"
EditAddToken(EDT_destinatario,sEmail_destinatario,sEmail_destinatario)
END
EDT_Assunto=gRecebe_assunto // vamos receber assunto 
HTMEDT_email.Value=gRecebe_mensagem // vamos receber mensagem
// Vamos agora receber os anexos, separados por ; e colocar na tabela anexo
FOR EACH STRING sAnexo_linha IN gRecebe_anexo SEPARATED BY ";"
TABLE_anexo.AddLine(sAnexo_linha)
END

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


// btn_envio_email
s_Remetente is string = "" // Email de quem esta mandando
s_Usuario is string = "" // Usuario do email
s_sEnha is string = ""
s_Porta is string = 587
s_servidor_smtp is string = ""
s_tls_configuracao is string = "2"
s_modo_parametro is string=""
// Variaveis de parametro
IF s_modo_parametro="1" THEN
EmailConfigure(emailParameterMode,1)
END
EmailSetTimeOut(30)
HourGlass()

bEmail_sessao is boolean
SWITCH s_tls_configuracao
CASE 1
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,emailOptionSecuredTLS)
CASE 2
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta)
CASE 3
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,optionSSL)
CASE 4
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,emailOptionSecuredTLS)
CASE 5
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,optionSSL)
CASE 6
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True)
CASE 7
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False)
CASE 8
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,emailOptionDefault)
CASE 9
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,emailOptionDefault)
END
// Opcoes //1 - TSL Sincrono       //2 - Sem criptografia            //3 - SSL Sincrono 3 //4 - TSL Assincrono
          //5 - SSL Assincrono     //6 - Sem Criptografia Assincrono //7 - Sem Criptografia Sincrono
          //8 - Default Assincrono //9 - Default Sincrono 
IF bEmail_sessao=True THEN
minha_mensagem is Email 
minha_mensagem..Sender=s_Remetente
FOR EACH STRING sEmail_individual IN EDT_destinatario SEPARATED BY CR
Add(minha_mensagem..Recipient,sEmail_individual)
END
minha_mensagem..Subject=EDT_Assunto
nTipoemailpersonalizado is int=2
IF nTipoemailpersonalizado=0 THEN
minha_mensagem..Message=HTMEDT_email
ELSE IF nTipoemailpersonalizado=1 THEN
minha_mensagem..HTML=HTMEDT_email
ELSE IF nTipoemailpersonalizado=2 THEN
HTMLEditorToEmail(HTMEDT_email,minha_mensagem)
END
FOR EACH ROW OF TABLE_anexo
sAnexo is string=NoSpace(TABLE_anexo.COL_Anexo)
EmailLoadAttachment(minha_mensagem,sAnexo)
END
IF EmailSendMessage(s_Usuario,minha_mensagem)=False THEN
Info(ErrorInfo(errFullDetails))
ELSE
InfoWithTimeout(300,"Email enviado com Sucesso")
END
EmailCloseSession(s_Usuario)
ELSE
Info(ErrorInfo(errFullDetails))
END
HourGlass(False)



---------------------- 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

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



PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 




















domingo, 18 de abril de 2021

DICAS 3309 - WINDEV WEBDEV MOBILE - Email Botao Envia Codigo - Parte 3 - Email - 15






https://youtu.be/HdLnAXyfK3E




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 06:00 do dia 19/04/2021 

DICAS 3309 - WINDEV WEBDEV MOBILE - Email Botao Envia Codigo - Parte 3 -  Email - 15



Assunto :


Codigo do Envia Email 
Testar Envia Email 

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

// HTMEDT_NoName1 - trocar o nome 
// Envia Email

//Configuracao
s_Remetente is string = ""
s_Usuario is string = ""
s_sEnha is string = ""
s_Porta is string = 587
s_servidor_smtp is string = ""
s_modo_parametro is string = ""
s_tls_configuracao is string = "2"

// Opcoes
//1 - TSL Sincrono 
//2 - Sem criptografia
//3 - SSL Sincrono 3
//4 - TSL Assincrono
//5 - SSL Assincrono
//6 - Sem Criptografia Assincrono
//7 - Sem Criptografia Sincrono
//8 - Default Assincrono
//9 - Default Sincrono 

//Configuracao
IF s_modo_parametro="1" THEN
EmailConfigure(emailParameterMode,1)
END

EmailSetTimeOut(30)
HourGlass()


bEmail_sessao is boolean

SWITCH s_tls_configuracao
CASE 1
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,emailOptionSecuredTLS)
CASE 2
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta)
CASE 3
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,optionSSL)
CASE 4
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,emailOptionSecuredTLS)
CASE 5
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,optionSSL)
CASE 6
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True)
CASE 7
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False)
CASE 8
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,True,emailOptionDefault)
CASE 9
bEmail_sessao=EmailStartSMTPSession(s_Usuario,s_sEnha,s_servidor_smtp,s_Porta,False,emailOptionDefault)
END

IF bEmail_sessao=True THEN
minha_mensagem is Email 
IF EDT_Remetente<>"" THEN
minha_mensagem..Sender=EDT_Remetente
END
FOR EACH STRING email_individual IN EDT_destinatario SEPARATED BY CR
Add(minha_mensagem..Recipient,email_individual)
END
minha_mensagem..Subject=EDT_Assunto
gnTipoEmailPersonalizado is int = 2
IF gnTipoEmailPersonalizado=0 THEN // 0-Message 1=Html
minha_mensagem..Message = HTMEDT_NoName1
ELSE IF gnTipoEmailPersonalizado=1
minha_mensagem..HTML = HTMEDT_NoName1
ELSE IF gnTipoEmailPersonalizado=2
HTMLEditorToEmail(HTMEDT_NoName1,minha_mensagem) // nao sai imagen
END
FOR EACH ROW OF TABLE_anexo
sAnexo is string=NoSpace(TABLE_anexo.COL_Anexo)
WHEN EXCEPTION IN 
EmailLoadAttachment(minha_mensagem,sAnexo)
DO
END
END
IF EmailSendMessage(s_Usuario,minha_mensagem)=False THEN
Info(ErrorInfo(errFullDetails))
ELSE 
InfoWithTimeout(300,"Email enviado com sucesso")
END
EmailCloseSession(s_Usuario)
ELSE
Info(ErrorInfo(errFullDetails))
END
HourGlass(False)





// Comandos enviar

ToastDisplay("Enviado email com sucesso",toastLong,vaMiddle)

---------------------- 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

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




PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 
















sexta-feira, 16 de abril de 2021

DICAS 3308 - WINDEV WEBDEV MOBILE - Email Anexo - Parte 2 - Email - 14




https://youtu.be/FGsQZrXDLL8





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 09:45 do dia 16/04/2021 

DICAS 3308 - WINDEV WEBDEV MOBILE - Email Anexo -  Parte 2 -  Email - 14


Assunto :


Refazendo o Campo Destinatario 
Criar uma tabela Anexo 
Fazer um botao Anexo 
Selecionar Arquivo e adicionar tabela anexo 
Fazer Botal para Eliminar Anexo 
Vamos verificar se a tabela pode alterar
Vamos mudar o Estilo Tabela 
Vamos testar 
Proxima Aula - Fazer botao envia

//=========== Codigo Anexo 

// Procura e Adiciona Anexo


sFile is string
sFile = fSelect("", "", "Seleciona Arquivo", "All the files (*.*)" + TAB + "*.*", "*.*")
IF sFile<>"" THEN
TABLE_anexo.AddLine(sFile)
END


//============ Elimina Anexo 

// btn Eliminar linha anexo


TABLE_anexo.Delete()


//========================

---------------------- 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
---------------------- Indice Email 

PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 














quinta-feira, 15 de abril de 2021

DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização - Parte 1 - Email - 13







https://youtu.be/4VusN45qo_Y




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join

Esse Video vai estrear as 17:45 do dia 15/04/2021 

DICAS 3307 - WINDEV WEBDEV MOBILE - Criando Programa Email e criar componente dele para utilização -  Parte 1 -  Email - 13




Assunto :


Criando Programa Email e criar componente dele para utilização - Parte 1 
O que me motivou a fazer o curso de Email 
Criando Projeto Email 
Criando Menu e chamando Enviar Email 
Criando Windows email envio 
Fazer chamar email envio 
Criando Windows email configura 
Na janela email envio vamos colocar alguns campos 
expllicando proximos passos



---------------------- 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


PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 













quarta-feira, 14 de abril de 2021

DICAS 3306 - WINDEV WEBDEV MOBILE - Criacao de variaveis dentro do campo como glogal - COMANDOS 93



https://youtu.be/cIS2ijASC_k





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal

Esse Video vai estrear as 14:15 do dia 14/04/2021 

DICAS 3306 - WINDEV WEBDEV MOBILE - Criacao de variaveis dentro do campo como glogal - COMANDOS 93



Assunto :

Criacao de variaveis dentro do campo - como global 

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

globale 


   variavel is string 

   


-------------------------------INDICES COMANDOS

DICAS 1979 - WINDEV - COMANDOS 29 sidebar control Barra Lateral
DICAS 2147 WINDEV WEBDEV MOBILE COMANDOS 63 MAIS 1 PARAMETRO RETORNO JANELA
DICAS 2148 WINDEV WEBDEV MOBILE COMANDOS 64 The Splitter control
DICAS 2156 WINDEV WEBDEV MOBILE COMANDOS 65 HourGlass Lupa Ampuleta
DICAS 2157 WINDEV WEBDEV MOBILE COMANDOS 66 CEP
DICAS 2168 WINDEV WEBDEV MOBILE WEBSERVICE COMANDOS 67 SysListScreen
DICAS 2196 WINDEV WEBDEV MOBILE COMANDOS 68 eDT TOKEN
DICAS 2198 WINDEV WEBDEV MOBILE COMANDOS 69 eDT TOKEN PROGRAMACAO
DICAS 2213 WINDEV WEBDEV MOBILE COMANDOS 70 LEAPYEAR ANO BISSEXTO
DICAS 2215 WINDEV WEBDEV MOBILE 24 NOVIDADES 18 COMANDOS 71 BCToImage -GERAR IMAGEN CODIGO DE BARRA
DICAS 2229 WINDEV WEBDEV MOBILE 24 NOVIDADES 28 COMANDOS 72 PLANOS NOME
DICAS 2230 WINDEV WEBDEV MOBILE 24 NOVIDADES 29 COMANDOS 73 CONDICOES DEBUG
DICAS 2237 WINDEV WEBDEV MOBILE 24 NOVIDADES 33 COMANDOS 76 MININIZAR Iconize
DICAS 2240 WINDEV WEBDEV MOBILE 24 novidades 34 Comandos 77 Maximize
DICAS 2256 WINDEV WEBDEV MOBILE 24 Novidades 45 Comandos 78 Manual Fonte
DICAS 2257 WINDEV WEBDEV MOBILE 24 Novidades 46 Comandos 79 Help Como Fazer
DICAS 2258 WINDEV WEBDEV MOBILE 24 Novidades 47 Comandos 80 TraceDeleteAll
DICAS 2260 WINDEV WEBDEV MOBILE 24 Novidades 49 Comandos 82 Edit AddAssi...
DICAS 2272 WINDEV WEBDEV MOBILE COMANDOS 82 ExeListProcess
DICAS 2273 WINDEV WEBDEV MOBILE COMANDOS 83 DLL LINKADAS PROCESSOS AddChildDelayed
dica 2631 extrair conteudo com Middle


PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 















Teste

Teste
teste