Joas Vilas Boas Fernandes

Atualizou o arquivo.Ini? passe pelo mesmo problema. Resolvi atualizando o arquivo ini que subiu dia 29/06/2018

Conforme Layout do arquivo de Remessa 240 do banco Banccob, o Registro Detalhe Segmento P, posição 230-239 campo numérico 10 caracteres, "Nº do Contrato da Operação de Créd. "0000000000" não é comtemplado nas Units AcbrBoletos.pas e ACBrBancoBancoob.pas. Result := Result + PadRight(Carteira, 1) + // 58 a 58 carteira '0' + // 59 Forma de cadastramento no banco ' ' + // 60 Brancos ATipoBoleto + // 61 Identificação da emissão do boleto strCarteiraEnvio + // 62 Identificação da distribuição PadRight(NumeroDocumento, 15, ' ') + // 63 a 77 - Número que identifica o título na empresa [ Alterado conforme instruções da CSO Brasília ] {27-07-09} FormatDateTime('ddmmyyyy', Vencimento) + // 78 a 85 - Data de vencimento do título IntToStrZero( round( ValorDocumento * 100), 15) + // 86 a 100 - Valor nominal do título '00000' + // 101 a 105 - Agência cobradora. // Ficando com Zeros o Itaú definirá a agência cobradora pelo CEP do sacado ' ' + // 106 - Dígito da agência cobradora PadRight(AEspecieTitulo, 2) + // 107 a 108 - Espécie do documento ATipoAceite + // 109 - Identificação de título Aceito / Não aceito FormatDateTime('ddmmyyyy', DataDocumento) + // 110 a 117 - Data da emissão do documento PadRight(CodigoMora, 1, '0') + // 118 - Codigo Mora (juros) - 1) Por dia, 2) Taxa mensal e 3) Isento ADataMoraJuros + //119 a 126 - Data a partir da qual serão cobrados juros ValorMora + // 127 a 141 - Valor de juros de mora por dia TipoDescontoToString(TipoDesconto) + // 142 - "Código do Desconto 1 // '0' = Não Conceder desconto // '1' = Valor Fixo Até a Data Informada // '2' = Percentual Até a Data Informada" ADataDesconto + // 143 a 150 - Data limite para desconto IfThen(ValorDesconto > 0, IntToStrZero( round(ValorDesconto * 100), 15), PadLeft('', 15, '0')) + // 151 a 165 - Valor do desconto por dia IntToStrZero( round(ValorIOF * 100), 15) + // 166 a 180 - Valor do IOF a ser recolhido IntToStrZero( round(ValorAbatimento * 100), 15) + // 181 a 195 - Valor do abatimento PadRight(SeuNumero, 25, ' ') + // 196 a 220 - Identificação do título na empresa ProtestoBaixa + // 221 - Código de protesto: "1" DiasProtesto + // 222 a 223 - Prazo para protesto (em dias corridos) '0' + // 224 - Código de Baixa space(3) + // 225 A 227 - Dias para baixa '09' + // '0000000000' + // Numero contrato da operação ' ';

Conforme Layout do arquivo de Remessa 240 do banco Banccob, o Registro Detalhe Segmento P, posição 230-239 campo numérico 10 caracteres, "Nº do Contrato da Operação de Créd. "0000000000" não é comtemplado nas Units AcbrBoletos.pas e ACBrBancoBancoob.pas. AcbrBoletos.pas fNumeroContrato :String;