A help please - Una Ayuda por Favor

This forum is for eXpress++ general support.
Post Reply
Message
Author
User avatar
Jose Marte2
Posts: 45
Joined: Thu Nov 16, 2017 2:19 pm
Location: República Dominicana

A help please - Una Ayuda por Favor

#1 Post by Jose Marte2 »

Ingles

Greetings to all, I hope you are well as are your family.

Please who can help me

Sorry to write so much, is that I am starting to take my clipper system to graphic eXpress

I have a graphic menu since I attached photo.

I have a billing program that I have not finished taking it to chart. but I am using the function
DC_CRTRUN and I have a hybrid that more or less works well

the graphic menu and some screens in text mode (msdos).

the problem is that sometimes the system closes because it presents the error that also attached photo.

please if someone would know how to solve or any idea, they would be infinitely grateful.


Español

Saludos para todos, espero estén bien al igual que sus familia.

Por favor quien me pueda ayudar

Perdonen que escriba tanto, es que estoy comenzado en esto de llevar mi sistema en clipper a eXpress gráfico

tengo un menú gráfico ya que le adjunto foto.

tengo un programa de facturación que todavía no he terminado de llevarlo a gráfico. pero estoy usando la función
DC_CRTRUN y tengo un híbrido que mas o menos funciona bien

el menú gráfico y algunas pantallas en modo texto (msdos).

el problema es que a veces se me cierra el sistema por que presenta el error que también le adjunto foto.

por favor si alguien sabría como resolver o alguna idea, se lo agradecería infinitamente.
Attachments
Error
Error
IMG_20200303_170312a.jpg (298.03 KiB) Viewed 12202 times
Pantalla de Facturación modo texto (msdos)<br />En Clipper
Pantalla de Facturación modo texto (msdos)
En Clipper
Facturacion.jpg (261.64 KiB) Viewed 12202 times
Menú Grafico
Menú Grafico
Menu.jpg (144.81 KiB) Viewed 12202 times
José Marte
Software & Servicios


User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: A help please - Una Ayuda por Favor

#2 Post by rdonnay »

Which version of Xbase++ are you using?

I have never seen a member of the XbpCrt class named XbpBaseDialog.

It appears that Alaska left some old code in the XbpCrt class that calls the hidden method SystemPropertyChanged(), but we don't have the source code for XbpCrt, so it may take some work to trap this error. Show me the code for MenuSel().
The eXpress train is coming - and it has more cars.

User avatar
Auge_Ohr
Posts: 1405
Joined: Wed Feb 24, 2010 3:44 pm

Re: A help please - Una Ayuda por Favor

#3 Post by Auge_Ohr »

hi,

it is from c:\ALASKA\XPPW32\Source\SYS\xbparts.prg -> XPPSYS.DLL

Code: Select all

METHOD XbpCrt:SystemPropertyChanged( mp1, mp2 )
   IF GetApplication():MainForm != self
      RETURN ::XbpBaseCrt:SystemPropertyChanged( mp1, mp2 )
   ENDIF
RETURN GetApplication():HandleEvent(xbeP_SystemPropertyChanged, mp1, mp2)
greetings by OHR
Jimmy

User avatar
Auge_Ohr
Posts: 1405
Joined: Wed Feb 24, 2010 3:44 pm

Re: A help please - Una Ayuda por Favor

#4 Post by Auge_Ohr »

hi,
Jose Marte2 wrote: please if someone would know how to solve or any idea, they would be infinitely grateful.
i´m not a Express++ User so i´m not sure when look into c:\exp20\Source\Dclipx\_dcfunct.prg for FUNCTION DC_CrtRun().

it seem me that is open new CRT Window and here Windows begin as your "Main" is not suspend ... it is still working.
i guess "something" in Main happens and try to change Screen "output" but can´t "write" when other CRT have Focus.

to run 2 x CRT is not the same like 2 x CMD where you can have multi "output". only active CRT can "output" to Screen

i saw in DC_CrtRun() Parmeter lModal.
this might help while you can only access "that Window"


---

as i understand Express++ can use @ X,Y Syntax which will using #xCommand to produce GUI so no need for CRT.
you "just" need to create a GUI Window and can use you @ X,Y "inside" with your Cl*pper Code.

so i recommend to "jump" into Express++ Syntax with full GUI.
greetings by OHR
Jimmy

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: A help please - Una Ayuda por Favor

#5 Post by rdonnay »

Jimmy -

Thanks for that info.
I didn't know that Alaska provided the source for XbpCrt.
The eXpress train is coming - and it has more cars.

