Componente Integrador ACBr some do Delphi

[Componente Integrador ACBr some do Delphi]

2 minutos atrás, mikromundosistemas disse:

Boa tarde. Ainda não houve uma solução para esse problema ?

Boa tarde, parece que não. Acho que só ocorre em Delphi 10.2 para cima e conosco que dependemos dele para o MFe. Já pesquisei por fora o fórum ara tentar ajudar na solução mas não consegui nada.

[Componente Integrador ACBr some do Delphi]

1 minuto atrás, ROSENILDO disse:

Bom dia, a única solução que achei até hoje foi  pressionar a TECLA "ESC", dessa forma ele não apaga o Componente IntegradorACBR da minha tela!

Boa, vou testar aqui. Obrigado.

[Componente Integrador ACBr some do Delphi]

Em 30/05/2019 at 11:26, ROSENILDO disse:

Bom dia.

Já faz uns meses que acontece algo estranho no meu componente Integrador do ACBr, ele some do meu Delphi, e é preciso eu reinstalar o ACBr para ele voltar!

Isso acontece pelo menos uma vez por semana.

Alguma dica?

Bom dia, está acontecendo há meses, até hoje não encontrei solução. Você encontrou ? Todos os dias preciso reinstalar o ACBrIntegrador mais de uma vez.

[ANSWERED]

26 minutos atrás, Anathalia Cavalcante disse:

Conseguiu alguma resposta?

Sim.

No produto:

<vProd>10.00</vProd>

<ICMS20>
<orig>0</orig>
<CST>20</CST>
<modBC>3</modBC>
<pRedBC>10.1234</pRedBC>
<vBC>8.99</vBC>
<pICMS>7.0000</pICMS>
<vICMS>0.63</vICMS>
<vICMSDeson>0.07</vICMSDeson>
<motDesICMS>9</motDesICMS>
</ICMS20>

No total:

<ICMSTot>
<vBC>8.99</vBC>
<vICMS>0.63</vICMS>
<vICMSDeson>0.07</vICMSDeson>
...

 

[Erro Instalação ACBr no Delphi 10.3 rio]

Existe um outro tópico com um erro semelhante a este, porém sem solução. https://www.projetoacbr.com.br/forum/topic/50838-erro-acbr-integrador/?tab=comments#comment-337159

Eu já instalo o ACBr manualmente, cada .DPK, porém já testei com o Install e nada. Já tentei de tudo e todas as dicas que encontrei aqui e nada. Só consigo desinstalando o ACBr_Integrador.bpl, deletando o arquivo na pasta BPL e reinstalando o ACBr_Integrador (somente ele já resolve), porém funciona por um breve período, as vezes volta a dar erro no mesmo dia.

Tenho o Delphi 10.2.1, 10.2.3 e 10.3.1, este erro não acontece somente no 10.2.1.

 

[Responsabilidade Fiscal no Desenvolvimento de sistemas]

18 minutos atrás, Juliana Tamizou disse:

Boa tarde.

Creio  que este seja um grande risco, uma vez que pode ser interpretado que a softwarehouse é co-responsável.

Att.

Também acho. O problema é que, diante de minha negativa,  o cara quer que eu apresente base legal que impeça a Software House de fazer o que ele está pedindo.  Obrigado.

[Responsabilidade Fiscal no Desenvolvimento de sistemas]

Boa tarde, encontrei este tópico que é justamente o que eu estou precisando saber, porém ele é do tempo do PAF-ECF.

Estou desenvolvendo um aplicativo para restaurantes e meu cliente solicitou que eu deixasse opcional a emissão de NFCe, ou seja, só emitirá se o cliente dele solicitar. Cheguei a consultar a SEFAZ/RJ, claro que a resposta foi negativa, porém não mencionou nada sobre a responsabilidade do software. 

O contribuinte DEVE emitir o cupom fiscal, caso contrário estará sonegando e poderá sofrer as penalidades previstas nas leis, mas e a software house ? não encontrei nenhum lei, decreto, resolução sobre isto no que tange a NFCe/NFe

O que vocês acham ?

E no caso do cliente ser MEI ? Já que não são obrigados a emitir NFCe, ele pode utilizar um sistema PDV não fiscal (não emissor de NFCe) ?

Desde já, agradeço a todos que cooperarem.   

 

[ANSWERED]

Bom dia, alguém com clientes no estado do Rio de Janeiro já precisou lidar com o DECRETO Nº 46.542 DE 28 DE DEZEMBRO DE 2018 ?

