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

https://youtu.be/Ik7UuTJfueo

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

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