ERP 2.50:Acceptance Testing/Create payment terms script
R2.3x version
DECLARE
v_paymentterm_id NUMBER(10);
v_client_id NUMBER(10);
BEGIN
SELECT MAX(AD_CLIENT_ID) INTO v_client_id FROM AD_CLIENT;
SELECT COALESCE(MAX(C_PAYMENTTERM_ID),999999) +1 INTO v_paymentterm_id FROM C_PAYMENTTERM;
INSERT INTO C_PAYMENTTERM
(C_PAYMENTTERM_ID, AD_CLIENT_ID, AD_ORG_ID, ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY,
NAME, AFTERDELIVERY, ISDUEFIXED, NETDAYS, FIXMONTHOFFSET, ISNEXTBUSINESSDAY, ISDEFAULT, VALUE, ISVALID)
VALUES
(v_paymentterm_id, v_client_id, 0, 'Y', SYSDATE, 100, SYSDATE, 100, '90 DAYS', 'N', 'N', 0, 3, 'N', 'N', '90d', 'N');
ad_update_sequence();
commit;
END;
R2.4x version (AfterDelivery column removed)
DECLARE
v_paymentterm_id NUMBER(10);
v_client_id NUMBER(10);
BEGIN
SELECT MAX(AD_CLIENT_ID) INTO v_client_id FROM AD_CLIENT;
SELECT COALESCE(MAX(C_PAYMENTTERM_ID),999999) +1 INTO v_paymentterm_id FROM C_PAYMENTTERM;
INSERT INTO C_PAYMENTTERM
(C_PAYMENTTERM_ID, AD_CLIENT_ID, AD_ORG_ID, ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY,
NAME, ISDUEFIXED, NETDAYS, FIXMONTHOFFSET, ISNEXTBUSINESSDAY, ISDEFAULT, VALUE, ISVALID)
VALUES
(v_paymentterm_id, v_client_id, 0, 'Y', SYSDATE, 100, SYSDATE, 100, '90 DAYS', 'N', 0, 3, 'N', 'N', '90d', 'N');
ad_update_sequence();
commit;
END;
Script for 2.50
DECLARE
v_paymentterm_id VARCHAR2(32);
v_client_id VARCHAR2(32);
BEGIN
SELECT AD_CLIENT_ID INTO v_client_id FROM AD_CLIENT WHERE CREATED = (SELECT MAX(CREATED) FROM AD_CLIENT);
AD_SEQUENCE_NEXT('C_Paymentterm', v_client_id, v_paymentterm_id);
INSERT INTO C_PAYMENTTERM
(C_PAYMENTTERM_ID, AD_CLIENT_ID, AD_ORG_ID, ISACTIVE, CREATED, CREATEDBY, UPDATED, UPDATEDBY,
NAME, ISDUEFIXED, NETDAYS, FIXMONTHOFFSET, ISNEXTBUSINESSDAY, ISDEFAULT, VALUE, ISVALID)
VALUES
(v_paymentterm_id, v_client_id, 0, 'Y', SYSDATE, 100, SYSDATE, 100, '90 DAYS', 'N', 0, 3, 'N', 'N', '90d', 'N');
commit;
END;