+ -- Check Credit Hold
+ SELECT cohead_holdtype INTO _coholdtype
+ FROM coitem JOIN cohead ON (cohead_id=coitem_cohead_id)
+ WHERE (coitem_id=pitemid);
+
+ SELECT calcSalesOrderAmt(cohead_id) -
+ COALESCE(SUM(currToCurr(aropenalloc_curr_id, cohead_curr_id,
+ aropenalloc_amount, cohead_orderdate)),0) INTO _balance
+ FROM coitem JOIN cohead ON (cohead_id=coitem_cohead_id)
+ LEFT OUTER JOIN aropenalloc ON (aropenalloc_doctype='S' AND
+ aropenalloc_doc_id=cohead_id)
+ WHERE (coitem_id=pitemid)
+ GROUP BY cohead_id;
+
+ --RAISE NOTICE 'issueToShipping - order balance is %', _balance;
+ IF ( (_coholdtype = 'C') AND (_balance > 0.0) ) THEN
+ RETURN -12;
+ ELSIF (_coholdtype = 'P') THEN
+ RETURN -13;
+ ELSIF (_coholdtype = 'R') THEN
+ RETURN -14;
+ END IF;
+