[Home] [Help]
16: # -1 = failure
17: #
18: # DESCRIPTION
19: # calculate amount_trans using indicators in gl_event_plc and po_cost_dtl
20: # before inserting into po_dist_dtl table
21: # HISTORY
22: # 2/17/99 T.Ricci increment var GML_PO_GLDIST.P_tot_amount_aap_aqui
23: # when calculating an AAP account (was only doing it for AAC)
24: # Bug820997
226: # -1 = failure
227: #
228: # DESCRIPTION
229: # calculate amount_trans using indicators in gl_event_plc and po_cost_dtl
230: # before inserting into po_dist_dtl table
231: #
232: ##########################################################################*/
233:
234: PROCEDURE calc_dist_amount AS
524: /* Each time delete the distributions and recreate them. */
525: /* B1409258*/
526: IF V_action = 4
527: THEN
528: DELETE po_dist_dtl
529: WHERE doc_type = P_doc_type
530: AND DOC_ID = P_pos_id
531: AND line_id = P_line_id;
532: END IF;
960: #
961: #
962: # DESCRIPTION
963: # This procedure would set data into the Record group for final posting
964: # into the PO Dist table. ( PO_DIST_DTL ).
965: # Uday Phadtare 02/25/2002 B2237665 Added do_type in the where clause
966: # when updating po_dist_dtl.
967: ##############################################################################*/
968:
962: # DESCRIPTION
963: # This procedure would set data into the Record group for final posting
964: # into the PO Dist table. ( PO_DIST_DTL ).
965: # Uday Phadtare 02/25/2002 B2237665 Added do_type in the where clause
966: # when updating po_dist_dtl.
967: ##############################################################################*/
968:
969: PROCEDURE set_data(retcode IN OUT NOCOPY NUMBER) AS
970: /*x_row_num NUMBER DEFAULT 0;*/
986: over to the APPS side.*/
987: X_combination_id NUMBER;
988:
989: CURSOR Cur_count_rows IS
990: SELECT count (*) from po_dist_dtl
991: WHERE doc_id = GML_PO_GLDIST.P_pos_id and
992: line_id = GML_PO_GLDIST.P_line_id and
993: doc_type = GML_PO_GLDIST.P_doc_type;
994:
1043: END IF;
1044:
1045:
1046: IF (GML_PO_GLDIST.P_action = 1 ) THEN
1047: INSERT INTO PO_DIST_DTL ( DOC_TYPE,
1048: DOC_ID,
1049: LINE_ID,
1050: RECV_SEQ_NO,
1051: SEQ_NO,
1128: end if;
1129:
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1153: seq_no = GML_PO_GLDIST.P_row_num_upd;
1154:
1155: /* B1409258 PPB added the above insert statement incase if PO distributions are not created
1156: for PO due to some reason. If the PO is then updated the the correct distributions will be created...
1157: ie program goes to update the po_dist_dtl and finds no record there and then inserts a new if there is
1158: no record. */
1159: IF (SQL%ROWCOUNT = 0) THEN
1160:
1161: INSERT INTO PO_DIST_DTL ( DOC_TYPE,
1157: ie program goes to update the po_dist_dtl and finds no record there and then inserts a new if there is
1158: no record. */
1159: IF (SQL%ROWCOUNT = 0) THEN
1160:
1161: INSERT INTO PO_DIST_DTL ( DOC_TYPE,
1162: DOC_ID,
1163: LINE_ID,
1164: RECV_SEQ_NO,
1165: SEQ_NO,
1436: # 1 = success
1437: # -1 = failure
1438: #
1439: # DESCRIPTION
1440: # After po_dist_dtl database retreival if a new aquisition cost was entered
1441: # (In popaced2) map it and display.
1442: # If :system.record_status in INSERT mode, we call this procedure from
1443: # popaced2, for each of the record in the INSERT status.
1444: #
1536: ##########################################################################*/
1537:
1538: PROCEDURE delete_aqui_costs IS
1539: BEGIN
1540: DELETE FROM PO_DIST_DTL
1541: WHERE nvl(aqui_cost_id,0) > 0 and
1542: doc_id = GML_PO_GLDIST.P_pos_id and
1543: line_id = GML_PO_GLDIST.P_line_id and
1544: doc_type = GML_PO_GLDIST.P_doc_type ;
2027: FROM gl_code_combinations_kfv cc,
2028: cpg_oragems_mapping map,
2029: gl_accu_mst acu,
2030: gl_acct_mst act,
2031: po_dist_dtl pdd,
2032: po_distributions_all pod,
2033: gl_plcy_mst gpm,
2034: gl_sets_of_books gsob
2035: WHERE map.po_id = v_po_id