clausqueller

Arquivo complementar alterado o tamanho do campo para comportar o texto editado ACBrNFeDANFEFRDM.pas Segue a DANFE editada. DANFeRetrato.fr3

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

Em anexo unit com correção ACBrBancoSantander.pas

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;

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

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