FiveTech Software tech support forums

nageswaragunupudi wrote:FWH provides a way for the last many years.

if oGet:lChanged is true, the value is edited and modified.
We can also check the original value with oGet:uOriginalValue.

karinha wrote:yo haria asi:

Code: Select all | Expand

// C:\FWH\SAMPLES\SILVICHK.PRG

#include "FiveWin.ch"

STATIC lSave := .F.

FUNCTION Main()

   LOCAL aGet := ARRAY( 2 )
   LOCAL oDlg
   LOCAL cGet1 := SPACE( 60 )
   LOCAL cGet2 := SPACE( 60 )
   LOCAL bCheck
   LOCAL oBtn1, oBtn2

   DEFINE DIALOG oDlg SIZE 400, 200

   @ 10,  10 GET aGet[ 1 ] VAR cGet1 SIZE 100, 10 PIXEL OF oDlg

   @ 40,  10 GET aGet[ 2 ] VAR cGet2 SIZE 100, 10 PIXEL OF oDlg

   @ 90,  55 BUTTON oBtn1 PROMPT "&OK" SIZE 45, 10 PIXEL OF oDlg ;
      ACTION ( lSave := .T., oDlg:End() )  // IDOK ?? .RC? NO COMPRENDO ESTO

   @ 90, 107 BUTTON oBtn2  PROMPT "&EXIT" SIZE 45, 10 PIXEL OF oDlg ;
      ACTION ( lSave := .F., oDlg:End() ) CANCEL // IDCANCEL // ??

   // bCheck := {|| lSave := iif( Msgyesno( "I must save ?" ), .T., .F. ), oDlg:AEvalWhen(), .T. }

   // bCheck := {|| lSave := iif( Msgyesno( "I must save ?" ), .T., .F. ), oDlg:End(), .T. }

   // AEval( aGet, {| o | o:bChange :=  bCheck } )

   ACTIVATE DIALOG oDlg CENTER // ON INIT Eval( bCheck )

   IF lSave

      // ---- save
      ? "Grabar? ", lSave  // .T.

      // Graba_Todo()

   ENDIF

   lSave := .F.  // al salir.

RETURN NIL
// FIN / END
 

Regards, saludos.

DEFINE DIALOG oDlg
 @  80,  55  BUTTON oBtn1 Prompt "&OK" SIZE  45,  10 PIXEL  OF oDlg ACTION  ( oDlg:end( IDOK ) )
 @  80,  107 BUTTON oBtn2  Prompt "&EXIT"  SIZE  45,  10 PIXEL  OF oDlg ACTION  (oDlg:end( IDCANCEL ) )
ACTIVATE DIALOG oDlg

IF  oDlg:nresult == IDOK
     Msginfo()
Endif

nageswaragunupudi wrote:FWH provides a way for the last many years.

if oGet:lChanged is true, the value is edited and modified.
We can also check the original value with oGet:uOriginalValue.

Error occurred at: 27-11-2023, 11:06:45
   Error description: Error BASE/1004  Metodo non disponibile: LCHANGED
   Args:
     [   1] = U  

 AEval(aGet,{|oGet| IIF( oGet:lChanged, lSave:= IIF(Msgyesno("I must save ?"),.t.,.f.),) , oDLG:AEvalWhen(), .t. })
 

I tried to found the result of oGet:lchanged and give me no exist

Code:
Error occurred at: 27-11-2023, 11:06:45
Error description: Error BASE/1004 Metodo non disponibile: LCHANGED
Args:
[ 1] = U

nageswaragunupudi wrote:

I tried to found the result of oGet:lchanged and give me no exist

Code:
Error occurred at: 27-11-2023, 11:06:45
Error description: Error BASE/1004 Metodo non disponibile: LCHANGED
Args:
[ 1] = U

This error means that oGet is NIL

what is difficult?
bother variable of the type "lsave:= .t. or lsave:= .f." It's just for kids, it seems like you're still programming with the clipper

Silvio.Falconi wrote:Dear sir, I started a long time before you, with the Autumn 86 version of the Nuntucket Clipper, then I moved on to the Summer 87 version, that is, many years before the Clipper became Ca-Associates who killed the clipper with version 5.3, then we moved on to Clip4win, tried Alaska, and then Harry Evans, an Austrian from Momos clipper magazine in Bolzano, sold us the first version of the fivewin libraries version 1.44, then I purchased the Fw 19.5 version from Linares and so on up to the present day all or almost all versions purchased from Linares.


Every time I ask for help I should change the code to make you happy and I never find the answer to the requested question, I only get help when the fwteam or some other good person answers me, still today I can't understand why you, dear sir, are a moderator of the forum