Video
Blog
Repositorio
bom dia
vou mostrar como pegar o retorno da calculadora
desenvolvido na aula 3633
DICA 3634 - Calculadora Pegar Retorno - Windev 27
Video estreia dia 18 02 2022
Menu dos videos webdev windev mobile
quinta-feira, 17 de fevereiro de 2022
quarta-feira, 16 de fevereiro de 2022
DICA 3633 - Calculadora - Windev 27
Video
Repositorio Windev do projeto
Help
bom dia
vou mostrar como desenvolver uma calculadora
Estreia as 06:30
DICA 3633 - Calculadora - Windev 27
Video estreia dia 16 02 2022
Menu dos videos webdev windev mobile
DICA 3631 InvalidInputDetect - Windev e Windev Mobile 27
Video
Repositorio Windev do projeto
Help
bom dia
vamos falar hoje de Invalid Input Detec
Detecta e sinaliza um controle necessario
Estreia as 06:30
DICA 3631 InvalidInputDetect - Windev e Windev Mobile 27
Video estreia dia 16 02 2022
Menu dos videos webdev windev mobile
//---------------- codigo
IF InvalidInputDetect() THEN
arrayobrigatorio is array of Champ=InvalidInputListControl()
RETURN(arrayobrigatorio[1])
END
Close(WIN_CampoObrigatorios)
terça-feira, 15 de fevereiro de 2022
DICA 3629 Relatorio Break e Total - Windev Webdev Mobile 27
Video Youtube
Repositorio Windev do projeto
bom dia
vamos falar hoje de como fazer
um relatorio com total e break
tanto automatico como manual
estreia video as 7.30
DICA 3629 Relatorio Break e Total - Windev Webdev Mobile 27
Video estreia dia 15 02 2022
Menu dos videos webdev windev mobile
domingo, 13 de fevereiro de 2022
DICA 3625 Valor por extenso - Windev Webdev Mobile 27
Video
Video estreia dia 14 02 2022
Menu dos videos webdev windev mobile
// Codigo fonte
PROCEDURE extenso(cy_valor is currency)
nContador, nTamanho is int
cValor, cParte, cFinal is string
atexto is array of 4 string
agrupo is array of 4 string
aunid is array of 19 string
adezena is array of 9 string
acentena is array of 9 string
atexto[1]=""
atexto[2]=""
atexto[3]=""
atexto[4]=""
aunid[1] = "UM "
aunid[2] = "DOIS "
aunid[3] = "TRÊS "
aunid[4] = "QUATRO "
aunid[5] = "CINCO "
aunid[6] = "SEIS "
aunid[7] = "SETE "
aunid[8] = "OITO "
aunid[9] = "NOVE "
aunid[10] = "DEZ "
aunid[11] = "ONZE "
aunid[12] = "DOZE "
aunid[13] = "TREZE "
aunid[14] = "QUATORZE "
aunid[15] = "QUINZE "
aunid[16] = "DEZESSEIS "
aunid[17] = "DEZESSETE "
aunid[18] = "DEZOITO "
aunid[19] = "DEZENOVE "
adezena[1] = "DEZ "
adezena[2] = "VINTE "
adezena[3] = "TRINTA "
adezena[4] = "QUARENTA "
adezena[5] = "CINQUENTA "
adezena[6] = "SESSENTA "
adezena[7] = "SETENTA "
adezena[8] = "OITENTA "
adezena[9] = "NOVENTA "
acentena[1] = "CENTO "
acentena[2] = "DUZENTOS "
acentena[3] = "TREZENTOS "
acentena[4] = "QUATROCENTOS "
acentena[5] = "QUINHENTOS "
acentena[6] = "SEISCENTOS "
acentena[7] = "SETECENTOS "
acentena[8] = "OITOCENTOS "
acentena[9] = "NOVECENTOS "
cValor = NumToString(cy_valor, "012,2f")
agrupo[1] = Middle(cValor, 1, 3)
agrupo[2] = Middle(cValor, 4, 3)
agrupo[3] = Middle(cValor, 7, 3)
agrupo[4] = "0" + Middle(cValor, 11, 2)
FOR nContador = 1 TO 4
cParte = agrupo[nContador]
nTamanho = 0
IF Val(cParte)>= 1 AND Val(cParte)<10 THEN
nTamanho = 1
END
IF Val(cParte)>=10 AND Val(cParte)<100 THEN
nTamanho = 2
END
IF Val(cParte)>=100 AND Val(cParte)<1000 THEN
nTamanho = 3
END
IF nTamanho = 3 THEN
IF Right(cParte, 2) <> "00" THEN
atexto[nContador] = atexto[nContador] + acentena[Left(cParte, 1)] + "E "
nTamanho = 2
ELSE
IF Left(cParte,1)="1" THEN
atexto[nContador] = atexto[nContador] + "CEM"
ELSE
atexto[nContador] = atexto[nContador] + acentena[Left(cParte, 1)]
END
END
END
IF nTamanho = 2 THEN
IF Val(Right(cParte, 2)) < 20 THEN
atexto[nContador] = atexto[nContador] + aunid[Right(cParte, 2)]
ELSE
atexto[nContador] = atexto[nContador] + adezena[Middle(cParte, 2, 1)]
IF Right(cParte, 1) <> "0" THEN
atexto[nContador] = atexto[nContador] + "E "
nTamanho = 1
END
END
END
IF nTamanho = 1 THEN
atexto[nContador] = atexto[nContador] + aunid[Right(cParte, 1)]
END
END
IF (Val(agrupo[1]) + Val(agrupo[2] + Val(agrupo[3])) = 0 AND Val(agrupo[4]) <> 0) THEN
IF Val(agrupo[4]) = 1 THEN
cFinal = atexto[4] + "CENTAVO"
ELSE
cFinal = atexto[4] + "CENTAVOS"
END
ELSE
cFinal = ""
IF Val(agrupo[1])<>0 THEN
cFinal = cFinal + atexto[1]
IF Val(agrupo[1])>1 THEN
cFinal = cFinal + "MILHÕES "
ELSE
cFinal = cFinal + "MILHÃO "
END
END
IF Val(agrupo[2] + agrupo[3]) = 0 THEN
cFinal = cFinal + "DE "
ELSE
IF Val(agrupo[2])<>0 THEN
cFinal = cFinal + atexto[2]+"MIL "
END
END
cFinal = cFinal + atexto[3] + "REAIS"
IF Val(agrupo[4]) <> 0 THEN
cFinal = cFinal + " E " + atexto[4]
IF Val(agrupo[4])=1 THEN
cFinal = cFinal + " CENTAVO"
ELSE
cFinal = cFinal + " CENTAVOS"
END
END
END
RESULT cFinal
PROCEDURE mascara_telefone_homologacao(s_recebe_telefone is string)
IF s_recebe_telefone <>"" THEN
s_recebe_telefone = "(" + s_recebe_telefone[[1 TO 2]] + ") " + ...
s_recebe_telefone[[3 TO 6]] + "-" + ...
s_recebe_telefone[[7 TO 50]]
END
INTERNAL PROCEDURE extenso(cy_valor is currency)
nContador, nTamanho is int
cValor, cParte, cFinal is string
atexto is array of 4 string
agrupo is array of 4 string
aunid is array of 19 string
adezena is array of 9 string
acentena is array of 9 string
atexto[1] = ""
atexto[2] = ""
atexto[3] = ""
atexto[4] = ""
aunid[1] = "UM "
aunid[2] = "DOIS "
aunid[3] = "TRÊS "
aunid[4] = "QUATRO "
aunid[5] = "CINCO "
aunid[6] = "SEIS "
aunid[7] = "SETE "
aunid[8] = "OITO "
aunid[9] = "NOVE "
aunid[10] = "DEZ "
aunid[11] = "ONZE "
aunid[12] = "DOZE "
aunid[13] = "TREZE "
aunid[14] = "QUATORZE "
aunid[15] = "QUINZE "
aunid[16] = "DEZESSEIS "
aunid[17] = "DEZESSETE "
aunid[18] = "DEZOITO "
aunid[19] = "DEZENOVE "
adezena[1] = "DEZ "
adezena[2] = "VINTE "
adezena[3] = "TRINTA "
adezena[4] = "QUARENTA "
adezena[5] = "CINQUENTA "
adezena[6] = "SESSENTA "
adezena[7] = "SETENTA "
adezena[8] = "OITENTA "
adezena[9] = "NOVENTA "
acentena[1] = "CENTO "
acentena[2] = "DUZENTOS "
acentena[3] = "TREZENTOS "
acentena[4] = "QUATROCENTOS "
acentena[5] = "QUINHENTOS "
acentena[6] = "SEISCENTOS "
acentena[7] = "SETECENTOS "
acentena[8] = "OITOCENTOS "
acentena[9] = "NOVECENTOS "
cValor = NumToString(cy_valor, "012,2f")
agrupo[1] = Middle(cValor, 1, 3)
agrupo[2] = Middle(cValor, 4, 3)
agrupo[3] = Middle(cValor, 7, 3)
agrupo[4] = "0" + Middle(cValor, 11, 2)
FOR nContador = 1 TO 4
cParte = agrupo[nContador]
nTamanho = 0
IF Val(cParte)>= 1 AND Val(cParte)<10 THEN
nTamanho = 1
END
IF Val(cParte)>=10 AND Val(cParte)<100 THEN
nTamanho = 2
END
IF Val(cParte)>=100 AND Val(cParte)<1000 THEN
nTamanho = 3
END
IF nTamanho = 3 THEN
IF Right(cParte, 2) <> "00" THEN
atexto[nContador] = atexto[nContador] + acentena[Left(cParte, 1)] + "E "
nTamanho = 2
ELSE
IF Left(cParte,1)="1" THEN
atexto[nContador] = atexto[nContador] + "CEM"
ELSE
atexto[nContador] = atexto[nContador] + acentena[Left(cParte, 1)]
END
END
END
IF nTamanho = 2 THEN
IF Val(Right(cParte, 2)) < 20 THEN
atexto[nContador] = atexto[nContador] + aunid[Right(cParte, 2)]
ELSE
atexto[nContador] = atexto[nContador] + adezena[Middle(cParte, 2, 1)]
IF Right(cParte, 1) <> "0" THEN
atexto[nContador] = atexto[nContador] + "E "
nTamanho = 1
END
END
END
IF nTamanho = 1 THEN
atexto[nContador] = atexto[nContador] + aunid[Right(cParte, 1)]
END
END
IF (Val(agrupo[1]) + Val(agrupo[2] + Val(agrupo[3])) = 0 AND Val(agrupo[4]) <> 0) THEN
IF Val(agrupo[4]) = 1 THEN
cFinal = atexto[4] + "CENTAVO"
ELSE
cFinal = atexto[4] + "CENTAVOS"
END
ELSE
cFinal = ""
IF Val(agrupo[1])<>0 THEN
cFinal = cFinal + atexto[1]
IF Val(agrupo[1])>1 THEN
cFinal = cFinal + "MILHÕES "
ELSE
cFinal = cFinal + "MILHÃO "
END
END
IF Val(agrupo[2] + agrupo[3]) = 0 THEN
cFinal = cFinal + "DE "
ELSE
IF Val(agrupo[2])<>0 THEN
cFinal = cFinal + atexto[2]+"MIL "
END
END
cFinal = cFinal + atexto[3] + "REAIS"
IF Val(agrupo[4]) <> 0 THEN
cFinal = cFinal + " E " + atexto[4]
IF Val(agrupo[4])=1 THEN
cFinal = cFinal + " CENTAVO"
ELSE
cFinal = cFinal + " CENTAVOS"
END
END
END
RESULT cFinal
END
sexta-feira, 11 de fevereiro de 2022
DICA 3621 TreeView Table control - novidades 27 12 - Agora no Windev Mobile 27
Video Youtube
blog
Help
Video estreia dia 11 02 2022
Menu dos videos webdev windev mobile
quinta-feira, 10 de fevereiro de 2022
DICA 3617 Barra Progresso - WINDEV WEBDEV MOBILE 27
Video Youtube
bom dia
Hoje vou mostrar o quao é simples fazer barra progresso
VIDEO 3617 - Windev Webdev Mobile 27 - Barra Progresso
Blog
repositorio
Video estreia dia 10 02 2022
Menu dos videos webdev windev mobile
// - codigo
// vamos pegar o total de clientes que temos
// e colocar no valor maximo da barra progresso
PROGBAR_cliente..MaxValue=HNbRec(clientes)
// vamos colocar um valor minimo
PROGBAR_cliente..MinValue=0
//vamos criar um contador
ncontador is int=0
//vamos tornar visivel a barra progresso
PROGBAR_cliente..Visible=True
//vamos ler os clientes
FOR EACH clientes
//vamos somar o contador
ncontador++
//vamos passar esse valor para barra progresso
PROGBAR_cliente=ncontador
//vamos mostrar na tela o cliente
Message(clientes.nome)
//vamos fazer dar uma pause pequena
Wait(10)
END
//vamos esconder barra progresso
PROGBAR_cliente..Visible=False
quarta-feira, 9 de fevereiro de 2022
VIDEO 3614 - Windev Webdev Mobile 27 - Duplicar Tela
Video Youtube
Video estreia dia 09 02 2022
Menu dos videos webdev windev mobile
terça-feira, 8 de fevereiro de 2022
VIDEO 3611-PopupExterno - Webdev 27 - Como Usar
Video estreia dia 08 02 2022
Menu dos videos webdev windev mobile
Bom dia
Vou mostrar no webdev 27
como usar popup Externo
VIDEO 3611-PopupExterno - Webdev 27 - Como Usar
blog
Repositorio Windev
https://repository.windev.com/resource.awp?file_id=281474976711330;video-3611-popup-externo-webdev-27
Video
//----------------codigo
// formulario produto - gravar
// Ler Informacoes da pagina para arquivo
PageToFile()
// Adiciona ou modifica produtos
produto.Save()
CookieWrite("cookierotina","x")
// Retorna pagina
PopupClosePage(PAGE_Fiche_produto)
//----------------------------
// Cria um novo registro
produto.Reset()
PopupDisplayPage(PAGE_Fiche_produto,(),popupTopCenter)
//----------------------------
//Alteraca produto
// verifica se tem produto
IF TABLE_produto.Select()=-1 THEN RETURN
PAGE_Fiche_produto.DisplayPopup((),popupTopCenter)
// PopupDisplayPage(PAGE_Fiche_produto,(),popupTopCenter)
//----------------------------
// onmouseover browser pagina
IF CookieRead("cookierotina")<>"" THEN
AJAXExecute(ajaxUpdateControls,atualiza_tabela_server)
CookieDelete("cookierotina")
END
Assinar:
Postagens (Atom)
Teste
teste