FiveTech Software tech support forums

Saludos, podrias defnir las VAR en donde defines el DLG y el folder o ponerlas como STATIC, yo creo un array por decir de nombre aVar[n] y aGet[n], y con esa las uso en todas las pestañas, y cuando hago en aGet[n]:REFRESH(), se actualizan todas las aVar[n] de las pestañas. no se si ese ...

... Perhaps I found a function It browse me all variables but I cannot show the values I saw all the variables init form CFG_ Function test() local aVar:= {} nMemHandle := Fopen( 'config.mem', 2 ) nMemLength := Fseek( nMemHandle, 0, 2) Fseek(nMemHandle,0) nCount := 1 Do While Fseek(nMemHandle, 0, ...

for n := 1 to 20 @ n * 20, 50 GET aVar[ n ] OF oWnd <clauses> next n After this loop the present value of " n " is 21. When the dialog is activated and controls are to be shown, the value of "n" is 21 and naturally ...

... controls in a loop from array is very tricky. It does not work as expected. Let me show why: Wrong code: for n := 1 to 20 @ n * 20, 50 GET aVar[ n ] OF oWnd <clauses> next n After this loop the present value of " n " is 21. When the dialog is activated and controls are to ...

I have a dbf file with values (as characters) which is auto-updated every ten minutes. The update changes values and needs to be refreshed/overwritten on the screen. A timer updates this screen with new values. I save the values as text in the dbf and update the array and refresh the array as SETTEX...

I have a dbf file with values (as character) which is auto-updated every ten minutes. The update changes values and needs to be refreshed/overwritten on the screen. A timer updates this screen with new values. I save the values as text in the dbf and update the array and refresh the array as SETTEXT...

Saludos, para las rutas tenia ese mismo problema...como lo rsolvi..pues, usando TDolphin con esta sentencia... ClipValue2SQL( Val2Escape( aVar[55] ) ) y entonces me guarda la ruta con los slash separadores, espero te ayude...gracias...

... click se desaparezca para que el usuario escriba lo que quiera o es otra cosa...si es lo primero que dije...usa esto REDEFINE GET aGet[1] VAR aVar[1] ID 4021 OF oDlg PICTURE "@!" UPDATE ; CUEBANNER "Texto a mostrar"

Saludos, yo lo hago asi con CUEBANNER...saludos...

REDEFINE GET aGet[1] VAR aVar[1] ID 4021 OF oDlg PICTURE "@!" UPDATE CUEBANNER "Usuario"

mas aún si dejo la linea así: REDEFINE GET aObj[vNOMCLI] VAR aVAr[vNOMCLI] ID IDNOMCLI OF oDlg PICTURE "@!" // FONT ofont2 UPDATE no da error . REDEFINE GET aObj[vNOMCLI] VAR aVAr[vNOMCLI] ID IDNOMCLI OF oDlg PICTURE "@!" FONT ofont2 ...

Saludos, normalmente defino mis VAR con un switch de valor logico para controlar si es registro nuevo o es modificado, ejemplo: aVar[1] := IIF( lNew, 0, oQry:campo1 ) // campo de tipo numero (int, double, decimal, etc) aVAr[2] := IIF( lNew, space(10), oQry:campo2) // campo de tipo string ...

...                                                ( oCol:value := xVal ,;                                                   totalinea( oBrw, aVar, aGet ) ,;                                                   addrow( oBrw, aVar, aGet ) ,;                                          ...

... son los campos que llenaran los ARRAY, es decir el nombre a mostrar y el codigo a guardar, espero te ayude... REDEFINE GET aGet[3] VAR aVar[3] ID 4050 OF oDlg PICTURE "@!" UPDATE READONLY ; // COD.OPERADOR VALID ( IF( Empty( aVar[3] ), .t. ,; ( aVar[4] := aOpera1[ ASCAN( aOpera1, ...

... registro es que hago esto aaddd( aCuentas, valo1, valor2, etc) , y lo hago bajo el array del xbrowse... STATIC PROCEDURE addrow( oQryTM, oBrw, aVar, aGet ) total_es( oQryTM, oBrw, aVar, aGet ) IF LEN( oBrw:aArrayData ) > 0 IF oBrw:aArrayData[oBrw:nArrayAt, 6] > 0 .and. ; oBrw:aArrayData[oBrw:nArrayAt, ...

... de un campo determinado, saludos... Ejemplo: cQryMI := "SELECT * FROM mi_tabla " +; "WHERE movi_numdoc = " + ClipValue2SQL( aVar[1] ) +; " AND movi_modulo = '" + cModulo +; "' ORDER BY movi_numdoc" espero te ayude.