[resolvido] Sistema Avelino de liberação

Moderador: Avelino Sampaio

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

[resolvido] Sistema Avelino de liberação

Mensagempor PauloMaia » 04 Mai 2017, 20:26

A função fncValidadeCom esta gerando um numero de 12 digitos certo !

-------------

POREM a função fncValidade só gera um numero de 6 digitos - que o gerador de registros não aceita !

Veja ;

01.png
01.png (33.72 KiB) Visto 544 vezes


02.png
02.png (32.97 KiB) Visto 544 vezes



Preciso alterar alguma coisa no cod. ?

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Sistema Avelino de liberação

Mensagempor PauloMaia » 10 Mai 2017, 07:19

.
Veja , baixei o Aplicativo de teste do Monta Ribbons e esta tudo certo, o form. de registro me fornece uma chave de 8 dgt. , somente o Celula mesmo na função fncValidade , que não esta fornecendo a chave certo.

MontaRibbons.png
Monta Ribbons v7.0
MontaRibbons.png (33.21 KiB) Visto 493 vezes

.......
Att.
Paulo Maia

Avatar do usuário
Avelino Sampaio
Mensagens: 1992
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Sistema Avelino de liberação

Mensagempor Avelino Sampaio » 10 Mai 2017, 11:52

Paulo,

no exemplo deste meu artigo tem o gerador de chave:

http://www.usandoaccess.com.br/Dicas/sistema-shareware-por-limitacao-de-registros.asp?id=1#inicio

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Sistema Avelino de liberação

Mensagempor PauloMaia » 11 Mai 2017, 13:54

.
Avelino, bom dia
Quando disse que não gera chave de 8 dígitos, eu me refiro ao frmRegistro - não ao gerador de registros.
Baixei o ex. que me recomendou, porem esse também não aceita chave de 6 dígitos.


Baixar Gerador.png
Gerador recomendado para baixar !
Baixar Gerador.png (206.64 KiB) Visto 488 vezes

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Sistema Avelino de liberação

Mensagempor PauloMaia » 11 Mai 2017, 13:57

.
Veja nas imagens do que me refiro !


frmRegistro - Fornecendo chave de 6 digitos.......

Celula 6 dig  -   frmRegistro.png
frmRegistro - Fornecendo chave de 6 digitos.......
Celula 6 dig - frmRegistro.png (227.57 KiB) Visto 488 vezes




linha analizada

teste1.png
linha analizada
teste1.png (113.31 KiB) Visto 488 vezes




Resultado Id - Recebendo 6 digitos em vez de 8 digitos.......

teste2.png
Resultado Id - Recebendo 6 digitos em vez de 8 digitos.......
teste2.png (184.15 KiB) Visto 488 vezes




.
Última edição por PauloMaia em 11 Mai 2017, 14:35, editado 1 vez no total.

.......
Att.
Paulo Maia

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Sistema Avelino de liberação

Mensagempor PauloMaia » 11 Mai 2017, 14:17

.
A função fncValidade só gera um numero de 6 digitos - que o gerador de registros não aceita !

( frmRegistro )


.

.......
Att.
Paulo Maia

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Sistema Avelino de liberação

Mensagempor PauloMaia » 18 Mai 2017, 02:52

.
A chave fornecida pelo frmRegistro na função fncValidade esta incorreta (faltando os 2 últimos dígitos "números" )

184404 ? ?

Note que só esta sendo fornecido 06 dígitos. Quando deveria fornecer uma chave de 08 dígitos.

.

.......
Att.
Paulo Maia

Avatar do usuário
Avelino Sampaio
Mensagens: 1992
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Sistema Avelino de liberação

Mensagempor Avelino Sampaio » 18 Mai 2017, 10:54

Paulo,

acrescente a parte em vermelho na função e teste:

Código:
...
id = left(abs(id) , 8) 'valor absoluto
id = val(id & string(8 - len(id) , "5"))
if digitos = 8 then
...


A ideia é que chave seja completada com o número 5, até os 8 digitos, ficando assim:

18440455

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
PauloMaia
Mensagens: 40
Registrado em: 17 Abr 2017, 21:22
Contato:

Re: Sistema Avelino de liberação

Mensagempor PauloMaia » 18 Mai 2017, 15:22

OK, Avelino

Deu certo................. 18440455


Resolvido !


--------------------------------
Minhas Considerações e Agradecimentos à

Avelino Sampaio

.......
Att.
Paulo Maia

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Bing [Bot] e 1 visitante