28: P_CURRENCY_CODE_1 := L_CURRENCY;
29: P_EXCHANGE_RATE_1 := 1;
30: ELSE
31: IF (P_EXCHANGE_RATE IS NULL) THEN
32: FND_MESSAGE.SET_NAME('GMF'
33: ,'GMF_SRS_EFC_NO_XCHG');
34: /*SRW.MESSAGE(100
35: ,FND_MESSAGE.GET)*/NULL;
36: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
31: IF (P_EXCHANGE_RATE IS NULL) THEN
32: FND_MESSAGE.SET_NAME('GMF'
33: ,'GMF_SRS_EFC_NO_XCHG');
34: /*SRW.MESSAGE(100
35: ,FND_MESSAGE.GET)*/NULL;
36: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
37: END IF;
38: END IF;
39: IF (P_FRM_ITEM IS NOT NULL AND P_FRM_ITEM > P_TO_ITEM AND P_FRM_ITEM IS NOT NULL) THEN
36: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
37: END IF;
38: END IF;
39: IF (P_FRM_ITEM IS NOT NULL AND P_FRM_ITEM > P_TO_ITEM AND P_FRM_ITEM IS NOT NULL) THEN
40: FND_MESSAGE.SET_NAME('GMF'
41: ,'CM_BAD_TO_ITEM_NO');
42: /*SRW.MESSAGE(100
43: ,FND_MESSAGE.GET)*/NULL;
44: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
39: IF (P_FRM_ITEM IS NOT NULL AND P_FRM_ITEM > P_TO_ITEM AND P_FRM_ITEM IS NOT NULL) THEN
40: FND_MESSAGE.SET_NAME('GMF'
41: ,'CM_BAD_TO_ITEM_NO');
42: /*SRW.MESSAGE(100
43: ,FND_MESSAGE.GET)*/NULL;
44: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
45: END IF;
46: IF (P_FRM_ORGN IS NOT NULL AND P_FRM_ORGN > P_TO_ORGN AND P_TO_ORGN IS NOT NULL) THEN
47: FND_MESSAGE.SET_NAME('GMF'
43: ,FND_MESSAGE.GET)*/NULL;
44: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
45: END IF;
46: IF (P_FRM_ORGN IS NOT NULL AND P_FRM_ORGN > P_TO_ORGN AND P_TO_ORGN IS NOT NULL) THEN
47: FND_MESSAGE.SET_NAME('GMF'
48: ,'CM_BAD_TO_ITEM_NO');
49: /*SRW.MESSAGE(100
50: ,FND_MESSAGE.GET)*/NULL;
51: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
46: IF (P_FRM_ORGN IS NOT NULL AND P_FRM_ORGN > P_TO_ORGN AND P_TO_ORGN IS NOT NULL) THEN
47: FND_MESSAGE.SET_NAME('GMF'
48: ,'CM_BAD_TO_ITEM_NO');
49: /*SRW.MESSAGE(100
50: ,FND_MESSAGE.GET)*/NULL;
51: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
52: END IF;
53: IF (P_FROM_COST_CATEGORY > P_TO_COST_CATEGORY AND P_FROM_COST_CATEGORY IS NOT NULL AND P_TO_COST_CATEGORY IS NOT NULL) THEN
54: FND_MESSAGE.SET_NAME('GMF'
50: ,FND_MESSAGE.GET)*/NULL;
51: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
52: END IF;
53: IF (P_FROM_COST_CATEGORY > P_TO_COST_CATEGORY AND P_FROM_COST_CATEGORY IS NOT NULL AND P_TO_COST_CATEGORY IS NOT NULL) THEN
54: FND_MESSAGE.SET_NAME('GMF'
55: ,'CM_BAD_TO_ITEMCOST_CLS');
56: /*SRW.MESSAGE(100
57: ,FND_MESSAGE.GET)*/NULL;
58: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
53: IF (P_FROM_COST_CATEGORY > P_TO_COST_CATEGORY AND P_FROM_COST_CATEGORY IS NOT NULL AND P_TO_COST_CATEGORY IS NOT NULL) THEN
54: FND_MESSAGE.SET_NAME('GMF'
55: ,'CM_BAD_TO_ITEMCOST_CLS');
56: /*SRW.MESSAGE(100
57: ,FND_MESSAGE.GET)*/NULL;
58: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59: END IF;
60: IF (P_FROM_LOT > P_TO_LOT AND P_FROM_LOT IS NOT NULL AND P_TO_LOT IS NOT NULL) THEN
61: FND_MESSAGE.SET_NAME('GMF'
57: ,FND_MESSAGE.GET)*/NULL;
58: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59: END IF;
60: IF (P_FROM_LOT > P_TO_LOT AND P_FROM_LOT IS NOT NULL AND P_TO_LOT IS NOT NULL) THEN
61: FND_MESSAGE.SET_NAME('GMF'
62: ,'GMF_LOT_RANGE_ERR');
63: /*SRW.MESSAGE(100
64: ,FND_MESSAGE.GET)*/NULL;
65: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
60: IF (P_FROM_LOT > P_TO_LOT AND P_FROM_LOT IS NOT NULL AND P_TO_LOT IS NOT NULL) THEN
61: FND_MESSAGE.SET_NAME('GMF'
62: ,'GMF_LOT_RANGE_ERR');
63: /*SRW.MESSAGE(100
64: ,FND_MESSAGE.GET)*/NULL;
65: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
66: END IF;
67: IF (P_L_FRM_DATE > P_L_TO_DATE AND P_L_FRM_DATE IS NOT NULL AND P_L_TO_DATE IS NOT NULL) THEN
68: FND_MESSAGE.SET_NAME('GMF'
64: ,FND_MESSAGE.GET)*/NULL;
65: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
66: END IF;
67: IF (P_L_FRM_DATE > P_L_TO_DATE AND P_L_FRM_DATE IS NOT NULL AND P_L_TO_DATE IS NOT NULL) THEN
68: FND_MESSAGE.SET_NAME('GMF'
69: ,'GMF_DATE_RANGE_ERR');
70: /*SRW.MESSAGE(100
71: ,FND_MESSAGE.GET)*/NULL;
72: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
67: IF (P_L_FRM_DATE > P_L_TO_DATE AND P_L_FRM_DATE IS NOT NULL AND P_L_TO_DATE IS NOT NULL) THEN
68: FND_MESSAGE.SET_NAME('GMF'
69: ,'GMF_DATE_RANGE_ERR');
70: /*SRW.MESSAGE(100
71: ,FND_MESSAGE.GET)*/NULL;
72: /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
73: END IF;
74: RETURN (TRUE);
75: END AFTERPFORM;
85: BEGIN
86: /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
87: CP_FORMAT_MASK := FND_CURRENCY.GET_FORMAT_MASK(P_CURRENCY_CODE_1
88: ,25);
89: FND_MESSAGE.SET_NAME('GMF'
90: ,'GMF_ADJUSTMENT');
91: CP_COST_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
92: FND_MESSAGE.SET_NAME('GMF'
93: ,'GMF_INV_ADJUSTMENT');
87: CP_FORMAT_MASK := FND_CURRENCY.GET_FORMAT_MASK(P_CURRENCY_CODE_1
88: ,25);
89: FND_MESSAGE.SET_NAME('GMF'
90: ,'GMF_ADJUSTMENT');
91: CP_COST_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
92: FND_MESSAGE.SET_NAME('GMF'
93: ,'GMF_INV_ADJUSTMENT');
94: CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95: FND_MESSAGE.SET_NAME('GMF'
88: ,25);
89: FND_MESSAGE.SET_NAME('GMF'
90: ,'GMF_ADJUSTMENT');
91: CP_COST_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
92: FND_MESSAGE.SET_NAME('GMF'
93: ,'GMF_INV_ADJUSTMENT');
94: CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95: FND_MESSAGE.SET_NAME('GMF'
96: ,'GMF_SALES_ORDER');
90: ,'GMF_ADJUSTMENT');
91: CP_COST_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
92: FND_MESSAGE.SET_NAME('GMF'
93: ,'GMF_INV_ADJUSTMENT');
94: CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95: FND_MESSAGE.SET_NAME('GMF'
96: ,'GMF_SALES_ORDER');
97: CP_SO_TEXT := FND_MESSAGE.GET;
98: FND_MESSAGE.SET_NAME('GMF'
91: CP_COST_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
92: FND_MESSAGE.SET_NAME('GMF'
93: ,'GMF_INV_ADJUSTMENT');
94: CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95: FND_MESSAGE.SET_NAME('GMF'
96: ,'GMF_SALES_ORDER');
97: CP_SO_TEXT := FND_MESSAGE.GET;
98: FND_MESSAGE.SET_NAME('GMF'
99: ,'GMF_BILL_ONLY_SALES_ORDER');
93: ,'GMF_INV_ADJUSTMENT');
94: CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95: FND_MESSAGE.SET_NAME('GMF'
96: ,'GMF_SALES_ORDER');
97: CP_SO_TEXT := FND_MESSAGE.GET;
98: FND_MESSAGE.SET_NAME('GMF'
99: ,'GMF_BILL_ONLY_SALES_ORDER');
100: CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101: FND_MESSAGE.SET_NAME('GMF'
94: CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95: FND_MESSAGE.SET_NAME('GMF'
96: ,'GMF_SALES_ORDER');
97: CP_SO_TEXT := FND_MESSAGE.GET;
98: FND_MESSAGE.SET_NAME('GMF'
99: ,'GMF_BILL_ONLY_SALES_ORDER');
100: CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101: FND_MESSAGE.SET_NAME('GMF'
102: ,'GMF_DROP_SHIP_SALES_ORDER');
96: ,'GMF_SALES_ORDER');
97: CP_SO_TEXT := FND_MESSAGE.GET;
98: FND_MESSAGE.SET_NAME('GMF'
99: ,'GMF_BILL_ONLY_SALES_ORDER');
100: CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101: FND_MESSAGE.SET_NAME('GMF'
102: ,'GMF_DROP_SHIP_SALES_ORDER');
103: CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104: FND_MESSAGE.SET_NAME('GMF'
97: CP_SO_TEXT := FND_MESSAGE.GET;
98: FND_MESSAGE.SET_NAME('GMF'
99: ,'GMF_BILL_ONLY_SALES_ORDER');
100: CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101: FND_MESSAGE.SET_NAME('GMF'
102: ,'GMF_DROP_SHIP_SALES_ORDER');
103: CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104: FND_MESSAGE.SET_NAME('GMF'
105: ,'GMF_RECEIPT');
99: ,'GMF_BILL_ONLY_SALES_ORDER');
100: CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101: FND_MESSAGE.SET_NAME('GMF'
102: ,'GMF_DROP_SHIP_SALES_ORDER');
103: CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104: FND_MESSAGE.SET_NAME('GMF'
105: ,'GMF_RECEIPT');
106: CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107: FND_MESSAGE.SET_NAME('GMD'
100: CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101: FND_MESSAGE.SET_NAME('GMF'
102: ,'GMF_DROP_SHIP_SALES_ORDER');
103: CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104: FND_MESSAGE.SET_NAME('GMF'
105: ,'GMF_RECEIPT');
106: CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107: FND_MESSAGE.SET_NAME('GMD'
108: ,'GMD_SAMPLE_PROD');
102: ,'GMF_DROP_SHIP_SALES_ORDER');
103: CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104: FND_MESSAGE.SET_NAME('GMF'
105: ,'GMF_RECEIPT');
106: CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107: FND_MESSAGE.SET_NAME('GMD'
108: ,'GMD_SAMPLE_PROD');
109: CP_PROD_TEXT := FND_MESSAGE.GET;
110: FND_MESSAGE.SET_NAME('GMD'
103: CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104: FND_MESSAGE.SET_NAME('GMF'
105: ,'GMF_RECEIPT');
106: CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107: FND_MESSAGE.SET_NAME('GMD'
108: ,'GMD_SAMPLE_PROD');
109: CP_PROD_TEXT := FND_MESSAGE.GET;
110: FND_MESSAGE.SET_NAME('GMD'
111: ,'GMF_TRANSFER');
105: ,'GMF_RECEIPT');
106: CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107: FND_MESSAGE.SET_NAME('GMD'
108: ,'GMD_SAMPLE_PROD');
109: CP_PROD_TEXT := FND_MESSAGE.GET;
110: FND_MESSAGE.SET_NAME('GMD'
111: ,'GMF_TRANSFER');
112: CP_XFER_TEXT := FND_MESSAGE.GET;
113: RETURN (TRUE);
106: CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107: FND_MESSAGE.SET_NAME('GMD'
108: ,'GMD_SAMPLE_PROD');
109: CP_PROD_TEXT := FND_MESSAGE.GET;
110: FND_MESSAGE.SET_NAME('GMD'
111: ,'GMF_TRANSFER');
112: CP_XFER_TEXT := FND_MESSAGE.GET;
113: RETURN (TRUE);
114: END BEFOREREPORT;
108: ,'GMD_SAMPLE_PROD');
109: CP_PROD_TEXT := FND_MESSAGE.GET;
110: FND_MESSAGE.SET_NAME('GMD'
111: ,'GMF_TRANSFER');
112: CP_XFER_TEXT := FND_MESSAGE.GET;
113: RETURN (TRUE);
114: END BEFOREREPORT;
115: FUNCTION CF_SRC_TRANSFORMULA(DOC_ID IN NUMBER
116: ,LINE_ID IN NUMBER