17 lines
563 B
Plaintext
17 lines
563 B
Plaintext
compile function report_test
|
|
declare function msg, set_property
|
|
declare subroutine rlist, or_view
|
|
$insert rlist_equates
|
|
*Stmt = "SELECT TSCHEDULE BY CUST_CITY WITH SHIP.DATE GE ":QUOTE(OCONV(BEG.DATE,"D2-")):" AND LE ":QUOTE(OCONV(END.DATE,"D2-"))
|
|
Stmt = "SELECT COMPANY"
|
|
*Stmt = 'SELECT SCHEDULE'
|
|
rlist( Stmt, target_activelist$, '', '', '' )
|
|
if @reccount then
|
|
Cmd = 'LIST COMPANY CO_NAME CITY'
|
|
void = set_property( 'ORPRV', 'VISIBLE', 3 )
|
|
or_view( '', Cmd )
|
|
end else
|
|
Void = MSG( '', "NO Records meeting your date criteria!!" )
|
|
end
|
|
|