DECLARE V_SL NUMBER DEFAULT 0; V_FIRM_NAME_ENG VARCHAR2(250); V_WORK_NAME VARCHAR2(250); V_WO_NO VARCHAR2(250); V_CREATED_ON VARCHAR2(250); V_TOTAL NUMBER; V_TOTAL_AMT_W VARCHAR2(500); V_INV_NO VARCHAR2(500); V_INV_DT DATE; V_WO_ORD_DATE DATE; V_ESTMT_CMPL_DATE DATE; V_BILLSTATUS VARCHAR2(250); V_DTOFCOMP VARCHAR2(250); V_WO_ORDER_TYPE VARCHAR2(100); V_SEAL_IMG VARCHAR2(250); BEGIN select A.WORK_NAME, A.WO_NO, c.FIRM_NAME_ENG, A.CREATED_ON ,SUM(B.TOTAL),FNC_AMOUNT_INWORDS(SUM(TOTAL)), INV_NO,INV_DT,WO_ORD_DATE,ESTMT_CMPL_DATE, func_con_worok_order_slot(A.WO_ID, A.REQ_MST_ID), fnc_slot_date(A.REQ_MST_ID, A.WO_ID) INTO V_FIRM_NAME_ENG,V_WORK_NAME,V_WO_NO,V_CREATED_ON ,V_TOTAL ,V_TOTAL_AMT_W,V_INV_NO,V_INV_DT,V_WO_ORD_DATE,V_ESTMT_CMPL_DATE, V_BILLSTATUS, V_DTOFCOMP from CONT_BILL_MST a join CDDL_CON.CONT_PROFILE c on A.CONT_ID = c.CONT_ID join CONT_BILL_INV b on A.BILL_MST_ID = b.BILL_MST_ID WHERE a.BILL_MST_ID =:P137_BILL_MST_ID GROUP BY A.WORK_NAME,A.WO_NO,C.FIRM_NAME_ENG,A.CREATED_ON,INV_NO,INV_DT,WO_ORD_DATE,ESTMT_CMPL_DATE,func_con_worok_order_slot(A.WO_ID, A.REQ_MST_ID), fnc_slot_date(A.REQ_MST_ID, A.WO_ID); BEGIN select b.BOQ_TYPE --, b.BOQ_MST_ID, a.CONT_WO_ID into V_WO_ORDER_TYPE from CONT_WORK_ORDER a, CONT_BOQ_MST b where a.BOQ_MST_ID = b.BOQ_MST_ID and a.CONT_WO_ID = :P137_WO_ID ; EXCEPTION WHEN NO_DATA_FOUND THEN V_WO_ORDER_TYPE := ' '; END; htp.p(' '); htp.p('
'); htp.p('

DHAKA WASA

Form No. FORM NO. 4

DHAKA WATER SUPPLY WATER & SEWERAGE AUTHORITY

Accounts Form for ACCOUNTS FORM FOR '||V_BILLSTATUS||'

(For Contractors and Supplier to be used when a single payment is made for a job or contract)
  Cash Book Voucher No. ............................. Date '||V_INV_DT||'  
  Heads of Account to be debited: ............................................  
  Name of Constractor : '||V_FIRM_NAME_ENG||'  
  Name of Work : '||V_WORK_NAME||'  
 
  Contract Reference/Purchase order reference: '||V_WO_NO||' Date: '||V_DTOFCOMP||'  
  Date of Completion: '||V_ESTMT_CMPL_DATE||'  
  Reference to recorded measurement Book No.: Date: '||V_INV_DT||'  
'); IF V_WO_ORDER_TYPE = 'Goods' THEN htp.p(''); for T in (SELECT NVL(ITEM_DESC,NO_HTML(DESCP)) ITEM_DESC, QTY, UNIT, TO_CHAR(UNIT_RATE,'99G99G99G99G99G990D00') UNIT_RATE, TO_CHAR(TOTAL,'99G99G99G99G99G990D00') TOTAL, ACKNOWLEDGEMENT, A.REMARKS FROM CONT_BILL_INV A, CONT_BILL_MST B WHERE A.BILL_MST_ID = B.BILL_MST_ID(+) AND A.BILL_MST_ID = :P137_BILL_MST_ID) loop V_SL := V_SL + 1; htp.p(''); end loop; htp.p('
Item No. Description of Articles Unit Quantity Rate Bill Amount Payees Acknowledgement with date Remarks
1 2 3 4 5 6 7 8
'||V_SL||' '||T.ITEM_DESC||' '||T.UNIT||' '||T.QTY||' '||T.UNIT_RATE||' '||T.TOTAL||' '||T.ACKNOWLEDGEMENT||' '||T.REMARKS||'
      Total TK. '||TO_CHAR(V_TOTAL, '99G99G99G99G99G990D00')||'    
 
In Words: '||V_TOTAL_AMT_W||'.
'); ELSE htp.p(''); for T in (SELECT NVL(ITEM_DESC,NO_HTML(DESCP)) ITEM_DESC, QTY, UNIT, TO_CHAR(UNIT_RATE,'99G99G99G99G99G990D00') UNIT_RATE, TO_CHAR(TOTAL,'99G99G99G99G99G990D00') TOTAL, ACKNOWLEDGEMENT, A.REMARKS, LENGTHH, BREATHH, DEPTHH FROM CONT_BILL_INV A, CONT_BILL_MST B WHERE A.BILL_MST_ID = B.BILL_MST_ID(+) AND A.BILL_MST_ID = :P137_BILL_MST_ID) loop V_SL := V_SL + 1; htp.p(''); end loop; htp.p(''); htp.p('
Item No. Description of Articles Length Breath Depth Quantity Bill Amount Payees Acknowledgement with date Remarks
1 2 3 4 5 6 7 8 9
'||V_SL||' '||T.ITEM_DESC||' '||T.LENGTHH||' '||T.BREATHH||' '||T.DEPTHH||' '||T.QTY||' '||T.TOTAL||' '||T.ACKNOWLEDGEMENT||' '||T.REMARKS||'
      Total TK. '||TO_CHAR(V_TOTAL, '99G99G99G99G99G990D00')||'    
 
In Words: '||V_TOTAL_AMT_W||'.
'); END IF; htp.p('
Dated Signature of Contractor '); htp.p('
'); for c1 in( SELECT A.DOC_PATH FROM cddl_con.CONT_PRO_IMG A, CONT_BILL_MST B WHERE A.cont_id = B.cont_id AND B.BILL_MST_ID = :P137_BILL_MST_ID AND A.IMG_TYPE= 'G' AND NVL(A.STATUS,'N')='Y' ) loop htp.p('Signature Image'); end loop; htp.p('
'); htp.p('		  
  '); htp.p('
'); BEGIN SELECT DOC_PATH INTO V_SEAL_IMG FROM CDDL_CON.CONT_PRO_IMG WHERE CONT_ID = :P137_CONT_ID AND IMG_TYPE= 'S' AND NVL(STATUS,'N')='Y'; EXCEPTION WHEN NO_DATA_FOUND THEN V_SEAL_IMG := ' '; END; htp.p('Seal Image'); htp.p('
'); htp.p('		  



'); htp.p('
'); for c1 in ( SELECT A.USERS, A.BILL_MST_ID, A.BRANCH_ID, B.USER_SIL ATTCH, B.MIME_TYPE ATTCH_MIMETYPE, C.FULL_NAME_ENG PREPARED, C.USER_LEVEL, D.NAME_ENG DESIG FROM (SELECT LOGIN_ID_FROM USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_FROM IS NOT NULL UNION SELECT LOGIN_ID_TO USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_TO IS NOT NULL) A, USER_DEG_SIL B, APP_USERS C, budget.designations D WHERE A.BRANCH_ID IS NOT NULL AND A.USERS = B.LOGIN_ID AND A.USERS = C.LOGIN_ID AND C.DESIG_ID = D.ID AND C.USER_LEVEL = 4 AND A.BILL_MST_ID = :P137_BILL_MST_ID AND A.BRANCH_ID = (SELECT ZONE_ID FROM CONT_BILL_MST WHERE BILL_MST_ID = :P137_BILL_MST_ID) AND B.STATUS = 'Y' ) loop htp.p(''||c1.Prepared||'
'); htp.p(''||c1.desig||'
'); htp.p( 'Signature Image '); end loop; ------- /* htp.p('

১৭-১১-২০ ২২ ১৩:২০ :৫১

'||c1.Prepared||'

'||V_AUTHORITY||'

'||V_ZONE||', ঢাকা ওয়াসা

ঢাকা ওয়াসা

*/ htp.p(''); htp.p('		 '); htp.p('
'); for c1 in ( SELECT A.USERS, A.BILL_MST_ID, A.BRANCH_ID, B.USER_SIL ATTCH, B.MIME_TYPE ATTCH_MIMETYPE, C.FULL_NAME_ENG PREPARED, C.USER_LEVEL, D.NAME_ENG DESIG FROM (SELECT LOGIN_ID_FROM USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_FROM IS NOT NULL UNION SELECT LOGIN_ID_TO USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_TO IS NOT NULL) A, USER_DEG_SIL B, APP_USERS C, budget.designations D WHERE A.BRANCH_ID IS NOT NULL AND A.USERS = B.LOGIN_ID AND A.USERS = C.LOGIN_ID AND C.DESIG_ID = D.ID AND C.USER_LEVEL = 3 AND A.BILL_MST_ID = :P137_BILL_MST_ID AND A.BRANCH_ID = (SELECT ZONE_ID FROM CONT_BILL_MST WHERE BILL_MST_ID = :P137_BILL_MST_ID) AND B.STATUS = 'Y' ) loop htp.p(''||c1.Prepared||'
'); htp.p(''||c1.desig||'
'); htp.p( 'Signature Image '); end loop; htp.p('
'); htp.p('		 '); htp.p('
'); for c1 in ( SELECT A.USERS, A.BILL_MST_ID, A.BRANCH_ID, B.USER_SIL ATTCH, B.MIME_TYPE ATTCH_MIMETYPE, C.FULL_NAME_ENG PREPARED, C.USER_LEVEL, D.NAME_ENG DESIG FROM (SELECT LOGIN_ID_FROM USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_FROM IS NOT NULL UNION SELECT LOGIN_ID_TO USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_TO IS NOT NULL) A, USER_DEG_SIL B, APP_USERS C, budget.designations D WHERE A.BRANCH_ID IS NOT NULL AND A.USERS = B.LOGIN_ID AND A.USERS = C.LOGIN_ID AND C.DESIG_ID = D.ID AND C.USER_LEVEL = 2 AND A.BILL_MST_ID = :P137_BILL_MST_ID AND A.BRANCH_ID = (SELECT ZONE_ID FROM CONT_BILL_MST WHERE BILL_MST_ID = :P137_BILL_MST_ID) AND B.STATUS = 'Y' ) loop htp.p(''||c1.Prepared||'
'); htp.p(''||c1.desig||'
'); htp.p( 'Signature Image '); end loop; htp.p('
'); htp.p('		 '); htp.p('
'); for c1 in ( SELECT A.USERS, A.BILL_MST_ID, A.BRANCH_ID, B.USER_SIL ATTCH, B.MIME_TYPE ATTCH_MIMETYPE, C.FULL_NAME_ENG PREPARED, C.USER_LEVEL, D.NAME_ENG DESIG FROM (SELECT LOGIN_ID_FROM USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_FROM IS NOT NULL UNION SELECT LOGIN_ID_TO USERS, BILL_MST_ID, BRANCH_ID FROM BUD_BILL_REMARKS WHERE LOGIN_ID_TO IS NOT NULL) A, USER_DEG_SIL B, APP_USERS C, budget.designations D WHERE A.BRANCH_ID IS NOT NULL AND A.USERS = B.LOGIN_ID AND A.USERS = C.LOGIN_ID AND C.DESIG_ID = D.ID AND C.USER_LEVEL = 1 AND A.BILL_MST_ID = :P137_BILL_MST_ID AND A.BRANCH_ID = (SELECT ZONE_ID FROM CONT_BILL_MST WHERE BILL_MST_ID = :P137_BILL_MST_ID) AND B.STATUS = 'Y' ) loop htp.p(''||c1.Prepared||'
'); htp.p(''||c1.desig||'
'); htp.p( 'Signature Image

'); end loop; htp.p('
'); htp.p('



For use in Accounts Office:
'); htp.p('
'); EXCEPTION WHEN NO_DATA_FOUND THEN NULL; WHEN OTHERS THEN NULL; END;