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

quarta-feira, 17 de julho de 2024

VIDEO 4074 - Webservice - Windev29 webdev mobile - Consumir webservice cadastro no Webdev uninfe -dll





bom dia
VIDEO 4074 - Webservice - Windev29 webdev mobile - Consumir webservice cadastro no Webdev uninfe -dll

00:00:00 Introdução
00:00:11 Vamos entrar no cadastro de cliente, e no botao busca cnpj
00:00:29 Vamos perguntar se já existe cnpj digitado
00:00:38 vamos criar as variaveis
00:01:20 vamos instanciar request e response e informar url e metodo
00:01:41 vamos informar os parametors e o tipo
00:02:13 vamos pegar o retorno 
00:02:27 vamos adicionar as informações nos campos com xmlExtractString
00:03:44 Vamos gerar deploy do projeto erp_web_matos
00:04:22 Executando o Site webdev Erp_web_matos
00:04:59 Próxima Aula 
00:05:13 Propaganda Windev Webde Mobile com Adriano boller
00:05:23 Erpmatos 
00:05:29 Representantes ErpMatos
00:05:40 Video Encerramento




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

// vamos verificar se tem cnpj digitado

IF edt_cnpj_cpf<>"" THEN
// buscar cnpj pelo uninfe dll
// criar as variaveis 
s_cnpj_emitente is string = ""
s_certificado_senha is string = ""
s_cnpj_consultar is string = ""
n_cuf is int = 43 
sEDT_Url_string is string = "http://www.amarildomatos.com.br/uninfe_consulta_cadastro"
s_cnpj_consultar = edt_cnpj_cpf
// vamos instanciar request e response
oRequest is httpRequest
oResponse is httpResponse
// vamos informar a url e metodo
oRequest.URL = sEDT_Url_string 
oRequest.Method = httpPost
// vamos informar os parametros
oRequest..Header["s_recebe_cnpj"] = s_cnpj_emitente
oRequest..Header["s_recebe_senha"] = s_certificado_senha
oRequest..Header["n_recebe_CUF"] = n_cuf
oRequest..Header["s_recebe_cnpj_cadastro"] = s_cnpj_consultar
// vamos colocar tipo 
oRequest.Content = ""
oRequest.ContentType = typeMimeJSON

//vamos pegar o retorno 
oResponse = RESTSend(oRequest)
sRetorno_webservice is string = oResponse.Content
    //vamos adicionar as informações nos campos
IF edt_razao_social_nome="" THEN
edt_razao_social_nome=XMLExtractString(sRetorno_webservice,"xNome")
END
IF edt_nome_fantasia="" THEN
edt_nome_fantasia=XMLExtractString(sRetorno_webservice,"xFant")
END
IF EDT_Endereco_cep="" OR EDT_Endereco_cep=0 THEN
EDT_Endereco_cep = XMLExtractString(sRetorno_webservice,"CEP")
END
IF EDT_Endereco_rua="" THEN
EDT_Endereco_rua=XMLExtractString(sRetorno_webservice,"xLgr")
END
IF EDT_Endereco_numero="" OR EDT_Endereco_numero=0 THEN
EDT_Endereco_numero=XMLExtractString(sRetorno_webservice,"nro")
END
IF EDT_Endereco_complemento="" THEN
EDT_Endereco_complemento=XMLExtractString(sRetorno_webservice,"xCpl")
END
IF EDT_Endereco_bairro="" THEN
EDT_Endereco_bairro=XMLExtractString(sRetorno_webservice,"xBairro")
END
IF EDT_Endereco_cidade="" THEN
EDT_Endereco_cidade=XMLExtractString(sRetorno_webservice,"xMun")
END
IF EDT_Endereco_uf="" THEN
EDT_Endereco_uf=XMLExtractString(sRetorno_webservice,"UF")
END
IF EDT_Email=""
EDT_Email=XMLExtractString(sRetorno_webservice,"email")
END
IF edt_inscricao_estadual=""
edt_inscricao_estadual=XMLExtractString(sRetorno_webservice,"IE")
END
IF EDT_Endereco_cmun=0 OR EDT_Endereco_cmun="" THEN
EDT_Endereco_cmun = XMLExtractString(sRetorno_webservice,"cMun")
EDT_Endereco_pais = "BRASIL"
EDT_Endereco_cpais = "1058"
END
IF EDT_Cnae="" THEN
EDT_Cnae=XMLExtractString(sRetorno_webservice,"CNAE")
END
//EDT_Observacao_texto=XMLExtractString(sRetorno_webservice,"")
IF gnRecebe_tipo_cliente_fornecedor=2 THEN
//cliente
CBOX_Tabela_cliente=True
ELSE IF gnRecebe_tipo_cliente_fornecedor=3 
//fornecedor
CBOX_Tabela_fornecedor=True
END
END