"Art. 1º Fica reduzida a base de cálculo do Imposto sobre Operações Relativas à Circulação de Mercadorias e sobre Prestações de Serviços de Transporte Interestadual e Intermunicipal e de Comunicação (ICMS) incidente sobre o fornecimento de refeições efetuadas por bares, restaurantes e estabelecimentos similares, bem como sobre a saída promovida por empresas preparadoras de refeições coletivas mediante contrato, de forma que a carga tributária seja equivalente a 4% (quatro por cento) do valor da operação."

Como lidar com isso na NFCe e na NFe ?

 

Link: http://www.fazenda.rj.gov.br/sefaz/faces/oracle/webcenter/portalapp/pages/navigation-renderer.jspx?_afrLoop=7209334071212096&amp;datasource=UCMServer%23dDocName%3AWCC339586&amp;_adf.ctrl-state=19q376rv1k_9

[ANSWERED]

Boa tarde, no ACBr existe alguma função semelhante a "FACBrDFe.SSL.CalcHash(StrCodigoVinculacao, dgstSHA256, outBase64, True);" mas que assine no formato PKCS#7 ?

Esta função encontrei no projeto ACBrSATSign.

Preciso utilizar esta função para integração com o Bradesco para registro on-line, conforme informado nas imagens anexas. Tenho o certificado digital, mas não estou conseguindo encontrar nada para me ajudar com isso. Se não existir no a ACBr mas se alguém puder me ajudar com o Delphi seria ótimo. Obrigado.

 

[Trasmissão automática Remessa e Retorno]

Em 20/07/2018 at 10:33, gleikocarmelo disse:

Aguem sabe me falar se já existe implementado algo relacionado ao novo método de transferência de arquivos do Bradesco? Onde permite a comunicação direta com o Servidor do Banco sem precisar do aplicativo deles instalado?

O gerente de um cliente meu me encaminhou o manual, caso alguém queira analisar.

Como podem verificar o Manual é bem recente e creio ser a nova tendencia a ser seguidas por todos os bancos.

Manual_Registro_de_Boleto_Bancario_Online_Mar18.pdf

Bom dia Gleiko, tudo bem ? Conseguiu fazer esta integração com o Bradesco ? Veja se você consegue me ajudar com o trecho abaixo por favor, estou procurando como fazer isto há dias. Tenho o certificado digital válido. Ainda não encontrei nada no ACBr para assinar o Json no formato PKCS#7, você conseguiu fazer isto em Delphi ? Desde já, agradeço pela ajuda:

A mensagem após preenchida no layout json acima, deve ser então assinada no formato PKCS#7 e o resultado enviado através de POST para o Endpoint
desejado (Homologação ou Registro).

Obs.: Após o processo de assinatura, o resultado deverá ser base 64. A mensagem a ser enviada terá o formato conforme exemplo abaixo:
NDZhMjFjODkxNWQ2ZTc4M2FmYWY0MWYxNmFiYmFmOTI3ZTNkNTM5MDg2NTMzNTE1ZjUxMmE3NDM2ZW
Y3YTNkOTEyYWQ1MmY1M2M4ZjYzMWE3ZTEwNmVkMGJhYzE4ODVjYTg3N2Q0ZTg2NDQ3NDcwNjAwYThk
YTZhOGY5N2JiMzI4ZWMzMGRmYTBmNTQyMjY3ZmE3MDdjODNmNTkxNTVhNjA4MzJlZDg3MTk2M2E3Yj
AzMTA1MGU3OWE0OTVhY2VhMjhlMDhkNDZjZjc3MTQ5OGY3ODgyN2ZmOWFiNDM4MmJhMTEyZGE3MDVm
NDUyMjIxMTE2MmNjMmYwMWMwNDhhOQ==

[Quando na minha aplicação uso o comando "Enviar Status Pagamento" ?]

Em 23/02/2018 at 15:02, DonizeteFalcon disse:

Boa tarde a todos.

Estou com um problema ao enviar o pagamento realizado no TEF ao Integrador.

Utilizando o Integrador do MFe do Ceará , depois de confirmar uma transação no TEF é necessário informar ao integrador o pagamento, utilizando o comando abaixo.

RespostaStatusPagamento := TACBrSATMFe_integrador_XML(ACBr_SAT.SAT).EnviarStatusPagamento(StatusPagamentoMFe);

