Ir para conteúdo
  • Cadastre-se

icozeira

Membros Pro
  • Total de ítens

    191
  • Registro em

  • Última visita

Posts postados por icozeira

  1. Bom dia Juliana, obrigado pela atenção.

    Passei com tamanho máximo de 11 digitos.

    Mas, pelo que percebí o tamanho máximo  é calculado pelo próprio acbr com a carteira e o tamanho do convenio.

    O valor que envio para o componente nos meus testes está em 12165 ele converte para 00000012165.

    Se eu fizer uma alteração no componente na função function TACBrBancoBrasil.CalcularTamMaximoNossoNumero para resultar 5 ao invés e 11 na linha 170 

    o acbr gera uma linha digitável quase igual ao Componente proprietário que usamos.

    A única divergência é nos ultimos cinco digitos do campo 2 da linha digitável.

    Só que não posso fazer essa alteração no componente, porque se a cobrança for de 17 dígitos aí o ACBR não vai encontrar também.

    Ou seja, conserto um, estrago o outro.

     

     

  2. Utilizamos em nosso sistema um componente de boleto proprietário e estamos fazendo a migração para o ACBRBoletos.

    Percebí que não havia a leitura do arquivo de retorno dos bancos HSBC e do Bradesco para Febraban240 - c240. 

    Tomei a liberdade de implementar na unit de cada banco que estão anexadas abaixo.

    Fiz os testes iniciais e está fazendo a baixa do contas a receber corretamente no meu sistema .

    Inclusive, Já estamos usando em produção em Clientes o banco HSBC e baixando boletos do componente proprietário normalmente.

    Para o Bradesco sugiro que alguém da comunidade que tenha interesse, ajude nos testes baixando a unit e verificando se está corretamente codificada.

    Peço aos moderadores fazer a devida análise e caso esteja correto submeter ao trunk2.

    Sei do carinho e da seriedade que o pessoal da Moderação tem com o Componente, mas, não custa lembrar que trata-se de boletos bancários, por isso, todo cuidado é pouco.

    Um erro acidental na montagem do código de barras, por exemplo, pode creditar os valores recebidos em conta corrente bancária que não seja do cedente e causar sérios prejuízos ao Usuário do sistema. 

    Banco não tem pressa para corrigir esse tipo de erro. Afinal, não foi ele que errou e quanto mais tempo o dinheiro ficar parado, mais ganham aplicando ele. É tudo que eles querem. :-D


     

    ACBrBancoBradesco.pas

    ACBrBancoHSBC.pas

  3. Percebí na Unit ACBrUtil na linha 760 onde está a seguinte funcão:

    function PadRight(const AString : String; const nLen : Integer;
       const Caracter : Char) : String ;
    var
      Tam: Integer;
    begin
      Tam := Length(AString);
      if Tam < nLen then
        Result := AString + StringOfChar(Caracter, (nLen - Tam))
      else
        Result := LeftStr(AString, nLen);
    end ;


    Como trata-se de PadRight o ultimo result não seria:
    Result := RightStr(AString, nLen); 

    Obs- Não fiz a correção, porque não sei onde pode comprometer as demais funcionalidades do componente. Só peço aos moderadores, quando
    possível dar uma conferida.

    Postei no Boleto, porque é bastante utilizado pelo componente nas Units do ACBrBoleto.

     


     

  4. Utilizamos em nosso sistema um componente de boleto proprietário e estamos fazendo a migração para o ACBRBoletos.

    Estou tentando fazer a configuração do boleto para o Banco do Brasil com as seguintes características:
    Cobrança Simples Sem Registro

    Convenio de 6 dígitos
    Tamanho NossoNumero 11 dígitos
    Carteira 18
    Var Carteira - 019 (modalidade no acbr)

    Quando gero a linha digitável está apresentando uma diferença em relação a linha digitável do componente proprietário que utilizo atualmente.

    Fazendo o Debug percebí que quando o componente chega na function TACBrBancoBrasil.MontarCodigoBarras da unit ACBRBancoBrasil.pas sempre gera
    o nossonumero como se tivesse 17 dígitos ao invés de 11 dígitos.

    Está parecendo que foi implementado somente a condição para convenio 6 dígitos, Tamanho nosso numero 17 dígitos e carteira 18.
    Não sei se é isso ou estou configurando sem algum detalhe para o componente.
     

  5. Juliana Boa Noite,

    Consegui resolver o problema.

    Não é possível dar Clear no Componente ACBrBoleto, mas, tenho que dar Clear na Lista de boletos.

    Estava passando batido.

    Quando do inicio da emissão, foi só fazer o seguinte:

    ACBrBoleto1.ListadeBoletos.Clear;

    Resolveu o problema.

    Muito obrigado pela tua atenção Juliana.

    E pode dar como resolvido o tópico.

    • Curtir 1
  6. Bom Dia Juliana,

    Infelizmente não consegui ainda.

    Na chamada do Componente estou configurando assim:

    ACBrBoleto1.Banco.TipoCobranca := cobNenhum;

    Depois antes de alimentar a Carteira, logo no início, estou fazendo o seguinte:

    with pTitulo do
         begin
            Carteira          := ''; // Limpando a carteira

     

     

  7. Oi Juliana,

    Muito obrigado pela atenção.

    Fiz o debug no código e as carteiras e TipoCobrança estão sendo setadas corretamente. 

    Pelo menos mostra no debug e também em um showmessage que fiz para tirar a dúvida.

    O ACBrBoleto não possui um comando Clear, semelhante o ACBrNfe?

     

     

  8. Estou tendo um problema semelhante ao reportado no Tópico.

    Estou utilizando o Trunk2.

    Estou gerando os boletos para Caixa Registrada(RG) e para HSBC sem Registro (CNR).

    Quando gero boleto para apenas um Banco não tenho problemas.

    Mas, quando tento gerar para um outro banco me retorna o erro de Carteira Inválida.

    Se sair do form da aplicação e retornar gera normalmente, desde que seja para apenas um Banco.

    Estou fazendo o debug e a carteira está sendo substituida via código corretamente.

    Meu código está assim:

            if pACBrBoleto.Cedente.TipoCarteira = tctSimples then
              begin
                if pACBrBoleto.Banco.TipoCobranca = cobCaixaEconomica then Carteira      :=  'SR';
                if pACBrBoleto.Banco.TipoCobranca = cobHSBC           then Carteira      :=  'CNR';
              end
            else
              begin
                if pACBrBoleto.Banco.TipoCobranca = cobCaixaEconomica then Carteira      :=  'RG';
                if pACBrBoleto.Banco.TipoCobranca = cobHSBC           then Carteira      :=  'CSB';
              end;
     

     

    erro_boletoACBR.jpg

  9. Quando utilizo o comando de alterar a impressora Padrão, via código, o Fortes continua imprimindo na Impressora que estava padrão anteriormente.

    Em seguida, quando altero manualmente a Impressora Padrão o Fortes imprime na impressora anterior.

    Sei que não é o local ideal para postar isso. (sobre o Fortes)

    Mas, como o pessoal que lidera o ACBR está empenhado em trazer mais esse beneficio (uso do Fortes) para a Comunidade  pode ser que tenha uma solução para o problema.

    Para Clientes (usuários) que usam duas impressoras estou contornando com ESCPOS. Mas, tenho alguns Clientes que utilizam mais de duas Impressoras.

     

  10. As vezes envio um Evento de cancelamento para a Sefaz e não consigo capturar o retorno.

    Para resolver faço uma Consulta e me retorna a situação do documento.

    Só que estou tentando através do retorno da Consulta ao WebService capturar o protocolo e a justificativa do Evento do Cancelamento e não estou conseguindo.

    Lembrando que não é o protocolo da Consulta, mas o do Evento Cancelamento.

     

  11. Tenho conhecimento que a NFSe não está funcional no trunk2, mas, tenho conseguido sempre compilar e instalar no Delphi normalmente.

    Ainda que não está conseguindo enviar a NFSe para alguns provedores.

    Só que nesse momento, acabei de atualizar o ACBR e o Instalador Compilou e Instalou normalmente o ACBR_NFSe, incluindo ai o Fortes Report da NFSe também.

    Não vou utilizar em produção, apenas quero ir testando e tentando ajudar na correção de erros, naquilo que meu conhecimento me permite,  pra deixarmos funcional o componente.

     

    Quanto ao Fortes Report estão todos de parabéns pela feito, lembrando que não consegui instalar pelo aplicativo frceInstall.exe.

    Tive que compilar e instalar direto no Delphi. Mas, funcionou sem problemas.

    Creio que será necessário alguém com conhecimento criar um arquivo bat parecido com o apagarAcbr.bat para fazer uma limpeza geral antes de instalar pelo frceInstall.exe.

    Aproveitei para anexar o log do FortesReport.

     

     

    log_FortesReportDelphi_XE.txt

    • Curtir 1
  12. Daniel muito obrigado pela atenção.

    O problema é que não está incluindo o link no qrcode.

    Se você fizer uma leitura na imagem está tudo correto, mas, faltando o link antes.

    No arquivo ACBrNFeServicos.ini está o link. Por isso, mesmo que estive errado teria que escrevê-lo.

    Não sei se consegui me fazer entender.

     

  13. Estou imprimindo em fase de teste no trunk2 o danfe da NFCe em EscPos (PosPrinter) perfeitamente.

    Somente está ocorrendo que quando faço a leitura não está inserido a URL da sefaz de Roraima logo no inicio.qrcodeTeste.thumb.jpg.c705e09aec5487d64d

    Não sei se estou esquecendo algum detalhe para que isso ocorra.

    Segue uma copia da imagem do qrcode.

  14. Ítalo,

    Estou a disposição no que for preciso para testar essa funcionalidade.

    Por isso, quando qualquer alteração for executada, por favor me avise, assim faço o teste e retorno.

    O pessoal da comunidade deveria ir fazendo os testes para os seus respectivos servidores para a Nfse funcionar em sua totalidade no trunk2.

    Como só uso o Saatri, não tenho como testar os demais.

    Se algum colega que utilize um outro servidor estiver disposto, fica a sugestão.

    • Curtir 1
  15. Bom dia Italo,

    Copiei o arquivo INI da ultima atualização do ACBR (hoje cedo) do provedor Saatri (é o que eu utilizo para teste) para a pasta do executável.

    Mesmo assim, persiste o erro.

    Se tiver algum teste diferenciado que eu possa executar, pode pedir que estou a disposição.

     

     

  16. Italo,

    Demorei, mas fiz o teste.

    Ainda não deu certo.

    Segue uma imagem do erro.

    Pelo visto, também te dei uma resposta errada Italo. Fiz o debug e o erro ocorreu na unit ACBrDFeCapicomDelphiSoap na procedure OnBeforePost. Havia te informado que utilizava Capicom, mas, pelo jeito é CapicomDelphiSoap.

    Para te subsidiar estou utilizando:

    Maquina Virtual VirtualBox

    windows 7 32 bits

    delphi xe

    Certificado A3.

    erroNFSe.jpg

×
×
  • 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.