src-db/database/model/functions/INSERTAT.xml
changeset 799 fef2c5e2feb7
parent 798 4994e5a604bb
child 800 1ad8094b366f
equal deleted inserted replaced
798:4994e5a604bb 799:fef2c5e2feb7
     1 <?xml version="1.0"?>
       
     2   <database name="FUNCTION INSERTAT">
       
     3     <function name="INSERTAT" type="VARCHAR">
       
     4       <parameter name="s" type="VARCHAR" mode="in">
       
     5         <default/>
       
     6       </parameter>
       
     7       <body><![CDATA[/*************************************************************************
       
     8 * The contents of this file are subject to the Openbravo  Public  License
       
     9 * Version  1.0  (the  "License"),  being   the  Mozilla   Public  License
       
    10 * Version 1.1  with a permitted attribution clause; you may not  use this
       
    11 * file except in compliance with the License. You  may  obtain  a copy of
       
    12 * the License at http://www.openbravo.com/legal/license.html
       
    13 * Software distributed under the License  is  distributed  on  an "AS IS"
       
    14 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
       
    15 * License for the specific  language  governing  rights  and  limitations
       
    16 * under the License.
       
    17 * The Original Code is Openbravo ERP.
       
    18 * The Initial Developer of the Original Code is Openbravo SL
       
    19 * All portions are Copyright (C) 2001-2006 Openbravo SL
       
    20 * All Rights Reserved.
       
    21 * Contributor(s):  ______________________________________.
       
    22 ************************************************************************/
       
    23   r VARCHAR2(10000) := '';
       
    24 BEGIN
       
    25   FOR i IN 1..length(s) LOOP
       
    26     r := r||substr(s,i,1)||'@';
       
    27   END LOOP;
       
    28   RETURN r;
       
    29 END INSERTAT
       
    30 ]]></body>
       
    31     </function>
       
    32   </database>