André Luis - Minf

Ok. Entendi. Segue anexo nova unit corrigido. Att ACBrBancoInter.pas

Isso. Essas duas variáveis estão sendo carregadas no inicio da procedure.

A linha 349 estava sendo preenchida com a variável ATipoSacado. E trocamos para a ATipoCedente. Cedente e Beneficiário (99,99%) pessoa jurídica. E da forma que estava poderia entrar pessoa física na variável ATipoSacado.

Boa tarde. Uma pequena correção ao gerar o arquivo. Por favor, avaliar e correto subir no SVN AttACBrBancoInter.pas

Boa noite. Alterei a Unit do Banco Inter com a inclusão do registro de transação "3" (Opcional). Poderiam verificar e subir para o SVN. Obrigado André Luis Minf Informática 11 3441-6788 www.minf.com.br facebook.com/MinfInformatica ACBrBancoInter.pas Manual_CNAB400_Cobranca.pdf

Bom dia. Tive outro caso. CNPJ com inscrição estadual em vários estados. CNPJ 05.570.714/0001-59 Alterei o fonte. Por favor, analisar. ACBrConsultaCNPJ.WS.CNPJWS.pas

Esse provedor pode retorna mais de uma inscrição estadual (Ativas e inativas) Alterei para trazer apenas a ativa. ACBrConsultaCNPJ.WS.CNPJWS.pas

Após a última atualização da ACBrConsultaCNPJ.WS.CNPJWS não estava mais retornando a Inscrição estadual. Segue unit com a correção. Por favor, avaliar e subir pra o SVN ACBrConsultaCNPJ.WS.CNPJWS.pas

Funcionando corretamente com a nova Unit. Obrigado.

Boa noite Victor. Acho que faltou subir a ACBrConsultaCNPJ.WS.Publica.pas no SVN com suas alterações.

Boa tarde. Desculpe mandei a url errada. ACBrConsultaCNPJ.WS.ReceitaWS; C_URL = 'https://receitaws.com.br/v1/cnpj/'; ACBrConsultaCNPJ.WS.BrasilAPI; C_URL = 'https://brasilapi.com.br/api/cnpj/v1/'; Esse que eu implementei ACBrConsultaCNPJ.WS.Publica; 'https://publica.cnpj.ws/cnpj/';

Boa noite. Implemente o provedor https://receitaws.com.br/v1/cnpj/ no componente de consulta do CNPJ. Por favor, verificarem se esse provedor pode ser incluído no SVN. Inclusive ele retorna dados da inscrição estadual. ACBrConsultaCNPJ.pas ACBrConsultaCNPJ.WS.pas ACBrConsultaCNPJ.WS.Publica.pas

Obrigado. Funcionou.

Boa noite. Retomando a homologação da TEF estamos tendo erro de instalação. "Ponto de captura não liberado para instalação" • Ponto de Captura: 77560 • Endereço do Ambiente: esba-hom01.tpgweb.io:17500 • CNPJ de Instalação: 04.042.492/0001-39 Esses são os dados enviados para nós. Em contato por e-mail foi orientado abrir um chamado aqui. Isso procede? Obrigado

Fiz isso primeiro para o telefone parar de tocar. E consegui em homologação alterando o Schema e ACBR.

Funciona perfeito em SP Homologação alterando a linha e o arquivo do leiauteNFe_v4.00.xsd

Alteração de arquivo de remessa conforme layout de setembro de 2017 v 2.17 Posição 148 a 149 (08 = BDP - BOLETO DE PROPOSTA - (NOTA 6) e 19 = BCC – BOLETO CARTÃO DE CRÉDITO (NOTA 8) ) Posição 352 a 381 X(030) Brancos Por favor inclusão no SVN. SANTANDER Layout CNAB 400 com registro (padrão 353) Setembro 2017 v 2.17.pdf ACBrBancoSantander.pas

Boa tarde. Fiz mais uma pequena alteração no sequencial. ACBrBancoItau.pas ACBrBancoItau.pas

Bom dia. Segue anexo fonte conforme solicitado. Alteração a partir da linha 782. Obrigado pelo retorno. ACBrBancoItau.pas

Boa noite. Incluir registro 5 no arquivo de remessa com dados de e-mail para o banco Itaú. Peço para a inclusão no SVN. //OPCIONAL – COBRANÇA E-MAIL E/OU DADOS DOSACADOR AVALISTA if Sacado.Email <> '' then begin wLinhaMulta:= '5' + // Tipo de registro - 5 IDENTIFICAÇÃO DO REGISTRO TRANSAÇÃO PadRight(Sacado.Email, 120, ' ') + // ENDEREÇO DE E-MAIL ENDEREÇO DE E-MAIL DO PAGADOR ATipoSacado + // CÓDIGO DE INSCRIÇÃO IDENT. DO TIPO DE INSCRIÇÃO DO SACADOR/AVALISTA PadLeft(OnlyNumber(Sacado.CNPJCPF), 14, '0') + // NÚMERO DE INSCRIÇÃO NÚMERO DE INSCRIÇÃO DO SACADOR AVALISTA PadRight(Sacado.Logradouro + ' '+ Sacado.Numero + ' ' + Sacado.Complemento , 40, ' ') + // RUA, Nº E COMPLEMENTO DO SACADOR AVALISTA PadRight(Sacado.Bairro, 12, ' ') + // BAIRRO DO SACADOR AVALISTA PadLeft(OnlyNumber(Sacado.CEP), 8, '0') + // CEP DO SACADOR AVALISTA PadRight(Sacado.Cidade, 15, ' ') + // CIDADE DO SACADOR AVALISTA PadRight(Sacado.UF, 2, ' ') + // UF (ESTADO) DO SACADOR AVALISTA space(180) + // COMPLEMENTO DE REGISTRO IntToStrZero(aRemessa.Count + 3 , 6); // Sequencial wLinha := wLinha + #13#10 + wLinhaMulta; end; Att.