Ir para conteúdo
  • Cadastre-se

clausqueller

Membros
  • Total de ítens

    6
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

clausqueller's Achievements

Rookie

Rookie (2/14)

  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputação

  1. Arquivo complementar alterado o tamanho do campo para comportar o texto editado ACBrNFeDANFEFRDM.pas Segue a DANFE editada. DANFeRetrato.fr3
  2. Bom dia, ultimamente os fiscais da SEFAZ da região norte e nordeste estão apreendendo as cargas por causa da nomenclatura da modalidade de carga, dessa forma fiz a alteração na unit em anexo pcnConversaoNFe.pas
  3. Em anexo unit com correção ACBrBancoSantander.pas
  4. De acordo com o novo manual, essa linha deve ser de uso do banco. 061 –061 Reservado (uso Banco) A 001 Brancos Unit: AcbrbancoSantander Linha Atual: 514 IfThen( ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite ,'1','2' ) + // 061 - 061 / Quem emite boleto 1 = Banco / 2 = Cliente Linha Correção: Space(1) + //061 –061 Reservado (uso Banco) A 001 Brancos Essa seria a correção;
  5. Segue em anexo arquivo com correcoes do banco Bradesco, de acordo com o layout do dia 19.09.2011. Mudancas na geracao de remessa e na leitura de retorno. Atenciosamente, Clausqueller Mitome ACBrBancoBradesco.pas
  6. Bom dia, Segue correção formação da linha digitavel do banco Bradesco. function TACBrBancoBradesco.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String; var CodigoBarras, FatorVencimento, DigitoCodBarras:String; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); CodigoBarras := IntToStr( Numero )+ '9'+ FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + padR(Cedente.Agencia,4,'0') + ACBrTitulo.Carteira + ACBrTitulo.NossoNumero + //Linha corrigida para geracao correta do codigo de barra. padR(copy(Cedente.Conta, Length(Cedente.Conta) - 6, Length(Cedente.Conta)),7,'0') + '0'; DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result:= IntToStr(Numero) + '9' + DigitoCodBarras + Copy(CodigoBarras,5,39); end; Por favor acrescentar ao fonte do ACBR. Atenciosamente, Clausqueller Mitome
×
×
  • 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...