Após este comando preciso pegar o retorno. Estou fazendo assim:

Result := StrToIntDef(RespostaStatusPagamento.Retorno,0), o problema está que a propriedade .Retorno está vindo vazia.

 

Analisando o método RespostaStatusPagamentoR.LerXml da unit pcnVFPeR,  na linha 141, percebi que na execução do Leitor.rCampo(tcStr, 'retorno') aqui que estava vindo vazio.

RespostaStatusPagamento.Retorno := Leitor.rCampo(tcStr, 'retorno');

Para contornar a falta do Retorno, vi que em outros métodos LerXml da mesma classe, há um teste antes da execução do RespostaStatusPagamento.Retorno := Leitor.rCampo(tcStr, 'retorno')
 

Por Exemplo em TRetornoRespostaFiscalR.LerXml está assim:

 if (Pos(UpperCase('retorno'),UpperCase(Leitor.Arquivo)) <= 0) and
     (Pos(UpperCase('Integrador'),UpperCase(Leitor.Arquivo)) <= 0) then
    RetornoRespostaFiscal.IdRespostaFiscal := Leitor.Arquivo
  else
  begin
    RetornoRespostaFiscal.IdRespostaFiscal := Leitor.rCampo(tcStr, 'retorno');
    RetornoRespostaFiscal.IntegradorResposta.LerResposta(Leitor.Grupo);
  end;

 

Então seguindo o método anterior, fiz a seguinte alteração:

function TRespostaStatusPagamentoR.LerXml: boolean;   (Linha 135)
begin
  Leitor.Grupo := Leitor.Arquivo;

  RespostaStatusPagamento.Clear;

  if (Pos(UpperCase('retorno'),UpperCase(Leitor.Arquivo)) <= 0) and
     (Pos(UpperCase('Integrador'),UpperCase(Leitor.Arquivo)) <= 0) then
     RespostaStatusPagamento.Retorno := Leitor.Arquivo
  else
  begin
     RespostaStatusPagamento.Retorno := Leitor.rCampo(tcStr, 'retorno');
     RespostaStatusPagamento.IntegradorResposta.LerResposta(Leitor.Grupo);
  end;

  Result := True;
end;

 

Agora sim está retornando valor no campo Retorno.

Sugiro aos administradores, após análise de minha alteração, se for conveniente, fazer a alteração no componente.

Se estiver fazendo errado, gostaria que alguém desse-me uma luz de como pegar o retorno desta função.

 

Estava acontecendo a mesma coisa comigo, só resolveu quando utilizei o seu pcnVFPeR.pas. Obrigado.

[Distribuição DFe - Não baixa o xml]

1 hora atrás, russocorp disse:

Se tentar fazer a Confirmação da Operação ao invés da Ciência da Operação ocorre erro também?

Ocorre, mas finalmente descobri o problema depois de horas de pesquisa. Eu estava enviando o evento em modo de homologação e a NFe foi gerada em produção, por isso registrava o evento mas não associava.

Obrigado pelo contato.

[Distribuição DFe - Não baixa o xml]

1 hora atrás, Gilson_ST disse:

Boa noite,

Continuo com este problema. Manifesto como Ciência da Operação e horas depois nada de XML completo. Consultei a chave na SEFAZ nacional e não exibe o evento de manifestação, porém se eu tento manifestar novamente dá duplicidade de evento. Isso passou a acontecer este mês. Alguém mais com este problema ?

Eu uso como no exemplo do ACBr (ACBrNFe1.DistribuicaoDFe) e funcionava até o inicio do mês:

            ACBrNFe1.EventoNFe.Evento.Clear;
            with ACBrNFe1.EventoNFe.Evento.Add do
            begin
               InfEvento.cOrgao := 91;
               InfEvento.chNFe := pChave;
               InfEvento.CNPJ := pCNPJ;
               InfEvento.dhEvento := now;
               InfEvento.tpEvento := teManifDestCiencia;
            end;
            ACBrNFe1.EnviarEvento(1);
            with ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0]
              .RetInfEvento do
            begin

            end;
 

  

Seguem imagens. Vejam que o site não mostra o evento, porém a rejeição ocorre porque eu já enviei o evento.Desta forma o downloado no XML completo também não é realizado.

[Distribuição DFe - Não baixa o xml]

Em 09/11/2017 at 14:42, Lucas Peres disse:

No meu caso manifesto todas, em seguida faço uma nova consulta.

