select mbmembmaster.member_no,
mbmembmaster.memb_name,
mbmembmaster.memb_surname,
mbmembmaster.membgroup_code,
mbmembmaster.member_date,
mbucfprename.prename_desc,
mbucfmembgroup.membgroup_desc,
shsharemaster.sharestk_amt,
shsharetype.share_value,
mbmembmaster.member_status,
mbmembmaster.salary_amount
from mbmembmaster,
mbucfmembgroup,
mbucfprename,
shsharemaster,
shsharetype
where ( mbmembmaster.coop_id = mbucfmembgroup.coop_id )
and ( mbmembmaster.membgroup_code = mbucfmembgroup.membgroup_code )
and ( mbmembmaster.prename_code = mbucfprename.prename_code )
and ( mbmembmaster.coop_id = shsharemaster.coop_id )
and ( mbmembmaster.member_no = shsharemaster.member_no )
and ( shsharemaster.coop_id = shsharetype.coop_id )
and ( shsharemaster.sharetype_code = shsharetype.sharetype_code )
and ( ( mbmembmaster.coop_id = :as_coopid )
and ( mbmembmaster.member_no = :as_memno ) )
DELETE FROM "LNCONTMASTER" WHERE (("COOP_ID" = :Original_COOP_ID) AND ("LOANCONTRACT_NO" = :Original_LOANCONTRACT_NO))
INSERT INTO "LNCONTMASTER" ("COOP_ID", "LOANCONTRACT_NO", "LOANTYPE_CODE", "LOANOBJECTIVE_CODE", "STARTCONT_DATE", "LAST_PERIODRCV", "LAST_PERIODPAY", "LASTRECEIVE_DATE", "LASTPAYMENT_DATE", "LASTCALINT_DATE", "LASTKEEPING_DATE", "LASTPROCESS_DATE", "PRINCIPAL_ARREAR", "INTEREST_ARREAR", "INTMONTH_ARREAR", "INTYEAR_ARREAR", "INTEREST_ACCUM", "INTACCUM_LASTYEAR", "INTPAYMENT_AMT", "LAST_STM_NO", "LAST_TRANSCONT_NO", "CONTRACT_TIME", "EXPIRECONT_DATE", "UPDATE_BYENTRYID", "UPDATE_BYENTRYIP") VALUES (:COOP_ID, :LOANCONTRACT_NO, :LOANTYPE_CODE, :LOANOBJECTIVE_CODE, :STARTCONT_DATE, :LAST_PERIODRCV, :LAST_PERIODPAY, :LASTRECEIVE_DATE, :LASTPAYMENT_DATE, :LASTCALINT_DATE, :LASTKEEPING_DATE, :LASTPROCESS_DATE, :PRINCIPAL_ARREAR, :INTEREST_ARREAR, :INTMONTH_ARREAR, :INTYEAR_ARREAR, :INTEREST_ACCUM, :INTACCUM_LASTYEAR, :INTPAYMENT_AMT, :LAST_STM_NO, :LAST_TRANSCONT_NO, :CONTRACT_TIME, :EXPIRECONT_DATE, :UPDATE_BYENTRYID, :UPDATE_BYENTRYIP)
select lncontmaster.coop_id,
lncontmaster.loancontract_no,
lncontmaster.loantype_code,
lncontmaster.loanobjective_code,
lncontmaster.startcont_date,
lncontmaster.last_periodrcv,
lncontmaster.last_periodpay,
lncontmaster.lastreceive_date,
lncontmaster.lastpayment_date,
lncontmaster.lastcalint_date,
lncontmaster.lastkeeping_date,
lncontmaster.lastprocess_date,
lncontmaster.principal_arrear,
lncontmaster.interest_arrear,
lncontmaster.intmonth_arrear,
lncontmaster.intyear_arrear,
lncontmaster.interest_accum,
lncontmaster.intaccum_lastyear,
lncontmaster.intpayment_amt,
lncontmaster.last_stm_no,
lncontmaster.last_transcont_no,
lncontmaster.contract_time,
lncontmaster.expirecont_date,
lncontmaster.update_byentryid,
lncontmaster.update_byentryip
from lncontmaster
where ( lncontmaster.coop_id = :as_coopid )
and ( lncontmaster.member_no = :as_memno )
and ( lncontmaster.contract_status > 0 )
UPDATE "LNCONTMASTER" SET "COOP_ID" = :COOP_ID, "LOANCONTRACT_NO" = :LOANCONTRACT_NO, "LOANTYPE_CODE" = :LOANTYPE_CODE, "LOANOBJECTIVE_CODE" = :LOANOBJECTIVE_CODE, "STARTCONT_DATE" = :STARTCONT_DATE, "LAST_PERIODRCV" = :LAST_PERIODRCV, "LAST_PERIODPAY" = :LAST_PERIODPAY, "LASTRECEIVE_DATE" = :LASTRECEIVE_DATE, "LASTPAYMENT_DATE" = :LASTPAYMENT_DATE, "LASTCALINT_DATE" = :LASTCALINT_DATE, "LASTKEEPING_DATE" = :LASTKEEPING_DATE, "LASTPROCESS_DATE" = :LASTPROCESS_DATE, "PRINCIPAL_ARREAR" = :PRINCIPAL_ARREAR, "INTEREST_ARREAR" = :INTEREST_ARREAR, "INTMONTH_ARREAR" = :INTMONTH_ARREAR, "INTYEAR_ARREAR" = :INTYEAR_ARREAR, "INTEREST_ACCUM" = :INTEREST_ACCUM, "INTACCUM_LASTYEAR" = :INTACCUM_LASTYEAR, "INTPAYMENT_AMT" = :INTPAYMENT_AMT, "LAST_STM_NO" = :LAST_STM_NO, "LAST_TRANSCONT_NO" = :LAST_TRANSCONT_NO, "CONTRACT_TIME" = :CONTRACT_TIME, "EXPIRECONT_DATE" = :EXPIRECONT_DATE, "UPDATE_BYENTRYID" = :UPDATE_BYENTRYID, "UPDATE_BYENTRYIP" = :UPDATE_BYENTRYIP WHERE (("COOP_ID" = :Original_COOP_ID) AND ("LOANCONTRACT_NO" = :Original_LOANCONTRACT_NO))