140: -- as well.
141:
142: if (ap_invoices_pkg.get_encumbered_flag(X_invoice_id) = 'Y') then
143: -- Cannot change the invoice_amount as it is encumbered
144: fnd_message.set_name('SQLAP','AP_INV_ALL_DISTS_ENCUMB');
145: app_exception.raise_exception;
146: elsif (ap_invoices_pkg.get_posting_status(X_invoice_id) = 'Y') then
147: -- Cannot change the invoice_amount as it is posted
148: fnd_message.set_name('SQLAP','AP_INV_ALL_DIST_POSTED');
144: fnd_message.set_name('SQLAP','AP_INV_ALL_DISTS_ENCUMB');
145: app_exception.raise_exception;
146: elsif (ap_invoices_pkg.get_posting_status(X_invoice_id) = 'Y') then
147: -- Cannot change the invoice_amount as it is posted
148: fnd_message.set_name('SQLAP','AP_INV_ALL_DIST_POSTED');
149: app_exception.raise_exception;
150: elsif (ap_invoices_pkg.selected_for_payment_flag(
151: X_invoice_id) = 'Y') then
152: -- Cannot change the amount as it is selected for payment
149: app_exception.raise_exception;
150: elsif (ap_invoices_pkg.selected_for_payment_flag(
151: X_invoice_id) = 'Y') then
152: -- Cannot change the amount as it is selected for payment
153: fnd_message.set_name('SQLAP','AP_INV_SELECTED_INVOICE');
154: app_exception.raise_exception;
155: elsif (l_allow_paid_invoice_adjust <> 'Y'
156: and nvl(x_calling_mode, 'X') <> 'APXIIMPT') then
157: fnd_message.set_name('SQLAP','AP_DIST_NO_UPDATE_PAID');
153: fnd_message.set_name('SQLAP','AP_INV_SELECTED_INVOICE');
154: app_exception.raise_exception;
155: elsif (l_allow_paid_invoice_adjust <> 'Y'
156: and nvl(x_calling_mode, 'X') <> 'APXIIMPT') then
157: fnd_message.set_name('SQLAP','AP_DIST_NO_UPDATE_PAID');
158: app_exception.raise_exception;
159: end if;
160:
161: -- Look at the sign of the adjustment and determine whether
315: -- fail the procedure and tell the user.
316: --
317: if (l_current_payment_num is null) then
318: -- Cannot find a payment schedule to adjust
319: FND_MESSAGE.Set_Name('SQLAP', 'AP_INV_NO_PAYMENT_SCHEDULE');
320: FND_MESSAGE.Set_Name('SQLAP', 'AP_PAY_NO_PAYMENT_SCHEDULE');
321: APP_EXCEPTION.Raise_Exception;
322: end if;
323:
316: --
317: if (l_current_payment_num is null) then
318: -- Cannot find a payment schedule to adjust
319: FND_MESSAGE.Set_Name('SQLAP', 'AP_INV_NO_PAYMENT_SCHEDULE');
320: FND_MESSAGE.Set_Name('SQLAP', 'AP_PAY_NO_PAYMENT_SCHEDULE');
321: APP_EXCEPTION.Raise_Exception;
322: end if;
323:
324: -- Adjust for any rounding errors that might have been introduced
441:
442: EXCEPTION
443: WHEN OTHERS THEN
444: IF (SQLCODE <> -20001) THEN
445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
448: current_calling_sequence);
449: FND_MESSAGE.SET_TOKEN('PARAMETERS',
442: EXCEPTION
443: WHEN OTHERS THEN
444: IF (SQLCODE <> -20001) THEN
445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
448: current_calling_sequence);
449: FND_MESSAGE.SET_TOKEN('PARAMETERS',
450: 'X_invoice_id = ' ||X_invoice_id
443: WHEN OTHERS THEN
444: IF (SQLCODE <> -20001) THEN
445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
448: current_calling_sequence);
449: FND_MESSAGE.SET_TOKEN('PARAMETERS',
450: 'X_invoice_id = ' ||X_invoice_id
451: ||', X_invoice_amount = ' ||X_invoice_amount
445: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
446: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
447: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
448: current_calling_sequence);
449: FND_MESSAGE.SET_TOKEN('PARAMETERS',
450: 'X_invoice_id = ' ||X_invoice_id
451: ||', X_invoice_amount = ' ||X_invoice_amount
452: ||', X_payment_status_flag= '||X_payment_status_flag
453: ||', X_invoice_type_lookup_code = '||X_invoice_type_lookup_code
456: ||', X_message2 = ' ||X_message2
457: ||', X_reset_match_status = '||X_reset_match_status
458: ||', X_liability_adjusted_flag = '||X_liability_adjusted_flag
459: );
460: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
461: END IF;
462: APP_EXCEPTION.RAISE_EXCEPTION;
463:
464: END adjust_pay_schedule;
895: AND (X_Org_Id IS NULL)))
896: ) then
897: return;
898: else
899: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
900: APP_EXCEPTION.RAISE_EXCEPTION;
901: end if;
902:
903: EXCEPTION
903: EXCEPTION
904: WHEN OTHERS THEN
905: IF (SQLCODE <> -20001) THEN
906: IF (SQLCODE = -54) THEN
907: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
908: ELSE
909: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
910: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
911: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
905: IF (SQLCODE <> -20001) THEN
906: IF (SQLCODE = -54) THEN
907: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
908: ELSE
909: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
910: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
911: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
912: current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS',
906: IF (SQLCODE = -54) THEN
907: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
908: ELSE
909: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
910: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
911: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
912: current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS',
914: 'X_Invoice_Id = '||X_Invoice_Id
907: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
908: ELSE
909: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
910: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
911: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
912: current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS',
914: 'X_Invoice_Id = '||X_Invoice_Id
915: ||', X_Payment_Num = '||X_Payment_Num
909: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
910: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
911: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
912: current_calling_sequence);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS',
914: 'X_Invoice_Id = '||X_Invoice_Id
915: ||', X_Payment_Num = '||X_Payment_Num
916: );
917: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
913: FND_MESSAGE.SET_TOKEN('PARAMETERS',
914: 'X_Invoice_Id = '||X_Invoice_Id
915: ||', X_Payment_Num = '||X_Payment_Num
916: );
917: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
918: END IF;
919: END IF;
920: APP_EXCEPTION.RAISE_EXCEPTION;
921: