Hi all,

Is it possible to read the definition of the menu bar that is displayed at the top of the window?

When I launch the "PxPlus Command Line" from within the Project IDE, there's a menu at the top of the window. ("Program  Utilities  Edit  Debug  Help"). I want to see how that menu is defined because there are some other programs I'd like to add to the "Utilities" sub-menu.

I've looked at the docs and it doesn't appear to be possible. I've even tried looking through the programs that I'm aware of that are run when PxPlus launches hoping to see where the menu is created, but no luck.

If it's not possible I can live with it, but it would be nice to be able to add some other options (like the Views, other Data Management options, etc).

Thanks in advance!
Rob Leighton

Hi all,

I ran into the same issues trying to register by clicking the link in the newsletter I was emailed.

I was able to register by accessing the newsletter through the website on my iPad.

Regards,

Rob Leighton

Hi Cedric,

Considering all the advantages you mentioned, along with the additional advantage of NOT having to rewrite your main app, I would be interested in what the perceived disadvantages are. I think they'd have to be fairly serious in order to justify the cost and effort of a re-write.

Regards,

Rob Leighton

Hi,

I think the 'BackHiLight1$ property is what you're looking for. Here's a link to to the page in the docs:
https://manual.pvxplus.com/PXPLUS/properties/backhilight1_.htm

Regards,
Rob Leighton
Riverwood Enterprises Inc.

Hi Ron,

I found useful information here: https://docs.microsoft.com/en-us/office/vba/api/overview/excel. I've also found examples here on the forum and the old mailing list as well as googling for examples of Excel VBA code and then trying to convert the solutions to PxPlus.

Rob

Hi Ron,

I don't see a property or method of the *obj/excel object you could use to change the cell format, but there is the 'Excel property that give you access to the properties and methods of the Excel object.

The following works for me (PxPlus 2022 Windows):

begin
xl=new("*obj/excel")
wb=xl'OpenWorkbook("ExcelSS.xlsx")
ws=xl'SetWorkSheet("Sheet1")
xl'Excel'Columns("A")'NumberFormat$="@" ! set column 1 to text
xl'SaveWorkbook()
z=xl'CloseWorkbook(1)
drop object xl
end

Hope this helps!!

Regards,

Rob Leighton

Hi James,

I get the same result as you do, but here's something interesting.

The following code doesn't work:

begin
!
dim Fld$[*]
read data from "Mike,Was,Here",sep="," to Fld${all}
print Fld$[1]," / ",Fld$[2]," / ",Fld$[3]
-:end
-:run
Mike /  /
-:


But, with the addition of a line that prints the array elements, it does.

begin
!
dim Fld$[*]
print Fld$[1],Fld$[2],Fld$[3]
read data from "Mike,Was,Here",sep="," to Fld${all}
print Fld$[1]," / ",Fld$[2]," / ",Fld$[3]
-:end
-:run

Mike / Was / Here
-:


I'm not sure why printing these elements is causing them to be created in the array, but that seems to be what's happening.

Consider the following:

begin
dim Fld$[*]
for z=1 to 3
print Fld$[z]
print dim(read num(Fld$))
next
-:end
-:run

1

2

3
-:


Regards,

Rob Leighton

Pardon me jumping in..

Try loading the dynamic array like this:

Rec$="ZZZ"+sep+"YYY"+sep+"XXX"+sep
!
dim Fld$[*]
for element$ from Rec$
Fld$[*]=element$
next
!
print sub(rec(cpl("iolist Fld${all}")),sep,",")


Hope this helps!

Regards,

Rob Leighton

Hi Skip,

Does the following work for you?

begin
print 'EL',"2",chr(9),$02$,"Y"+$0D$,
input "Do you wish to continue?: <Del>='Y': ",answer$
print "You entered ",answer$

I tried this on PxPlus 17.10 Windows and it seems to work correctly.

Regards,

Rob Leighton
Riverwood Enterprises Inc.

Hi Stéphane,

Thank you for the reply! You've given me somewhere new to start looking/Googling.

Regards,

Rob

Hi All,

I'm trying to display an Excel spreadsheet within a COM control defined on a NOMADS panel. I have the COM Control defined as "Excel.Application". In the "PostCreate" logic contains the following code:

filename$=pth("2013-09-30.xlsx")
com_1.ctl'Workbooks'Open(filename$)
com_1.ctl'Visible=1

When I test the panel, Excel starts in a window behind the NOMADS panel and loads the specified file. I've also tried something similar outside of NOMADS, with the same result; Excel opens in a separate window.

