Olá Pessoal,
Pode também simplesmente usar
StrZero( Random(), 8 ), e salvar esse número num campo, ou salvar a chave da nota num campo.
rubens escreveu:Daà acrescento '1' + strzero( val(cCodigo),7 )
e pronto resolvido... não vai ser sequencial e não vai repetir o número da nota...
Sim, mas você nunca poderá gerar a nota de números:
1111111 e
8765432.
Usando seu critério, a nota
1111111 será
11111111, e dará rejeição, e a nota
8765432 será
12345678, que também dará rejeição, pois são códigos não permitidos conforme consta na NT.
O mais importante ainda, é que qualquer nota com número superior a 7 dÃgitos seu sistema não vai gerar, pois a função StrZero() retornará 7 asteriscos, causando erro também.
Editado:A NT não diz nada por enquanto sobre número em sequência. Então se hoje usar número nota + X tudo bem. Mas não aconselho, acho que é uma questão de tempo isso ser alterado para impedir, já que o objetivo da NT é impedir códigos de fácil percepção.