Labels and Progress 4GL

Thanks Thaddeus. I created a .P file, linked to a desk top Icon, to do the
export as a .csv file. Linked those tables to the MS Access Label program I
already had. This works out fine, and keeps us from having to deal with
ODBC. Let me know when you finish the Progress program, I would like to take
a look. - Les

> -----Original Message-----
> From: Thad Jacobs [SMTP:tjacobs@...]
> Sent: Tuesday, January 22, 2002 11:34 AM
> To: 'vantage@yahoogroups.com'
> Subject: RE: [Vantage] Labels and Progress 4GL
>
> Les,
> I am currently working on a label program that uses data exported by 4GL,
> but the label printing will be done using visual basic and crystal reports
> 8
> developer.
>
> I've also written a word macro that reads records exported from the
> vantage
> database, and types the field values for each record into a table cells on
> a
> label-sized document. This approach works, but took a little too much
> code
> modification when the format of the label is changed. However, until the
> release of my pending label program, the Word macro version is running on
> the shop floor.
>
> I can send it to those parties interested, just contact me off list.
>
> Thaddeus
>
>
>
> -----Original Message-----
> From: lptingley [mailto:ltingley@...]
> Sent: Monday, January 14, 2002 9:48 AM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Labels and Progress 4GL
>
>
> Does anybody, by chance, have a Label Program written in Progress. I
> need to do one for parts labels. I'm looking for some code samples to
> help me get over some hurdles. Just a "Newbie" ya know.... Thanks -
> Les
>
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
> have already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report Builder and
> Crystal Reports and other 'goodies', please goto:
> http://groups.yahoo.com/group/vantage/files/.
> (2) To search through old msg's goto:
> http://groups.yahoo.com/group/vantage/messages
> (3) To view links to Vendors that provide Vantage services goto:
> http://groups.yahoo.com/group/vantage/links
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
Does anybody, by chance, have a Label Program written in Progress. I
need to do one for parts labels. I'm looking for some code samples to
help me get over some hurdles. Just a "Newbie" ya know.... Thanks -
Les
How many labels per page? We use pre-cut sheets of various sizes for
receiving and shipping warehouses.

A Progress program allows user to enter partnum, ordernum, or packnum
etc., and calls the Report Builder engine to print the form with a
new filter.

Examples of source code to access the Report Builder engine are in
the "Files" section of Yahoo Groups.

http://groups.yahoo.com/group/vantage/files/Progress%20Code/

If questions, I'll be glad to help.

Lonnie


--- In vantage@y..., "lptingley" <ltingley@d...> wrote:
> Does anybody, by chance, have a Label Program written in Progress.
I
> need to do one for parts labels. I'm looking for some code samples
to
> help me get over some hurdles. Just a "Newbie" ya know.... Thanks -
> Les
Hi Lonnie,
We use a Sato Label Printer, so it's one across continuous (Roll Labels).
Are parts (Metal nameplates/Identification tags) are relatively small, and
are packaged in small boxes. These labels are for those boxes. I have an MS
Access program that prompts them for Job Number, Number of pieces in a box,
and number of labels to print. The result is a label that gives them part
number, Job Number, # of pieces per box, printing date, and customer name.
I'm trying to get away from all third party programs, and go as much
"vanilla" progress as possible. Thus my interest in learning Progress Code.
I've done a few so far that, with a bit of help, have worked out great. I'd
love to see your code.

Thanks,

Les Tingley
MIS
Decorated Products

> -----Original Message-----
> From: lonniedrew [SMTP:lonniedrew@...]
> Sent: Monday, January 14, 2002 1:26 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] Re: Labels and Progress 4GL
>
> How many labels per page? We use pre-cut sheets of various sizes for
> receiving and shipping warehouses.
>
> A Progress program allows user to enter partnum, ordernum, or packnum
> etc., and calls the Report Builder engine to print the form with a
> new filter.
>
> Examples of source code to access the Report Builder engine are in
> the "Files" section of Yahoo Groups.
>
> http://groups.yahoo.com/group/vantage/files/Progress%20Code/
>
> If questions, I'll be glad to help.
>
> Lonnie
>
>
> --- In vantage@y..., "lptingley" <ltingley@d...> wrote:
> > Does anybody, by chance, have a Label Program written in Progress.
> I
> > need to do one for parts labels. I'm looking for some code samples
> to
> > help me get over some hurdles. Just a "Newbie" ya know.... Thanks -
> > Les
>
>
> Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must
> have already linked your email address to a yahoo id to enable access. )
> (1) To access the Files Section of our Yahoo!Group for Report Builder and
> Crystal Reports and other 'goodies', please goto:
> http://groups.yahoo.com/group/vantage/files/.
> (2) To search through old msg's goto:
> http://groups.yahoo.com/group/vantage/messages
> (3) To view links to Vendors that provide Vantage services goto:
> http://groups.yahoo.com/group/vantage/links
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
Here's the part of the program that creates the filter and calls
Report Builder.....

