[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

[sqr-users] help in sqr: sucess is posted...cant able to c the o/pfile -- pdf



                                                                     
                                                                     
     not getting the o/p..pdf file.....help with 
this..                                                                
                                             
#Include 'Setenv.Sqc' !Set Environment
#Include 'Setup31.Sqc' !Printer And Page-Size Initialization
!---------------------------------------------------------------------------------------------------------------
Begin-Setup
!---------------------------------------------------------------------------------------------------------------
Declare-Variable
 DATE $VDATE $TDATE
End-Declare
!-------------------------------------------------------------
End-Setup
!-------------------------------------------------------------
!-------------------------------------------------------------
Begin-Report
!-------------------------------------------------------------
Do Init-Report
If $Prcs_Process_Instance <> ''
 Do Update-Prcs-Run-Status
End-If
!------------------------- 
End-Report
!-------------------------
!--------------------------------------
Begin-Procedure Init-Report
!--------------------------------------
Do Init-Datetime
Do Init-Number
Do Get-Current-Datetime
Do Define-Prcs-Vars
Do Get-Run-Control-Parms
Do voucher_list
!---------------------------
End-Procedure
!---------------------------
!--------------------------------------
begin-heading 3
!--------------------------------------
print  'BUSINESS_UNIT' (2,1)
print  'VOUCHER_ID'    (,30)
print  'VNDR_LOC' (,70)
!------------------------- 
end-heading
!------------------------- 
!-------------------------
begin-procedure get_parameters
!-------------------------
!-------------------------
begin-select 
!-------------------------
TEST.OPRID
TEST.RUN_CNTL_ID
TEST.BUSINESS_UNIT &TEST.BUSINESS_UNIT
TEST.VOUCHER_ID &TEST.VOUCHER_ID
TEST.VNDR_LOC &TEST.VNDR_LOC
 let $BU = &TEST.BUSINESS_UNIT
 let $VID = &TEST.VOUCHER_ID   
 let $VNDRLOC = &TEST.VNDR_LOC  
from PS_CT_RAD_RECORD TEST, PS_PRCSRUNCNTL TEST2
where TEST.OPRID = TEST2.OPRID and TEST.RUN_CNTL_ID = TEST2.RUN_CNTL_ID
  
!-------------------------
end-select
!-------------------------
!-------------------------
end-procedure
!-------------------------
!-------------------------
begin-procedure voucher_list
!-------------------------
!-------------------------
do get_parameters
begin-select
!-------------------------
TEST1.BUSINESS_UNIT (,1)  
TEST1.VOUCHER_ID (,30)  
TEST1.VNDR_LOC (,70)
from PS_VOUCHER TEST1 
where TEST1.BUSINESS_UNIT = $BU and TEST1.VOUCHER_ID = $VID and TEST1.VNDR_LOC 
= $VNDRLOC
order by TEST1.BUSINESS_UNIT, TEST1.VOUCHER_ID
!-------------------------
end-select
!-------------------------
!--------------------------------------
end-procedure
!--------------------------------------
 
#Include 'Curdttim.Sqc' !Current Date And Time
#Include 'Datetime.Sqc' !Routines For Date And Time Formatting
#Include 'Number.Sqc' !Routines To Format Numbers
#Include 'Prcsapi.Sqc' !Update Process Request Api
#Include 'Prcsdef.Sqc' !Update Process Request Variable Declaration
#Include 'Reset.Sqc' !End Of Program
#Include 'stdapi.sqc'



      

_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users