Function to format the invoice number in AP:
Please find the below steps for Function to format the invoice number in AP
CREATE OR REPLACE FUNCTION XXXX_VALIDATE_INVOICE(
p_invoice_number VARCHAR2)
RETURN VARCHAR2
AS
l_result VARCHAR2(10) := 'INVALID';
BEGIN
IF ((LENGTH(p_invoice_number) <> 13) OR (SUBSTR(p_invoice_number,5,1) <> '-') OR (NVL (LENGTH (TRIM (TRANSLATE (SUBSTR(p_invoice_number,1,4), '0123456789', ' '))),0) > 0) OR (NVL (LENGTH (TRIM (TRANSLATE (SUBSTR(p_invoice_number,6), '0123456789', ' '))),0) > 0)) THEN
RETURN l_result;
ELSE
RETURN 'VALID';
END IF;
EXCEPTION
WHEN OTHERS THEN
RETURN l_result;
END IRON_VALIDATE_INVOICE;
Please find the below steps for Function to format the invoice number in AP
CREATE OR REPLACE FUNCTION XXXX_VALIDATE_INVOICE(
p_invoice_number VARCHAR2)
RETURN VARCHAR2
AS
l_result VARCHAR2(10) := 'INVALID';
BEGIN
IF ((LENGTH(p_invoice_number) <> 13) OR (SUBSTR(p_invoice_number,5,1) <> '-') OR (NVL (LENGTH (TRIM (TRANSLATE (SUBSTR(p_invoice_number,1,4), '0123456789', ' '))),0) > 0) OR (NVL (LENGTH (TRIM (TRANSLATE (SUBSTR(p_invoice_number,6), '0123456789', ' '))),0) > 0)) THEN
RETURN l_result;
ELSE
RETURN 'VALID';
END IF;
EXCEPTION
WHEN OTHERS THEN
RETURN l_result;
END IRON_VALIDATE_INVOICE;
No comments:
Post a Comment