VIDEO 4081 - PODCAST 143 - 27-07-2024 08-00 Conversando com amigos

VIDEO 4081 - PODCAST 143 - 27-07-2024 08-00 Conversando com amigos

Video 4080 - Amarildo aprendendo flexboxWebdev - erpwebMatos - paulo viana parte 2

Video 4080 - Amarildo aprendendo flexbox Webdev - erpwebMatos

https://youtu.be/b1WeHpJUmr8

00:00:00 Introdução

00:00:00 Inicio explicacao paulo viana com amarildo matos

00:00:13 Ancoragem da pagina

00:00:22 Explicando flexbox 

00:00:29 Excluindo celula que eu tinha criado 

00:00:35 Pegando controles e colocando no flexbox

00:01:14 ancorando os controles dentro do flexbox 

00:03:00 fazendo outro flexbok

00:04:00 fazendo outro flexbox 

00:04:50 colocar campos invisiveis dentro dum popup

00:05:00 colocar os botoes de salvar dentro flexbox 

00:06:00 deixar mesma largura 

00:07:00 falando sobre table 

00:07:30 configurando table 

00:08:22 Propaganda Windev Webde Mobile com Adriano boller

00:08:30 Erpmatos 

00:08:39 Representantes ErpMatos

00:08:50 Video Encerramento

Video 4079 - Corte do podcast 4067 - Paulo viana ensinando flexbox webdev

Podcast base

https://www.youtube.com/live/hsFDWmunsLs?si=BVFLg3dHZnihPCbZ

video 4078 - webdev - colocando combox tipo dentro pagina

ideo 4078 - webdev - colocando combox tipo dentro pagina

video 4077 - podcast 143 - corte do podcat - Adriano Boller - hyperfile - no ip

video 4077 - podcast 143 - corte do podcat - Adriano Boller - hyperfile - no ip

VIDEO 4075 - Webservice - Windev29 webdev mobile - Consumir webservice cadastro Android uninfe -dll

 VIDEO 4075 - Webservice - Windev29 webdev mobile - Consumir webservice cadastro Android  uninfe -dll

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

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

https://youtu.be/SwwbB4uAN6o

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

https://youtu.be/A4nqxZJLuW8

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

VIDEO 4071 - Webservice - Windev29 webdev mobile - Cadastro Contribuinte Uninfe Dll

TESTE TESTE TESTE TESSETET SETSET SETES T