Hi


i discover this extrange case
i work with the original errorsys
this is the code
            cTip := Left( PAG->RESUME, 1 )
            If ( cTip $ 'vV' )
               nSig := If( cTip, 1, -1 )       <- error
           EndIF


when i evaluate nSig, the control of the program skip to the return 
statement , i haven´t error

Jorge L wrote:

>             If ( cTip $ 'vV' )

The parentheses around the expression are not needed.

> when i evaluate nSig, the control of the program skip to the return 
> statement , i haven´t error

There is no return statement in your code...

Include errorsys.prg in your program and use the debugger to find out what
happens.

Thomas

Hi Thomas,
i include errorsys and debug the sentences and not call errorsys, jump to 
return sentence

put this code at the start of your project and see it your self

"Thomas Braun"  escribió en el mensaje de 
noticias:vzmuync9j7fr.iiizc9frrlwx$.dlg@40tude.net...

Jorge L wrote:

>             If ( cTip $ 'vV' )

The parentheses around the expression are not needed.

> when i evaluate nSig, the control of the program skip to the return
> statement , i haven´t error

There is no return statement in your code...

Include errorsys.prg in your program and use the debugger to find out what
happens.

Thomas

Jorge,

>i discover this extrange case
>i work with the original errorsys
>this is the code
>             cTip := Left( PAG->RESUME, 1 )
>             If ( cTip $ 'vV' )
>                nSig := If( cTip, 1, -1 )       <- error
>            EndIF

>when i evaluate nSig, the control of the program skip to the return 
>statement , i haven´t error

I'm sorry, but I can't reproduce this. I tried with the following little
program, and all I get is an error log -- every time -- so if you don't
get one, it must be something else that you are doing. Try this, and tell
me what happens:

Procedure Main()
LOCAL nSig := 0
LOCAL cTip := 'v'
   if cTip $ 'vV'
      nSig := iif(cTip, 1, -1)
   endif
   QOut(nSig)
return

Andreas

Andreas Gehrs-Pahl
Absolute Software, LLC

phone: (989) 723-9927
email: Andreas.GP@Charter.net
       Andreas_Gehrs-Pahl@EJusticeSolutions.com
       Andreas@DDPSoftware.com
web:   http://www.Aerospace-History.net

Hi , i trie reproduce a similar escenario of my program...

if i run the program with xv2, the "error" ocurs,

but if i run the program without xv2 work fine ... !

i have AV panda 2011 with the service : "panda function service" disabled



"Andreas Gehrs-Pahl" escribió en el mensaje de 
noticias:2kimhd0ct4hf$.1wh97vl1gg82g.dlg@40tude.net...

Jorge,

>i discover this extrange case
>i work with the original errorsys
>this is the code
>             cTip := Left( PAG->RESUME, 1 )
>             If ( cTip $ 'vV' )
>                nSig := If( cTip, 1, -1 )       <- error
>            EndIF

>when i evaluate nSig, the control of the program skip to the return
>statement , i haven´t error

I'm sorry, but I can't reproduce this. I tried with the following little
program, and all I get is an error log -- every time -- so if you don't
get one, it must be something else that you are doing. Try this, and tell
me what happens:

Procedure Main()
LOCAL nSig := 0
LOCAL cTip := 'v'
   if cTip $ 'vV'
      nSig := iif(cTip, 1, -1)
   endif
   QOut(nSig)
return

Andreas

Andreas Gehrs-Pahl
Absolute Software, LLC

phone: (989) 723-9927
email: Andreas.GP@Charter.net
       Andreas_Gehrs-Pahl@EJusticeSolutions.com
       Andreas@DDPSoftware.com
web:   http://www.Aerospace-History.net

Jorge,

>if i run the program with xv2, the "error" ocurs,

>but if i run the program without xv2 work fine ... !

I have no idea what the above means or what "xv2" is. Your program creates
an error log just like mine and just as expected.

>i have AV panda 2011 with the service : "panda function service" disabled

Does the above mean that you believe that an Anti-Virus program could have
anything to do with Xbase++ raising a "Parameter has a wrong data type" 
error when running? That sounds very unlikely to me!

Could you try to explain what your problem is with a little more details?

Andreas

Andreas Gehrs-Pahl
Absolute Software, LLC

phone: (989) 723-9927
email: Andreas.GP@Charter.net
       Andreas_Gehrs-Pahl@EJusticeSolutions.com
       Andreas@DDPSoftware.com
web:   http://www.Aerospace-History.net

Andreas Gehrs-Pahl wrote:

> I have no idea what the above means or what "xv2" is. 

vx2.. most likely he means Visual Xbase++

Thomas

Hi Andreas,

>>>I have no idea what the above means or what "xv2"

VX2 = Visual XBase++ 2.0

i imagine that you haven't known about the antivirus panda 2011, i 
understand that you don't know his full interference with the creation of 
the exes files exactly with the service " panda function services "
please, let's leave of side the panda antivirus, and run my explample with 
visual xbase++ 2.0


