jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
78812911deb67c046d4b65a200e2523436858d19
MBS/DATABASE/dbdgii_dbxconstraints.code
T

587 lines
22 KiB
XML
Raw Blame History

<?xml version="1.0" encoding="UTF-8" ?>
<File name="dbdgii_dbxconstraints.code">
<Generated>#+ Constraints Management from DB schema (dbdgii)
--------------------------------------------------------------------------------
--This code is generated by the &apos;dbxconstraints.tcl&apos; template
--Warning: Enter your changes within a &lt;BLOCK&gt; or &lt;POINT&gt; section, otherwise they will be lost.
{&lt;POINT Name=&quot;user.comments&quot;&gt;}
{&lt;/POINT&gt;}
--------------------------------------------------------------------------------
--Importing modules
IMPORT FGL libdbappCommon
{&lt;POINT Name=&quot;import&quot;&gt;}
{&lt;/POINT&gt;}
--------------------------------------------------------------------------------
--Database schema
SCHEMA dbdgii
--------------------------------------------------------------------------------
--DB constraints functions
{&lt;BLOCK Name=&quot;fct.empresastmp_checkTableConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp&quot; table
#+
#+ @param p_data - a row data LIKE empresastmp.*
#+
#+ @returnType - INTEGER, STRING
#+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_checkTableConstraints(p_forUpdate, p_data)
DEFINE p_forUpdate BOOLEAN
DEFINE p_data RECORD LIKE empresastmp.*
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE l_errNo INTEGER
DEFINE l_errMsg STRING
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
CALL dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_razon_social_checkColumnConstraints(p_data.razon_social) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_nombre_empresa_checkColumnConstraints(p_data.nombre_empresa) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_no_local_checkColumnConstraints(p_data.no_local) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_sector_checkColumnConstraints(p_data.sector) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_fecha_inicio_checkColumnConstraints(p_data.fecha_inicio) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_estado1_checkColumnConstraints(p_data.estado1) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_estado2_checkColumnConstraints(p_data.estado2) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_data.rnc) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_checkTableConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_pk_empresastmp_checkUniqueConstraint&quot;&gt;}
#+ Check the primary key uniqueness constraint on the &quot;empresastmp&quot;
#+
#+ @param p_key - Primary Key
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_pk_empresastmp_checkUniqueConstraint(p_forUpdate, p_key)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_forUpdate BOOLEAN
DEFINE p_key
RECORD
empresastmp_rnc LIKE empresastmp.rnc
END RECORD
DEFINE l_key
RECORD
empresastmp_rnc LIKE empresastmp.rnc
END RECORD
DEFINE l_where STRING
DEFINE l_sqlQuery STRING
DEFINE l_count INTEGER
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
LET l_where = &quot;WHERE empresastmp.rnc = ? &quot;
let l_sqlQuery = &quot;SELECT COUNT(*), rnc FROM empresastmp &quot;, l_where, &quot; GROUP BY rnc&quot;
PREPARE cur_empresastmp_pk_empresastmp_checkUniqueConstraint FROM l_sqlQuery
EXECUTE cur_empresastmp_pk_empresastmp_checkUniqueConstraint INTO l_count, l_key.* USING p_key.*
FREE cur_empresastmp_pk_empresastmp_checkUniqueConstraint
IF (NOT p_forUpdate AND l_count &gt; 0) OR (p_forUpdate AND l_count &gt; 0 AND p_key.* != l_key.*) THEN
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, &quot;\n- rnc: &quot; || ERROR_BAM_00002) RETURNING errNo, errMsg
END IF
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_pk_empresastmp_checkUniqueConstraint
{&lt;BLOCK Name=&quot;fct.empresastmp_rnc_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.rnc&quot; column
#+
#+ @param p_rnc - CHAR(11) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_rnc_checkColumnConstraints(p_rnc)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_rnc LIKE empresastmp.rnc
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
IF p_rnc IS NULL THEN
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, &quot;\n- rnc: &quot; || ERROR_BAM_00001) RETURNING errNo, errMsg
END IF
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_rnc_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_razon_social_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.razon_social&quot; column
#+
#+ @param p_razon_social - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_razon_social_checkColumnConstraints(p_razon_social)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_razon_social LIKE empresastmp.razon_social
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_razon_social_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_nombre_empresa_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.nombre_empresa&quot; column
#+
#+ @param p_nombre_empresa - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_nombre_empresa_checkColumnConstraints(p_nombre_empresa)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_nombre_empresa LIKE empresastmp.nombre_empresa
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_nombre_empresa_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_actividad_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.actividad&quot; column
#+
#+ @param p_actividad - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_actividad_checkColumnConstraints(p_actividad)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_actividad LIKE empresastmp.actividad
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_actividad_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_calle_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.calle&quot; column
#+
#+ @param p_calle - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_calle_checkColumnConstraints(p_calle)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_calle LIKE empresastmp.calle
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_calle_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_no_local_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.no_local&quot; column
#+
#+ @param p_no_local - CHAR(10) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_no_local_checkColumnConstraints(p_no_local)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_no_local LIKE empresastmp.no_local
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_no_local_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_sector_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.sector&quot; column
#+
#+ @param p_sector - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_sector_checkColumnConstraints(p_sector)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_sector LIKE empresastmp.sector
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_sector_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_telefono_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.telefono&quot; column
#+
#+ @param p_telefono - CHAR(15) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_telefono_checkColumnConstraints(p_telefono)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_telefono LIKE empresastmp.telefono
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_telefono_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_fecha_inicio_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.fecha_inicio&quot; column
#+
#+ @param p_fecha_inicio - CHAR(10) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_fecha_inicio_checkColumnConstraints(p_fecha_inicio)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_fecha_inicio LIKE empresastmp.fecha_inicio
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_fecha_inicio_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_estado1_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.estado1&quot; column
#+
#+ @param p_estado1 - CHAR(15) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_estado1_checkColumnConstraints(p_estado1)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_estado1 LIKE empresastmp.estado1
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_estado1_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresastmp_estado2_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresastmp.estado2&quot; column
#+
#+ @param p_estado2 - CHAR(15) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresastmp_estado2_checkColumnConstraints(p_estado2)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_estado2 LIKE empresastmp.estado2
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresastmp_estado2_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_checkTableConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas&quot; table
#+
#+ @param p_data - a row data LIKE empresas.*
#+
#+ @returnType - INTEGER, STRING
#+ @return - ERROR_SUCCESS|ERROR_FAILURE, message error
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_checkTableConstraints(p_forUpdate, p_data)
DEFINE p_forUpdate BOOLEAN
DEFINE p_data RECORD LIKE empresas.*
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE l_errNo INTEGER
DEFINE l_errMsg STRING
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
CALL dbdgii_dbxconstraints_empresas_rnc_checkColumnConstraints(p_data.rnc) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_razon_social_checkColumnConstraints(p_data.razon_social) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_nombre_empresa_checkColumnConstraints(p_data.nombre_empresa) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_actividad_checkColumnConstraints(p_data.actividad) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_calle_checkColumnConstraints(p_data.calle) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_no_local_checkColumnConstraints(p_data.no_local) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_sector_checkColumnConstraints(p_data.sector) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_telefono_checkColumnConstraints(p_data.telefono) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_fecha_inicio_checkColumnConstraints(p_data.fecha_inicio) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_estado1_checkColumnConstraints(p_data.estado1) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
CALL dbdgii_dbxconstraints_empresas_estado2_checkColumnConstraints(p_data.estado2) RETURNING l_errNo, l_errMsg
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, l_errNo, l_errMsg) RETURNING errNo, errMsg
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_checkTableConstraints
{&lt;BLOCK Name=&quot;fct.empresas_rnc_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.rnc&quot; column
#+
#+ @param p_rnc - CHAR(11) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_rnc_checkColumnConstraints(p_rnc)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_rnc LIKE empresas.rnc
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_rnc_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_razon_social_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.razon_social&quot; column
#+
#+ @param p_razon_social - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_razon_social_checkColumnConstraints(p_razon_social)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_razon_social LIKE empresas.razon_social
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_razon_social_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_nombre_empresa_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.nombre_empresa&quot; column
#+
#+ @param p_nombre_empresa - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_nombre_empresa_checkColumnConstraints(p_nombre_empresa)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_nombre_empresa LIKE empresas.nombre_empresa
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_nombre_empresa_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_actividad_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.actividad&quot; column
#+
#+ @param p_actividad - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_actividad_checkColumnConstraints(p_actividad)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_actividad LIKE empresas.actividad
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_actividad_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_calle_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.calle&quot; column
#+
#+ @param p_calle - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_calle_checkColumnConstraints(p_calle)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_calle LIKE empresas.calle
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_calle_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_no_local_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.no_local&quot; column
#+
#+ @param p_no_local - CHAR(10) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_no_local_checkColumnConstraints(p_no_local)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_no_local LIKE empresas.no_local
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_no_local_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_sector_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.sector&quot; column
#+
#+ @param p_sector - CHAR(100) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_sector_checkColumnConstraints(p_sector)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_sector LIKE empresas.sector
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_sector_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_telefono_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.telefono&quot; column
#+
#+ @param p_telefono - CHAR(15) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_telefono_checkColumnConstraints(p_telefono)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_telefono LIKE empresas.telefono
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_telefono_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_fecha_inicio_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.fecha_inicio&quot; column
#+
#+ @param p_fecha_inicio - CHAR(10) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_fecha_inicio_checkColumnConstraints(p_fecha_inicio)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_fecha_inicio LIKE empresas.fecha_inicio
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_fecha_inicio_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_estado1_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.estado1&quot; column
#+
#+ @param p_estado1 - CHAR(15) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_estado1_checkColumnConstraints(p_estado1)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_estado1 LIKE empresas.estado1
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_estado1_checkColumnConstraints
{&lt;BLOCK Name=&quot;fct.empresas_estado2_checkColumnConstraints&quot;&gt;}
#+ Check constraints on the &quot;empresas.estado2&quot; column
#+
#+ @param p_estado2 - CHAR(15) -
#+
#+ @returnType - INTEGER
#+ @return - ERROR_SUCCESS|ERROR_FAILURE
PUBLIC FUNCTION dbdgii_dbxconstraints_empresas_estado2_checkColumnConstraints(p_estado2)
DEFINE errNo INTEGER
DEFINE errMsg STRING
DEFINE p_estado2 LIKE empresas.estado2
LET errNo = ERROR_SUCCESS
INITIALIZE errMsg TO NULL
RETURN errNo, errMsg
END FUNCTION
{&lt;/BLOCK&gt;} --fct.empresas_estado2_checkColumnConstraints
--------------------------------------------------------------------------------
--Add user functions
{&lt;POINT Name=&quot;user.functions&quot;&gt;}
{&lt;/POINT&gt;}
</Generated>
<Diff/>
<Lost/>
</File>
Reference in New Issue View Git Blame Copy Permalink