Jump to content

Gilson_ST

Membros
  • Content Count

    86
  • Joined

  • Last visited

Posts posted by Gilson_ST


  1. 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.

    Capturar.JPG


  2. 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>
    ...

     

    • Like 2

  3. 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.

     


  4. 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.   

     


  5. 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


  6. 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.

     

    Arq1.JPG

    Arq2.JPG


  7. 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==


  8. 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.


  9. 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.


  10. 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.

    C2.JPG

    C1.JPG


  11. 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;
     

      


  12. 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.


  13. 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.


  14. 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;
     


  15. 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"

    WhatsApp Image 2017-06-05 at 11.04.26.jpeg


  16. 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.


  17. 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...'; 


  18. 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;

×
×
  • Create New...