{<CODEFILE version="1.0" encoding="CP1252">}
{<SOURCEFILE name="dbdgii_dbxconstraints.4gl" hash="5jaoc9lxdEF8t+d1/ak0sQ==">}
{<USERCODE>}
{<POINT Name="user.comments" Status="MODIFIED">}
{</POINT>}
{<POINT Name="import" Status="MODIFIED">}
{</POINT>}
{<BLOCK Name="fct.empresastmp_checkTableConstraints" Status="MODIFIED">}
#+ 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>}
{<BLOCK Name="fct.empresastmp_pk_empresastmp_checkUniqueConstraint" Status="MODIFIED">}
#+ 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>}
{<BLOCK Name="fct.empresastmp_rnc_checkColumnConstraints" Status="MODIFIED">}
#+ 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>}
{<BLOCK Name="fct.empresas_checkTableConstraints" Status="MODIFIED">}
#+ 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>}
{<POINT Name="user.functions" Status="MODIFIED">}
{</POINT>}

{</USERCODE>}
{<LOSTCODE>}
{<BLOCK Name="fct.empresas_actividad_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_calle_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_estado1_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_estado2_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_fecha_inicio_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_no_local_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_nombre_empresa_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_razon_social_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_rnc_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_sector_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresas_telefono_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_actividad_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_calle_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_estado1_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_estado2_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_fecha_inicio_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_no_local_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_nombre_empresa_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_razon_social_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_sector_checkColumnConstraints" Status="LOST">}
-- #+ 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>}
{<BLOCK Name="fct.empresastmp_telefono_checkColumnConstraints" Status="LOST">}
-- #+ 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>}

{</LOSTCODE>}
{</SOURCEFILE>}
{<SOURCEFILE name="dbdgii_dbxdata.4gl" hash="javWTIEHtIq+N8lJFwImXA==">}
{<USERCODE>}
{<POINT Name="user.comments" Status="MODIFIED">}
{</POINT>}
{<POINT Name="import" Status="MODIFIED">}
{</POINT>}
{<BLOCK Name="fct.empresastmp_insertRowByKey" Status="MODIFIED">}
#+ Insert a row in the "empresastmp" table and return the primary key created
#+
#+ @param p_data - a row data LIKE empresastmp.*
#+
#+ @returnType - INTEGER, CHAR(11)
#+ @return - ERROR_SUCCESS|ERROR_FAILURE, empresastmp.rnc
PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_insertRowByKey(p_data)
  DEFINE p_data RECORD LIKE empresastmp.*
  DEFINE errNo INTEGER
  DEFINE errMsg STRING

  LET errNo = libdbapp_begin_work()
  IF errNo == ERROR_SUCCESS THEN
    CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(FALSE, p_data.*) RETURNING errNo, errMsg
    IF errNo == ERROR_SUCCESS THEN
      TRY
        INSERT INTO empresastmp VALUES (p_data.*)
      CATCH
        LET errNo = ERROR_FAILURE
      END TRY
    END IF
    IF errNo == ERROR_SUCCESS THEN
      LET errNo = libdbapp_commit_work()
    ELSE
      CALL libdbapp_rollback_work()
    END IF
  END IF
  RETURN errNo, errMsg, p_data.rnc
END FUNCTION
{</BLOCK>}
{<BLOCK Name="fct.empresastmp_setDefaultValuesFromDBSchema" Status="MODIFIED">}
#+ Set data with the default values coming from the DB schema
#+
PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_setDefaultValuesFromDBSchema()
  DEFINE l_data RECORD LIKE empresastmp.*

  INITIALIZE l_data.* TO NULL
  LET l_data.rnc = ""
  LET l_data.razon_social = ""
  LET l_data.nombre_empresa = ""
  LET l_data.actividad = ""
  LET l_data.calle = ""
  LET l_data.no_local = ""
  LET l_data.sector = ""
  LET l_data.telefono = ""
  LET l_data.fecha_inicio = ""
  LET l_data.estado1 = ""
  LET l_data.estado2 = ""

  RETURN l_data.*
END FUNCTION
{</BLOCK>}
{<POINT Name="user.functions" Status="MODIFIED">}
{</POINT>}

