Painel de líderes

Boa tarde. Devido ao fato de diversos bancos trabalharem de forma separada a cobrança da multa e da mora diária, foi criada no titulo a propriedade DataMulta e alterada a rotina AdicionarMensagensPadroes() para utilizar a mesma ao invés da DataJurosMora na decisão da impressão da mensagem referente a cobrança da Multa a partir de uma determinada ou após o vencimento. *** Implementação Anterior *** if PercentualMulta <> 0 then begin if DataMoraJuros <> 0 then AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' a partir '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros, IncDay(DataMoraJuros,1),DataMoraJuros)))) else AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' após o vencimento.')); end; *** Nova Implementação *** if PercentualMulta <> 0 then begin if DataMulta <> 0 then AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' a partir '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMulta, IncDay(DataMulta,1),DataMulta)))) else AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00', IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) + ' após o vencimento.')); end; Com esta mudança se faz necessário passar ao componente além da propriedade DataMoraJuros (responsável pela mensagem da Mora), também a propriedade DataMulta, afim de que a mesma seja considerada na impressão das mensagens do boleto. Att.

Boa noite, Alterei o método TACBrBoleto.ChecarDadosObrigatorios para informar qual campo não foi preenchido, unit em anexo caso queiram subir para o SVN. At.te ACBrBoleto.pas

No Lazarus, faça um rebuild, pois como alguns arquivos foram mudados de pacote o Lazarus fica "perdido".

Costa, Ao configurar o componente no que diz respeito ao PathSchemas esta apontando para a pasta: ...\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Pronim ?

Boa tarde Costa, Qual é a cidade? As URLs de homologação e de produção não são informadas nas propriedades de configuração do componente e sim em um arquivo INI referente ao provedor que atende a cidade em questão.

Bom dia esse erro so esta acontecendo na revisao 14.363 voltei pra 14362 e instalou com sucesso. agora se eu atualizo pra 14363 que e a ultima da o erro.

Pessoal, consegui resolver! Mudei para executar o método de envio sincrono e a nota foi recebida sem problemas. Muito obrigada!

Veja os métodos ACBrBoleto1.Banco.MontarCodigoBarras e ACBrBoleto1.Banco.MontarLinhaDigitavel.

Boa tarde, Minha dúvida é em relação a alimentação do campo codigoCedente. Pelo que entendi, alguns bancos devo informar o DV desse dado. Já em outros, não posso informar. Vejamos dois casos/exemplos: 1 - Banco Bancoob function TACBrBancoob.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; var CodigoCedente: String; begin CodigoCedente := ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente; Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia + '/'+ copy(CodigoCedente,1,length(CodigoCedente)-1)+ '-'+ copy(CodigoCedente,length(CodigoCedente),1); end; 2 - Caixa Econômica function TACBrCaixaEconomica.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := RightStr(ACBrTitulo.ACBrBoleto.Cedente.Agencia,4)+ '/' + ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente+ '-' + CalcularDVCedente(ACBrTitulo); end; Para o Bancoob (exemplo 1) o Acbr considera o DV como sendo o último caractere do codigoCedente informado, ou seja, na alimentação desse campo devo obrigatoriamente concatenar código cedente + DV. Já no exemplo 2 (CEF), o acbr calcula acrescenta o DV ao código do cedente, ou seja, devo informar apenas o código cedente, sem DV. A dúvida é: como posso saber qual banco devo e qual banco NÃO devo alimentar o DV do código do cedente? Obrigado.

Bom dia Régys, Você já pensou que maravilha se todas as cidades fizessem um convenio com a SEFAZ para aceitar a NF-e ou NFC-e somente com serviços? Iria acabar com essa zorra que é a NFS-e.