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