User avatar
Jose Marte2
Posts: 45
Joined: Thu Nov 16, 2017 2:19 pm
Location: República Dominicana

Re: A help please - Una Ayuda por Favor

#6 Post by Jose Marte2 »

Auge_Ohr wrote:hi,

it is from c:\ALASKA\XPPW32\Source\SYS\xbparts.prg -> XPPSYS.DLL

Code: Select all

METHOD XbpCrt:SystemPropertyChanged( mp1, mp2 )
   IF GetApplication():MainForm != self
      RETURN ::XbpBaseCrt:SystemPropertyChanged( mp1, mp2 )
   ENDIF
RETURN GetApplication():HandleEvent(xbeP_SystemPropertyChanged, mp1, mp2)
Ingles
Hi, thanks for your valuable help and information
One question, I must replace those instructions in that prg with the ones you exposed here and then rebuild the DLL

look for those instructions in the prg that is specified and say this
Hola, gracias por su valiosa ayuda e informacion

Español
Una pregunta, debo sustituir esas instrucciones en ese prg por las que usted expuso aqui y luego reconstruir el DLL

busque esas instrucciones en el prg que se especifica y dice esto

METHOD XbpCrt:SystemPropertyChanged( mp1, mp2 )

IF GetApplication():MainForm != self
RETURN ::XbpBaseDialog:SystemPropertyChanged( mp1, mp2 ) // en esta linea esta la diferencia
ENDIF

RETURN GetApplication():HandleEvent(xbeP_SystemPropertyChanged, mp1, mp2)
José Marte
Software & Servicios


User avatar
Jose Marte2
Posts: 45
Joined: Thu Nov 16, 2017 2:19 pm
Location: República Dominicana

Re: A help please - Una Ayuda por Favor

#7 Post by Jose Marte2 »

Thank you, thank you very much, for your attention and your valuable help

Gracias, muchas gracias, por sus atenciones y su valiosa ayuda
José Marte
Software & Servicios


User avatar
Jose Marte2
Posts: 45
Joined: Thu Nov 16, 2017 2:19 pm
Location: República Dominicana

Re: A help please - Una Ayuda por Favor

#8 Post by Jose Marte2 »

Greetings everyone, I hope you are doing well as well as your families

Please if someone could give me a little help for this problem

I ask you, a later version of Alaska than version 1.90.347, it already solved this error when executing screens in CRT, I have many screens still in CRT, that DC_CRTRUN executes and the error is now more constant especially in Windows 10 PC go ahead

I tried Mr. Jimmy's advice, but it really screwed me up and can't

Or if they have any other option to run screens in CRT

Thanks in advance, be it one or the other


Español

Saludos, para todos, espero que esten bien al igual que sus familias

Por favor si alguien me pudiera brindar un poco de ayuda para este problema

Le pregunto, alguna version posterior de alaska a la version 1.90.347, ya resolvio este error al ejecutar pantallas en CRT, tengo muchas pantallas todavia en CRT, que las ejecutos DC_CRTRUN y el error ahora es mas constante sobretodo en pc con Windows 10 en adelante

Intente con el consejo del Sr. Jimmy, pero en realidad me volvi un lio y no puede

O si tienen alguna otra opcion para ejecutar pantallas en CRT

Las gracias por anticipado, sea una cosa o la otra
Attachments
Screen with the error / Pantalla con el Error
Screen with the error / Pantalla con el Error
IMG_20200303_170312a.jpg (298.03 KiB) Viewed 7173 times
José Marte
Software & Servicios


User avatar
Auge_Ohr
Posts: 1405
Joined: Wed Feb 24, 2010 3:44 pm

Re: A help please - Una Ayuda por Favor

#9 Post by Auge_Ohr »

hi,

when a Event arrive in SystemPropertyChanged some "Energie Saving" have change
that have to do with systemPowerStatus from XbpApplication()

have never try it with CRT

Code: Select all

:systemPowerStatus := {| nChange, uNIL, oSelf | NoDown(nChange, oSelf) }

FUNCTION NoDown(nChange, oSelf)
   TONE(1234)
RETURN XPP_POWERQUERY_DENY
p.s. IMHO 1.90.347 was a "beta" Version
last Version was 1.9.355 so you "miss" a lot of Hotfix
greetings by OHR
Jimmy

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: A help please - Una Ayuda por Favor

#10 Post by rdonnay »

I think you may have some old Xbase++ dlls.
The eXpress train is coming - and it has more cars.

Post Reply