terça-feira, 16 de julho de 2024

VIDEO 4073 - Webservice - Windev29 webdev mobile - Consumir webservice cadastro no windev uninfe -dll



bom dia
VIDEO 4073 - Webservice - Windev29 webdev mobile - Consumir webservice cadastro no windev uninfe -dll


00:00:00 Introdução
00:00:12 Criar um botao e um edt resposta 
00:00:58 Vamos criar as variaveis 
00:01:22 vamos instanciar request e response
00:01:33 vamos informar a url e metodo
00:01:47 vamos informar os parametros
00:02:16 vamos colocar tipo 
00:02:28 vamos pegar retorno 
00:02:47 vamos testar 
00:03:06 Próxima Aula 
00:03:10 Propaganda Windev Webde Mobile com Adriano boller
00:03:18 Erpmatos 
00:03:27 Representantes ErpMatos
00:04:38 Video Encerramento





// criar as variaveis 
s_cnpj_emitente is string = ""
s_certificado_senha is string = ""
s_cnpj_consultar is string = ""
n_cuf is int = 43 
sEDT_Url_string is string = "http://www.dominio.com.br/uninfe_consulta_cadastro"
s_cnpj_emitente = "019"
s_certificado_senha = "19"
s_cnpj_consultar = "893"
// vamos instanciar request e response
oRequest is httpRequest
oResponse is httpResponse
// vamos informar a url e metodo
oRequest.URL = sEDT_Url_string 
oRequest.Method = httpPost
// vamos informar os parametros
oRequest..Header["s_recebe_cnpj"] = s_cnpj_emitente
oRequest..Header["s_recebe_senha"] = s_certificado_senha
oRequest..Header["n_recebe_CUF"] = n_cuf
oRequest..Header["s_recebe_cnpj_cadastro"] = s_cnpj_consultar
// vamos colocar tipo 
oRequest.Content = ""
oRequest.ContentType = typeMimeJSON
//vamos pegar o retorno 
oResponse = RESTSend(oRequest)
sRetorno_webservice is string = oResponse.Content
edt_Resposta = sRetorno_webservice


VIDEO 4072 - Webservice - Windev29 webdev mobile - Criar Webservice Rest Cadastro Contribuinte Uninfe Dll





bom dia
VIDEO 4072 - Webservice - Windev29 webdev mobile - Criar Webservice Rest Cadastro Contribuinte Uninfe Dll


00:00:00 Introdução
00:00:15 Explicando o que será feito 
00:00:32 Criando Rest com botao direito 
00:00:41 Criando Rest - nome do Rest 
00:00:51 Criar Point
00:01:02 Associando a procedure
00:01:29 Identificado o metodo como Post
00:01:45 Definir o nome do metodo
00:02:00 Definindo Request formato e Response
00:02:20 Mostrando Metodo
00:02:23 Gerando Webservice para o servidor 
00:03:07 Mostrando servico webservice 
00:03:19 Próxima Aula 
00:03:24 Propaganda Windev Webde Mobile com Adriano boller
00:03:32 Erpmatos 
00:03:41 Representantes ErpMatos
00:04:52 Video Encerramento