>>>>but if i run the program without xv2 work fine ... !
if i run the program out of Visual Xbase++ 2.0, the program give the error 
normaly
but if a run the program inside of Visual Xbase++ 2.0 , the program don't 
give error


thanks





"Andreas Gehrs-Pahl" escribió en el mensaje de 
noticias:1d8rpw6d2wotu$.yy4f9h1nwh3s$.dlg@40tude.net...




Jorge,

>if i run the program with xv2, the "error" ocurs,

>but if i run the program without xv2 work fine ... !

I have no idea what the above means or what "xv2" is. Your program creates
an error log just like mine and just as expected.

>i have AV panda 2011 with the service : "panda function service" disabled

Does the above mean that you believe that an Anti-Virus program could have
anything to do with Xbase++ raising a "Parameter has a wrong data type"
error when running? That sounds very unlikely to me!

Could you try to explain what your problem is with a little more details?

Andreas

Andreas Gehrs-Pahl
Absolute Software, LLC

phone: (989) 723-9927
email: Andreas.GP@Charter.net
       Andreas_Gehrs-Pahl@EJusticeSolutions.com
       Andreas@DDPSoftware.com
web:   http://www.Aerospace-History.net

Jorge L wrote:

>>>>>but if i run the program without xv2 work fine ... !
> if i run the program out of Visual Xbase++ 2.0, the program give the error 
> normaly
> but if a run the program inside of Visual Xbase++ 2.0 , the program don't 
> give error

The best you can do is contact Alaska support by email to
support@alaska-software.com.

Most likely nobody here will be able to help you.

Thomas

Jorge,

>if i run the program out of Visual Xbase++ 2.0, the program give the error 
>normaly but if a run the program inside of Visual Xbase++ 2.0 , the program 
>don't give error

I usually don't use VX, as it is still in beta and has too many issues to
use it in a productive way. But just for you, I compiled and ran the file
in VX -- with and without debugger -- and it raised the error every time.
I actually compiled it in both GUI and Console mode (after removing your
AppSys() procedure) and it always raised the same error.

The runtime files and compiler for VX are the exact same ones as the ones 
for the underlying Xbase++ version, so this is exactly as expected. VX 
only adds a different user interface in form of an IDE with an editor and 
a debugger and some other features.

The only thing that I can imagine is that your installation of VX might be
broken in some way. Try re-installing it from scratch, and see if the same
problem persists.

>i imagine that you haven't known about the antivirus panda 2011, i 
>understand that you don't know his full interference with the creation 
>of the exes files exactly with the service " panda function services "
>please, let's leave of side the panda antivirus, and run my explample 
>with visual xbase++ 2.0

No, as I don't use Panda AV, I don't know anything about it. But I know
that Norton AV will prevent most (small) GUI programs from being linked
or created, because it suspects them of being a virus of some sort. This
never happens with console applications or larger GUI programs, though,
and won't happen at all, if you disable "Heuristics" or "SONAR" in Norton 
AV. But I still don't know how that relates to the Xbase++ program (not) 
raising an error when it runs.

Andreas

Andreas Gehrs-Pahl
Absolute Software, LLC

phone: (989) 723-9927
email: Andreas.GP@Charter.net
       Andreas_Gehrs-Pahl@EJusticeSolutions.com
       Andreas@DDPSoftware.com
web:   http://www.Aerospace-History.net

hi,

> i imagine that you haven't known about the antivirus panda 2011, i 
> understand that you don't know his full interference with the creation of 
> the exes files exactly with the service " panda function services "
> please, let's leave of side the panda antivirus, and run my explample with 
> visual xbase++ 2.0

i do have Problem with "old" Norton and "Suspicious.MH690"

File APPZAP.PRG compiled successfully.
'alink @C:\WINDOWS\TEMP\11084301.tmp' returned error   1
ALINK: fatal error ALK4001: cannot open file "APPZAP.EXE"

so a "new" Version will never be create if i do not disable Norton

btw. it only happend with "small" PRG like a Demo ...

greetings by OHR
Jimmy

hi,

>   LOCAL cTip := 'v'

   cTip ist Type "C" right ?

>   nSig := If( cTip, 1, -1)

   but if you use IF( <lCondition>, <ExprTrue>, <ExprFalse> )
   1st Parameter is lCondition so it must be "L"ogic

greetings by OHR
Jimmy

Hi Jimmy, thomas

i discover the error in VX2 from for to write bad the condition,

i think that this thread was made to report this kind of error


thanks to all



"AUGE_OHR"  escribió en el mensaje de 
noticias:1b646f$13978aac$3d673@news.alaska-software.com...

hi,

>   LOCAL cTip := 'v'

   cTip ist Type "C" right ?

>   nSig := If( cTip, 1, -1)

   but if you use IF( <lCondition>, <ExprTrue>, <ExprFalse> )
   1st Parameter is lCondition so it must be "L"ogic

greetings by OHR
Jimmy