Ir para conteúdo
  • Cadastre-se

DouglasGV

Membros
  • Total de ítens

    164
  • Registro em

  • Última visita

Posts postados por DouglasGV

  1. Olá pessoal, tudo bem?

    Cliente utiliza a geração de boletos e é CPF, aí precisei ajustar a importação para ele, segue o ajuste, acredito que possa servir para outras pessoas.

    Alterei a unit ACBrBancoCecred, na importação de LerRetorno240 para o banco Viacredi e implementei a variável: rTipoInscricao;

       rTipoInscricao := trim(copy(ARetorno[0], 18, 1));

       if rTipoInscricao = '2' then
          rCNPJCPF := OnlyNumber( copy(ARetorno[0], 19, 14) )
       else
          rCNPJCPF := OnlyNumber( copy(ARetorno[0], 22, 11) );

    ACBrBancoCecred.pas

    • Curtir 1
  2. Bom dia, tudo bem?

    Depois que atualizei os fontes hoje pela manhã, ao imprimir a DANFE a margem se alterou.

    Como podem ver, ficou colada no lado esquerdo.

    Sempre usei a configuração abaixo e nunca tive problema, foi atualiza essa configuração?

    Desde já agradeço a atenção.

    image.thumb.png.548080d9beabe141b5a9af3f0cfaa497.png

    image.thumb.png.20268bdeaac842c2ab446de931399be9.png

  3. Olá, tudo bem pessoal?

    Estou com a seguinte dúvida: ao emitir um MDFe em contingência, eu salvo a chave de acesso, porém ao enviar com o status normal, é gerada uma nova chave, minha dúvida se baseia nisso.

    Manter a mesma chave ou vai alterar mesmo?

    Desde já agradeço a atenção.

    • Obrigado 1
  4. Em 29/10/2019 at 09:22, DouglasGV disse:

    Olá pessoal!

    Estou com o mesmo problema aqui, peguei essa unit, irei testar.

    Informarei se o banco aprovou.

    Desde já agradeço.

    Boa tarde!

    Só passando para agradecer, e indicar que com essa unit funcionou, homologou remessa e boleto no layout CNAB 400.

    Agradeço  novamente o auxílio de todos.

    • Curtir 1
  5. 27 minutos atrás, cefantacini disse:

    Tenho uma rotina de envio de e-mail da NFe que já está exaustivamente testada em muitos clientes.

    Tem um cliente meu que usa essa rotina. Esse cliente comprou um computador novo. Transferi o programa para a máquina nova e na máquina nova, passou a apresentar o erro ao enviar a nota por e-mail:

    SMTP Error: Unable to Login.

    A máquina não tem anti virus, já desabilitei o firewall, já atualizei as Dlls OpenSSL para a versão: 1.0.2.13 e o problema permanece.

    - Com relação às DLL devo usar as de 32bits, mesmo o win sendo de 64, pq meu sistema foi compilado no Delphi de 32, correto?

    - Gostaria da opinião do grupo sobre alguma forma de resolver o problema, uma vez que já está certo de que o problema é na máquina, pois a mesma conta de e-mail de origem é usada em várias outras máquinas, inclusive em outra máquina da rede desse mesmo cliente e envia normalmente.

     

    Boa tarde!

    Quando ocorre isso em clientes, normalmente é a senha inválida ou não foi liberado aplicativos menos seguros, na configuração do e-mail.

    • Curtir 2
  6. Em ‎10‎/‎05‎/‎2019 at 19:51, JonasBollis disse:

    Douglas, segue código, sofri alguns dias aqui fazendo funcionar, graças a grande documentação fornecida pelo estado.

    o problema que você deve estar passando é que o requestbody não pode ser um TStringStream, mudei para TStream e começou aceitar, também deixa as configurações como está abaixo, se tiver alguma coisa diferente vai voltar ao erro que esta aparecendo ai,

    coloca o componente no formulário (idhttp), não coloca nenhuma propriedade e apenas seta como no código abaixo, suave amigo, abraço.

     

    
    var:
    	RequestBody: TStream;
        lResponse : TStringStream;
    	ZipEncode : String;
    begin
    
    ....
    	// Codifica o zip:
    	ZipEncode := '"' + EncodeFile(NomeZIP) + '"';
    
    	// deixa o idhttp dessa forma:
        lResponse := TStringStream.Create();
        RequestBody := TStringStream.Create(ZipEncode, TEncoding.UTF8);
        try
        	idHttp1.Request.ContentType := 'application/json';
            IdHTTP1.Request.CustomHeaders.Clear;
            IdHttp1.Request.CustomHeaders.AddValue('Accept', 'application/json');
            IdHttp1.Request.CustomHeaders.AddValue('Host', 'https://tributario.sef.sc.gov.br');
            IdHttp1.Request.CustomHeaders.AddValue('Cache-Control', 'no-cache');
            IdHttp1.Request.CustomHeaders.AddValue('Content-Type', 'application/json');
            idHttp1.Post('https://tributario.sef.sc.gov.br/api/drcSt/arquivo/ValidarEstrutura', RequestBody, lResponse);
    
    
            lResponse.Position := 0;
    
            // Trata o retorno em um richedit:
            reResp.Lines.LoadFromStream(lResponse);
    
          finally
            lResponse.Free();
          end;

     

    @JonasBollis Obrigado!

    Consegui resolver o problema, era apenas as  aspas duplas no inicio e no fim depois de convertido em base64.

    Descobri pela postagem abaixo.

    Agradeço a informação!

     

     

    • Curtir 2
  7. Olá pessoal, tudo bem com vocês?

    Pessoal de SC, estão conseguindo enviar o arquivo DRCST compactado e em base64, para o WebService validar a estrutura e dar o retorno?

    Estou a 2 semanas tentando e nada, se alguém está conseguindo, consegue me ajudar?

    Tentei enviar o exemplo que está no arquivo da SEF e mesmo assim retorna a mesma mensagem:

     

      "ResultCode": "Error",
      "Data": null,
      "Messages": [
        {
          "Message": "Conteúdo binário do arquivo ZIP é nulo.",
          "Type": "Error"
        }
      ]
    }
     

    Ferramenta de desenvolvimento, Delphi 10.3.1.

    Desde já agradeço.

    • Curtir 1
  8. Olá pessoal!

    Estou ajustando na minha aplicação a importação de retorno para o BB CNAB 240, com emitente pessoa física.

    Neste parte de validação do ACBrBoleto, sempre cai no expection abaixo, visto que no ACBrBancoBrasil  ele pega: rCNPJCPF        := OnlyNumber((copy(ARetorno[0], 19, 14))); 14 caracteres e o CPF é 11, fiz essa alteração gostaria de saber se é válida.

    Posição 18, TipoInscrição 1 CPF ou 2 CNPJ;

       if copy(ARetorno[0], 18, 1) = '1' then
          rCNPJCPF        := OnlyNumber((copy(ARetorno[0], 22, 11)))
       else
          rCNPJCPF        := OnlyNumber((copy(ARetorno[0], 19, 14)));

    Onde cai se não tiver o tratamento acima, o CPF fica como ex: 00051544830068 e o Cedente.CNPJCPF = 51544830068 /// devido a formatação.

          if NaoEstaVazio(ACNPJCPF) then
            if (not LeCedenteRetorno) and (ACNPJCPF <> OnlyNumber(Cedente.CNPJCPF)) then
              raise Exception.CreateFmt(ACBrStr('CNPJ\CPF: %s do arquivo não corresponde aos dados do Cedente!'), [ACNPJCPF]); 

    Desde já agradeço a atenção.

    ACBrBancoBrasil.pas

    • Curtir 2
    • Obrigado 1
  9. 6 horas atrás, DouglasGV disse:

    Opa bom dia!

     Daniel já alterei aqui e liberei o exe no cliente para ser testado, fiz algumas operações de venda e não surgiu a mensagem, pedi ao cliente me informar caso surgir a mensagem.  Retornarei para informar o feedback.

    Desde já, agradeço muito a ajuda.

    Boa tarde!

    Cliente me passou que não ocorreu mais a rejeição, estou anexando o log, voltando a ocorrer informo.

    Volto a agradecer a sua ajuda.

     

    acbrlog pós alteração unit.rar

    • Curtir 1
  10. 9 horas atrás, Daniel Simoes disse:

    Por favor teste com a Unit em anexo... ela irá tentar o mesmo comando, até 5 Falhas sinalizadas com o erro 140...

     

    ACBrECFEscECF.pas 140 kB · 0 downloads

    Opa bom dia!

     Daniel já alterei aqui e liberei o exe no cliente para ser testado, fiz algumas operações de venda e não surgiu a mensagem, pedi ao cliente me informar caso surgir a mensagem.  Retornarei para informar o feedback.

    Desde já, agradeço muito a ajuda.

    • Curtir 1
  11. Olá pessoal!

    Estou com um caso de ECF Daruma FS800I 

    Após imprimir um relatório gerencial (no caso aqui seria a confissão de dívida). 

    Não é toda venda que ocorre, esporadicamente, o cliente adquiriu a ECF a 8 dias e todos ocorreram. (Nossa aplicação atende a esta impressora em muitos clientes e não temos o problema).

    Entrei em contato com o suporte da Daruma, fiz vários testes com o aplicativo deles e não ocorreu.

    Alguma luz do que pode ser?

    Já atualizei as DLLs.

    Desde já agradeço.

    Anexo o log do momento do erro também.

    Ocorre a seguinte rejeição: 
    Erro retornado pela Impressora: DARUMA AUTOMAÇÃO

    Categoria: 16-Erro específico do Fabricante
    Motivo: 140-Relógio está travado

    acbrlog erro.txt

  12. Olá pessoal!

    Estava tentando importar um arquivo retorno CNAB 400 do banco SICREDI, porém ocorria o retorno de erro: [2] 'A6' is not a valid integer value.

    Analisei o arquivo de remessa e o arquivo ACBrBancoSicredi.pas.

    No retorno a posição 109 a 110 se encontrava como 03, entrada rejeitada. E a posição 319 A6.

    Na unit a parte referente ao código do registro recusado: toRetornoRegistroRecusado: //03, não tem o código A6, implementei este código e funcionou.

    Gostaria de saber se é o correto a ser feito?

    Desde já agradeço e anexo também a unit com a alteração.

     

     

    11111111.png

    ACBrBancoSicredi.pas

    • Curtir 2
    • Obrigado 1
  13. 12 minutos atrás, Juliana Tamizou disse:

    Boa tarde.

    Ao validar seus fontes notei muitas diferenças, por favor atualize seus fontes e aplique suas alterações novamente.

    Att.

    Boa tarde, ok, irei atualizar e refazer os ajustes.

    • Curtir 1
  14. 17 minutos atrás, Juliana Tamizou disse:

    Bom dia.

    Foi disponibilizado um novo manual pelo banco?

    Att.

     

    17 minutos atrás, Juliana Tamizou disse:

    Bom dia.

    Foi disponibilizado um novo manual pelo banco?

    Att.

    Bom dia!

    Existe a versão mais atualizada, versão 077, porém eles aceitaram na versão 075, apenas ajustei nela.

    Em anexo, tem o manual que eles disponibilizaram desta versão mais atual.

    BRB Cobrança - Manual e Leiaute - Julho2018 (1).rar

    • Curtir 1
  15. Olá pessoal!
    Fiz algumas mudanças nas units 'ACBrBancoBRB' e 'ACBrBoleto', referente ao banco BRB com o layout 75.
    Criei as propriedades:
    property Documento            : String   read fDocumento             write fDocumento; para a posição 123 a 135; PadLeft(Documento, 13, '0')  
    property DiasJuros            : String   read fDiasJuros             write fDiasJuros; para a posição 225 a 225; PadLeft(DiasJuros, 2, '0') 
    property ValorJuro            : String   read fValorJuro             write fValorJuro;  para a posição 226 a 237; PadLeft(OnlyNumber(ValorJuro), 12, '0') 
    Na posição 284 a 285:
     PadLeft(OnlyNumber(FloatToStr(PercentualMulta *100)),5,'0') taxa referente a uma das instruções, como solicitado pelo banco,
    por exemplo se for 2% preencher 00200.

    Com essas alterações consegui homologar.
    Gostaria de saber, se é o correto a ser feito? E também se for útil para alguém.
    Desde já agradeço.

    ACBrBoleto.pas

    ACBrBancoBRB.pas

    • Curtir 3
  16. 2 horas atrás, Daniel Simoes disse:

    Apenas atualizar seus fontes... já foi corrigido no SVN 

    Ok, muito obrigado, irei atualizar e testar, qualquer novidade aviso a todos.

    2 horas atrás, Daniel Simoes disse:

    Apenas atualizar seus fontes... já foi corrigido no SVN 

    Ok, muito obrigado, irei atualizar, qualquer novidade informo a todos.

    • Curtir 1
  17. Em 21/12/2018 at 19:50, Sérgio Assunção disse:

    @DouglasGV me lembrei do seu problema.

    Veja o tópico abaixo, não sei se você já obteve a solução, mas se puder nos dar um parecer.
     

     

     

    Olá bom dia!

    Ainda não consegui ajustar, continua o problema, pelo que vi o tópico é referente a ACBRMonitor.

    Tem alguma atualização para o ACBRSAT?

    Qualquer ajuda será bem vinda, e agradeço a atenção de sempre!

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