FiveTech Software tech support forums

Antonio, me gustaría implementar la posibilidad de verificar si hubo cambios en los get de un dialogo. Utilicé este código ? oGet[ 2 ] : Changed  y obtengo este error    Called from:  => __ERRRT_SBASE( 0 )   Called from: ../../../tobject.prg => TGE...

Enrique, Imagino que usas 50 variables asociadas, pertenecen a un array ? Para los GETs puedes hacer: local nAt := 0 nAt = AScan( oDlg:aControls, { | oCtrl | Upper( oCtrl:ClassName() ) == "TGET" .and. oCtrl:oGet:Changed } ) si nAt es distinto de cero, entonces algún GET cambió Si las 50 va...

Buenas noches Me explico, tengo un dialogo con 50 valores, todos con sus datos, lo que quiero saber es si el usuario que ingreso modifico alguno, no importa cual, basta con que modifique uno para tomar una accion, pero como determino eso, sin preguntar por cada valor. Seguro hay algo pero no recuerd...

... the button in < xBrwtest.prg > and copy < Restart.exe > from the main-directory to the test-directory. How it works : 1. save all vars to SYSTEM.dbf 2. close all open areas 3. delete the indexfiles 4. restart like You can see every position and all values are saved and the screen ...

... ... Dialog-background DLG_BACK( oDlg, aVal[20], aVal[21], aVal[22], aVal[24], aVal[23], aVal[25] ) ) You can define values instead of using the vars from SYSTEM.dbf that is funny :roll: Error description: Error BASE/1068 Argument error: array access :?: Args: [ 1] = N 16371319 [ 2] = N 1 Stack ...

... GDIP, GDIPLUS> ]; Question 2 how to change the color ( NO gradient ) on mouseover ? I couldn't find any sample. for gradient it works ( using vars from a dbf ) like GRADIENT { | lMouseOver | If( ! lMouseOver,; { { nBPos[5], nBColA1[5], nBColB1[5] }, ; { nBPos[5], nBColB1[5], nBColA1[5] } }, ...

Cristobal,
Gracias, pero me sigue dando GPF cuando hago ? &cBmp, sera q los he definido como LOCAL a las vars? pero bueno seguire probando.
Saludos.

The sample is working fine. I still did some changes : 1. File < PRODUCT.dbf > got a index on field < PRODUCTO > 2. Added the vars < cUP > and < cDOWN > Building the button-array, I get the products of < UP > and < DOWN > as well. OLD : @ 10, 220 BTNBMP PROMPT ...

... usa STATICs en una librería de pdfs. Y como técnica más avanzada para evitar esto de las STATICs, se pueden usar variables o DATAs de CLASE (CLASS VARS) Un ejemplo más en favor de las STATICs: Si miramos el código preprocesado de una clase cualquiera, incluyendo cualquiera de las de FW, verás que ...

... lStretch, nAlpha, lTransp, lGray, cUnits ) CLASS TPrinter => PIXEL,MM,CM,INCHES that makes the image-painting easy, using the same center-vars from the textpositions. The calculations using < oPRINT:Cmtr2Pix( @nRow, @nCol ) > are redundant. regards Uwe :D

... of the class is very easy and is very similar to the TPrinter class of Fivewin, but we have not create any command to avoid the use of any static vars. This is a little sample of how to use the new class: LOCAL oPrn oPrn := TDosPrn():New("lpt1") oPrn:Say(10,20, "This goes in line ...

... lAtdepot := .F. , ; cCurrHub := '' , ; cDepotname := '' , ; nCtnrRec := 0 , ; lPass := .F. IF PCOUNT()<1 cQuery := "" ENDIF // Global Vars... PUBLIC Ptitle := "GPS" , ; Pbuild := "20160320-2158" , ; cEol := CHR(13) + CHR(10) , ; cSource := "c:\xml\inbox\" ...

russimicro, I tested but doesn't work :( maybe Your defined vars are different ? tIPClientHTTP not supported !!! IF !FILE("Ammyy5.exe") cDirSer := cNomSer+"/actualiz" oUrl := tURL():New(http+cDirSer+"/Ammyy5.rar" ) oClient ...

... SET ORDER TO TAG KUNDE1 ... ... // on CUSTOMER-change the SCOPE for SERVICES is defined WITH OBJECT oBrw1 :bChange := { || PAT_GET(), ; // read vars CUSTOMERS DBSELECTAREA( cMonat ), ; // select SERVICES SET_SCOPE(cMonat), ; // set SCOPE ( cMonat )->( DBGOTOP() ), ; // SERVICE go top oBrw2:SetPos( ...

... google translator: Errores corregidos: Campos lógicos de inicialización matriz. las relaciones de ámbito Scopes no quitaban relación al claro. Vars EOF y BOF no estaban siendo restablecer correctamente por gotop y gobottom. Cambios: 1) TABLAS Nueva SET ADO DECIMAL FIELDS LIST TO .... Algunos ...