[modFrete Descrição abreviada trazendo problemas aos clientes nas barreiras de fiscalização]

Arquivo complementar alterado o tamanho do campo para comportar o texto editado

ACBrNFeDANFEFRDM.pas

Segue a DANFE editada.

DANFeRetrato.fr3

[modFrete Descrição abreviada trazendo problemas aos clientes nas barreiras de fiscalização]

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

[Banco Santander Segmento P Remessa linha 61]

Em anexo unit com correção

ACBrBancoSantander.pas

[Banco Santander Segmento P Remessa linha 61]

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;

[Erro na Geracao Linha Digitavel - BRADESCO]

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

[Erro na Geracao Linha Digitavel - BRADESCO]

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