Title | Under | Posted on |
---|---|---|
Component interface Error: no rows exist for the specified keys | PeopleSoft Technical | 03/15/2019 - 3:54am |
ADD 24 months starting from current month.(peoplesoft) | PeopleSoft Functional | 07/29/2018 - 8:44pm |
TRC values dropdown | PeopleSoft Technical | 04/04/2018 - 12:54am |
how to find missing sequence in GRID and print the mising sequence number while saving through peoplecode | PeopleSoft Technical | 09/11/2017 - 4:49am |
hi guys,
can we send code in autogenarated number
Regards
Ravi
SQR:
!********************************************************************************************
!* Procedure: GET-MAX-VOUCHER-ID *
!* Descr : This procedure gets the next VOUCHER ID. *
!* Output : #VOUCHER_ID *
!********************************************************************************************
BEGIN-PROCEDURE GET-MAX-VOUCHER-ID
add 1 to #level
#IFDEF DebugF
print 'Procedure: GET-MAX-VOUCHER-ID' (+1,#level)
#ENDIF
BEGIN-SELECT
A.VCHR_NUM_LAST_USED
Move &A.VCHR_NUM_LAST_USED to #VOUCHER
Add 1 to #VOUCHER
Move #VOUCHER to $VOUCHER
show '$VOUCHER: ' $VOUCHER
Let #offset = instr($VOUCHER, '.', 1)
show '#offset: ' #offset
Let #len = #offset - 1
show '$VOUCHER: ' $VOUCHER
Let $VOUCHERID = Substr($VOUCHER,1,#len)
show '$VOUCHERID: ' $VOUCHERID
Let #V_Ln = Length($VOUCHERID)
show '#V_Ln: ' #V_Ln
Let $VOUCHERID = lpad($VOUCHERID,8,'0')
Move $VOUCHERID to $VOUCHER_ID
FROM PS_BUS_UNIT_TBL_AP A
WHERE A.BUSINESS_UNIT = $BUSINESS_UNIT
END-SELECT
show 'Transaction Loader VOUCHER ID generated by this process = ' noline
show $VOUCHER_ID
show 'TOTAL NUMBER OF ROWS : ' #SQL-COUNT
show 'END-PROCEDURE GET-MAX-VOUCHER-ID'
subtract 1 from #level
END-PROCEDURE GET-MAX-VOUCHER-ID
!********************************************************************************************
!* Procedure: UPDATE-GET-MAX-VOUCHER-ID *
!* Descr: This procedure updates VOUCHER ID with the incremented value. *
!********************************************************************************************
BEGIN-PROCEDURE UPDATE-GET-MAX-VOUCHER-ID
add 1 to #level
#IFDEF DebugF
print 'Procedure: UPDATE-GET-MAX-VOUCHER-ID' (+1,#level)
#ENDIF
Move $VOUCHER_ID to #VOUCHER_ID
BEGIN-SQL
UPDATE PS_BUS_UNIT_TBL_AP
SET VCHR_NUM_LAST_USED = #VOUCHER_ID
WHERE BUSINESS_UNIT = $BUSINESS_UNIT
END-SQL
subtract 1 from #level
END-PROCEDURE UPDATE-GET-MAX-VOUCHER-ID
Raj