Pessoal, no CNAB400 também tá canseira, tendo que fazer gambiarra toda vez que atualizo, a minha remessa só vai desta forma abaixo:
{Pegando Tipo de Carteira}
case ACBrBoleto.Cedente.CaracTitulo of
tcSimples : TipoCarteira := ' ';
tcDescontada: TipoCarteira := '04DSC';
tcVinculada : TipoCarteira := '02VIN';
else TipoCarteira := ' ';
end;
wLinha:= wLinha +
TipoCarteira + // Tipo de cobrança
Carteira + // Carteira
ATipoOcorrencia + // Ocorrência "Comando"
padL( NumeroDocumento, 10, ' ') + // Seu Numero - Nr. titulo dado pelo cedente
FormatDateTime( 'ddmmyy', Vencimento ) + // Data de vencimento
IntToStrZero( Round( ValorDocumento * 100 ), 13) + // Valor do titulo
'001' + '0000' + ' ' + // Numero do Banco - 001 + Prefixo da agencia cobradora + DV-pref. agencia cobradora
padR(ATipoEspecieDoc, 2, '0') + ATipoAceite + // Especie de titulo + Aceite
FormatDateTime( 'ddmmyy', DataDocumento ) + // Data de Emissão
AInstrucao + // 1ª e 2ª instrução codificada
IntToStrZero( round(ValorMoraJuros * 100 ), 13) + // Juros de mora por dia
aDataDesconto + // Data limite para concessao de desconto
IntToStrZero( round( ValorDesconto * 100), 13) + // Valor do desconto
IntToStrZero( round( ValorIOF * 100 ), 13) + // Valor do IOF
IntToStrZero( round( ValorAbatimento * 100 ), 13) + // Valor do abatimento permitido
ATipoSacado + padR(OnlyNumber(Sacado.CNPJCPF),14,'0') + // Tipo de inscricao do sacado + CNPJ ou CPF do sacado
padL( Sacado.NomeSacado, 37) + ' ' + // Nome do sacado + Brancos
padL(trim(Sacado.Logradouro) + ', ' +
trim(Sacado.Numero) + ' '+ trim(Sacado.Bairro),
52) + // Endereço do sacado
padR( OnlyNumber(Sacado.CEP), 8 ) + // CEP do endereço do sacado
padL( trim(Sacado.Cidade), 15) + // Cidade do sacado
padL( Sacado.UF, 2 ) + // UF da cidade do sacado
padL( AMensagem, 40) + // Observações
DiasProtesto + ' ' + // Número de dias para protesto + Branco
IntToStrZero( aRemessa.Count + 1{NumRegT}, 6 );
Do jeito que está hoje nos fontes não vai nem a bala quando uso o Tipo da Carteira = Descontada.
Com quem eu vejo pra checar esta alteração?
Abraços.