Mostrando postagens com marcador _Curso_WindevMobile. Mostrar todas as postagens
Mostrando postagens com marcador _Curso_WindevMobile. Mostrar todas as postagens

sexta-feira, 23 de dezembro de 2022

Dica 3864 - webservice - Buscar Cep - ViaCep - Retorno Xml ou Json

 




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


PARA ADQUIRIR WINDEV MOBILE WEBDEV 28
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





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

Youtube

https://youtu.be/jk9Jf4WZX4c




Video youtube da frança


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

Repositorio


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

Blog

 
------------------------------------------------------
Link Pcsoft Fr


------------------------------------------------------
Help Pcsoft

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

------------------------
Bom dia..
Hoje vou mostrar
como buscar cep
no webservice viacep
e como pegar retorno xml ou json
isso no windev mobile 28

------------------------
00:00:00 Apresentação
00:00:15 Representante Adriano Boller
00:00:25 Apresentando ViaCep 
00:00:31 Vamos criar uma window
00:00:44 Vamos criar um Edt cep Numeric 
00:01:07 Vamos criar um Radio para retorno xml ou json
00:01:29 Vamos criar um botao busca cep
00:01:36 vamos criar um edt_resultado
00:01:54 vamos criar campo do endereco 
00:02:06 Vamos criar os outros campos 
00:02:16 Vamos entrar no codigo do botao 
00:02:21 se nao existir cep, retornar 
00:02:31 colocar a url do webservice com o cep 
00:02:52 Vou explicar o codigo httprequest e httpresponse 
00:03:28 Vamos pegar o retorno xml 
00:03:59 Vamos pegar o retorno json 
00:04:19 Vamos gerar o apk 
00:04:37 Vou mostrar no celular a busca cep 
00:05:08 Mostrando o exemplo no repositorio windev 
------------------------
//Codigo
IF EDT_cep="" THEN
Info("informar cep")
ReturnToCapture(EDT_cep)
END
url is string = ""
IF RADIO_retorno=1 THEN
url="http://viacep.com.br/ws/"+EDT_cep+"/xml/"
ELSE
url="http://viacep.com.br/ws/"+EDT_cep+"/json/"
END
o_request is httpRequest
o_response is httpResponse
o_request..URL = url 
o_request..Method = httpGet
o_response = RESTSend(o_request)
EDT_resultado = o_response.Content

IF RADIO_retorno=1 THEN
EDT_Logradouro = XMLExtractString(EDT_resultado,"logradouro")
EDT_complemento = XMLExtractString(EDT_resultado,"complemento")
EDT_Bairro = XMLExtractString(EDT_resultado,"bairro")
EDT_Cidade = XMLExtractString(EDT_resultado,"localidade")
EDT_Uf = XMLExtractString(EDT_resultado,"uf")
EDT_Ibge = XMLExtractString(EDT_resultado,"ibge")
ELSE
dados_json is JSON=EDT_resultado
EDT_Logradouro = dados_json.logradouro
EDT_complemento = dados_json.complementoa
EDT_Bairro = dados_json.bairro
EDT_Cidade = dados_json.localidade
EDT_Uf = dados_json.uf
EDT_Ibge = dados_json.ibge
END








------------------------
#windev 28 #webdev 28 #windev mobile 28 #pcsoft #erpmatos #erp
#windev28 #webdev28 #windev mobile28 #flexbox #hfsql #hfsql spare





















--------------------- Indice WebService

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP



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


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
















Postado por às Nenhum comentário:
Marcadores: , , ,

sexta-feira, 16 de dezembro de 2022

Dica 3858 - Editor Imagen Mobile - Novidades Versao 28 - Windev Mobile 28





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

PARA ADQUIRIR WINDEV WEBDMOBILE WEBDEV
ENTRE EM CONTATO COM 
ADRIANO BOLLER 
DA WXSOLUÇÕES





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

Youtube

https://youtu.be/pSiHhR540MY

 





Video youtube da frança

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

Repositorio



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

Blog



 
------------------------------------------------------
Link Pcsoft Fr


------------------------------------------------------
Help Pcsoft

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

------------------------
Bom dia..
Hoje vou mostrar
mais uma novidade Versão 28
Agora no Windev Mobile 28
Editor Imagen Mobile

------------------------
00:00:00 Apresentação
00:00:11 Representante Adriano Boller
00:00:23 Vamos criar uma window Imagen 
00:00:39 Vamos colocar o componente Imagen 
00:01:05 Vamos chamar a windows imagen 
00:01:28 Vamos gerar o apk
01:56:00 Vamos testar no celular 
02:45:00 Fonte no repostitorio windev
------------------------
#windev 28 #webdev 28 #windev mobile 28 #pcsoft #erpmatos #erp
#windev28 #webdev28 #windev mobile28 #flexbox








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

DICA 3844 - Novidades Versao 28 - Diagramas Pode desenhar mao livre - Novidade 3
















Postado por às Nenhum comentário:
Marcadores: , ,

quarta-feira, 16 de fevereiro de 2022

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)










Postado por às Nenhum comentário:
Marcadores: , , ,

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

Postado por às Nenhum comentário:
Marcadores: , , ,

sexta-feira, 11 de fevereiro de 2022

DICA 3621 TreeView Table control - novidades 27 12 - Agora no Windev Mobile 27



Video Youtube






Video estreia dia 11 02 2022


Menu dos videos webdev windev mobile















Postado por às Nenhum comentário:
Marcadores: , , , ,

quarta-feira, 2 de fevereiro de 2022

VIDEO 3604 - nov27 11 - WindevMobile - OpenPopupAsynchronous







Video estreia dia 03 02 2022


Menu dos videos webdev windev mobile




bom dia

mais uma novidade da versao 27
Abre uma janela pop-up cujo resultado será recuperado por meio de um procedimento WLanguage
("retorno de chamada").

help
Blog
Repositorio

VIDEO 3604 - nov27 11 - WindevMobile - OpenPopupAsynchronous 

Video 












Postado por às Nenhum comentário:
Marcadores: , , ,

terça-feira, 1 de fevereiro de 2022

VIDEO 3602 - nov27 10 - Grafico novo Windev Mobile





Video estreia dia 01 02 2022


Menu dos videos webdev windev mobile



Video youtube


























Postado por às Nenhum comentário:
Marcadores: , , , ,
Assinar: Postagens (Atom)

Teste

Teste
teste