[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


02.png



Preciso alterar alguma coisa no cod. ?
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

.......
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
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

.......
Att.
Paulo Maia

Avatar do usuário
Avelino Sampaio
Mensagens: 2095
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
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

.......
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




linha analizada

teste1.png




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

teste2.png




.
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Ú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: 2095
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: Nenhum usuário registrado e 1 visitante