edson.hexa

Bom dia a todos, postei um topico sobre o assunto a alguns dias, e hoje recebi o ok do banco os boletos e o arquivo remessa foram homologados, a mudança que fiz foi a seguinte, na função montacodigodebarras CampoLivre := Modalidade + { 1-Com registro ou 3-Sem registro. Por enquanto vou deixar 1 mais tenho que tratar menhor essa informação } '1' + { 1-Carteira simples } //padR(ACBrTitulo.NossoNumero,8,'0') + { Nosso número } // Comentei aqui padR(FormatDateTime('yy',ACBrTitulo.DataDocumento) + //Adicionei essa linhas ACBrTitulo.CodigoGeracao + RightStr(ACBrTitulo.NossoNumero,5),8,'0') + //Adicionei essa linhas CalcularDigitoVerificador(ACBrTitulo) + { Dígito verificador do nosso número } padR(OnlyNumber(Cedente.Agencia),4,'0') + { Código agência (cooperativa) } padR(Cedente.AgenciaDigito,2,'0') + { Dígito da agência (posto da cooperativa) } padR(OnlyNumber(Cedente.CodigoCedente),5,'0') + { Código cedente } // Ver manual página 86 - CNAB240 ou 51 - CNAB400 '1' + { Filler - zero. Obs: Será 1 quando o valor do documento for diferente se zero } '0'; { Filler - zero } como disse o nosso amigo o ano tem que vir na montagem do nosso numero. Att.. Edson Francisco