Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 21-12-2023 em todas as áreas

  1. Essas foram todas as modificações que eu achei, fiz o teste em homologação assim e tudo parece OK, não tenho mais nenhuma alteração pendente e já encerrei a minha tarefa.
    3 pontos
  2. 2 pontos
  3. Olá pessoal. Recebemos a pouco informação por parte da AFRAC de que houve novo avanço por parte da Sefaz MT nesta questão. O progresso se deu com a publicação da Portaria nº262/2023 no Diário Oficial que trás a informação de algumas operações que ficarão isentas desta integração e também a data de início da obrigatoriedade. A obrigatoriedade da vinculação dos meios de pagamento aos documentos fiscais NFC-e/NF-e não se aplica: Quando NFC-e for emitida no regime especial da nota fiscal fácil - NFF. Nas vendas realizadas por Micro Empreendedor Individual (MEI). Nas operações de venda não presencial intermedias em site ou plataforma de terceiros. Na venda realizada com entrega e pagamento em domicílio. *Nos casos previstos no item 3 e 4, será obrigatório informar no XML as informações do intermediador da transação nos campos indPres, CNPJ e idCadIntTran previstos no MOC. Nos demais casos, a obrigatoriedade do vínculo se inicia em 01/04/2024 de acordo com o CNAE conforme lista abaixo: SubClasse CNAE Denominação Data Início Obrigatoriedade 1091-1/02 Fabricação de produtos de padaria e confeitaria com predominância de produção própria (padarias tradicionais) 1°/04/2024 4721-1/02 Padaria e confeitaria com predominância de revenda 1°/04/2024 4752-1/00 Comercio varejista especializado de equipamentos de telefonia e comunicação 1°/04/2024 4755-5/02 Comércio varejista de artigos de armarinho 1°/04/2024 4755-5/03 Comércio varejista de artigos de cama, mesa e banho 1°/04/2024 4763-6/01 Comércio varejista de brinquedos e artigos recreativos 1°/04/2024 4763-6/02 Comércio varejista de artigos esportivos 1°/04/2024 4774-1/00 Comércio varejista de artigos de óptica 1°/04/2024 4781-4/00 Comércio varejista de artigos do vestuário e acessórios 1°/04/2024 4782-2/01 Comércio varejista de calçados 1°/04/2024 5611-2/01 Restaurantes e similares 1°/04/2024 5611-2/02 Bares e outros estabelecimentos especializados em servir bebidas 1°/04/2024 5611-2/03 Lanchonetes, casas de chá, de sucos e similares 1°/04/2024 5611-2/04 Bares e outros estabelecimentos especializados em servir bebidas, sem entretenimento 1°/04/2024 5611-2/05 Bares e outros estabelecimentos especializados em servir bebidas, com entretenimento 1°/04/2024 5620-1/01 Fornecimento de alimentos preparado 1°/04/2024 5620-1/04 Fornecimento de alimentos preparados preponderantemente para consumo domiciliar 1°/04/2024
    2 pontos
  4. @Daniel InfoCotidiano só para te deixar sem nenhuma resposta, estamos com uma prioridade aqui na frente, tento atualizar e te dar uma resposta final até o final do dia. Obrigado.
    2 pontos
  5. O manual de referência é o da Febraban. https://cmsarquivos.febraban.org.br/Arquivos/documentos/PDF/Layout padrao CNAB240 V 10 11 - 21_08_2023.pdf
    2 pontos
  6. Não conseguir resolver no browser, mas com node.js sim, segue exemplo: const net = require('net') const client = new net.Socket() // PORT - 3434 // HOST - 127.0.0.1 client.connect(PORT, HOST, function () { console.log(`CONNECTED TO: [PORT: ${PORT}] [HOST: ${HOST}]`) client.write('ativo \r\n.\r\n') }) Segue exemplo básico com impressora: client.write('ESCPOS.Ativar() \r\n.\r\n') client.write('ESCPOS.imprimir("</zera></ce></linha_dupla></lf>EAN 8: 1234567</lf><ean8>1234567</ean8></pular_linhas></corte_total>") \r\n.\r\n')
    2 pontos
  7. Bom dia @Alexandre Felippeto Henzen, Se os seus clientes costumam receber a rejeição por duplicidade o problema é a sua aplicação que deixa o usuário enviar a nota novamente após um erro de internet. Quando ocorre erro de internet não se deve enviar a nota novamente, pois não sabemos se o erro ocorreu no envio da nota ou no retorno do protocolo. Sendo assim, devemos carregar o XML da nota que esta assinado usando o LoadFormFile (se o XML estiver salvo em Disco) ou LoadFromString (se o XML estiver salvo no banco de dados), em seguida executar o método Consultar. Se o erro de internet ocorreu no envio, ao consultar vamos ter como resposta a rejeição que acusa que a nota não consta na base de dados da SEFAZ, ai sim você libera a nota para ser enviada novamente. Se o erro de internet ocorreu no retorno, ao consultar vamos ter o protocolo de autorização (se a nota estiver com os dados corretos), o XML vai ser atualizado, a partir dai você pode imprimir o DANFE e enviar o XML e o DANFE por e-mail para o destinatário da mercadoria, ou teremos a rejeição caso a nota tenha algum dado errado.
    2 pontos
  8. Sim, claro, acabei de enviar...
    2 pontos
  9. Bom dia. Tudo sempre deve estar no mesmo ambiente. Os ambientes diferentes não se "comunicam". Então, se você está fazendo alguma coisa em homologação, via de regra, tudo deve ser feito no ambiente de homologação. Por exemplo, se vai acionar um evento relacionado a uma NFe já emitida, esse evento deve estar no mesmo ambiente que a NF-e. Senão você vai receber um erro dizendo que a NF-e não existe.
    2 pontos
  10. Olá pessoal! No dia 20/12/2023 foi divulgada a Nota Técnica 2023/005 que institui o evento de Insucesso da Entrega para NF-e (não confundir com o Insucesso na entrega para o CT-e que é descrito AQUI) Resumo da Nota Técnica. Esta nota técnica discorre sobre os eventos de Insucesso de Entrega da NF-e(tpEvento=110192) e Cancelamento do Insucesso na Entrega da NF-e(tpEvento=110193), ambos acobertados pelo Ajuste SINIEF 58/2022 de 09 de dezembro de 2022. A implementação dos novos eventos permitem ao emissor da NF-e, quando a entrega da mercadoria não envolver um CT-e, registrar por meio de um evento fiscal na respectiva NF-e os motivos que impediram a entrega. O objetivo dessa implementação é substituir a ressalva que atualmente é aposta no verso do DANFe seguindo o § 3º da cláusula décima do Ajuste SINIEF 07/05 que obriga o emitente do documento fiscal a armazenar o DANFe impresso contendo no verso justificativa Insucesso da Entrega. Com a criação desses eventos, o emissor vai poder vincular o evento eletronicamente na NF-e e não mais precisará armazenar o DANFe em papel. Datas para Implantação. Implantação para Homologação: 13/05/2024. Implantação para Produção: 24/06/2024. Webservice de Evento e Obrigatoriedade. Assim como os demais eventos já existentes, os novos eventos de Insucesso na Entrega e Cancelamento do Insucesso na Entrega serão recepcionados pelo Ambiente Nacional e não pela Sefaz respectiva do estado. A implementação desta NT é facultativa, portanto, os interessados podem praticar os prazos que julgarem conveniente posterior as datas de implantação descritas nos respectivos ambientes. Evento "Insucesso na Entrega da NF-e". Função: Evento para indicar o insucesso na entrega da carga pelo emitente da NF-e. Autor do Evento: O autor do evento é o emissor da NF-e. A mensagem XML do evento será assinada com o certificado digital que tenha o CNPJ base do Emissor da NF-e. Modelo: Nota Fiscal eletrônica – NF-e (modelo 55) Código do Tipo de Evento: 110192 (Este evento exige NF-e autorizada) Leiaute Mensagem Entrada Os campos que valem destaque no leiaute da mensagem de entrada são: tpEvento: Código do evento, 110192 - "Insucesso na Entrega da NF-e". nSeqEvento: Sequencial do evento para o mesmo tipo de evento, pode ter valores entre 1 a 99. Para informar um novo evento de "Insucesso na Entrega da NF-e" para uma mesma NF-e, o evento anterior deverá estar cancelado. dhTentativaEntrega: Data e hora da tentativa de entrega. nTentativa: Número da tentativa de entrega que não teve sucesso. tpMotivo: Motivo do Insucesso. Pode ter os valores 1 - Recebedor não encontrado, 2 - Recusa do recebedor, 3 - Endereço inexistente ou 4 - Outros. xJustMotivo: Justificativa do motivo do insucesso, usar somente se tpMotivo = 4. latGPS: Latitudade do ponto de entrega.. longGPS: Longitude do ponto de entrega. hashTentativaEntrega: Hash SHA-1, no formato Base64 correspondente a concatenação da chave de acesso da NF-e + Base64 de imagem capturada na tentativa da entrega. dhHashTentativaEntrega: Data e hora da geração do hash da tentativa de entrega. Leiaute da mensagem de retorno Os campos que valem destaque no leiaute da mensagem de retorno são: dhRegEvento: Data e hora de registro do evento. nProt: Número do protocolo do evento. Evento "Cancelamento Insucesso na Entrega da NF-e". Função: Evento para indicar o cancelamento do evento de insucesso na entrega da carga pelo emitente da NF-e. Autor do Evento: O autor do evento é o emissor da NF-e. A mensagem XML do evento será assinada com o certificado digital que tenha o CNPJ base do Emissor da NF-e. Modelo: Nota Fiscal eletrônica – NF-e (modelo 55) Código do Tipo de Evento: 110193 (Este evento exige NF-e autorizada) Leiaute da mensagem de entrada Dentre os campos que vale destaque temos: nProtEvento: número do protocolo de autorização do evento de insucesso que será cancelado. Leiaute da mensagem de retorno dhRegEvento: Data e hora de registro do evento. nProt: Número do protocolo do evento. LEIA A NOTA TÉCNICA NA INTEGRA AQUI E como fica o ACBr? Como é possível observar, a nova NT trás adição de dois novos eventos. Dito isso modificações serão necessárias nos fontes do ACBr para implementação dos mesmos. Já foi criada uma TK em nosso backlog e as modificações estarão disponíveis em tempo hábil para que possam realizar a implementação.
    1 ponto
  11. Bom dia pessoal, estou homogando TEF junto â Destaxa, e foi necessário 2 pequenas alterações no código fonte. Estava fixo a palavra ** PRIORIZA TEF ** para aparecer na Tela do PINPAD, realizei alteração para exibir o nome da Aplicação. E, o que estava impedindo a homologação, estava sendo enviado 2 comandos finalizar em algumas requisições, neste caso, para não alterar muita coisa no código, apenas coloquei uma verificação se o comando já havia sido enviado e com isso não enviar outro, porém acredito que isso não foi o mais correto, ideal serial ter refatorado para evitar que 2 comandos finalizar fossem disparado, com essa alteração que fiz, a função finalizar continua sendo chamada 2 vezes, eu apenas evitei que o comando fosse para VeSPague. ACBrTEFDVeSPague.pas
    1 ponto
  12. Boa tarde ! Qual foi a solução ? para deixarmos deixarmos registrado aqui no forum para que possamos ajudar mais membros da comunidade? se puder nos contar O Certificado não vai funcionar em Rede, talvez vc precise criar uma aplicação servidora (em camadas) ou uma API para que vc passe a instrução ele processe no servidor (que está a leitora com o A3) e te devolva a NFe emitida. Ou utilizar A1 q vc pode instalar em qq estação da rede
    1 ponto
  13. BigWings, pode desconsiderar meu questionamento, achei o que estava gerando o erro "CoInitialize não foi chamado", não gerava o arquivo evento como PDF e sim para imprimir na impressora de cupom. Muito obrigado pela ajuda.
    1 ponto
  14. Boa tarde! Por ser membro PRO, você tem acesso liberado aos cursos fornecidos pelo ACBr. Um deles é o Dominando o ACBrMonitorPLUS com um módulo bem completo sobre a NF-e, recomendo que dê uma olhada. Sobre a dúvida em questão. Ao usar o comando NFe.CriarNFe ele já vai gerar para você um arquivo XML da NF-e. Você pode então usar o comando NFe.ImprimirDANFe ou o NFe.ImprimirDANFePDF para gerar um preview passando este XML.
    1 ponto
  15. Verifique a pasta de Schemas. Use a disponibilizada pelo ACBr em ACBr\Exemplos\ACBrDFe\Schemas\NFe.
    1 ponto
  16. Tópico movido para a área do SAC, para que o SLA de respostas seja considerado Bom dia, Tente enviar um texto com espaços entre as palavras e veja como a impressão e feita. Sem espaços entre as palavras o componente não consegue quebrar a linha.
    1 ponto
  17. @cta_sistemas Bom dia ! Por favor atualize o repositorio para deixar as classes e o exemplo igual ao nosso. Utilize a ultima dll Exemplo array 5 boletos
    1 ponto
  18. Arquivos recebidos. Criada a #TK-4900 para debate e conclusão da equipe de consultores, visto que houve modificação recente nos relatórios em Fast para mostrar o valor zero.
    1 ponto
  19. Os manuais que temos são enviados pela comunidade quando fazemos as implementações. Muitas vezes podem estar desatualizados, por isso sempre pedimos uma cópia quando existem alterações para validarmos se estamos com a mesma versão ou, preferencialmente, a mais recente. Pode enviar o manual por email para [email protected] e colocar no corpo do email o link desse tópico para identificarmos. Obrigada mais uma vez pela contribuição.
    1 ponto
  20. Obrigado por reportar, assim que subir a atualização aviso qui.
    1 ponto
  21. Bom dia, primeiramente, desculpe pela demora, essas duas últimas semanas aqui a demanda foi extremamente grande por conta do fim de ano. Realizei os testes aqui e referente aquele outro tópico do cresol também, ambos os retornos foram lidos corretamente. Muito obrigado pessoal.
    1 ponto
  22. @Renato Rubinho e @Eduardo Faria Nazario Acho que o problema está no ACBR mesmo, voltando uma versão anterior do sistema conseguimos cancelar, comparando os dois pedidos de cancelamento, da versão anterior e da nova, a única diferença está no DigestValue, então deve ter a ver com a assinatura. Acredito que tenha sido a alteração da revisão 31349, que alterou a parte da assinatura do cancelamento. Seguem em anexo os pedidos de cancelamento aceitos e com erro, e uma possível correção, que estou aguardando pra testar no cliente amanhã. Betha.Provider.pas 239-ped-canOK.xml 239-ped-can-soapERRO.xml 239-ped-can-soapOK.xml 239-ped-canERRO.xml
    1 ponto
  23. Boa noite. 1. BOLETO.ConfigurarDados(dados da conta/dedente) 2. BOLETO.IncluirTitulos (pode incluir "n" titulos, vai ser criado em uma lista ) 3. BOLETO.GerarRemessa (depois envia-la) (opcional para impressao) 4. BOLETO.LerRetorno (tratar retorno p saber se não teve titulos rejeitados) (opcional para impressão) 5. BOLETO.Imprimir Depois disso, pode limpar a lista para iniciar outras inclusões. como de bancos/carteiras ou contas diferentes BOLETO.LimparLista o que marquei q é opcional para impressao é pq nao depende deste metodo para imprimir; mas tenha cuidado se rejeitar boleto no retorno, vai ter q corrigir e enviar novamente a remessa. apos aprovada, enviar o boleto aprovado para o cliente, pois o q ele estava foi recusado.
    1 ponto
  24. Boa tarde! Criada a #TK-4890 para análise do caso e parecer do consultor responsável.
    1 ponto
  25. Acho que você não entendeu. O registro header e o trailler também contam, seu arquivo está correto quanto a isso.
    1 ponto
  26. Fiz mais um ajuste de compatibilidade que quase passou despercebido. Revisão 31664
    1 ponto
  27. Boa noite comunidade, Como muitos acompanharam ao longo dos últimos meses, por mudanças nos WS utilizados pelos componentes ACBrConsultaCNPJ e ACBrConsultaCPF, e consequentemente o uso via ACBrLib e ACBrMonitorPlus, os mesmos não estavam funcionais. Após muita troca com a comunidade, assim como pesquisas da equipe ACBr chegou-se as conclusões a seguir. Sobre o componente ACBrConsultaCNPJ Foi feita adequação afim de implementar a comunicação com o BrasilAPI e também o ReceitaWS e ssa agora ter 3 novas propriedades visando a integração com os novos WS. Provedor (cwsNenhum, cwsBrasilAPI, cwsReceitaWS) Usuario Senha sendo assim, a partir desse momento o componente de consulta de CNPJ já é possível as buscas nos webservices da BrasilAPI ou ReceitaWS. Lembrando que não trata-se de base de dados oficiais da RFB e sim terceiras. Para utilizar é necessário selecionar o webservices desejado <ACBrConsultaCNPJ>.Provedor := Em relação ao ACBrLib e ACBrMonitorPlus, estão sendo feitas as modificações afim de também viabilizar seu uso, informaremos aqui assim que estiver liberado. Sobre o componente ACBrConsultaCPF Devido a não termos identificado outro serviço de webservice para realizar a migração do componente, foi preciso neste momento descontinuar o mesmo. Naturalmente que se no futuro houver uma nova opção de fonte de dados, o componente poderá ser reativado. At.
    1 ponto
  28. Demorou mas finalmente a SEFAZ-MG decidiu seguir o modelo de outras UFs e passará a utilizar o Servidor Virtual do RS (SVRS) para a emissão dos documentos fiscais eletrônicos definidos no acordo de cooperação técnica, entre os quais estão a NFe e NFCe. Mas não para por ai, além de MG, a SEFAZ-PR também optou por seguir o mesmo caminho e também adotar o SVRS. Trata-se de uma excelente noticia em especial para quem emite DFes em MG, afinal é de conhecimento de todos que as instabilidades tem sido frequentes. Prazos Apesar do acordo de cooperação atualizado entrar em vigor em 01/01/2024 precisamos acompanhar a manifestação das SEFAZ para confirmar se será de fato nesta data. Links Fonte: Portal Sped Brasil Link para o acordo de cooperação 05/2023 aqui EDIT: Vale acrescentar que apesar da divulgação do acordo de cooperação técnica Nº 5, a Sefaz de MG ainda não se pronunciou oficialmente sobre o mesmo e também não consta nenhuma informação oficial na página da mesma. Por isso, é importante aguardarmos antes de tomarmos qualquer medida para alteração.
    1 ponto
  29. Bom dia! Apenas dando um parecer! De fato foi constatado o problema e após alguns testes, foi verificado que é possível resolver o problema de performance atualizando a rotina de leitura do arquivo. A mesma está em processo de atualização. Vale ressaltar que a rotina está sendo atualizada por completo, por isso é um processo que requer mais tempo e uma extensa quantidade de testes antes de ser de fato liberado.
    1 ponto
  30. Bom dia colegas! Sei que a maioria de nós que utilizamos o ACBR trabalha com o bom e velho RAD Studio/Delphi, mas além deste quais outras ferramentas/linguagens os colegas usam? Vantagens, desvantagens? Programação para web ou apps? Abraço e bom final de semana para todos.
    1 ponto
  31. Boa tarde, esse é meu códgio para obter o token bearer e emissão de boleto na API v2 do itaú, feito com indy. Implementação concluida com sucesso.API de Cobrança v2 Itaú. uses IdHTTP, IdIOHandlerStack, IdSSL, blcksock, System.Json, IdGlobalProtocols, IdSSLOpenSSL, synautil, synsock, ssl_openssl; procedure TF_boleto.EnviarBoletoItau; var mURL, sResponse, mCode : string; HTTP, HttpClient: TIdHTTP; FParams, access_token, refresh_token : String; Json, scope, token_type, expires_in, RESULTADO_BOLETO : String; JsontoSend, AResponseContent : TStringStream; var IOHandler : TIdSSLIOHandlerSocketOpenSSL; var Resp, Req, Resp_Cobranca, Req_Cobranca: TStringStream; var Result, s, recieveID, DATA_EMISSAO, DATA_VENCIMENTO, ArquivoJSON, ACESSO_TOKEN, RESULTADO_TOKEN, valorTexto : String; var TICKET_XML, XML_COBRANCA : TStringList; var newFile, Arq_Liberacao : TextFile; var TICKET, RET_CODE, TIPO_PESSOA, TIPO_AMBIENTE, NSU, sCAMINHGO_EXE, FURLToken, URL, NUMERO_CADASTRO_PESSOA, JSON_TOKEN, JSON_BOLETO : String; var DIAS_MULTA, DATA_HORA_TOKEN : Integer; XMLResponse, TIPO_VALIDACAO, ID_BENEFICIARIO, VALOR_BOLETO, TIPO_CLIENTE, VALOR_JUROS, VALOR_MULTAS, TextoOriginal : String; var JsonStreamRetorno, JsonStreamEnvio: TStringStream; SSL : TIdSSLIOHandlerSocketOpenSSL; begin //-----Todo conhecimento que o homem possui é dada por DEUS------------------- if Length(DM.SQL_contas_receber_boletoCPF_CNPJ_Cliente.AsString) = 14 then begin TIPO_CLIENTE := 'J'; NUMERO_CADASTRO_PESSOA := 'numero_cadastro_nacional_pessoa_juridica'; end else begin TIPO_CLIENTE := 'F'; NUMERO_CADASTRO_PESSOA := 'numero_cadastro_pessoa_fisica'; end; DATA_EMISSAO :=PegarNumeros(DateToStr(DM.SQL_contas_receber_boletoDetalhe_Data_Emissao.AsDateTime)); DATA_VENCIMENTO :=PegarNumeros(DateToStr(DM.SQL_contas_receber_boletoDetalhe_Data_Vencimento.AsDateTime)); TIPO_VALIDACAO :=''; if DM.TIPO_AMBIENTE_BOLETO = 'Homologação' then begin TIPO_VALIDACAO :='validacao'; end else begin TIPO_VALIDACAO :='efetivacao'; end; DATA_EMISSAO :=Copy(DATA_EMISSAO, 5, 4)+ '-'+ Copy(DATA_EMISSAO, 3, 2)+ '-'+Copy(DATA_EMISSAO, 1, 2); DATA_VENCIMENTO :=Copy(DATA_VENCIMENTO , 5, 4)+ '-'+ Copy(DATA_VENCIMENTO , 3, 2)+ '-'+Copy(DATA_VENCIMENTO , 1, 2); ID_BENEFICIARIO :=''; ID_BENEFICIARIO :=DM.SQL_busca_contaEmpresa_Agencia.AsString + FormatFloat('0000000', DM.SQL_busca_contaEmpresa_conta.AsInteger) + DM.SQL_busca_contaEmpresa_Conta_Digito.AsString; VALOR_BOLETO :=''; VALOR_BOLETO :=PegarNumeros(FormatFloat('#000000000000000.00', DM.SQL_contas_receber_boletoDetalhe_Valor_Falta.AsFloat)); VALOR_MULTAS :=PegarNumeros(FormatFloat('#000000000000000.00', roundabnt(DM.SQL_busca_contaMULTA_DIA.AsFloat,-2))); VALOR_JUROS :=PegarNumeros(FormatFloat('#000000000000000.00', roundabnt(VALOR_MOURA_JUROS,-2))); JSON_BOLETO :='{' + #13 + ' "data": {' + #13 + ' "etapa_processo_boleto": "'+TIPO_VALIDACAO+'",' + #13 + ' "codigo_canal_operacao": "API",' + #13 + ' "beneficiario": {' + #13 + ' "id_beneficiario": "'+ID_BENEFICIARIO+'"' + #13 + ' },' + #13 + ' "dado_boleto": {' + #13 + ' "descricao_instrumento_cobranca": "boleto",' + #13 + ' "tipo_boleto": "a vista",' + #13 + ' "codigo_carteira": "'+DM.SQL_busca_contaCarteira.AsString +'",' + #13 + ' "valor_total_titulo": "'+VALOR_BOLETO+'",' + #13 + ' "codigo_especie": "01",' + #13 + ' "valor_abatimento": "000",' + #13 + ' "data_emissao": "'+DATA_EMISSAO+'",' + #13 + ' "indicador_pagamento_parcial": false,' + #13 + ' "quantidade_maximo_parcial": 0,' + #13 + ' "pagador": {' + #13 + ' "pessoa": {' + #13 + ' "nome_pessoa": "'+TrocaEComercialPorE(TiraAcentos(Copy(DM.SQL_contas_receber_boletoNomeRazaoSocial.AsString, 1, 50)))+'",' + #13 + ' "tipo_pessoa": {' + #13 + ' "codigo_tipo_pessoa": "'+TIPO_CLIENTE+'",' + #13 + ' "'+NUMERO_CADASTRO_PESSOA+'": "'+DM.SQL_contas_receber_boletoCPF_CNPJ_Cliente.AsString+'"' + #13 + ' }' + #13 + ' },' + #13 + ' "endereco": {' + #13 + ' "nome_logradouro": "'+TrocaEComercialPorE(TiraAcentos(Copy(DM.SQL_contas_receber_boletoEndereco.AsString, 1, 40)))+ ', '+Copy(DM.SQL_contas_receber_boletoNumero.AsString, 1, 5)+'",' + #13 + ' "nome_bairro": "'+TrocaEComercialPorE(TiraAcentos(Copy(DM.SQL_contas_receber_boletoBairro.AsString, 1, 40)))+'",' + #13 + ' "nome_cidade": "'+TrocaEComercialPorE(TiraAcentos(Copy(DM.SQL_contas_receber_boletoCidade.AsString, 1, 40)))+'",' + #13 + ' "sigla_UF": "'+DM.SQL_contas_receber_boletoUF.AsString+'",' + #13 + ' "numero_CEP": "'+DM.SQL_contas_receber_boletoCEP.AsString+'"' + #13 + ' }' + #13 + ' },' + #13 + ' "dados_individuais_boleto": [{' + #13 + ' "numero_nosso_numero": "'+sNOSSO_NUMERO_ITAU+'",' + #13 + ' "data_vencimento": "'+DATA_VENCIMENTO+'",' + #13 + ' "valor_titulo": "'+VALOR_BOLETO+'",' + #13 + ' "texto_uso_beneficiario": "'+DM.SQL_contas_receber_boletoDetalhe_N_Parcela.AsString+'",' + #13 + ' "texto_seu_numero": "'+DM.SQL_contas_receber_boletoDetalhe_N_Documento.AsString+'"' + #13 + ' }],' + #13 + ' "multa": {' + #13 + ' "codigo_tipo_multa": "02",' + #13 + ' "quantidade_dias_multa": 1,' + #13 + ' "percentual_multa": "'+VALOR_MULTAS+'"' + #13 + ' },' + #13 + ' "juros": {' + #13 + ' "codigo_tipo_juros": 93,' + #13 + ' "quantidade_dias_juros": 1,' + #13 + ' "valor_juros": "'+VALOR_JUROS+'"' + #13 + ' },' + #13 + ' "recebimento_divergente": {' + #13 + ' "codigo_tipo_autorizacao": "03"' + #13 + ' },' + #13 + // ' "instrucao_cobranca": [' + #13 + // ' {' + #13 + // ' "codigo_instrucao_cobranca": "4",' + #13 + // ' "quantidade_dias_apos_vencimento":60,' + #13 + // ' "dia_util":false' + #13 + // ' } ' + #13 + // ' ], ' + #13 + ' "protesto": {' + #13 + ' "protesto": 4,' + #13 + ' "quantidade_dias_protesto": 1' + #13 + ' },' + #13 + ' "negativacao": { ' + #13 + ' "negativacao": 5, ' + #13 + ' "quantidade_dias_negativacao": 1 ' + #13 + ' }, ' + #13 + ' ' + #13 + ' "desconto_expresso": false' + #13 + ' }' + #13 + ' }' + #13 + '}'; ArquivoJSON := ''; ArquivoJSON := JSON_BOLETO; sCAMINHGO_EXE := (ExtractFilePath(ParamStr(0)) +'Boletos\LogsWebservice\'); System.AssignFile(newFile, sCAMINHGO_EXE + Trim('Registro _Itau_'+sNOSSO_NUMERO_ITAU) + '.json'); System.Rewrite(newFile); WriteLn(newFile, ArquivoJSON); System.CloseFile(newFile); RESULTADO_TOKEN :=''; access_token :=''; JSON_TOKEN := 'grant_type=client_credentials&client_id='+ DM.SQL_busca_contaClientID.AsString+'&client_secret='+DM.SQL_busca_contaClientSecret.AsString; try HttpClient := TIdHTTP.Create( nil ); SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); HttpClient.IOHandler := SSL; JsonStreamEnvio := TStringStream.Create(utf8Encode(JSON_TOKEN)); DATA_HORA_TOKEN :=DM.conecta.ExecSQLScalar('SELECT IFNULL(TIMESTAMPDIFF (MINUTE,Data_access_token,NOW()),8) AS QTD_Horas FROM configuracao_boleto where Codigo_Config_Boleto =:BANCO and CodLoja_Boleto =:COD_LOJA', [DM.COD_BANCO, DM.COD_LOJA]); if DATA_HORA_TOKEN >= 4 then begin with SSL.SSLOptions do begin CertFile := ExtractFilePath(ParamStr(0)) +'Boletos\Certificado\Itau\ARQUIVO_CERTIFICADO.crt'; KeyFile := ExtractFilePath(ParamStr(0)) +'Boletos\Certificado\Itau\ARQUIVO_CHAVE_PRIVADA.key'; Mode := sslmUnassigned; Method := sslvSSLv23; SSLVersions := [sslvSSLv23]; end; URL :='essa url está no portal do developers itau'; with HttpClient do begin Request.CharSet := 'utf-8'; Request.Accept := '*/*'; Request.AcceptEncoding := 'gzip, deflate, br'; Request.CustomHeaders.Values['Content-Type'] := 'application/x-www-form-urlencoded'; Request.CustomHeaders.Values['x-itau-flowID'] := DM.SQL_busca_contaClientID.AsString + 'd7'; Request.CustomHeaders.Values['x-itau-correlationID'] := DM.SQL_busca_contaClientSecret.AsString; Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; HandleRedirects := True; HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; end; try RESULTADO_TOKEN := HttpClient.Post(URL,JsonStreamEnvio); Except on E: Exception do begin ERRO_ITTAU :='SIM'; RESULTADO_TOKEN :=HttpClient.ResponseText; ArquivoJSON :=''; ArquivoJSON := RESULTADO_TOKEN; sCAMINHGO_EXE := (ExtractFilePath(ParamStr(0)) +'Boletos\LogsWebservice\'); System.AssignFile(newFile, sCAMINHGO_EXE + Trim(sNOSSO_NUMERO_ITAU +'_erro_retorno_itau') + '.json'); System.Rewrite(newFile); WriteLn(newFile, ArquivoJSON); System.CloseFile(newFile); end; end; if HttpClient.ResponseCode = 200 then begin access_token :=''; expires_in :=''; access_token :=getCamposJsonString(RESULTADO_TOKEN, 'access_token'); expires_in :=getCamposJsonString(RESULTADO_TOKEN, 'expires_in'); scope :=getCamposJsonString(RESULTADO_TOKEN, 'scope'); DM.conecta.ExecSQL('update configuracao_boleto set access_token =:TOKEN, Scope =:SCOPE, expires_in =:EXPIRA, Data_access_token =NOW() where Codigo_Config_Boleto =:BANCO and CodLoja_Boleto =:COD_LOJA', [access_token, scope, StrToInt(expires_in), DM.COD_BANCO, DM.COD_LOJA]); end else begin ERRO_ITTAU :='SIM'; ArquivoJSON :=''; ArquivoJSON := RESULTADO_TOKEN; sCAMINHGO_EXE := (ExtractFilePath(ParamStr(0)) +'Boletos\LogsWebservice\'); System.AssignFile(newFile, sCAMINHGO_EXE + Trim(sNOSSO_NUMERO_ITAU +'_erro_retorno_itau') + '.json'); System.Rewrite(newFile); WriteLn(newFile, ArquivoJSON); System.CloseFile(newFile); end; end else begin access_token :=''; access_token :=DM.conecta.ExecSQLScalar('select IFNULL(access_token, "") AS token from configuracao_boleto where Codigo_Config_Boleto =:BANCO and CodLoja_Boleto =:COD_LOJA', [DM.COD_BANCO, DM.COD_LOJA]); end; if access_token <> '' then begin AResponseContent := TStringStream.Create(''); JsonToSend := TStringStream.Create(JSON_BOLETO, TEncoding.UTF8); with SSL.SSLOptions do begin CertFile := ExtractFilePath(ParamStr(0)) +'Boletos\Certificado\Itau\ARQUIVO_CERTIFICADO.crt'; KeyFile := ExtractFilePath(ParamStr(0)) +'Boletos\Certificado\Itau\ARQUIVO_CHAVE_PRIVADA.key'; Mode :=sslmUnassigned; Method :=sslvSSLv23; SSLVersions :=[sslvSSLv23]; end; URL :='está url está no portal do developers itau'; with HttpClient do begin IOHandler :=IOHandler; Request.Clear; Request.CharSet := 'utf-8'; Request.Accept := '*/*'; Request.AcceptEncoding := 'gzip, deflate, br'; Request.ContentType := 'application/json'; Request.CustomHeaders.Values['Authorization'] :='Bearer '+access_token; Request.CustomHeaders.Values['x-itau-apikey'] :=DM.SQL_busca_contaClientID.AsString; Request.CustomHeaders.Values['x-itau-flowID'] :=DM.SQL_busca_contaClientID.AsString + 'd7'; Request.CustomHeaders.Values['x-itau-correlationID'] := DM.SQL_busca_contaClientSecret.AsString; Request.UserAgent :='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; HandleRedirects := True; HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; end; try RESULTADO_BOLETO :=''; RESULTADO_BOLETO :=HttpClient.Post(URL, JsontoSend); except on E: Exception do begin ERRO_ITTAU :='SIM'; RESULTADO_BOLETO :=HttpClient.ResponseText; ArquivoJSON :=''; ArquivoJSON := RESULTADO_BOLETO; sCAMINHGO_EXE := (ExtractFilePath(ParamStr(0)) +'Boletos\LogsWebservice\'); System.AssignFile(newFile, sCAMINHGO_EXE + Trim(sNOSSO_NUMERO_ITAU +'_erro_retorno_itau') + '.json'); System.Rewrite(newFile); WriteLn(newFile, ArquivoJSON); System.CloseFile(newFile); end end; if HttpClient.ResponseCode = 200 then begin ArquivoJSON :=''; ArquivoJSON := RESULTADO_BOLETO; sCAMINHGO_EXE := (ExtractFilePath(ParamStr(0)) +'Boletos\LogsWebservice\'); System.AssignFile(newFile, sCAMINHGO_EXE + Trim(sNOSSO_NUMERO_ITAU +'_retorno_itau') + '.json'); System.Rewrite(newFile); WriteLn(newFile, ArquivoJSON); System.CloseFile(newFile); TextoOriginal :=''; valorTexto :=''; TextoOriginal := RESULTADO_BOLETO; valorTexto := Copy(TextoOriginal , Pos('numero_linha_digitavel', TextoOriginal) + 26, Length(TextoOriginal)); LINHA_DIGITAVEL :=''; LINHA_DIGITAVEL := Copy(valorTexto,1, 47); TextoOriginal :=''; valorTexto :=''; TextoOriginal := RESULTADO_BOLETO; valorTexto := Copy(TextoOriginal , Pos('codigo_barras', TextoOriginal) + 17, Length(TextoOriginal)); COD_BARRA_BOLETO := ''; COD_BARRA_BOLETO := Copy(valorTexto,1, 44); XMLTemporario.Append; XMLTemporarioNossoNumero.AsString :=LINHA_DIGITAVEL; if Length(OnlyNumber(LINHA_DIGITAVEL)) = 47 then begin XMLTemporarioStatus.AsString :='OK'; XMLTemporarioObs.AsString :='Boleto Registrado com Sucesso'; end else begin ERRO_ITTAU :='SIM'; XMLTemporarioStatus.AsString :='ERRO'; XMLTemporarioObs.AsString :='Erro ao Registrar Boleto via API'; end; XMLTemporarioNumeroDocumento.AsString :=NR_DOCUMENTO; XMLTemporarioParcela.AsInteger :=NR_PARCELA; XMLTemporario.Post; XMLTemporario.Close; XMLTemporario.Open; end else begin ERRO_ITTAU :='SIM'; ArquivoJSON :=''; ArquivoJSON := HttpClient.ResponseText; sCAMINHGO_EXE := (ExtractFilePath(ParamStr(0)) +'Boletos\LogsWebservice\'); System.AssignFile(newFile, sCAMINHGO_EXE + Trim(sNOSSO_NUMERO_ITAU +'_erro_retorno_itau') + '.json'); System.Rewrite(newFile); WriteLn(newFile, ArquivoJSON); System.CloseFile(newFile); end; end; finally FreeAndNil(HttpClient); FreeAndNil(SSL); end; end;
    1 ponto
  32. O portal dos documentos fiscais eletrônicos da SVRS passou a disponibilizar uma nova funcionalidade, o serviço Visualizador de Schemas, que exibe na tela de forma automática a tabela referência do schema de cada documento fiscal. Essa funcionalidade sempre apresentará o Schema vigente de autorização do ambiente de produção, permitindo que o usuário possa ter uma visão atualizada de qual layout está sendo aplicado. Para acessar a funcionalidade é necessário acessar a página do DFe desejado, ou os links abaixo: https://dfe-portal.svrs.rs.gov.br/Bpe/ConsultaSchema https://dfe-portal.svrs.rs.gov.br/CTe/ConsultaSchema https://dfe-portal.svrs.rs.gov.br/Mdfe/ConsultaSchema https://dfe-portal.svrs.rs.gov.br/Nfce/ConsultaSchema https://dfe-portal.svrs.rs.gov.br/Nfe/ConsultaSchema https://dfe-portal.svrs.rs.gov.br/Nff/ConsultaSchema https://dfe-portal.svrs.rs.gov.br/One/ConsultaSchema Fonte: https://dfe-portal.svrs.rs.gov.br/DFE/Noticias/2615
    1 ponto
  33. Encontrei a solucção, Abra as configurações do seu navegador padrão, acesse opçoes de internet /privacidade/avançado/bloquear cookies(interno e de terceiros). Devido aos cookies ele mantem a sessão com login e senha do provedor. Por isso ocorre a rejeição. Ele mantem as credenciais do primeiro envio salvo. bloqueei os cookies e deu certo.
    0 pontos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...