variable Lost after Second Call

[AUGE_OHR]

hi,

i have a funny Problem : i "lost" a Variable after Second Call ?
it work twice, but when call 3rd, Time i got "Error BASE/1003 Variable does not exist: DFROM" ???

i init it here


here i pass Parameter

and here i set Parameter as DEFAULT

here is the full Source CODE, look at BLPRESS.PRG

BLPRESS01.ZIP

(41.45 KiB) Downloaded 24 times

goto Main/Menu an select "Date Range" use one of the Radio Button (1-3, not 4)

try it again and when thy 3rd. Time you will get the Error ...

[serge_girard]

Jimmy, I will try this after Xmas!
S

[AUGE_OHR]

hi,

found a Way to work : use Function instead of Variable !

Code: Select all

*+--------------------------------------------------------------------
*+
*+ Source Module => x:\hmg.3.4.4\0\PULS\STACK.PRG
*+
*+    Copyright(C) 1983-2026 by Auge & Ohr
*+
*+    Functions: Function SP_INIT()
*+               Function SP_DFROM()
*+               Function SP_DTO()
*+
*+    Reformatted by Click! 2.05.42 on Dec-25-2025 at  6:51 am
*+
*+--------------------------------------------------------------------

#include "hmg.ch"

#xtranslate F_DFROM       => Stack\[SP, 1]
#xtranslate F_DTO         => Stack\[SP, 2]

STATIC Stack := {}
STATIC SP    := 0

*+--------------------------------------------------------------------
*+
*+    Function SP_INIT()
*+
*+    Called from ( blpress.prg )   1 - procedure main()
*+
*+--------------------------------------------------------------------
*+
FUNCTION SP_INIT()                                                    // init STACK

   AADD( Stack, ARRAY( 2 ) )
   SP ++
   F_DFROM := CTOD( " / / " )
   F_DTO := CTOD( " / / " )
RETURN NIL

*+--------------------------------------------------------------------
*+
*+    Function SP_DFROM()
*+
*+    Called from ( blpress.prg )   1 - static procedure dosetrange()
*+                                   4 - static procedure dosetfilterrange()
*+
*+--------------------------------------------------------------------
*+
FUNCTION SP_DFROM( Value )

   IF PCOUNT() > 0
      F_DFROM := Value
   ENDIF
RETURN F_DFROM

*+--------------------------------------------------------------------
*+
*+    Function SP_DTO()
*+
*+    Called from ( blpress.prg )   1 - static procedure dosetrange()
*+                                   4 - static procedure dosetfilterrange()
*+
*+--------------------------------------------------------------------
*+
FUNCTION SP_DTO( Value )

   IF PCOUNT() > 0
      F_DTO := Value
   ENDIF
RETURN F_DTO

*+ EOF: STACK.PRG

Code: Select all

PROCEDURE MAIN()
...
// on TOP
   SP_INIT()
...

Code: Select all

STATIC PROCEDURE DoSetRange()
...
         ACTION { || nZEIT := DateFilter.RadioGroup_1.VALUE, ;
                  SP_DFROM( DateFilter.DatePicker_FROM.VALUE ), ;
                  SP_DTO( DateFilter.DatePicker_TO.VALUE ), ;
                  DoSetFilterRange( nZEIT ) }
  

Code: Select all

STATIC PROCEDURE DoSetFilterRange( nZEIT )

LOCAL lUse   := USED()
LOCAL bError := ERRORBLOCK( { | oErr | BREAK( oErr ) } )
LOCAL oError

   BEGIN SEQUENCE
      SET FILTER TO
      BLPRESS.Text_Min.ReadOnly := .F.
      BLPRESS.Text_Max.ReadOnly := .F.

      IF SP_DTO() >= SP_DFROM()

         DO CASE
            CASE nZEIT = 3
               SET FILTER TO BLPRESS->PDATE >= SP_DFROM() .AND. ;
                             BLPRESS->PDATE <= SP_DTO()

            CASE nZEIT = 2

now it work as i like

[franco]

Jimmy, your first program may have worked with PRIVATE variables for dates instead of local.
They stay active until you close the function/procedure that you create them in. Not sure about static procedure, have never used them.

[AUGE_OHR]

hi,

Jimmy, your first program may have worked with PRIVATE variables for dates instead of local.

THX for Answer.
i´m not sure if i have used PRIVATE for Test, i use PRIVATE only very rare.

Now using Function to store Value it work without Problem.

But i still don´t understand why it have crash before
i do not understand why it work Twice, but than Fail at 3rd Call ???

[franco]

Jimmy, private variables stay active until you release calling program. Local are not available to any procedures called from
procedure making them.
Build this below. you will see how it works. in procedure checkvar variable "B" is known but "A" will crash as it was local only
to first Procedure or Function.

Code: Select all

#include "hmg.ch"

FUNCTION Main
local a:= 'ax'
private b := 'bx'
checkvar()

RETURN

PROCEDURE checkvar()
msgbox(b)
msgbox(a)
RETURN

[AUGE_OHR]

hi,

Build this below. you will see how it works. in procedure checkvar variable "B" is known but "A" will crash as it was local only to first Procedure or Function.

THX, i know this

as you can see i pass LOCAL as Parameter and i also declare DEFAULT TO so i don´t understand why a Error of "unkown DFROM" can exist ?!

p.s. i do not like using PRIVATE, because it becomes confusing with large programs containing many lines of CODE.
Using FUNCTION instead of PRIVATE/PUBLIC, together with a documenter like CLICK, you get an overview of WHERE the variables are called up.

[franco]

Every time you go to a different function or procedure you will have to pass the parameter.
I use this all the time in very large programs, but never from a main type function. these functions get closed fairly quickly.
If I need variables for throughout the program I make them public. I also have a large control file that if I need to store variables
I have a field for them in there and can change them when needed.
I guess it depends on what you get used to doing..... We all have own ways.