// PROCEDURE uninfe_consulta_cadastro()

s_auditoria is string = ""
retorno_xml is string = ""
s_recebe_cnpj is string = WebserviceReadHTTPHeader("s_recebe_cnpj") // cnpj do emitente-> certificado
s_recebe_senha is string = WebserviceReadHTTPHeader("s_recebe_senha") // senha certificado
n_recebe_CUF is int = WebserviceReadHTTPHeader("n_recebe_CUF") // 43 - res
s_recebe_cnpj_cadastro  is string = WebserviceReadHTTPHeader("s_recebe_cnpj_cadastro")

s_arquivo_certificado is string = fCurrentDir()+"\erpmatos\"+s_recebe_cnpj+".pfx"
s_diretorio is string = fCurrentDir()+"\erpmatos\xml_"+s_recebe_cnpj+"\retorno"
IF fMakeDir(s_diretorio)=False THEN
END

s_diretorio_log is string=fCurrentDir()+"\erpmatos\xml_"+s_recebe_cnpj+"\retorno"
IF fMakeDir(s_diretorio_log)=False THEN
END

s_auditoria+="Versao 27.03.15.31"
s_auditoria+=CR+"s_recebe_cnpj["+s_recebe_cnpj+"]"
//s_auditoria+=CR+"s_recebe_senha["+s_recebe_senha+"]"
s_auditoria+=CR+"n_recebe_CUF["+n_recebe_CUF+"]"
s_auditoria+=CR+"s_recebe_cnpj_cadastro["+s_recebe_cnpj_cadastro+"]"
s_auditoria+=CR+"s_arquivo_certificado["+s_arquivo_certificado+"]"
s_auditoria+=CR+"s_diretorio["+s_diretorio+"]"
s_auditoria+=CR+"s_diretorio_log["+s_diretorio_log+"]"

//Revisar acima 
//https://www.youtube.com/live/qUosXijsuPw?si=plDq6F3j8mz9yfgI //comeca 27.32 

// configurações minimas 
o_configuracao is Unimake.Business.DFe.Servicos.Configuracao
o_configuracao.TipoDFe = TipoDFe.NFe //1 // nfe
o_configuracao.CertificadoArquivo = s_arquivo_certificado
o_configuracao.CertificadoSenha = s_recebe_senha

//criar o xml
oConsCad is Unimake.Business.DFe.XML.NFe.ConsCad()
oConsCad.VERSAO = "2.00"

oInfCons is Unimake.Business.DFe.XML.NFe.InfCons()
oInfCons.CNPJ=s_recebe_cnpj_cadastro
oInfCons.uf=UFBrasil.RS // cuf=43 direto //perguntar

oConsCad.InfCons=oInfCons

WHEN EXCEPTION IN
// vamos consumir o servico // Criado um objeto oconsultacadastro
oConsultaCadastro is Unimake.Business.DFe.Servicos.NFe.ConsultaCadastro() 
    
    // vamos chamar ele, passando o xml e a configuração
  oConsultaCadastro.Executar(oConsCad,o_configuracao)
oRetConsCad is Unimake.Business.DFe.XML.NFe.RetConsCad <- oConsultaCadastro.Result
    cstat is string=oRetConsCad.InfCons.CStat
    xmotivo is string=oRetConsCad.InfCons.XMotivo
razao_social is string=oRetConsCad.InfCons.InfCad.XNome
retorno_xml = oConsultaCadastro.RetornoWSString 
DO
retorno_xml="ERRO:"+ExceptionInfo(errFullDetails)
END

