AnDes Sistemas

Senhor Cleber Bom Dia! Baseado no Programa Exemplo eu criei a rotina conforme exibo logo abaixo. Será que ficou correto ? Grato var stCstICMS : String; begin // Ticket : 52595 : tento identificar a CST de ICMS que veio no Arquivo XML stCstICMS := ''; if doc.CTe.Emit.enderEmit.UF = doc.CTe.Rem.enderReme.UF then begin if (doc.CTe.Imp.ICMS.ICMS00.CST = cst00) then stCstICMS := '00' else if (doc.CTe.Imp.ICMS.ICMS20.CST = cst20) then stCstICMS := '20' else if (doc.CTe.Imp.ICMS.ICMS45.CST = cst45) then stCstICMS := '45' else if (doc.CTe.Imp.ICMS.ICMS60.CST = cst60) then stCstICMS := '60' else if (doc.CTe.Imp.ICMS.ICMS90.CST = cst90) then stCstICMS := '90'; end else begin if (doc.CTe.Imp.ICMS.ICMSOutraUF.CST = cst00) then stCstICMS := '00' else if (doc.CTe.Imp.ICMS.ICMSOutraUF.CST = cst20) then stCstICMS := '20' else if (doc.CTe.Imp.ICMS.ICMSOutraUF.CST = cst45) then stCstICMS := '45' else if (doc.CTe.Imp.ICMS.ICMSOutraUF.CST = cst60) then stCstICMS := '60' else if (doc.CTe.Imp.ICMS.ICMSOutraUF.CST = cst90) then stCstICMS := '90'; end;

Prezado Companheiros Boa Tarde! Inicialmente quero pedir desculpas se minha dúvida é muito simples. Estou implementando uma rotina que lê o Arquivo XML do Conhecimento de Transporte Eletrônico e gera o Documento no Banco de Dados com suas respectivas Duplicatas no Contas a Pagar. Uma das funções da rotina é recuperar a Situação Tributária do ICMS declarada no Arquivo XML ( 00,10,20,30,...90). E justamente neste ponto eu estou cheio de dúvidas. Até cheguei no seguinte caminho : CTe.imp.ICMS.SituTrib, mas não sei como seguir adiante. Sabem os companheiros como posso recuperar a CST do Icms ?

Companheiros Estou atualmente com o seguinte problema : Tenho clientes cujo Banco de Dados Firebird é 2.5 e outros estão no 3.0. O problema é que preciso criar um Generator. No Firebird 2.5 não existe necessidade de dar um Grant no Generator ( se tentar dar grant ocorre um erro ). Já no Firebird 3.0 é obrigatório o Grant Generator. Assim, pensei para criar uma estrutura de atualização única , através de um Execute Block que procederia da seguinte forma : - cria o Generator - verifica a versão do Banco de Dados - se versão = 3.0 executa comando do Grant Minha dúvida é se eu posso fazer uma rotina desta forma, misturando comandos DDL e DML. Obrigado

Sr. Daniel Sua sugestão resolveu o meu problema. Utilizando a Synapse a consulta funcionou plenamente. Aproveitei a oportunidade e desenvolvi uma Consulta ao Contribuinte utilizando também os componentes : AcbrNfe e AcbrConsultaCNPJ. Muito obrigado por sua ajuda.

Sr. Daniel Boa Noite! Muito interessantes estes links que o senhor apontou. Estou estudando eles para fazer ajuste na aplicação. Muito obrigado.

Sr. Juliomar Muito obrigado por sua ajuda. Vou fazer atualização do Indy. Também mandei um email para o pessoal de ti deste site : www.receitaws.com.br solicitando ajuda. Se desejarem já podem fechar este post.

Sr. Juliomar Bom Dia! Efetuei o seguinte ajuste : IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [{sslvSSLv2, sslvSSLv3,} sslvTLSv2]; Mas continua resultando no seguinte erro ( : Será que é uma limitação do Delphi em que o Erp foi desenvolvido ? ( Delphi XE2 )? O senhor teria mais alguma sugestão ? Grato

Companheiros Gostaria de solicitar ajuda dos amigos para um assunto que tenho pouco domínio. Em um sistema legado que estou encarregado de fazer manutenção, existe um recurso já antigo para interagir com a seguinte Api : https://www.receitaws.com.br/v1/cnpj/[cnpj]. O problema é que imagino que os mantedores deste site devem ter mudado os requisitos do GET para TLS. O Código-fonte em vigor é o que listo abaixo ( que utiliza o componente Indy IDHttp ). O resultado desta rotina é o seguinte erro : Error connecting with SSL. Error connecting with SSL. error:14077410:SSL routines:SSL23_GET_SERVER_HELLO:sslv3 alert handshake failure Podem os companheiros me auxiliar indicando o que posso mudar para resolver o erro ? Grato Código-Fonte: IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil); IdHTTP1 := TIdHTTP.Create(nil); IdSSLIOHandlerSocketOpenSSL1.Name := 'IdSSLIOHandlerSocketOpenSSL1'; IdSSLIOHandlerSocketOpenSSL1.Port := 0; IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [sslvTLSv1]; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmBoth; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := []; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0; IdHTTP1.Name := 'IdHTTP1'; IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdHTTP1.Request.ContentLength := -1; IdHTTP1.Request.ContentRangeEnd := -1; IdHTTP1.Request.ContentEncoding := 'utf-8'; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.ContentRangeStart := -1; IdHTTP1.Request.ContentRangeInstanceLength := -1; IdHTTP1.Request.Accept := 'text/javascript'; IdHTTP1.Request.BasicAuthentication := False; URL = ' https://www.receitaws.com.br/v1/cnpj/27865757000102'; IdHTTP1.Get(url, retorno);

Olá, Há um tempo atrás, eu ouvi de que os componentes "ACBrConsultaCPF" e "ACBrCEP" tinham sido adicionados ao ACBrLib. Entretanto, quando eu fui checar a documentação, (https://acbr.sourceforge.io/ACBrLib/BemVindo.html) eu não encontrei nenhuma menção desses dois componentes. Queria perguntar então se eles estão implementados no ACBrLib ou não, e se estiverem, peço que passem o link da documentação.