VIDEO - CURSO INICIANTE - 11/... - CRIANDO ANALISE
Nessa Parte do Curso vou ensinar, como criar uma Analise do Zero,
Criando uma tabela chamado Agenda,
Depois vamos criar uma Tabela e um Form para Poder
Visualizar, cadastrar ou alterar Agenda
segunda-feira, 29 de junho de 2015
Windev - Curso Iniciante - 11/... - Criando Analise/Agenda
Nessa Parte do Curso vou ensinar, como criar uma Analise do Zero,
Criando uma tabela chamado Agenda,
Depois vamos criar uma Tabela e um Form para Poder
Visualizar, cadastrar ou alterar Agenda
Windev - Curso Ligacoes Parte 32/.... - Atendimento 13 - Ajustes_2
VIDEO - CURSO LIGACOES PARTE 32/... AJUSTES 2
Blog - Curso Ligacoes - Analise - Parte 1/...
Blog - Curso Ligacoes - Criando Projeto - Parte 2/...
Blog - Curso Ligacoes - Criando Analise - Parte 3/...
Blog - Curso Ligacoes - Criando Analise Contatos 4/....
Blog - Curso Ligacoes - Relacionamento - Parte 5/...
Blog - Curso Ligacoes - Criar Connection - Parte 6/....
Blog - Curso Ligacoes - Menu Ribbon 1 - Parte 7/....
Blog - Curso Ligacoes - Menu Ribbon 2 - Parte 8/...
Blog - Curso Ligacoes - Rad 1 - Parte 9/...
Blog - Curso Ligacoes - Alterando Rad - Parte 10/...
Blog - Curso Ligacoes - Tabela Bairro - Parte 11/...
Blog - Curso Ligacoes - Excel 1/.. - Parte 12/...
Blog - Curso Ligacoes - Excel 2/... - Parte 13/...
Blog - Curso Ligacoes - Excel 3/... - Parte 14/...
Blog - curso Ligacoes - Analise Cliente Bairro - Parte 15/...
Blog - Curso Ligacoes - Tabela - Cidade /Bairro - Parte 17/...
Blog - Curso Ligacoes - Importa Excel-Gera Arquivo - Parte 18/...
Blog - Curso Ligacoes - Atendimento Inicio 1 - Parte 19/...
Blog - Curso Ligacoes - Atendim 2 - Contato Relacionado Movim - Parte 20/....
Blog - Curso Ligacoes - Atendimento 3 - Contato Manual - Parte 21/...
Blog - Curso Ligacoes - Atendimento 4 - Contato Parte 22/...
Blog - Curso Ligacoes - Atendimento 5 - Ajeitando Tela Parte 23/...
Blog - Curso Ligacoes - Atendimento 6 - Contato Mostra Inf - Parte 24/...
Blog - Curso Ligacoes - Atendimento 7 - Combox Clientes - Parte 25/...
Blog - Curso Ligacoes - Atendimento 8 - Contatos Filtro - Parte 26/...
Blog - Curso Ligacoes - Atendimento 9 - Contatos Cidade Bairro - Parte 27/...
Blog - Curso Ligacoes - Atendimento 10 - Combox Situacao - Parte 28/...
Blog - Curso Ligacoes - Atendimento 11 - Combox Situacao 2 - Parte 29/...
Blog - Curso Ligacoes - Seleciona Operador - parte 30/...
Blog - Curso Ligacoes - Atendimento 12 - Ajustes 1 - Parte 31/...
Blog - Curso Ligacoes - Atendimento 13 - Ajustes 2 - Parte 32
amarildo@matosinformatica.com.br
domingo, 28 de junho de 2015
Windev Remove Avento
Windev Remove Avento
http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/959-remove-acento/read.awp
================================================
================================================
http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/959-remove-acento/read.awp
================================================
Acentos - Remover
Acentos - Remover
http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/959-remove-acento-961/read.awp?hl=remove,acento
http://www.windevbrasil.com.br/index.php/topic,1086.msg2445.html#msg2445
Dando seguimento na dica anterior, temos por norma remover os acentos e caracteres especiais antes de gravar um registro. Para isto usamos as rotinas abaixo:
1) Esta função abaixo remove os acentos através da função nativa do WD (NoAccent) e faz uma varredura na String passada por parâmetro e remove outros caracteres indesejados:
PROCEDURE JBAsc(pCampo)
sCampo is string = NoAccent(pCampo)
nTamanho is int = Length(pCampo)
sNovoCampo is string
sCaracter is string
nValor is int
IF (nTamanho > 1) THEN
FOR i = 1 TO nTamanho
sCaracter = (Middle(sCampo,i,1))
nValor = Asc(sCaracter)
IF (nValor >= 32 AND nValor <= 93) OR (nValor = 95 OR nValor = 13 OR nValor = 10) AND (nValor <> 39) THEN
sNovoCampo += sCaracter
END
END
ELSE
sNovoCampo = pCampo
END
RESULT(sNovoCampo)
2) Esta procedure faz uma varredura em todos os campos contidos no registro passado por parâmetro:
PROCEDURE JBAscRecord(pGR_Registro)
sNomeControle is string
FOR i = 1 _TO_ pGR_Registro..Occurrence
sNomeControle = EnumControl(pGR_Registro,i)
IF {sNomeControle, indControl}..InputType = typInputText THEN
{sNomeControle, indControl}..Value = JBAsc({sNomeControle, indControl})
END
END
http://forum.pcsoft.fr/fr-FR/pcsoft.us.windevmobile/959-remove-acento-961/read.awp?hl=remove,acento
http://www.windevbrasil.com.br/index.php/topic,1086.msg2445.html#msg2445
Dando seguimento na dica anterior, temos por norma remover os acentos e caracteres especiais antes de gravar um registro. Para isto usamos as rotinas abaixo:
1) Esta função abaixo remove os acentos através da função nativa do WD (NoAccent) e faz uma varredura na String passada por parâmetro e remove outros caracteres indesejados:
PROCEDURE JBAsc(pCampo)
sCampo is string = NoAccent(pCampo)
nTamanho is int = Length(pCampo)
sNovoCampo is string
sCaracter is string
nValor is int
IF (nTamanho > 1) THEN
FOR i = 1 TO nTamanho
sCaracter = (Middle(sCampo,i,1))
nValor = Asc(sCaracter)
IF (nValor >= 32 AND nValor <= 93) OR (nValor = 95 OR nValor = 13 OR nValor = 10) AND (nValor <> 39) THEN
sNovoCampo += sCaracter
END
END
ELSE
sNovoCampo = pCampo
END
RESULT(sNovoCampo)
2) Esta procedure faz uma varredura em todos os campos contidos no registro passado por parâmetro:
PROCEDURE JBAscRecord(pGR_Registro)
sNomeControle is string
FOR i = 1 _TO_ pGR_Registro..Occurrence
sNomeControle = EnumControl(pGR_Registro,i)
IF {sNomeControle, indControl}..InputType = typInputText THEN
{sNomeControle, indControl}..Value = JBAsc({sNomeControle, indControl})
END
END
Remover Acento
http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/314-importando-html-para-hyperfile/read.awp
Procedure Remove_Acento( Texto )
Texto = NoAccent(Texto)
Texto = Replace(Texto,"xE1","a")
Texto = Replace(Texto,"xE3","a")
Texto = Replace(Texto,"xEA","e")
Texto = Replace(Texto,"xE9","e")
Texto = Replace(Texto,"xED","i")
Texto = Replace(Texto,"xF3","o")
Texto = Replace(Texto,"xF4","o")
Texto = Replace(Texto,"xFA","u")
Texto = Replace(Texto,"xE7","c")
Texto = Replace(Texto,"xC1","A")
Texto = Replace(Texto,"xCD","I")
Texto = Replace(Texto,"r$"," R$ ")
Texto = Replace(Texto,Charact(34),"")
ChangeCharset(charsetOccidental)// SEM ACENTO
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"Ã","i")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ú","u")// adicionado por celio
Texto=Replace(Texto,"Ã","A")//Á
Texto=Replace(Texto,"A","A")//Á
Texto=Replace(Texto,"É","E")//É
Texto=Replace(Texto,"Ã","I")//Í
Texto=Replace(Texto,"Ó","O")//Ó
Texto=Replace(Texto,"Ú","U")//Ú
Texto=Replace(Texto,"Â","A")// Â
Texto=Replace(Texto,"Ô","O")// Ô
Texto=Replace(Texto,"A•","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"µ","O")
Texto=Replace(Texto,"Áº","u")
Texto=Replace(Texto,"Aº","u")
Texto=Replace(Texto,"º","u")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"ƒ","")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"©","")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ª","")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"´","")
Texto=Replace(Texto,"Aµ","O")
Texto=Replace(Texto,"µ","")
Texto=Replace(Texto,"ó","O")
Texto=Replace(Texto,"³","")
Texto=Replace(Texto,"A“","O")
Texto=Replace(Texto,"“","")
Texto=Replace(Texto,"Aº","U")
Texto=Replace(Texto,"º","")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"§","")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"‡","")
Texto=Replace(Texto,"ãO","AO")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"‰","")
Texto=Replace(Texto,"Ã%","E")
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"","")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"~a","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"à","a")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"ä","a")
Texto=Replace(Texto,"~e","e")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"è","e")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ë","e")
Texto=Replace(Texto,"~i","i")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ì","i")
Texto=Replace(Texto,"î","i")
Texto=Replace(Texto,"ï","i")
Texto=Replace(Texto,"~o","o")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ò","o")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"ö","o")
Texto=Replace(Texto,"~u","u")
Texto=Replace(Texto,"ú","u")
Texto=Replace(Texto,"ù","u")
Texto=Replace(Texto,"û","u")
Texto=Replace(Texto,"ü","u")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"~A","A")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"Á","A")
Texto=Replace(Texto,"À","A")
Texto=Replace(Texto,"Â","A")
Texto=Replace(Texto,"Ä","A")
Texto=Replace(Texto,"~E","E")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"È","E")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"Ë","E")
Texto=Replace(Texto,"~I","I")
Texto=Replace(Texto,"Í","I")
Texto=Replace(Texto,"Ì","I")
Texto=Replace(Texto,"Î","I")
Texto=Replace(Texto,"Ï","I")
Texto=Replace(Texto,"~O","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"Ó","O")
Texto=Replace(Texto,"Ò","O")
Texto=Replace(Texto,"Ô","O")
Texto=Replace(Texto,"Ö","O")
Texto=Replace(Texto,"~U","U")
Texto=Replace(Texto,"Ú","U")
Texto=Replace(Texto,"Ù","U")
Texto=Replace(Texto,"Û","U")
Texto=Replace(Texto,"Ü","U")
RESULT(Texto
Procedure Remove_Acento( Texto )
Texto = NoAccent(Texto)
Texto = Replace(Texto,"xE1","a")
Texto = Replace(Texto,"xE3","a")
Texto = Replace(Texto,"xEA","e")
Texto = Replace(Texto,"xE9","e")
Texto = Replace(Texto,"xED","i")
Texto = Replace(Texto,"xF3","o")
Texto = Replace(Texto,"xF4","o")
Texto = Replace(Texto,"xFA","u")
Texto = Replace(Texto,"xE7","c")
Texto = Replace(Texto,"xC1","A")
Texto = Replace(Texto,"xCD","I")
Texto = Replace(Texto,"r$"," R$ ")
Texto = Replace(Texto,Charact(34),"")
ChangeCharset(charsetOccidental)// SEM ACENTO
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"Ã","i")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ú","u")// adicionado por celio
Texto=Replace(Texto,"Ã","A")//Á
Texto=Replace(Texto,"A","A")//Á
Texto=Replace(Texto,"É","E")//É
Texto=Replace(Texto,"Ã","I")//Í
Texto=Replace(Texto,"Ó","O")//Ó
Texto=Replace(Texto,"Ú","U")//Ú
Texto=Replace(Texto,"Â","A")// Â
Texto=Replace(Texto,"Ô","O")// Ô
Texto=Replace(Texto,"A•","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"µ","O")
Texto=Replace(Texto,"Áº","u")
Texto=Replace(Texto,"Aº","u")
Texto=Replace(Texto,"º","u")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"ƒ","")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"©","")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ª","")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"´","")
Texto=Replace(Texto,"Aµ","O")
Texto=Replace(Texto,"µ","")
Texto=Replace(Texto,"ó","O")
Texto=Replace(Texto,"³","")
Texto=Replace(Texto,"A“","O")
Texto=Replace(Texto,"“","")
Texto=Replace(Texto,"Aº","U")
Texto=Replace(Texto,"º","")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"§","")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"‡","")
Texto=Replace(Texto,"ãO","AO")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"‰","")
Texto=Replace(Texto,"Ã%","E")
Texto=Replace(Texto,"A£","a")
Texto=Replace(Texto,"£","")
Texto=Replace(Texto,"","")
Texto=Replace(Texto,"¡","")
Texto=Replace(Texto,"¢","")
Texto=Replace(Texto,"~a","a")
Texto=Replace(Texto,"ã","a")
Texto=Replace(Texto,"á","a")
Texto=Replace(Texto,"à","a")
Texto=Replace(Texto,"â","a")
Texto=Replace(Texto,"ä","a")
Texto=Replace(Texto,"~e","e")
Texto=Replace(Texto,"é","e")
Texto=Replace(Texto,"è","e")
Texto=Replace(Texto,"ê","e")
Texto=Replace(Texto,"ë","e")
Texto=Replace(Texto,"~i","i")
Texto=Replace(Texto,"í","i")
Texto=Replace(Texto,"ì","i")
Texto=Replace(Texto,"î","i")
Texto=Replace(Texto,"ï","i")
Texto=Replace(Texto,"~o","o")
Texto=Replace(Texto,"õ","o")
Texto=Replace(Texto,"ó","o")
Texto=Replace(Texto,"ò","o")
Texto=Replace(Texto,"ô","o")
Texto=Replace(Texto,"ö","o")
Texto=Replace(Texto,"~u","u")
Texto=Replace(Texto,"ú","u")
Texto=Replace(Texto,"ù","u")
Texto=Replace(Texto,"û","u")
Texto=Replace(Texto,"ü","u")
Texto=Replace(Texto,"ç","c")
Texto=Replace(Texto,"Ç","C")
Texto=Replace(Texto,"~A","A")
Texto=Replace(Texto,"Ã","A")
Texto=Replace(Texto,"Á","A")
Texto=Replace(Texto,"À","A")
Texto=Replace(Texto,"Â","A")
Texto=Replace(Texto,"Ä","A")
Texto=Replace(Texto,"~E","E")
Texto=Replace(Texto,"É","E")
Texto=Replace(Texto,"È","E")
Texto=Replace(Texto,"Ê","E")
Texto=Replace(Texto,"Ë","E")
Texto=Replace(Texto,"~I","I")
Texto=Replace(Texto,"Í","I")
Texto=Replace(Texto,"Ì","I")
Texto=Replace(Texto,"Î","I")
Texto=Replace(Texto,"Ï","I")
Texto=Replace(Texto,"~O","O")
Texto=Replace(Texto,"Õ","O")
Texto=Replace(Texto,"Ó","O")
Texto=Replace(Texto,"Ò","O")
Texto=Replace(Texto,"Ô","O")
Texto=Replace(Texto,"Ö","O")
Texto=Replace(Texto,"~U","U")
Texto=Replace(Texto,"Ú","U")
Texto=Replace(Texto,"Ù","U")
Texto=Replace(Texto,"Û","U")
Texto=Replace(Texto,"Ü","U")
RESULT(Texto
Assinar:
Postagens (Atom)
Teste
teste