Boa Tarde, Tudo Bem !
Estou tendo um problema na hora de registrar o NossoNumero no arquivo Remessa (Banco do Brasil). Eu preciso passar para o arquivo apenas Zeros, no caso ficaria assim '00000000000000000000' o NossoNumero.
PadRight(ANossoNumero+aDV, 20, ' ') + // 38 a 57 - Nosso número - identificação do título no banco
-> Linha do código aonde registra a informação no arquivo (ACBrBancoBrasil).
Mesmo eu passando a tag NossoNumero = ' ', existe uma função que passa o numero do convenio para o NossoNumero .
Função -> TACBrBancoBrasil.FormataNossoNumero.
if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and
(Length(AConvenio) = 6) and (wTamNossoNum = 17) then
ANossoNumero := PadLeft(ANossoNumero, 17, '0')
else if Length(AConvenio) <= 4 then
ANossoNumero := PadLeft(AConvenio, 4, '0') + PadLeft(ANossoNumero, 7, '0')
else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then
ANossoNumero := PadLeft(AConvenio, 6, '0') + PadLeft(ANossoNumero, 5, '0')
else if (Length(AConvenio) = 7) then
ANossoNumero := PadLeft(AConvenio, 7, '0') + RightStr(ANossoNumero, 10);
Nesse caso como eu poderia proceder, é possível passar em banco ou apenas zeros ?
Muito obrigado !
Atenciosamente um Desenvolvedor em desenvolvimento !.