Problem with Msgget()

[MdaSolution]

I must insert on msgget a number serial

sample : -1974753522

on my application I use

MsgGet("Key Generator","Enter Serial Number: ",@nSerial)

but when I try to insert the serial number it make error because I can insert only -197475352

and I cannot insert the last "2"


WHY ?

[pablovidal]

Code: Select all

Local cSerial := space(20)

MsgGet("Key Generator","Enter Serial Number: ",@cSerial)

nSerial := ( Val( cSerial )*-1 ) // Aqui esta numero en negativo

 

[MdaSolution]

Sorry
do you use key gen of Jeff Barnes ?

I not use a text value but nserial is a number and on init is = 0
I have

if Empty(nKey)
lVisable:=.t.
nKey:=1
nSerial:=0
MsgGet("Key Generator","Enter Key: ",@nKey)
MsgGet("Key Generator","Enter Serial Number: ",@nSerial)
MsgGet("Key Generator","Number of Licenses: ",@nLicense)
endif



If I must insert the serial -1974753522

it not take the last digit ( "2")

[MdaSolution]

Code: Select all

Local cSerial := space(20)

MsgGet("Key Generator","Enter Serial Number: ",@cSerial)

nSerial := ( Val( cSerial )*-1 ) // Aqui esta numero en negativo

 

Pablo I try with your modify but the result is too different

Serial Number: 1974753522 instead of -1974753522

and then the key is another because it have a positive number

Key: 573-5292123-4377-1230

[FranciscoA]

Hola, ¿y así?...
local cSerial:=space(20), nSerial:=0

MsgGet("Key Generator","Enter Serial Number",@cSerial)
MsgInfo( nSerial:=Val(alltrim(cSerial)) )
MsgInfo(Valtype(nSerial))

Saludos.

[Jeff Barnes]

In the MakeKey() function, change nSerial to a larger number.

When the MsgGet() pops up, just delete all the 9's and enter your -1974753522.

Code: Select all

   if Empty(nKey)
      lVisable:=.t.
      nKey:=1
      nSerial:=999999999999999
      MsgGet("Key Generator","Enter Key: ",@nKey)
      MsgGet("Key Generator","Enter Serial Number: ",@nSerial)
      MsgGet("Key Generator","Number of Licenses: ",@nLicense)
   endif
 

[MdaSolution]

THANKS JEFF