Ok seem's i have a couple of you confused since you not actually answering
my question, below is sample code :
anyone come across such code/ for a report:
[code]
version-number "Perseverance Stk Issue Report V1.10 "
//#include "../../bms/include/i8secabt.spl"
#define RBTCHPROC_SELECTION_PARAMETERS_VERSION '19'
#define I6PODESC_SHORT_DESC_NOT_REQUIRED
#define I6SHIPDESC_COLUMN_DESC_NOT_REQUIRED
#include "../../bms/include/bmsdef.spl"
#include "../../bms/include/i8stkmove.spl"
#include "../../bms/include/i5sodesc.spl"
#include "../../bms/include/i5sostatii.spl"
#include "../../bms/include/rbtchproc.spl"
#include "../../bms/include/ibmsstyle.spl" // Screen display styles
#include "../../bms/include/m2enqcre.spl"
#include "../../bms/include/i85codes.spl"
#include "../../bms/include/m6order.spl" // Enquire on po's
#include "../../bms/include/i8dateval.spl"
object tmp-order-lines
type MEMORY
record is
tmp-type pic xx
tmp-date type date
tmp-description like stk-description
tmp-gl like gl-accountcode
tmp-job like job-code
tmp-cat like job-cost-centre
tmp-stock like stock-code
so-order-no
so-bo-suffix
sol-line-seq
tmp-amount like pal-amount
tmp-account-description like stk-description
tmp-qty like sol-ordered-qty
tmp-user like so-user-id-code
end
key is tmp-type tmp-date so-order-no so-bo-suffix sol-line-seq //unique
key is tmp-user tmp-type tmp-date so-order-no so-bo-suffix sol-line-seq
//unique
object like-purchase-order-line like purchase-order-line
field ws-start-no like so-order-no
ws-end-no like so-order-no
ws-start-customer like so-cust-code
ws-end-customer like so-cust-code
ws-start-whse like whse-code
ws-end-whse like whse-code
report-started pic 9
report-attempted pic 9
printing-summary pic 9
start-user like po-user-name
end-user like po-user-name
ws-statii-required pic x
ws-include-direct pic x
ws-include-pp pic x
ws-start-job-no like po-job-no
ws-end-job-no like po-job-no
ws-first-line pic 9
ws-start-date like po-order-date
ws-end-date like po-order-date
ws-function-title pic x(80) type string
ws-type-lines like sol-line-seq
ws-type-qty like po-order-qty
ws-type-value like pal-amount
ws-grand-lines like sol-line-seq
ws-grand-qty like po-order-qty
ws-grand-value like pal-amount
ws-start-date-str pic x(11)
ws-end-date-str pic x(11)
fixed-date type boolean
error-mess pic x(80)
ws-sort pic x
ws-start-accountcode like gl-accountcode
ws-end-accountcode like gl-accountcode
procedure main
get system-control first
//do i8secabt-check-abort parameters
// sys-consolidation-division login-id() "PO" "R001"
// returning ws-function-title
set ws-function-title = "SGM Stores Issue Report"
set report-attempted = FALSE
set report-started = FALSE
set printing-summary = FALSE
RBTCHPROC_RUN_PROGRAM("Perseverance Stores Issue Report")
endprocedure // main
----------------------------------------------------------
[/code]
> Are you talking PROIV ?
>
> On 2/12/08, Ben <[EMAIL PROTECTED]> wrote:
>> SQL ? :-)
>>
>> 2008/2/12, David Ziggy Lubowa <[EMAIL PROTECTED]>:
>> >
>> > Hey guys,
>> >
>> > Anyone familiar with 4GL programming ?
>> >
>> >
>> >
>> >
>> > cheers
>> >
>> >
>> >
>> > _______________________________________________
>> > LUG mailing list
>> > [email protected]
>> > http://kym.net/mailman/listinfo/lug
>> > %LUG is generously hosted by INFOCOM http://www.infocom.co.ug/
>> >
>> > The above comments and data are owned by whoever posted them
>> (including
>> attachments if any). The List's Host is not responsible for them in any
>> way.
>> > ---------------------------------------
>> >
>> >
>>
>>
>> _______________________________________________
>> LUG mailing list
>> [email protected]
>> http://kym.net/mailman/listinfo/lug
>> %LUG is generously hosted by INFOCOM http://www.infocom.co.ug/
>>
>> The above comments and data are owned by whoever posted them (including
>> attachments if any). The List's Host is not responsible for them in any
>> way.
>> ---------------------------------------
>>
>>
>>
>
>
> --
> "Dru"
> To follow the path, look to the master, follow the master, walk with
> the master, see through the master, become the master. (zen)
>
cheers
_______________________________________________
LUG mailing list
[email protected]
http://kym.net/mailman/listinfo/lug
%LUG is generously hosted by INFOCOM http://www.infocom.co.ug/
The above comments and data are owned by whoever posted them (including
attachments if any). The List's Host is not responsible for them in any way.
---------------------------------------