As notas manifestadas até dia 06/11 estão OK. A partir disso somente os resumos, mesmo após manifestação não consigo o XML completo.

Boa noite,

Continuo com este problema. Manifesto como Ciência da Operação e horas depois nada de XML completo. Consultei a chave na SEFAZ nacional e não exibe o evento de manifestação, porém se eu tento manifestar novamente dá duplicidade de evento. Isso passou a acontecer este mês. Alguém mais com este problema ?

Eu uso como no exemplo do ACBr (ACBrNFe1.DistribuicaoDFe) e funcionava até o inicio do mês:

            ACBrNFe1.EventoNFe.Evento.Clear;
            with ACBrNFe1.EventoNFe.Evento.Add do
            begin
               InfEvento.cOrgao := 91;
               InfEvento.chNFe := pChave;
               InfEvento.CNPJ := pCNPJ;
               InfEvento.dhEvento := now;
               InfEvento.tpEvento := teManifDestCiencia;
            end;
            ACBrNFe1.EnviarEvento(1);
            with ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0]
              .RetInfEvento do
            begin

            end;
 

  

[ANSWERED]

20 minutos atrás, IGOR ALEXANDRO SCHERER disse:

Show de bola funcionou em umas máquinas, porém outras está dando erro, como vc criou esse .exe? foi em qual linguagem ?

Não fui eu quem o criou, é da CertiSign e não é recente, acho que é de junho/2017. Ele instala automaticamente as novas versões das cadeias. Este processo pode ser manual, tem vários tópicos sobre isso desde ontem. 

Não tenho certeza, mas acho que também depende da das cadeias das empresas fornecedoras dos certificados.

[ANSWERED]

12 minutos atrás, IGOR ALEXANDRO SCHERER disse:

Tem alguma forma de instalar automaticamente esses certificados? na minha empresa possui mais de 1000 computadores manualmente é trabalhoso...

http://www.downloadcertisign.com.br/site/Hierarquias/ICP_Brasil/hierarquia-completa/InstaladorCadeiaV2.exe

Foi o máximo que eu consegui. É só executar e clicar no botão Instalar Cadeias.

[acbrnfse E172 Arquivo enviado com erro na assinatura]

19 horas atrás, Matheus Rossi disse:

Também estou passando exatamente pelo mesmo problema com provedor Betha na cidade de Monte Alto/SP. Segue anexo arquivo XML do lote.

Em anexo também imagem da validação da assinatura feita no site da RFB, resultando em assinatura válida.

 

1-env-lot.xml

Matheus, veja se te ajuda. Resolveu um problema de assinatura aqui no RJ com NFCe: 

 

[Erro 12045 - Bahia]

Está acontecendo agora no Rio de Janeiro. Iniciou por volta das 14:45h em dezenas de clientes nossos ao mesmo tempo. Esta solução resolveu. Obrigado.

[ANSWERED]

Parece que só acontece com certificados A3, porém no meu computador não acontece, provavelmente porque é Windows 10.

Eu só consegui resolver assim:

      With ACBrNFe1.Configuracoes.Geral do
      begin
         SSLLib                := libCapicom;
         SSLCryptLib           := cryCapicom;
         SSLHttpLib            := httpWinHttp;
         SSLXmlSignLib         := xsMsXmlCapicom;
      end;
      ACBrNFe1.SSL.SSLType := LT_all;
 

[ANSWERED]

Boa tarde, eu também estou passando. Alguns clientes funciona normalmente em outros não.

Mas a minha mensagem é um pouco diferente: "erro 12030 - A conexão com o servidor foi redefinida ou encerrada, ou um protocolo SSL incompatível foi encontrado"

[Banco de dados Remoto]

Em 12/07/2016 at 10:15, Bruno Giovani Caltran disse:

Caro zilion, 

A proteção dos dados de conexão é extremamente importante sim, a base de dados remota está sempre sujeita a ataques.

Vou te dar um exemplo, (em firebird usando o dbxConnections.ini) que é usado por muitos programadores

[CONEXAO]
DriverName=Interbase
DATABASE=C:\SISTEMA\Dados\SISTEMA.FDB
RoleName=RoleName
User_Name=sysdba
Password=masterkey
ServerCharSet=
SQLDialect=3
BlobSize=-1
CommitRetain=False
WaitOnLocks=True
ErrorResourceFile=
LocaleCode=0000
Interbase TransIsolation=ReadCommited
Trim Char=False

