CREATE OR REPLACE FUNCTION a_duplica_payments()
RETURNS void AS
$BODY$ DECLARE 
  -- Logistice
  v_Record_ID VARCHAR(32); --OBTG:VARCHAR2--
  BEGIN
    --  Update AD_PInstance
  BEGIN --BODY

	FOR x IN 1..100
	LOOP   	
		v_Record_ID = get_uuid();
		INSERT INTO fin_payment (SELECT v_Record_ID, ad_client_id, ad_org_id, created, createdby,
			updated, updatedby, isactive, isreceipt, c_bpartner_id, paymentdate, c_currency_id, amount,
			writeoffamt, fin_paymentmethod_id, documentno, referenceno, status, 'N', processing,
			posted, description, fin_financial_account_id, c_doctype_id, c_project_id, c_campaign_id,
			c_activity_id, user1_id, user2_id, generated_credit, used_credit, createdbyalgorithm, finacc_txn_convert_rate,
			finacc_txn_amount, fin_rev_payment_id, c_costcenter_id, em_aprm_process_payment,
			em_aprm_reconcile_payment, em_aprm_add_scheduledpayments, em_aprm_executepayment, em_aprm_reversepayment
			FROM fin_payment WHERE fin_payment_id = '02140B113DD74DD2817BEA242F41EA54');
		
		INSERT INTO fin_payment_detail (SELECT get_uuid(), ad_client_id, ad_org_id,
			created, createdby, updated, updatedby, v_Record_ID, amount, refund, 
			isactive, writeoffamt, c_glitem_id, isprepayment FROM fin_payment_detail
			WHERE fin_payment_detail_id = '8AEB04019D3F4D89B31DBCD58E0D8B4C');
	END LOOP;
  END; --BODY
EXCEPTION
WHEN OTHERS THEN
  RETURN;
END ; $BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION a_duplica_payments()
  OWNER TO tad;

select a_duplica_payments()