begin
def object xl,@(2,2,60,40)="Excel.Application"
xl'Workbooks'Open(pth("2013-09-30.xlsx"))
xl'Visible=1
xl'Quit()

I found some code in my Mailing List archive that works using "Shell.Explorer" and PDF files, and optimistically hoped it would work in a similar fashion with Excel.

Is it possible to do this? Any nudges in the right direction would be greatly appreciated!!

Regards,

Rob Leighton
Riverwood Enterprises Inc.

Hi James,

That can happen if the file is a copy of another file. The copy of the file gets a new 'creation date', but keeps the original 'last modified' date.  That's what happens on Windows, not sure if it's the same on Linux.

Hope that helps!

Rob Leighton
Riverwood Enterprises Inc.

Hi,

There is an issue with your test program. You should be seeing an Error 20 Syntax error on the first line (CHN=HFN...). CHN is a System Variable and can't be used in this manner (Here's a link to the documentation https://manual.pvxplus.com/PXPLUS/variables/chn.htm)

Try changing your test program to:

CHAN=HFN; OPEN (CHAN)"*VIEWER*"
PRINT (CHAN)"TEST VIEWER"
CLOSE (CHAN)

I tried the above on a Win10/64 machine with a Demo version of PxPlus 17.10 (latest release) and the viewer opened as expected.

Regards,

Rob Leighton
Riverwood Enterprises Inc.

Hi Mike / JR,

I played around with this a bit this weekend.

Format 2 of the CLEAR directive works the same as Format 1 when you specify a list of variables.

It will:
- reset PRECISION to the default value specified by the 'PD' parameter (2 is the default).
- clear the FOR/GOSUB/WHILE stack.
- clear the DATA (not the ATTRIBUTES) from the variable DIMensioned as a composite string.

When I run the following program...

begin
!
precision 10
!
cust:iolist custnum$,custname$,balance
dim cust$:iol=cust
cust.custnum$="123",cust.custname$="ABC Supply",cust.balance=456.78
!
print "default PRC: ",prm('PD'),'LF'
!
for 1
print "Before CLEAR"
print "precision: ",prc
print "cust$....: ",lst(iol(cust$))," - ",sub(cust$,sep,"|")
!
clear cust$
!
print 'LF',"After CLEAR"
print "precision: ",prc
print "cust$....: ",lst(iol(cust$))," - ",sub(cust$,sep,"|")
!
next

... I get the following results:

->run
default PRC:  2

Before CLEAR
precision:  10
cust$....: iolist custnum$,custname$,balance - 123|ABC Supply|456.78|

After CLEAR
precision:  2
cust$....: iolist custnum$,custname$,balance - ||0|
next
Error #28: No corresponding FOR for NEXT
Current program is D:\PxPlus\Projects\Default\rob1, line 24

I ran this test on PxPlus 2020 Ver 17.10 on Windows and PxPlus 2016 Ver 13.00 with the same result.

If you change 'cust$' to 'cust.custname$', only that field is cleared.

I think the docs are wrong. The DIM directive (Format 2 - Define Composite String) documentation states that "You can use the CLEAR directive to reset a variable that is defined as a string template". What is meant by 'reset' may be debatable, but the attributes are definitely not being cleared as stated on the CLEAR directive page.

I don't use the CLEAR directive (at least, not that I can remember). To clear the data from a composite string I use 'cust$=""', and to clear the attributes I use 'DIM cust$(0)'.

Also, something else to note: when using CLEAR, don't forget that CLEAR also affects REPEAT..UNTIL/SWITCH..END SWITCH/WITH..END WITH. I think that's the complete list...

Regards,

Rob Leighton

Hi Paula,

You could try opening the files with a dummy (or null) password and then process the returned error code. Here's an example;

begin
!
! create a file with no password
erase "FileNoPass",err=*next
keyed "FileNoPass",[1:1:10],0,0
!
open (1)"FileNoPass"
write (1)"test","some data"
close (1)
!
! create a file with a password
erase "FileWithPass",err=*next
keyed "FileWithPass",[1:1:10],0,0
!
open lock (1)"FileWithPass"
password (1)"secret" required for open and on data
write (1)"test","some data"
close (1)
!
! process list of files
for filename$ from "FileNoPass,FileWithPass,MissingFile,"
!
print "processing filename: ",filename$
!
filechan=unt; open input (filechan,key="",err=*next)filename$
if tcb(2) then if err=12 then print "   *** file ",filename$," is missing."
!
close (filechan)
!
next

Regards,

Rob Leighton