Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,587 @@
|
||||
<?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 'dbxconstraints.tcl' template
|
||||
--Warning: Enter your changes within a <BLOCK> or <POINT> section, otherwise they will be lost.
|
||||
{<POINT Name="user.comments">}
|
||||
{</POINT>}
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
--Importing modules
|
||||
IMPORT FGL libdbappCommon
|
||||
{<POINT Name="import">}
|
||||
{</POINT>}
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
--Database schema
|
||||
SCHEMA dbdgii
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
--DB constraints functions
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_checkTableConstraints">}
|
||||
#+ Check constraints on the "empresastmp" 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
|
||||
{</BLOCK>} --fct.empresastmp_checkTableConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint">}
|
||||
#+ Check the primary key uniqueness constraint on the "empresastmp"
|
||||
#+
|
||||
#+ @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 = "WHERE empresastmp.rnc = ? "
|
||||
|
||||
let l_sqlQuery = "SELECT COUNT(*), rnc FROM empresastmp ", l_where, " GROUP BY rnc"
|
||||
|
||||
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 > 0) OR (p_forUpdate AND l_count > 0 AND p_key.* != l_key.*) THEN
|
||||
CALL libdbapp_utilBuildErrorNoAndErrorMsg(errNo, errMsg, ERROR_FAILURE, "\n- rnc: " || ERROR_BAM_00002) RETURNING errNo, errMsg
|
||||
END IF
|
||||
|
||||
RETURN errNo, errMsg
|
||||
END FUNCTION
|
||||
{</BLOCK>} --fct.empresastmp_pk_empresastmp_checkUniqueConstraint
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_rnc_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.rnc" 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, "\n- rnc: " || ERROR_BAM_00001) RETURNING errNo, errMsg
|
||||
END IF
|
||||
|
||||
RETURN errNo, errMsg
|
||||
END FUNCTION
|
||||
{</BLOCK>} --fct.empresastmp_rnc_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_razon_social_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.razon_social" 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
|
||||
{</BLOCK>} --fct.empresastmp_razon_social_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_nombre_empresa_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.nombre_empresa" 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
|
||||
{</BLOCK>} --fct.empresastmp_nombre_empresa_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_actividad_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.actividad" 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
|
||||
{</BLOCK>} --fct.empresastmp_actividad_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_calle_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.calle" 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
|
||||
{</BLOCK>} --fct.empresastmp_calle_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_no_local_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.no_local" 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
|
||||
{</BLOCK>} --fct.empresastmp_no_local_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_sector_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.sector" 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
|
||||
{</BLOCK>} --fct.empresastmp_sector_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_telefono_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.telefono" 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
|
||||
{</BLOCK>} --fct.empresastmp_telefono_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_fecha_inicio_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.fecha_inicio" 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
|
||||
{</BLOCK>} --fct.empresastmp_fecha_inicio_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_estado1_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.estado1" 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
|
||||
{</BLOCK>} --fct.empresastmp_estado1_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresastmp_estado2_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresastmp.estado2" 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
|
||||
{</BLOCK>} --fct.empresastmp_estado2_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_checkTableConstraints">}
|
||||
#+ Check constraints on the "empresas" 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
|
||||
{</BLOCK>} --fct.empresas_checkTableConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_rnc_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.rnc" 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
|
||||
{</BLOCK>} --fct.empresas_rnc_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_razon_social_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.razon_social" 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
|
||||
{</BLOCK>} --fct.empresas_razon_social_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_nombre_empresa_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.nombre_empresa" 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
|
||||
{</BLOCK>} --fct.empresas_nombre_empresa_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_actividad_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.actividad" 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
|
||||
{</BLOCK>} --fct.empresas_actividad_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_calle_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.calle" 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
|
||||
{</BLOCK>} --fct.empresas_calle_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_no_local_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.no_local" 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
|
||||
{</BLOCK>} --fct.empresas_no_local_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_sector_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.sector" 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
|
||||
{</BLOCK>} --fct.empresas_sector_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_telefono_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.telefono" 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
|
||||
{</BLOCK>} --fct.empresas_telefono_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_fecha_inicio_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.fecha_inicio" 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
|
||||
{</BLOCK>} --fct.empresas_fecha_inicio_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_estado1_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.estado1" 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
|
||||
{</BLOCK>} --fct.empresas_estado1_checkColumnConstraints
|
||||
|
||||
{<BLOCK Name="fct.empresas_estado2_checkColumnConstraints">}
|
||||
#+ Check constraints on the "empresas.estado2" 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
|
||||
{</BLOCK>} --fct.empresas_estado2_checkColumnConstraints
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
--Add user functions
|
||||
{<POINT Name="user.functions">}
|
||||
{</POINT>}
|
||||
</Generated>
|
||||
<Diff/>
|
||||
<Lost/>
|
||||
</File>
|
||||
Reference in New Issue
Block a user