// vamos gravar auditoria no servidor
s_auditoria+=CR+retorno_xml+CR
fSaveText(s_diretorio_log+"\cadastro_log.txt",s_auditoria)
fSaveText(s_diretorio+"\cadastro_retorno.xml",retorno_xml)


RESULT retorno_xml


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



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


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
















quinta-feira, 1 de agosto de 2019

DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUES...














https://doc.windev.com/en-US/?3043007&name=HTTPRequest

https://youtu.be/nc1Metp1ROQ



BOM DIA,SEJA BEM VINDOS A MAIS UMA VIDEO AULA. ESSA AULA ESTA SENDO GRAVADA NO DIA 31 07 2019.
DICA 2226. VOU MOSTRAR PROPRIEDADE DESTINATION - EVITA CONSUMO MEMORIA - HTTPREQUEST NOVIDADE VERSAO 24 BUSCA CNPJ

DICAS 2226 - WINDEV WEBDEV MOBILE - 24 NOVIDADES 26 - WEBSERVICE 29 - HTTPREQUEST DESTINATION BUSCA CNPJ





// BTN_BUSCA_CNPJ_HTTPREQUEST
SURL is string="HTTPS://WWW.receitaws.com.br/v1/cnpj/"+EDT_CNPJ
PEDIDO_REQUEST is httpRequest
PEDIDO_REQUEST.URL=SURL
IF INT_GRAVAR_Hd=True // AQUI VEM A NOVIDADE 24 THEN
PEDIDO_REQUEST.Destination="E:\TEMP\HTTPREQUEST\CNPJ_"+EDT_CNPJ+".TXT"
END
RESPOSTA is httpResponse
RESPOSTA=HTTPSend(PEDIDO_REQUEST)
IF INT_GRAVAR_Hd=True THEN
ShellExecute("E:\TEMP\HTTPREQUEST\CNPJ_"+EDT_CNPJ+".TXT")
EDT_RETORNO="O RETORNO ESTA NO DIRETORIO"
ELSE
EDT_RETORNO=UTF8ToAnsi(RESPOSTA.Content)
END












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







domingo, 23 de junho de 2019

DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP

















https://doc.windev.com/en-US/?3069006&name=SOAP_functions









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










sábado, 4 de maio de 2019

DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP














https://youtu.be/ex9gabZPyng


ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
https://groups.google.com/forum/#!forum/amarildowindev
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



==========================
PROCEDURE relacao_clientes()
clientes_manda is string=""
HExecuteQuery(Query_clientes_ler)
FOR EACH Query_clientes_ler
clientes_manda+=Query_clientes_ler.clienteid+"|"
clientes_manda+=Query_clientes_ler.cnpj_cpf+"|"
clientes_manda+=Query_clientes_ler.email+"|"
clientes_manda+=Query_clientes_ler.nome+"|"+CR
END
//1|3802121|amarildo.matos|amarildo
//2|3802121|pedramarildo.matos|amarildo
retorno_array is array of string
Add(retorno_array,clientes_manda)
RESULT  retorno_array
=====================================
PROCEDURE atualiza_cliente()

relacao_clientes is relacao_clientesResponse=relacao_clientes()
sReceber_relacao is string=relacao_clientes.relacao_clientesResult

LooperDeleteAll(LOOP_CLIENTES)

//1|3802121|amarildo.matos|amarildo
//2|3802121|pedramarildo.matos|amarildo

FOR EACH STRING sLinha OF sReceber_relacao SEPARATED BY CR

nLinha is int=LooperAddLine(LOOP_CLIENTES)

LOOP_CLIENTES[nLinha].ATT_codigo=ExtractString(sLinha,1,"|")
LOOP_CLIENTES[nLinha].ATT_cpf=ExtractString(sLinha,2,"|")
LOOP_CLIENTES[nLinha].ATT_email=ExtractString(sLinha,3,"|")
LOOP_CLIENTES[nLinha].ATT_nome=ExtractString(sLinha,4,"|")


END












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








Teste

Teste
teste