FiveTech Software tech support forums

... source\xbrowse.prg static function EditGetkeyDown( Self, nKey ) local lMultiGet := ::oEditGet:IsKindOf( "TMULTIGET" ) No en el nGet = AScan. Tengo una función que llamo en oBrowse:bKeyDown :={ | nKey | myfunction() }, y falla al evaluar ::oEditGet:IsKindOf( "TMULTIGET" ...

Moisés,

Modifica el código asi y pruébalo por favor:

nGet = AScan( oFld:aDialogs[ 1 ]:aControls, {| oControl | If( oControl != nil, oControl:IsKindOf( "TGET" ), .F. ) } )

I must make a easy get control with spinner ( numeric) @ 186,10 get oGet var nGet SPINNER MIN 1 MAX 99 SIZE 100, 40 OF oDlgIniziale PIXEL FONT oFont2 but when I compile it create the bar as multiline or memo get I not see the spinner https://s18.postimg.org/4amuaa7q1/ERROR_GET.jpg ...

Yo creo que Carles tiene razón. iif(nGet<>0,(              ,;                     cGet:=LEFT(cGet,len(cget)-1),;                     nGet:=val(cGet)),NIL)       ,;  La coma sobra, no separa parámetros, ...

Antonio, Podría ser por ejemplo: cIDControl := "oGet[" + chr(34) + AllTrim( Str( ++nGet ) + chr(34) +"]" y quedaría el GET en el .prg: REDEFINE GET oGet["1"] VAR etc etc y así, por ejemplo, en el código se puede manipular así: oGet["1"]:SetFocus() ...

... un PICTURE que haga automaticamente eso cuando detecta en un campo numérico que se escriba el carácter `-` Puedes probar asi @ nf, nC GET oGet VAR nGet .... ; VALID (if( oGet:VarGet() < 0, (oGet:SetColor( CLR_HRED, CLR_WHITE ),oGet:Refresh(), .T.), .T. )) Aunque si funciona, yo crearía una función ...

... un PICTURE que haga automaticamente eso cuando detecta en un campo numérico que se escriba el carácter `-` Puedes probar asi @ nf, nC GET oGet VAR nGet .... ; VALID (if( oGet:VarGet() < 0, (oGet:SetColor( CLR_HRED, CLR_WHITE ),oGet:Refresh(), .T.), .T. )) Aunque si funciona, yo crearía una función ...

Noé,

puedes utilizar la clausula WHEN de los gets para fijar un valor y asi saber en que get estas WHEN ( nGet := n, .T.)
y en función de nGet haces lo que necesitas, no se si habrá una solución mas elegante

saludos

Marcelo

... ::cUltimaOp='AP' .or. ::cUltimaOp='AE',(::cUltimaOp:='',::nResult:=0,aadd( ::aRolloCalc, {' ',' '} ),; :) oBrw:gobottom(),oBrw:refresh()),),; iif(nGet<>0,( ; cGet:=LEFT(cGet,len(cget)-1),; nGet:=val(cGet)),) ,; oGet:SetText(cGet) ,; oBtnIgual:Setfocus() ,; sysrefresh() ) UPDATE Como verás ...

... TO 0,0 pixel asi mi Dialogo de Recurso: DEFINE DIALOG oDlg RESOURCE "BCEDCBAL" OF bc:oWnd oDlg:bGotFocus = { || oWndchild:SetFocus(),oget[nget]:setfocus(),.T.} asi mi xBrowse: @ 3,2 XBROWSE Brw1 ; FIELDS "" ; ALIAS (CALIAS) ; OF oWndChild ; LINES CELL Brw1:aCols:= {} FOR i := 1 TO xCols ...

... el siguiente código intento que al introducir cada dígito de un número en un get suene una nota, pero no logro que funcione. REDEFINE GET oGet VAR nGet ID 406 OF oDlg FONT oFont1Get; PICTURE '999.99'; COLOR ClrLtrGet,ClrFonGet; ON CHANGE (self:assign(),iif(lSuenaTeclas,suenanumero(nKey),.f.)); ...

... 0 local mAct11 := 0 local mAct12 := 0 local nDontDo := 1 local nGross := 0 local nDisc := 0 local nNetSale := 0 local nGet := 0 local nWhatIsIt := 0 local oldOrder := gl->(indexord()) cursorWait() // cMovit: this var value ...

... #include "FiveWin.ch" //------------------------------------------------------------------------// function Main() local oDlg local oGet local nGet := 0 DEFINE DIALOG oDlg TITLE "Number To Word" @ 5, 5 SAY "Number:" OF oDlg PIXEL @ 5, 50 GET oGet VAR nGet OF oDlg SIZE 35, 12 PIXEL PICTURE "999999999999" ...

//-> Original by c:\FWH27\SAMPLES\LEDDISP.PRG #Include "FiveWin.Ch" Static nGet Static oBmp1, oBmp2, oBmp3, oBmp4, oBmp5 //----------------------------------------------------------------------------// Function Velocimetro() Local oDlg, oGet nGet := 0 DEFINE ...

Ricardo, La idea era ver que contiene el módulo NTXSPA.obj y ver la forma de reemplazarlo ó corregirlo: Estas son las funciones que contiene: NTXSPA size = 2628 ISALPHA ISDIGIT ISLOWER ISUPPER _NATSORTVE __ch_type __dcmp __locase __nLexId __nScanId __nascii __natrddver __ncopylc __ncopyuc __ndbcs __...