logo é possível entender as tags de conexão

DATABASE=C:\SCI\Dados\SISTEMA.FDB
User_Name=sysdba
Password=masterkey

Qualquer pessoa com o mínimo de conhecimento entenderá que se trata de um usuário e senha para a conexão.

 

Uma solução simples seria passar essas informações para o componente de conexão direto em código

Try
begin
ConexaoWeb.LoadParamsOnConnect := True;
Conexaoweb.ConnectionName := 'CONEXAOW';
Conexaoweb.DriverName := 'Interbase';
Conexaoweb.GetDriverFunc := 'getSQLDriverINTERBASE';
Conexaoweb.KeepConnection := True;
Conexaoweb.LibraryName := 'dbexpint.dll';
Conexaoweb.LoadParamsOnConnect := False;
Conexaoweb.LoginPrompt := False;
Conexaoweb.Params.Clear;
Conexaoweb.Params.Add('DATABASE=servidorouIP.com.br:/home/firebird/bnsci/SISTEMA.FDB');
Conexaoweb.Params.Add('RoleName=RoleName');
Conexaoweb.Params.Add('User_Name=USUARIO');
Conexaoweb.Params.Add('Password=SENHA123');
Conexaoweb.Params.Add('ServerCharSet=');
Conexaoweb.Params.Add('SQLDialect=3');
Conexaoweb.Params.Add('BlobSize=-1');
Conexaoweb.Params.Add('CommitRetain=False');
Conexaoweb.Params.Add('WaitOnLocks=True');
Conexaoweb.Params.Add('ErrorResourceFile=');
Conexaoweb.Params.Add('LocaleCode=0000');
Conexaoweb.Params.Add('Interbase TransIsolation=ReadCommited');
Conexaoweb.Params.Add('Trim Char=False');

Conexaoweb.Tag := 0;
Conexaoweb.VendorLib := 'gds32.dll';

ConexaoWeb.LoginPrompt := False;
ConexaoWeb.Connected := True;
end;
  except
  Begin
  MessageDlg('Erro ao conectar ao servidor', mtWarning, [mbOK], 0);
  end;

Esse é só um exemplo, existem várias outras formas de se fazer, vai depender do componente e do seu projeto... 

 

Espero ter ajudado!

Grande Abraço!

Bruno

 

 

Outra coisa que não nos atentamos: se alguém abrir o seu executável com editor HexDecimal e pesquisar por password irá encontrar facilmente a SENHA123. Depois que descobri (e testei) isso passei a criptografar e guardar a senha nim arquivo .ini, depois sim coloco no parâmetro, descriptografando antes é claro, via código como você fez.

[XML SAT x XML NFCe - existe um De Para ?]

Bom dia, tive que fazer mesmo para os dois. 

[ANSWERED]

14 horas atrás, mauricio1 disse:

qual e o lugar, programa, que tenho que fazer esta configuracao, por favor urgentissimo

Boa tarde Maurício, não uso o  ACBRMonitor, mas Agnaldo já deu õ caminho: Na configuração do AcbrMonitorPLUS, DFE->WebServices/NFC-e

Eu uso o ACBrNFe, ACBrNFe1.Configuracoes.Geral.idCSC := '000003' e ACBrNFe1.Configuracoes.Geral.CSC := 'DFJDK4GKR84JGGFGR4555T...'; 

[Impressão no Formato NFC-e]

1 hora atrás, Simões disse:

Boa tarde pessoal!

Vocês estão conseguindo imprimir o Danfe da NFC-e no formato impressora não fiscal?

Com qual exemplo?

Fiz alguns testes aqui com o "ACBrNFe_demo.exe" e ele ainda aparece no formato NFe, conforme xml e pdf em anexo,

como alterar para imprimir o  NFC-e.

Obrigado

 

Simões

 

53160310585659000100650010000004851000004857.pdf

53160310585659000100650010000004851000004857-nfe.xml

Boa tarde Simões, teste colocar ACBrNFe1.DANFE.TipoDANFE := tiNFCe;

[ANSWERED]

Em 22/01/2015 at 10:54, EMBarbosa disse:

Já foi corrigido pelo Isaque.

Boa tarde, acontecendo a mesma coisa no trunk2. Lembra qual foi a solução do Isaque ?

Obrigado

Descobri, abra o .dfm, localize btnCancelaGeração e tire os acentos.