/* find the shipping warehouse transaction */
find parttran where parttran.company = "soutool"
and parttran.jobnum = thejobnum
and parttran.warehousecode = ShipWareHouseName NO-LOCK no-error.
if available(parttran) then do:
/* find transaction job */
find jobhead where jobhead.company = "soutool"
and jobhead.jobnum = thejobnum no-error.
if available(jobhead) then do:
/* add data from user entry */
jobhead.character10 = thecodeheat.
rb-report-name = "SHIPPING WAREHOUSE LABEL".
/* create filter, following an index if possible */
rb-filter = "JobHead.Company = 'soutool' and
JobHead.Jobnum = " + "'" + TheJobnum + "'" +
" and Joboper.QtyCompleted > 0".
/* run the report */
RUN aderb/_printrb.p ("x:\vantage\ud\shipment.prl",
RB-REPORT-NAME,
RB-DB-CONNECTION,
RB-INCLUDE-RECORDS,
RB-FILTER,
RB-MEMO-FILE,
RB-PRINT-DESTINATION,
RB-PRINTER-NAME,
RB-PRINTER-PORT,
RB-OUTPUT-FILE,
RB-NUMBER-COPIES,
RB-BEGIN-PAGE,
RB-END-PAGE,
RB-TEST-PATTERN,
RB-WINDOW-TITLE,
RB-DISPLAY-ERRORS,
RB-DISPLAY-STATUS,
RB-NO-WAIT,
RB-OTHER-PARAMETERS).

message "Finished" view-as alert-box.
end.
end.
END.


HTH,

Lonnie


--- In vantage@y..., Les Tingley <ltingley@d...> wrote:
> Hi Lonnie,
> We use a Sato Label Printer, so it's one across continuous (Roll
Labels).
> Are parts (Metal nameplates/Identification tags) are relatively
small, and
> are packaged in small boxes. These labels are for those boxes. I
have an MS
> Access program that prompts them for Job Number, Number of pieces
in a box,
> and number of labels to print. The result is a label that gives
them part
> number, Job Number, # of pieces per box, printing date, and
customer name.
> I'm trying to get away from all third party programs, and go as much
> "vanilla" progress as possible. Thus my interest in learning
Progress Code.
> I've done a few so far that, with a bit of help, have worked out
great. I'd
> love to see your code.
>
> Thanks,
>
> Les Tingley
> MIS
> Decorated Products
>
> > -----Original Message-----
> > From: lonniedrew [SMTP:lonniedrew@c...]
> > Sent: Monday, January 14, 2002 1:26 PM
> > To: vantage@y...
> > Subject: [Vantage] Re: Labels and Progress 4GL
> >
> > How many labels per page? We use pre-cut sheets of various sizes
for
> > receiving and shipping warehouses.
> >
> > A Progress program allows user to enter partnum, ordernum, or
packnum
> > etc., and calls the Report Builder engine to print the form with
a
> > new filter.
> >
> > Examples of source code to access the Report Builder engine are
in
> > the "Files" section of Yahoo Groups.
> >
> > http://groups.yahoo.com/group/vantage/files/Progress%20Code/
> >
> > If questions, I'll be glad to help.
> >
> > Lonnie
> >
> >
> > --- In vantage@y..., "lptingley" <ltingley@d...> wrote:
> > > Does anybody, by chance, have a Label Program written in
Progress.
> > I
> > > need to do one for parts labels. I'm looking for some code
samples
> > to
> > > help me get over some hurdles. Just a "Newbie" ya know....
Thanks -
> > > Les
> >
> >
> > Useful links for the Yahoo!Groups Vantage Board are: ( Note: You
must
> > have already linked your email address to a yahoo id to enable
access. )
> > (1) To access the Files Section of our Yahoo!Group for Report
Builder and
> > Crystal Reports and other 'goodies', please goto:
> > http://groups.yahoo.com/group/vantage/files/.
> > (2) To search through old msg's goto:
> > http://groups.yahoo.com/group/vantage/messages
> > (3) To view links to Vendors that provide Vantage services goto:
> > http://groups.yahoo.com/group/vantage/links
> >
> > Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
> >
Les,
I am currently working on a label program that uses data exported by 4GL,
but the label printing will be done using visual basic and crystal reports 8
developer.

I've also written a word macro that reads records exported from the vantage
database, and types the field values for each record into a table cells on a
label-sized document. This approach works, but took a little too much code
modification when the format of the label is changed. However, until the
release of my pending label program, the Word macro version is running on
the shop floor.

I can send it to those parties interested, just contact me off list.

Thaddeus



-----Original Message-----
From: lptingley [mailto:ltingley@...]
Sent: Monday, January 14, 2002 9:48 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Labels and Progress 4GL


Does anybody, by chance, have a Label Program written in Progress. I
need to do one for parts labels. I'm looking for some code samples to
help me get over some hurdles. Just a "Newbie" ya know.... Thanks -
Les