Denise Lima

Estou aguardando a resposta ainda, assim que tiver, publico aqui.

Boa tarde, Fiz as alterações necessárias para utilizar uma variável para este dígito do nosso número Sicredi que pode ser alterado conforme necessário. Sou nova no fórum, não tenho certeza se utilizei certo o padrão de código de vocês, mas coloquei em anexo as units alteradas para atualizar no svn. Att, Denise. ACBrBancoSicredi.pas ACBrBoleto.pas

Boa tarde, O campo nosso número Sicredi tem um padrão próprio, possui o prefixo "14/2" (ano/2) e apenas 5 dígitos podem ser utilizados para identificação sequencial dos títulos, na unit ACBrBancoSicredi ao montar este campo na função MontarCampoNossoNumero o "2" após a "/" é uma constante. Lendo o manual e tirando algumas dúvidas com o suporte à programadores do Sicredi obtive a informação de que no caso de estourar o sequencial de 5 dígitos, é o que ocorre com um dos clientes da empresa em que trabalho, é possível alterar este dígito 3º dígito do campo, alterar "14/2" para "14/4" por exemplo. Estive estudando as units e estou precisando de uma orientação.. Qual seria o melhor método para utilizar este 3º dígito como uma variável ao montar o campo nosso número? Eu pensei em criar uma variável que possa ser enviada para o ACBrBoleto junto com as informações referentes ao banco, mas esta variável seria usada somente para o banco Sicredi. Se alguém puder me ajudar com alguma sugestão, agradeço. Att.: Denise

Certo Agnaldo, estou ciente desta verificação, porém para esta funcione, eu preciso que o componente da ACBr esteja lendo o Vencimento corretamente. Acredito que seja útil disponibilizar esta alteração no svn. Att., Denise Lima

Boa tarde, Estou a implementar a leitura de arquivos retorno com o uso da ACbrBoleto, acredito que possa haver um equivoco no seguinte comando da leitura de arquivos retorno do Banrisul: if (StrToIntDef(Copy(Linha,247,6),0) <> 0) then Vencimento := StringToDateTimeDef( Copy(Linha,247,2)+'/'+ Copy(Linha,249,2)+'/'+ Copy(Linha,251,2),0, 'DD/MM/YY' ); A data de vencimento retorna sempre em branco; Revendo o manual do banco e ao ajustar para: if (StrToIntDef(Copy(Linha,147,6),0) <> 0) then Vencimento := StringToDateTimeDef( Copy(Linha,147,2)+'/'+ Copy(Linha,149,2)+'/'+ Copy(Linha,151,2),0, 'DD/MM/YY' ); A leitura da data fica correta. Podem por gentileza avaliar esta alteração? Estou enviando em anexo a unit modificada. Att., Denise Lima ACBrBancoBanrisul.pas