FiveTech Software tech support forums

... FiveWin.ch"

FUNCTION Main()

LOCAL oDlg, oGet, oGet2, oGet3, oGet4
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL cText := " "
LOCAL nNum := 0
LOCAL dDat := Date()
LOCAL nSalario := 2032212
LOCAL nDias := 30 // Si lo cambiamos a 30 salen los asteriscos
LOCAL nTotal := 0
LOCAL ...

... END
nRow += nBmpHeight
END

RETURN NIL

FUNCTION TESTGET()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()

SET CONFIRM ON

DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

@ 1, 2 SAY "Text..:" OF oDlg

@ 1, 6 GET oGet ...

... Karinha, try this sample:


#Include "Fivewin.ch"

Function Main()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()


inicio := 0


Set Century on
Set Date To British
Set Epoch to 1960
Set Multiple On
Set Deleted On


DEFINE DIALOG oDlg ...

... the port.

Code below:


#Include "Fivewin.ch"


Function Main()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()


inicio := 0


Set Century on
Set Date To British
Set Epoch to 1960
Set Multiple On
Set Deleted On


DEFINE ...

... https. Thanks in advance!

#Include "Fivewin.ch"


Function Main()

LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()
Set Century on
Set Date To British
Set Epoch to 1960
Set Multiple On
Set Deleted On


DEFINE DIALOG oDlg TITLE ...

If nNum is declared as nil then this error is generated:

Error description: Error BASE/1122 Argument error: TRANSFORM
Args:
[ 1] = U
[ 2] = C 9999999.99

It must be a number

Dear Detlef,

Please modify FWH\samples\testget.prg this way:

@ 2, 6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99" RIGHTTOLEFT

it seems to work fine. Please try it

... Everything32.dll"
DLL FUNCTION Everything_GetNumResults() AS DWORD PASCAL LIB "Everything32.dll"
DLL FUNCTION Everything_GetResultFullPathNameW(nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL LIB "Everything32.dll"
DLL FUNCTION Everything_GetResultFullPathNameA(nNum AS _INT ...

Hi Silvio,

this is a function Gl_NumToE( nNum ) to get a italian word from a number

#include "FiveWin.ch"FUNCTION MAIN() LOCAL nNum1 := 12345.67, nNum2 := 1234567.89 MsgStop( Gl_NumToE( nNum1 ) ) MsgStop( Gl_NumToE( nNum2 ) )RETURN NIL ...

... de 500 en 500 hasta nMax, ya lo cambie en mi sistema haciendo esto oGraph:nMinVal := 500 y no lo respeta, consegui en TGraph una funcion DetMinVal(nNum) que parece es la que hace dicho calculo (Nueva funcion, para cuando TODOS los valores de la grafica sean mayores a cero (>0)), pero hice cambios y ...

... El resultado debe ser (segun el ejemplo que ponen):
-> D83FF05798D81FFC7426DE08E0C6F3C79884A6A5

Utilizando la funcion de xharbour: NumToHex( <nNum>|<pPointer>, [<nLen>]) el programa se cierra sin dar nungun mensaje
? NumToHex(0001234567890201811151310009990000101010000000100005)

Del internet ...

new libs for test ( copy old libs ) . Changes for numeric gets . ( in test )
m

use :

local nNum := 0 // nNum -> valtype numeric
@ 40, 90 GET oGet1 VAR nNum OF oDlg PICTURE "9999.99" TOOLTIP "a string with cross" SIZE 250, 25

Not use pictures "999,999.99" only digit and decimals expresion.

... nPos
AtToken(<cString>,[<cDelimiter>],[<nCount>])->nPos
BeforAtNum(<cSearch>,<cString>,[<nCount>],[<nSkipChars>])->cResult
Bin2I(<cSignedInt>)->nNumber
Bin2L(<cSignedInt>)->nNumber
Bin2W(<cUnsignedInt>)->nNumber
BitToC(<nInteger>,<cBitPattern>,[<lSpaces>])->cResult
Blank(<xValue>,[<lSpaces ...

... Function MainGoogle(oWnd)
local oDlg, aGet[4], aBtn[2], oActiveX
local cCity := space(100)
local cCountry := "CL"
local cStreet := space(100)
local nNum := 0

If !IsInternet()
MsgInfo("Ud. no posee Conección Activa a <INTERNET>, !!! Favor Verificar ¡¡¡ ")
Return Nil
Endif

Define Dialog oDlg Resource ...

Is it possible to pass a parameter to the popup menu which is changed dynamically during the run time.
See the example below. Changing the value of nNum has no effect.
Best regards,

#include "FiveWin.ch"#include "Ribbon.ch"function Main&#40;&#41;local oDlg, oBtn, nNum:=10 DEFINE DIALOG oDlg FROM 5 ...