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
-
modFrete Descrição abreviada trazendo problemas aos clientes nas barreiras de fiscalização
um tópico no fórum postou clausqueller ACBrNFe
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
clausqueller replied to clausqueller's tópico in ACBrBoleto
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;
-
Erro na Geracao Linha Digitavel - BRADESCO
clausqueller replied to clausqueller's tópico in ACBrBoleto
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