Simple question for a regular

F

Fiberoptix

New Member
Simple Query Procedure question

Well I'm just trying to run simple procedures in the procedure editor, and well to be truthfull, I don't know the syntax enough to perform anything.

I want to have it just spit out a list of stuff using and or and if then statements but I have no clue on how to start the procedure and end it with a display window.

I watched an Epicor individual perform this when we were trying to figure out ways to go about Vantage 6.1 to 8.03.403 upgrades, but for the life of me I can't remember what he had typed.

Also he wrote some scripts to replace certain feilds with either a static data or something you would input during the procedure run... Any simple examples of those two questions may point me in the right direction.

I'm just totally unsure of where to start.

This is on a Progress 9.1D Database btw.
 
I really dont understand what you are looking for but if you are looking for some simple scripts in procedure editor here it goes

Script to copy file

DEFINE VARIABLE arshad AS CHAR NO-UNDO.
DEFINE VARIABLE okp AS LOGICAL.
DEFINE VARIABLE asd AS CHAR NO-UNDO.
SYSTEM-DIALOG GET-FILE arshad TITLE "choose file to copy"
MUST-EXIST
USE-FILENAME
UPDATE okp.
IF okp THEN DO:
UPDATE asd.
OS-COPY VALUE(arshad) VALUE(asd).
END.

Button function

DEFINE VARIABLE name1 AS CHARACTER INITIAL "Progress" VIEW-AS text.
DEFINE BUTTON btn-exit LABEL "Exit".
DEFINE BUTTON btn-display LABEL "display".
ENABLE SKIP(3) btn-exit SKIP(3) btn-display.
ON choose of btn-display
DO:
DISPLAY name1.
END.
WAIT-FOR CHOOSE OF btn-exit.


Tab Movement

DEFINE VARIABLE name1 AS CHARACTER INITIAL "arshad".
DEFINE VARIABLE address AS CHARACTER INITIAL "taqvi".
DISPLAY SKIP(2) name1 SKIP(3) address WITH SIDE-LABELS CENTERED NO-BOX THREE-D.
ENABLE name1 address.
DISPLAY name1 VIEW-AS FILL-IN.
ON ENTRY OF address
DO:
MESSAGE "Display Progress".
END.
WAIT-FOR RETURN OF address.


I think a bettre way will be to use the help menu in the editor.


Arshad
 
Well I was trying to do just a simple query to basically just give myself a list of data that i wanted to compare... kinda like a quick report builder report...

However I did figure out how to do that reading another topic where i saw the

FOR EACH partbin WHERE.... and so on... so I was able to get what I wanted but then when I added in, ASSIGN lotnum = ' ' I got a error back saying I cant make database changes with this version of the program.

Any idea on that one?
 
Errr, there are no read-only licenses. There are ones that will only execute compile code, however. To do ad hoc queries like this in the editor you need a minimum of a query/report license. To make changes, you need to have a 4GL license or one of its supersets. If you have a 4GL license *somewhere*, that session can compile code which can then be execute by your other sessions.
 
License codes I got from Epicor are

Enterprise DB
Client Networking
Query/Results
Report Builder

Thats all that came with the package.

Its not a big deal if I can't do this, I was just trying to test some of the stuff they were working on since sometimes they really dont know what we want or they look over some obvious stuff that will greatly help us migrate to their new version.
 
The Query/Results license will let you write programs which query the database, but not ones that will update it.

I take it you don't have source to your application.
 
You must log in or register to reply here.
Back
Top