{</USERCODE>}
{<LOSTCODE>}
{<BLOCK Name="fct.empresastmp_deleteRowByKey" Status="LOST">}
-- #+ Delete a row identified by the primary key in the "empresastmp" table
-- #+
-- #+ @param p_key - Primary Key
-- #+
-- #+ @returnType - INTEGER
-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_deleteRowByKey(p_key)
--   DEFINE p_key
--     RECORD
--       empresastmp_rnc LIKE empresastmp.rnc
--     END RECORD
--   DEFINE errNo INTEGER
-- 
--   LET errNo = libdbapp_begin_work()
--   IF errNo == ERROR_SUCCESS THEN
--     TRY
--       DELETE FROM empresastmp
--         WHERE empresastmp.rnc = p_key.empresastmp_rnc
--     CATCH
--       LET errNo = ERROR_FAILURE
--     END TRY
--   END IF
--   IF errNo == ERROR_SUCCESS THEN
--     LET errNo = libdbapp_commit_work()
--   ELSE
--     CALL libdbapp_rollback_work()
--   END IF
-- 
--   RETURN errNo
-- END FUNCTION
{</BLOCK>}
{<BLOCK Name="fct.empresastmp_selectRowByKey" Status="LOST">}
-- #+ Select a row identified by the primary key in the "empresastmp" table
-- #+
-- #+ @param p_key - Primary Key
-- #+
-- #+ @returnType - INTEGER
-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE, l_data
-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_selectRowByKey(p_key)
--   DEFINE p_key
--     RECORD
--       empresastmp_rnc LIKE empresastmp.rnc
--     END RECORD
--   DEFINE l_data RECORD LIKE empresastmp.*
--   DEFINE errNo INTEGER
-- 
--   INITIALIZE l_data.* TO NULL
--   LET errNo = ERROR_SUCCESS
--   TRY
--     SELECT * INTO l_data.* FROM empresastmp
--     WHERE empresastmp.rnc = p_key.empresastmp_rnc
--   CATCH
--     INITIALIZE l_data.* TO NULL
--     LET errNo = ERROR_FAILURE
--   END TRY
-- 
--   RETURN errNo, l_data.*
-- END FUNCTION
{</BLOCK>}
{<BLOCK Name="fct.empresastmp_updateRowByKey" Status="LOST">}
-- #+ Update a row identified by the primary key in the "empresastmp" table
-- #+
-- #+ @param p_key - Primary Key
-- #+ @param p_dataT0 - a row data LIKE empresastmp.*
-- #+ @param p_dataT1 - a row data LIKE empresastmp.*
-- #+
-- #+ @returnType - INTEGER
-- #+ @return - ERROR_SUCCESS|ERROR_FAILURE
-- PUBLIC FUNCTION dbdgii_dbxdata_empresastmp_updateRowByKey(p_key, p_dataT0, p_dataT1)
--   DEFINE p_key
--     RECORD
--       empresastmp_rnc LIKE empresastmp.rnc
--     END RECORD
--   DEFINE p_dataT0 RECORD LIKE empresastmp.*
--   DEFINE p_dataT1 RECORD LIKE empresastmp.*
--   DEFINE l_dataT2 RECORD LIKE empresastmp.*
--   DEFINE errNo INTEGER
--   DEFINE errMsg STRING
--   DEFINE errDiff INTEGER
-- 
--   INITIALIZE l_dataT2.* TO NULL
--   INITIALIZE errMsg TO NULL
--   LET errDiff = FALSE
--   LET errNo = libdbapp_begin_work()
--   IF errNo == ERROR_SUCCESS THEN
--     TRY
--       -- Concurrent Access done with the FOR UPDATE (not supported by SQLite)
--       IF (UPSHIFT(fgl_db_driver_type()) != "SQT") THEN
--         SELECT * INTO l_dataT2.* FROM empresastmp
--           WHERE empresastmp.rnc = p_key.empresastmp_rnc
--         FOR UPDATE
--         LET errDiff = (p_dataT0.* != l_dataT2.*)
--       END IF
-- 
--       IF NOT errDiff THEN
--         CALL dbdgii_dbxconstraints.dbdgii_dbxconstraints_empresastmp_checkTableConstraints(TRUE, p_dataT1.*) RETURNING errNo, errMsg
--         IF errNo == ERROR_SUCCESS THEN
--           UPDATE empresastmp
--             SET empresastmp.* = p_dataT1.*
--             WHERE empresastmp.rnc = p_key.empresastmp_rnc
--         END IF
--       ELSE
--         LET errNo = ERROR_CONCURRENT_ACCESS_FAILURE
--       END IF
--     CATCH
--       LET errNo = ERROR_FAILURE
--     END TRY
--     IF errNo == ERROR_SUCCESS THEN
--       LET errNo = libdbapp_commit_work()
--     ELSE
--       CALL libdbapp_rollback_work()
--     END IF
--   END IF
-- 
--   RETURN errNo, errMsg
-- END FUNCTION
{</BLOCK>}

{</LOSTCODE>}
{</SOURCEFILE>}
{</CODEFILE>}